start tok64 d64-w8VnRb 2 POKE56,20:CLR:DIMn$(40),b%(40),u%(40),v%(40),w%(40),t$(40) 3 POKE53280,0 :POKE53281,0 :PRINT"{clear}{light blue}{space*6}copy system for c64 & 1541" 4 PRINT"{space*4}{-*30}{down}" 5 PRINT"{space*34}{down}" 6 PRINT"{down*2}{space*5}1.{space*2}catalog":PRINT"{down*2}{space*5}2.{space*2}disc-comand" 7 PRINT"{down*2}{space*5}3.{space*2}error?":PRINT"{down*2}{space*5}4.{space*2}copy":PRINT"{down*2}{space*5}5.{space*2}end." 8 GOSUB37:PRINT"{down*2}":a=VAL(a$):ONaGOSUB47,49,54,11,10 9 GOTO2 10 SYS64738 11 GOSUB35:PRINT 12 GOSUB55:OPEN2,8,0,"$":GOSUB42 13 GOSUB42:GOSUB41:PRINTb;:GOSUB43:GOSUB42:PRINT"{down}" 14 GOSUB41:PRINT"{light blue}"b;:c$="":GOSUB43:PRINTTAB(32); 15 GOSUB40:t=a:GOSUB40:IFa+t=0THENPRINT:GOTO22 16 IFb>236THENPRINT:PRINT" {reverse on}{red}^{reverse off}{light blue} file too long":GOTO14 17 PRINT"{red}yes/no {left*7}";:GOSUB37:IFa$<>"y"THENPRINT"{green}{reverse on}no{reverse off}{space*5}":GOTO14 18 t=1:b%(r)=b:GOSUB45:b=t:GOSUB45:n$(r)=MID$(c$,b,t-b-1):PRINT"{reverse on}{green}yes{reverse off}{space*4}" 19 t=t+1:ON-(MID$(c$,t,1)<>"p"ANDMID$(c$,t,1)<>"s")GOTO19:t$(r)=MID$(c$,t,1) 20 r=r+1:IFr=41THENPRINT"{down}{reverse on}{red}too many files{reverse off}{light blue} !{down}":GOTO22 21 GOTO14 22 CLOSE2:IFr=0THENPRINT"{down*2}{space*7}{reverse on} no copy {reverse off} ?":FORt=0TO2000:NEXT:RUN 23 FORt=0TOr-1:u%(t)=24:a=0:IFtTHENGOSUB35 24 PRINT"{down}reading "n$(t); 25 OPEN2,8,2,n$(t)+","+t$(t)+",r":POKE251,0:POKE252,u%(t):SYS2085 26 v%(t)=PEEK(252):w%(t)=PEEK(251):GOSUB48 27 IFt"y"THEN34 33 a=aa:GOTO28 34 NEXT:CLOSE1:GOTO2 35 PRINT"{down}insert {reverse on}{red} master {reverse off}{light blue} disc":GOSUB37:GOTO55 36 PRINT"{down}insert {reverse on}{red} destination {reverse off}{light blue} disc":GOSUB37:GOTO55 37 GETa$:IFa$=""THEN37 38 IFa$="{f7}"THENPRINT"{white}":GOTO22 39 RETURN 40 GET#2,a$:a$=LEFT$(a$+CHR$(0),1):a=ASC(a$):RETURN 41 GOSUB40:b=a:GOSUB40:b=b+256*a:RETURN 42 GET#2,a$:GET#2,a$:RETURN 43 GOSUB40:IFaTHENPRINTa$;:c$=c$+a$:GOTO43 44 RETURN 45 IFMID$(c$,t,1)<>CHR$(34)THENt=t+1:GOTO45 46 t=t+1:RETURN 47 SYS2205:GOTO37 48 CLOSE2:PRINTTAB(27);:SYS2178:RETURN 49 PRINT"{down*2}{space*5}please enter comand":PRINT 50 CLOSE1:OPEN1,8,15:POKE631,34:POKE198,1 51 INPUT"{space*6}";a$ 52 PRINT#1,a$ 53 PRINT"{down*2}{space*6}"; 54 SYS2178:GOTO37 55 CLOSE1:OPEN1,8,15,"i":RETURN 32833 33024 stop tok64 (bastext 1.0)