24 lines
797 B
QBasic
24 lines
797 B
QBasic
5 HOME
|
|
10 GOSUB 100
|
|
20 PRINT:PRINT
|
|
30 PRINT " @AppleIIbot BASIC Demos v0.1"
|
|
40 PRINT "Each scene fits in a 280 character tweet"
|
|
45 HTAB 15:FLASH:PRINT "LOADING...":NORMAL
|
|
90 PRINT CHR$(4)"BRUN LOADER"
|
|
100 HTAB 9:PRINT " ___________"
|
|
110 HTAB 9:PRINT " / \ \"
|
|
120 HTAB 9:PRINT " / \___\"
|
|
130 HTAB 9:PRINT " / . / \"
|
|
140 HTAB 9:PRINT " / / \"
|
|
150 HTAB 9:PRINT " / / . \"
|
|
160 HTAB 9:PRINT "/__________/ \"
|
|
170 HTAB 9:PRINT "\ \ /"
|
|
180 HTAB 9:PRINT " \ __\ / /"
|
|
190 HTAB 9:PRINT " \ \/ \/"
|
|
200 HTAB 9:PRINT " \___ \ /"
|
|
210 HTAB 9:PRINT " \ \ /"
|
|
220 HTAB 9:PRINT " \__________\/"
|
|
230 PRINT:PRINT
|
|
250 HTAB 9:PRINT " - d e s i r e -"
|
|
999 RETURN
|