mirror of https://github.com/zellyn/a2audit.git
15 lines
409 B
QBasic
15 lines
409 B
QBasic
10 H$ = "300:8D 52 C0 A9 E0 A2 04 CD 51 C0 D0 F9 CA D0 F8 A9 A0 A2 04 CD 50 C0 D0 F9 CA D0 F8 8D 51 C0 60 N D9C6G"
|
|
20 FOR X = 1 TO LEN(H$): POKE 511 + X, ASC ( MID$ (H$,X,1)) + 128: NEXT
|
|
30 POKE 72,0: CALL -144
|
|
100 HOME
|
|
200 FOR K = 0 TO 39
|
|
210 POKE 1448 + K, 14 * 16
|
|
220 POKE 2000 + K, 10 * 16
|
|
230 COLOR= K + 4
|
|
240 VLIN 25,45 AT K
|
|
250 NEXT K
|
|
300 VTAB 6: HTAB 17
|
|
310 PRINT "APPLE II"
|
|
400 CALL 768
|
|
500 GOTO 400
|