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 >
Encoding:
Commodore BASIC  |  1994-01-01  |  778 b   |  22 lines
  1. 5 a=peek(53280):b=peek(53281):c=peek(646)
  2. 10 cls:color 0,0,14:bline 2
  3. 20 bdata 1,3,14,11,6,9,2,4,10,7,6,6
  4. 30 locate 8,2
  5. 40 print "*** universal-basic ***"
  6. 50 border on:beep
  7. 60 locate 6,5:color 0,0,15
  8. 70 print "(c) 9999 by m. tscherepanow"
  9. 80 locate 9,5
  10. 90 for t=9868to1993 step -125:printt:locate 9,5:next
  11. 100 color 0,0,1:locate8,2:print"*** universal-basic ***"
  12. 110 for i=1to5:bdata 1,3,14,11,6,9,2,4,10,7,10,10:pause 3
  13. 120 bdata 1,3,14,11,6,9,2,4,10,7,14,14:pause 3:next
  14. 130 locate 8,2:print"                       ":for t=2to5:bline t:next
  15. 140 locate 6,5:print"                           "
  16. 150 for t=6to23:bline t:next
  17. 160 for t=23to1 step-1:bline t:next
  18. 170 cls:color 0,0,c:locate 8,1: print "*** universal-basic ***":beep
  19. 180 locate 0,3:bline 2:pause 0:bline 3:pause 0 :print"ready.":beep:locate 0,2
  20. 190 for i=4to23:bline i:next i
  21. 200 border off:color a,b,c
  22.