home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 May
/
64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64
/
originalizer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
811b
|
20 lines
1 poke53281,0:poke53280,0:print"[147][144]";:sys62913:p=18:q=1:pn$="":l$=chr$(0):n=32
2 g=peek(186):fort=1topeek(183):x=peek(1023+t):x=x-64*(x<32orx>95)-32*(x>63andx<96)
3 pn$=pn$+chr$(x):next:q$="filename ":ifpn$=q$goto19
4 l=len(pn$):fort=1tol:x$=mid$(pn$,t,1):ifx$=","orx$="*"thenl=t:t=len(pn$)
5 fort=1tol:ifmid$(pn$,t,1)=":"thenpn$=mid$(pn$,t+1):t=l
6 next:if(p<1orq>35)or(q<0orq>20)goto19
7 z=0:open3,g,15,"i":open2,g,2,"#":print#3,"u1:"2;0;p;q:print#3,"b-p:"2,0
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 get#2,x$,x$,x$:forr=0to15:get#2,x$:ifx$=chr$(160)thenx$="":r=15
10 n$(z)=n$(z)+x$:next:z=z+1
11 next:close2:close3:ifmid$(pn$,l,1)="*"thenlf=1
12 fort=0toz-1:iflen(n$(t))<lgoto17
13 iflf=0andlen(n$(t))>lgoto17
14 forr=1tol-1:x$=mid$(pn$,r,1):nn$=n$(t)
15 ifx$<>"?"andx$<>mid$(n$(t),r,1)thenr=l:nn$=""
16 next:f=1:ifnn$<>""thent=z:f=0
17 next:iffthenfort=1to1:goto6
18 ifnn$<>q$thenopen1,g,15,"s:"+q$:print#1,"r:"+q$+"="+nn$:close1
19 print"[147]"