home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9206b.d64 / diskretter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 PRINTCHR$(14)"[211]ICHERN ODER RETTEN (S/R) ?  ";
  2. 3 GET M$: IF M$ <> "S" AND M$ <> "R" THEN 3
  3. 5 PRINT M$: OPEN 1,8,15: OPEN 2,8,2,"#": S1=0: D1=15: S2=1: D2=18
  4. 7 IF M$ = "R" THEN S1=15: S2=18: D1=0: D2= 1: GOTO 19
  5. 9 PRINT#1,"U1:" 2; 0; 18; 12: GET#2, A$,B$:IF A$+B$<>CHR$(18)+CHR$(15) THEN 23
  6. 11 PRINT "ZIELBLOECKE WERDEN/WURDEN BEREITS       BENUTZT!  ABBRECHEN ? (J/N):";
  7. 13 GET A$: IF A$ <> "J" AND A$<> "N" THEN 13
  8. 15 PRINTA$: IF A$ = "J" THEN 29
  9. 16 PRINT#1,"B-P:"2;0:PRINT#2,CHR$(0)CHR$(255);
  10. 17 PRINT#1,"B-P:"2;0:PRINT#1,"U2:"2;0;18;12:GOTO23
  11. 19 PRINT#1,"U1:" 2; 0; 18; 15: GET#2, A$,B$:IF A$+B$ = CHR$(18)+CHR$(1) THEN 23
  12. 21 PRINT "[203]EINE [203]OPIE GEFUNDEN! [196]UMMY GENERIEREN ?(J/N)  ": GOTO 30
  13. 23 PRINT#1, "U1:" 2; 0; 18; S1: PRINT#1, "U2:" 2; 0; 18; D1
  14. 25 PRINT#1, "U1:" 2; 0; 18; S2: PRINT#1, "U2:" 2; 0; 18; D2
  15. 26 INPUT#1, A, B$, C, D: PRINT A, B$, C, D  : PRINT#1, "I":IF D$="J" THEN 29
  16. 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
  17. 29 CLOSE 2,1:PRINT"WEITER...":POKE 198, 0: WAIT 198, 1: POKE 198, 0: RUN
  18. 30 GET D$:IF D$ <> "J" AND D$ <> "N" THEN 30
  19. 31 IF D$ = "N" THEN 29
  20. 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
  21.