home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_B.d64 / einschreiben (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  251b  |  10 lines
  1. 10 open1,6,1:open8,6,0
  2. 20 print"[147]f[146]laeche / e[146]inschreiben ?":poke198,0:wait198,1:geta$
  3. 30 ifa$="e"then100
  4. 40 print#8:forz=0to999step2
  5. 50 print#1,"m";0;-z:print#1,"d";479;-z:print#1,"m";479;-z-1:print#1,"d";0;-z-1:next
  6. 60 goto40
  7. 100 print#8:forz=0to999:forx=0to472step8
  8. 120 print#1,"m";x;-z:print#1,"d";x+4;-z:next:next
  9. 130 goto100
  10.