home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / sperre (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  628b  |  20 lines
  1. 10 poke53280,.:poke53281,.:print"[147]":open1,8,15,"i":open2,8,2,"#":s=1
  2. 20 print#1,"u1 2 0 18"s
  3. 30 forf=0to255step32
  4. 40 print#1,"b-p 2"f+2:get#2,a$:ifa$<>chr$(130)anda$<>chr$(194)then180
  5. 50 print#1,"b-p 2"f+21:get#2,a$:ifa$<>""then180
  6. 60 print#1,"b-p 2"f+30:get#2,a$:poke781,asc(a$+chr$(0)):poke780,0:sys48589
  7. 80 print#1,"b-p 2"f+5:printtab(5)chr$(34);
  8. 90 x=0:fori=0to15:get#2,a$:ifa$=chr$(160)andx=0thenx=1:printchr$(34);
  9. 100 printa$;:next:ifx=0thenprintchr$(34);
  10. 110 print#1,"b-p 2"f+25:get#2,a$:ifa$>""thenprinttab(24)"_";
  11. 120 printtab(26)"[211]perre j/n[157][157][157]";
  12. 130 geta$:ifa$="j"ora$="y"thenx=32:print" j ":goto170
  13. 140 ifa$=chr$(13)thenprint"   ":goto180
  14. 150 ifa$<>"n"then130
  15. 160 x=0:print" n "
  16. 170 print#1,"b-p 2"f+25:print#2,chr$(x);
  17. 180 next:print#1,"b-p 2 0":print#1,"u2 2 0 18"s
  18. 190 get#2,a$,s$:s=asc(s$+chr$(0)):ifa$=chr$(18)then20
  19. 200 close2:close1:end
  20.