home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 June
/
64er_Magazin_92-06_1992_Markt__Technik_de_Side_B.d64
/
diskretter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
1 printchr$(14)"[211]ichern oder retten (s/r) ? ";
3 get m$: if m$ <> "s" and m$ <> "r" then 3
5 print m$: open 1,8,15: open 2,8,2,"#": s1=0: d1=15: s2=1: d2=18
7 if m$ = "r" then s1=15: s2=18: d1=0: d2= 1: goto 19
9 print#1,"u1:" 2; 0; 18; 12: get#2, a$,b$:if a$+b$<>chr$(18)+chr$(15) then 23
11 print "zielbloecke werden/wurden bereits benutzt! abbrechen ? (j/n):";
13 get a$: if a$ <> "j" and a$<> "n" then 13
15 printa$: if a$ = "j" then 29
16 print#1,"b-p:"2;0:print#2,chr$(0)chr$(255);
17 print#1,"b-p:"2;0:print#1,"u2:"2;0;18;12:goto23
19 print#1,"u1:" 2; 0; 18; 15: get#2, a$,b$:if a$+b$ = chr$(18)+chr$(1) then 23
21 print "[203]eine [203]opie gefunden! [196]ummy generieren ?(j/n) ": goto 30
23 print#1, "u1:" 2; 0; 18; s1: print#1, "u2:" 2; 0; 18; d1
25 print#1, "u1:" 2; 0; 18; s2: print#1, "u2:" 2; 0; 18; d2
26 input#1, a, b$, c, d: print a, b$, c, d : print#1, "i":if d$="j" then 29
27 print#1,"b-f"0,18,15:print#1,"b-f"0,18,18:print#1,"b-a"0,18,15:print#1,"b-a"0,18,18
29 close 2,1:print"weiter...":poke 198, 0: wait 198, 1: poke 198, 0: run
30 get d$:if d$ <> "j" and d$ <> "n" then 30
31 if d$ = "n" then 29
32 print#1,"u1:"2;0;18;1:print#1,"b-p"2;0:print#2,chr$(18)+chr$(4);:print#1,"u2:"2;0;18;1:goto26