mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-16 09:29:23 +00:00
16 lines
345 B
QBasic
16 lines
345 B
QBasic
|
' Bob Bishop screen splitting demo
|
||
|
' Softalk, October 1982
|
||
|
' See http://rich12345.tripod.com/aiivideo/softalk.html
|
||
|
10 PRINT CHR$(4)"BLOAD BISHOP"
|
||
|
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
|