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 >
Wrap
Commodore BASIC
|
2022-10-26
|
251b
|
10 lines
10 open1,6,1:open8,6,0
20 print"[147]f[146]laeche / e[146]inschreiben ?":poke198,0:wait198,1:geta$
30 ifa$="e"then100
40 print#8:forz=0to999step2
50 print#1,"m";0;-z:print#1,"d";479;-z:print#1,"m";479;-z-1:print#1,"d";0;-z-1:next
60 goto40
100 print#8:forz=0to999:forx=0to472step8
120 print#1,"m";x;-z:print#1,"d";x+4;-z:next:next
130 goto100