10
20
30 :
40 a%=1:b=2:b$="Hello":c=PI:$&900="Buffer"
50 PROCtest1
60 PROCtest2(10,20)
70 PROCtest3
80 END
90 :
100 DEFPROCtest1:PRINT'"Test 1:"
110 PROCstd
120 ENDPROC
130 :
140 DEFPROCtest2(a,b):PRINT'"Test 2:"
150 PROCstd
160 ENDPROC
170 :
180 DEFPROCtest3:PRINT'"Test 3:"
190 LOCAL ?&70,!&80,a%,b$,$&900,c
200 PROCstd
210 ENDPROC
220 :
230 DEFPROCstd
240 FOR A%=!&4 AND &FFFF TO !&6 AND &FFFF STEP 16
250 PRINTFNh0(A%,4);" ";:FOR B%=A% TO A%+15:PRINTFNh0(?B%,2);" ";:NEXT
260 FOR B%=A% TO A%+15:PRINTFNc(?B%);:NEXT:PRINT:NEXT
270 ENDPROC
280 :
290 DEFFNc(A%):IF(A%AND127)<32 OR A%=127:="." ELSE =CHR$A%
300 :
310 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)