Unidisk/src/TESTBAS

9 lines
216 B
Plaintext

10 HOME
15 PRINT "1 BYTE ADC OPERATIONS - exec TESTBAS.TXT then save it"
20 PRINT CHR$ (4);"BLOAD TESTBIN"
25 INPUT "N1,N2? ";N1,N2
30 POKE 10,N1
35 POKE 11,N2
40 CALL 32768
50 PRINT : PRINT "RESULT IS "; PEEK (12)