home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9005a.d64 / originalizer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  811b  |  20 lines
  1. 1 POKE53281,0:POKE53280,0:PRINT"[147][144]";:SYS62913:P=18:Q=1:PN$="":L$=CHR$(0):N=32
  2. 2 G=PEEK(186):FORT=1TOPEEK(183):X=PEEK(1023+T):X=X-64*(X<32ORX>95)-32*(X>63ANDX<96)
  3. 3 PN$=PN$+CHR$(X):NEXT:Q$="FILENAME        ":IFPN$=Q$GOTO19
  4. 4 L=LEN(PN$):FORT=1TOL:X$=MID$(PN$,T,1):IFX$=","ORX$="*"THENL=T:T=LEN(PN$)
  5. 5 FORT=1TOL:IFMID$(PN$,T,1)=":"THENPN$=MID$(PN$,T+1):T=L
  6. 6 NEXT:IF(P<1ORQ>35)OR(Q<0ORQ>20)GOTO19
  7. 7 Z=0:OPEN3,G,15,"I":OPEN2,G,2,"#":PRINT#3,"U1:"2;0;P;Q:PRINT#3,"B-P:"2,0
  8. 8 GET#2,X$,Y$:P=ASC(X$+L$):Q=ASC(Y$+L$):FORT=0TO7:N$(T)="":PRINT#3,"B-P:"2;2+N*T
  9. 9 GET#2,X$,X$,X$:FORR=0TO15:GET#2,X$:IFX$=CHR$(160)THENX$="":R=15
  10. 10 N$(Z)=N$(Z)+X$:NEXT:Z=Z+1
  11. 11 NEXT:CLOSE2:CLOSE3:IFMID$(PN$,L,1)="*"THENLF=1
  12. 12 FORT=0TOZ-1:IFLEN(N$(T))<LGOTO17
  13. 13 IFLF=0ANDLEN(N$(T))>LGOTO17
  14. 14 FORR=1TOL-1:X$=MID$(PN$,R,1):NN$=N$(T)
  15. 15 IFX$<>"?"ANDX$<>MID$(N$(T),R,1)THENR=L:NN$=""
  16. 16 NEXT:F=1:IFNN$<>""THENT=Z:F=0
  17. 17 NEXT:IFFTHENFORT=1TO1:GOTO6
  18. 18 IFNN$<>Q$THENOPEN1,G,15,"S:"+Q$:PRINT#1,"R:"+Q$+"="+NN$:CLOSE1
  19. 19 PRINT"[147]"
  20.