home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 April
/
64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64
/
furzeditor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
863b
|
26 lines
1 fori=50000to50022:reada:pokei,a:next
5 a$="t":b=13:d=4:w=129
6 printchr$(147):print:print:print" [198]urzeditor"spc(7)"('87 by [202]omo [215]alla)"
10 printchr$(14)chr$(8):print:print" [193]nzahl der '[194]lubbe'(1-23)?"b
11 printchr$(145)tab(27);:inputb
13 print:print:print" [198]urzdauer?"d:printchr$(145)tab(11);:inputd
14 print:print:print" [198]eucht oder [212]rocken? "a$chr$(157)chr$(157)chr$(157);
15 inputa$:w=129
16 ifa$="f"thenw=17
17 print:print:print" ([218]) =>[218]ufallsfurz"
18 print:print:print" ([206]) =>[198]urz neu kreieren"
19 print:print:print" (*) =>[206]ochmal furzen"
20 fori=0to24:poke54272+i,0:next
30 sd=54272+14:pokesd+10,15:pokesd+6,240:pokesd+4,w
40 fori=0tob:poke2,(7-i)*5+85:sys50000:fork=1toi*d:next:next
60 getg$:ifg$=""then60
70 ifg$="z"thenb=int(rnd(1)*15):d=int(rnd(1)*12):w=17:w=w+112*sgn(int(rnd(1)*4))
71 a$="t":ifw=17thena$="f"
72 printchr$(19):fori=1to5:print:next:printspc(27)"?"bchr$(157)" "
73 print:print:print" [198]urzdauer?"dchr$(157)" "
74 print:print:print" [198]eucht oder [212]rocken? "a$
75 ifg$="n"thengoto6
76 goto30
80 data120,162,0,160,15,136,208,253,232,142,15,212,228,2,208,243,169,0
90 data141,15,212,88,96