home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #4 / Floppy_Magazine_87-4_1987_Megasystems_Oy_fi_Side_A.d64 / kuvademo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  837b  |  22 lines
  1. 0 rem *** kuvademo floppikseen ***      0 rem *** design by toni luode *** '86(NULL)
  2. 1 ifb=0thenb=1:poke53281,0:poke53280,0:print"[147][154]odota hetki!"
  3. 2 ifb=1thenb=2:load"kuvademomerkit",8,1
  4. 4 ifb=2thenb=3:poke53272,28:gosub10
  5. 5 a=a+1:ifa>1then7
  6. 6 remprint"paina jotain!"
  7. 7 sys14336:poke198,0:remwait198,1
  8. 8 ifa=10thenpoke53272,20:print"[147]":end
  9. 9 a$=chr$(a+48):load a$+".*",8,1
  10. 10 print"[147]kuvademo."
  11. 11 print"designed by toni luode 1986."
  12. 12 print"t[m[ ohjelma n[ytt[[ mit[ ohjelmoi-"
  13. 13 print"duilla merkeill[ saa aikaan!!"
  14. 14 print"ohjelma lataa valmiita kuvia ruutuun":print"9 kpl."
  15. 15 print"uuden kuvan saamiseksi paina v[li-":print"ly\nti[."
  16. 16 print"uuden kuvan merkkien v[riarvo":print"on nyt";peek(14337);"."
  17. 17 print"haluatko vaihtaa arvoa?? (k/e)"
  18. 18 get ye$:ifye$=""orye$<>"e"andye$<>"k"then18
  19. 19 if ye$="e"thenreturn
  20. 20 print"anna uusi arvo:";:input ar
  21. 21 poke14337,ar:return
  22.