home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9401.d64 / basic-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  778b  |  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.