home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 Janurary / 64er_Magazin_91-01_1991_Markt__Technik_de_Side_A.d64 / stonloader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  630 b   |  17 lines
  1. 10 rem stonwater 90'leipzig
  2. 20 poke53280,0:poke53281,0:open15,8,15,"i0":open2,8,2,"#":print"[147]"
  3. 30 print#15,"u1:2,0,18,0":print#15,"b-p:2,144":fori=1to20:get#2,a$:n$=n$+a$
  4. 40 next:print"[154][213][196][196][196][196][196][196][196][196][196][196][196][196][201] [213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201] [199] stonloader [200] [199] ";n$;
  5. 50 print"[154] [200]":print"[202][198][198][198][198][198][198][198][198][198][198][198][198][203] [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]":open1,8,0,"$0"
  6. 60 ifleft$(d$,10)=left$(n$,10)ord$=""then90
  7. 70 a=a+1:ifa=16then150
  8. 80 print"load ";chr$(34);d$;chr$(34);"            ";:print tab(35);"[154],8"
  9. 90 d$="":get#1,b$:if st<>0 then130
  10. 100 if b$<>chr$(34) then90
  11. 110 get#1,b$:ifb$<>chr$(34)thend$=d$+b$:goto110
  12. 120 if st=0 then60
  13. 130 close1:close15:close2
  14. 140 print"run":print"[154]auswahl mit crsr_ (return)":end
  15. 150 print:input"[154]weiter";x$:ifx$="n"then 130
  16. 160 a=0:print"":goto120
  17.