home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  702b  |  27 lines
  1. 10 rem          demo
  2. 20 rem           by
  3. 30 rem    stefan landfried
  4. 40 rem    kelheimerstr. 9
  5. 50 rem    8421 painten
  6. 70 rem
  7. 72 ifa=1then90
  8. 74 print"[147] andere farben (y/n) ?"
  9. 75 geta$:ifa$=""then75
  10. 76 ifa$="y"then190
  11. 80 ifa=0thena=1:load"alley. sim.",8,1
  12. 90 sys49152,130,2,8,0:
  13. 100 rem in zeile 10 ((8*10)+50)
  14. 110 rem ziemlich schnell und alle balken
  15. 120 print"[144][147]"
  16. 130 print"      this is only a little demo           "
  17. 140 geta$:ifa$=""then140
  18. 150 goto150
  19. 160 rem       farbentausch
  20. 170 rem
  21. 180 rem
  22. 190 fori=49278to49308:reada:pokei,a:next:goto90
  23. 200 data11,12,15,15,15,1,12,11,4,6,6,14,,1,14,14,6: rem 16 farben
  24. 210 data4,2,2,10,1,10,10,2,5,13,3,3,3,1,13,5: rem insgesamt 32 farben
  25. 220 rem in den datazeilen koennen die gewuenschten farben eingetragen werden
  26. 230 rem end
  27.