home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 December / 64er_Magazin_84-12_1984_Markt__Technik_de.d64 / pet-simulator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  33 lines
  1. 1 rem *********************************
  2. 2 rem *       pet - simulator         *
  3. 3 rem *                               *
  4. 4 rem *     (c) by w. hopf 1984       *
  5. 5 rem *********************************
  6. 6 :
  7. 7 rem programm vor dem start abspeichern
  8. 8 :
  9. 10 fori=49152to49152+91:reada:su=su+a
  10. 20 pokei,a:next
  11. 30 ifsu<>12552thenend
  12. 40 print"[147]bitte waehlen sie die zeichenfarbe"
  13. 50 print"(0-15 eingeben)!"
  14. 60 inputzf:ifzf>=0andzf<=15thenpoke49239,zf:poke646,zf:goto80
  15. 70 print"nicht erlaubt":fori=1to1000:next:goto40
  16. 80 sys49152:poke1,54:print"[147]pet-simulator aktiv":new
  17. 10000 data160,0,132,254,169,160,133,255
  18. 10005 data177,254,145,254,200,208,249,230
  19. 10010 data255,166,255,224,192,208,241
  20. 10015 data169,5,141,0,221,141,24,208,169
  21. 10020 data128,141,136,2,133,56,169,4
  22. 10025 data133,44,169,0,141,0,4,169
  23. 10030 data63,141,37,184,169,192,141,38
  24. 10035 data184,169,193,141,24,3,96,32
  25. 10040 data235,183,24,165,21,201,128,144
  26. 10045 data18,201,132,176,14,24,105,88
  27. 10050 data133,255,165,20,133,254,169,0
  28. 10055 data234,145,254,96
  29. 60000 :
  30. 60010 rem liste der verwendeten commodore-steuerzeichen
  31. 60020 rem "[147]" = clr
  32. 60030 rem "" = crsr-down
  33.