mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-06-04 21:29:27 +00:00
7 lines
147 B
QBasic
7 lines
147 B
QBasic
2 PRINT CHR$ (4);"BLOAD UNIFP"
|
|
5 PRINT CHR$ (4);"BLOAD CONV3"
|
|
15 INPUT "N1 ? ";X
|
|
20 CALL 768,X
|
|
25 CALL 821
|
|
30 CALL 841,Y
|
|
40 PRINT Y |