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