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 >
Commodore BASIC  |  2022-10-26  |  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.