dos33fsprogs/bot_demo/hello.bas
2020-11-20 00:22:19 -05:00

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