Apple-2-SW
/
Unidisk
mirror of https://github.com/rigreco/UniDisk.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Create TESTBAS

This commit is contained in:
Riccardo 2020-10-04 14:41:02 +02:00 committed by GitHub
parent a408d30fc3
commit 4a03b5906d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/TESTBAS Normal file
View File

@ -0,0 +1,8 @@
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)