mirror of
https://github.com/equant/apple2idiot.git
synced 2024-07-04 15:29:35 +00:00
10 lines
290 B
QBasic
10 lines
290 B
QBasic
|
100 CA = 49664: REM CARD ADDRESS 0XCN0
|
||
|
120 AA = CA +1: REM APPL CMD ADDRESS
|
||
|
140 ESPA = CA: REM ESP CMD ADDRESS
|
||
|
150 MAX = 21
|
||
|
215 P = CA +2
|
||
|
220 C1 = PEEK(P)
|
||
|
221 C2 = PEEK(P +1)
|
||
|
222 C3 = PEEK(P +2)
|
||
|
223 C4 = PEEK(P +3)
|
||
|
245 PRINT STR$(C1) +"." + STR$(C2) +"." + STR$(C3) +"." + STR$(C4)
|