home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33a.d64 / highscore (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  876b  |  29 lines
  1. 10 IFA=0THENA=1:LOAD".HIGH.",8,1
  2. 20 V=53248:POKEV+33,0:POKEV+32,0:REM BILDSCHIRM UND RAHMEN AUF SCHWARZ
  3. 30 POKEV+34,11:POKEV+35,15:REM MULITCOLORFARBEN SETZEN
  4. 40 POKE646,9:PRINT"[147]":REM MULITCOLORSCHRIFTFARBE WEISS
  5. 50 FORI=8192+32*8TOI+7:POKEI,0:NEXT:REM SPACE LOESCHEN
  6. 60 FORI=8192TOI+7:POKEI,109:NEXT:REM GROSSE ROEHRE ALS KLAMMERAFFE
  7. 70 FORI=8192+8TOI+7:POKEI,100:NEXT:REM KLEINE ROHRE ALS A
  8. 75 FORI=8192+16TOI+7:POKEI,255:NEXT:REM B WIRD ABDECKZEICHEN
  9. 80 POKE53248+22,24:POKE53248+24,24:REM MULTICOLOR UND ZEICHENSATZ AB 8192 EIN
  10. 90 SYS49152: REM SENKRECHTE ROEHREN AKTIVIEREN
  11. 100 REM
  12. 110 REM  PRINTEN
  13. 120 REM
  14. 125 FORD=0TO32STEP4
  15. 130 PRINTTAB(2+D)""
  16. 140 FORI=0TO12:PRINTTAB(2+D)"@":NEXT
  17. 160 PRINT""TAB(4+D)"A"
  18. 170 FORI=0TO6:PRINTTAB(4+D)"A":NEXT
  19. 180 PRINTTAB(4+D)"A"
  20. 190 NEXTD
  21. 200 PRINTTAB(38)""
  22. 210 FORI=0TO12:PRINTTAB(38)"@":NEXT
  23. 220 FORI=1024TOI+999STEP40:POKE646,0:POKEI,2:POKE55296+I-1024,0: NEXT
  24. 225 REM VERKUERZT DIE LIEGENDEN ROEHREN (NUR WEIL ES SCHOENER AUSSIEHT)
  25. 230 POKE198,0:WAIT 198,1
  26. 240 POKE646,7
  27. 250 POKE53248+24,28
  28. 260 END
  29.