home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9206b.d64
/
diskretter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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