Hallo zusammen,
ich würde gerne dieses Spiel abändern, so dass es auf Diskete speichert und nicht auf Tape.
Kann mir jemand mal bitte den Code umändern? Ich habe die "Open" Befehle mit ,8 versehen bei einem Test,
aber so wirklich will er nicht auf Diskette speichern. Hier im original:
117 open1,1,1,"kolonie1":poke65286,peek(
65286)and239
118 print#1,r1:print#1,r2:print#1,k:prin
t#1,k1:print#1,k2:print#1,k3
119 print#1,k4:print#1,k5:print#1,k6:pri
nt#1,k7:print#1,k8:print#1,k9
120 print#1,g1:print#1,g2:print#1,g3:pri
nt#1,g4:print#1,g5:print#1,g6
121 print#1,g7:print#1,g8:print#1,g9
122 close1:open2,1,1,"kolonie2":forx=1to
8
123 print#2,l$(x,1):print#2,l$(x,2):prin
t#2,l$(x,3):print#2,l$(x,4):nextx
124 print#2,i$:close2
125 open3,1,1,"kolonie3":forx=1to8
126 print#3,f(x,1):print#3,f(x,2):print#
3,f(x,3):print#3,f(x,4):nextx
127 close3:print"Q ":poke65286,peek(65
286)or16:goto544
128 print"Q":open4,1,0,"kolonie1":poke65
286,peek(65286)and239
129 input#4,r1,r2,k,k1,k2,k3
130 input#4,k4,k5,k6,k7,k8,k9
131 input#4,g1,g2,g3,g4,g5,g6
132 input#4,g7,g8,g9
133 close4:open5,1,0,"kolonie2":forx=1to
8
134 input#5,l$(x,1),l$(x,2),l$(x,3),l$(x
,4):nextx:input#5,i$:close5
135 open6,1,0,"kolonie3":forx=1to8
136 input#6,f(x,1),f(x,2),f(x,3),f(x,4)
137 nextx
138 close6:print"S":poke65286,peek(65286
)or16:goto15
139 print"Qnichts yu sehen":goto62
Danke