! directives
#if #pvmodel=1
pv$="PV-x50X"
#endif
#if #pvmodel=2
pv$="PV-S750(+)"
#endif
#if #pvmodel=3
pv$="PV-Sx50"
#endif
#if #pvmodel=4
pv$="PV-Sx60"
#endif
#if #pvmodel=5
pv$="PV-S1600"
#endif
CONST MAX=12
#if not vardef(MAX)
CONST MAX=13
#endif
#if not procfuncdef!(myproc)
proc myproc a,b
print a,b,a*b
endp
#endif
#if 5*7=35
print "ich kann kopfrechnen"
#endif |