home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_A.d64 / prometheus (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  46 lines
  1. 5 poke53248+33,0:poke53248+32,0:print"[147]"
  2. 10 iffl=1thenfl=2:loadn$,8,1
  3. 12 iffl=2thensys49152
  4. 20 print"           prometheus   v 1.0           "
  5. 25 print"                  menu:                  "
  6. 30 print"    [218]1[218]     anzahl einstellen            "
  7. 35 print"    [218]2[218]     farben einstellen            "
  8. 40 print"    [218]3[218]     farben   ordnen              "
  9. 45 print"    [218]4[218]           saven                  "
  10. 50 print"    [218]5[218]           laden                 "
  11. 55 print"    [218]6[218]            end"
  12. 60 geta$:a=val(a$)
  13. 70 ona goto 100,200,300,400,500,600
  14. 80 goto 60
  15. 100 input"[147]wieviele streifen";an
  16. 105 poke 49308,an
  17. 110 input"ok  ";a$
  18. 120 ifa$="j"then 5
  19. 130 goto 100
  20. 200 input"[147]  welchen farbcode ";fc:
  21. 205 print
  22. 210 fori=49361+(8*fc)toi+7:printpeek(i);:nexti
  23. 215 print:print
  24. 220 fori=49361+(8*fc)toi+7:print i-(49361+(8*fc));":";peek(i);"   =>";:input a
  25. 223 print
  26. 225 poke i,a:next
  27. 230 input"         ok";a$
  28. 235 ifa$="j"then 5
  29. 240 goto 200
  30. 300 input "[147]welchen streifen";s
  31. 310 input "welchen farbcode";fc
  32. 320 f1=49361+(8*fc)
  33. 330 a1=int(f1/256):a2=f1-(256*a1)
  34. 340 s1=49335+(2*s)
  35. 350 poke s1,a2:pokes1+1,a1
  36. 360 input"         ok";a$
  37. 370 ifa$="j"then5
  38. 380 goto300
  39. 400 input"[147]filename:";n$
  40. 405 sys(57812)n$,8
  41. 410 poke193,00:poke194,192:poke174,88:poke175,193:sys62957
  42. 420 goto5
  43. 500 input"[147]filename:";n$
  44. 510 fl=1:goto10
  45. 600 end
  46.