home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 January
/
64er_Magazin_94-01_1994_Markt__Technik_de.d64
/
basic-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
778b
|
22 lines
5 a=peek(53280):b=peek(53281):c=peek(646)
10 cls:color 0,0,14:bline 2
20 bdata 1,3,14,11,6,9,2,4,10,7,6,6
30 locate 8,2
40 print "*** universal-basic ***"
50 border on:beep
60 locate 6,5:color 0,0,15
70 print "(c) 9999 by m. tscherepanow"
80 locate 9,5
90 for t=9868to1993 step -125:printt:locate 9,5:next
100 color 0,0,1:locate8,2:print"*** universal-basic ***"
110 for i=1to5:bdata 1,3,14,11,6,9,2,4,10,7,10,10:pause 3
120 bdata 1,3,14,11,6,9,2,4,10,7,14,14:pause 3:next
130 locate 8,2:print" ":for t=2to5:bline t:next
140 locate 6,5:print" "
150 for t=6to23:bline t:next
160 for t=23to1 step-1:bline t:next
170 cls:color 0,0,c:locate 8,1: print "*** universal-basic ***":beep
180 locate 0,3:bline 2:pause 0:bline 3:pause 0 :print"ready.":beep:locate 0,2
190 for i=4to23:bline i:next i
200 border off:color a,b,c