home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_A.d64 / highscore (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.