start tok64 d64-1IAaNb
10 PRINT"{clear}";:POKE 53280,11:POKE 53281,11
15 PRINT"{blue}{cm a}";:FORx=1TO37:PRINT"{sh asterisk}";:NEXT:PRINT"{cm s}"
20 PRINT"{cm g}{white}{space*3}filecopy{space*2}to ram expansion unit{space*3}{blue}{cm m}
25 PRINT"{cm g}{white}{space*2}for ka43 with turboload installed{space*2}{blue}{cm m}
30 PRINT"{cm g}{white}{space*3}by k. aanestad,{space*2}oslo 20-aug-92{space*3}{blue}{cm m}
35 PRINT"{blue}{cm z}";:FORx=1TO37:PRINT"{sh asterisk}";:NEXT:PRINT"{cm x}"
37 r=192:bt=PEEK(56):p=PEEK(46)+3:IF bt<160 THEN r=bt
40 PRINT"{yellow}{down}{space*2}maximum file-length is";r-p;"blocks":POKE 198,0
45 PRINT"{space*2}copying from disk 8 to reu 9 and"
47 PRINT"{space*2}reading file-name from line 500{.*3}"
50 PRINT"{down}{space*2}insert source disk and press a key{down}{light gray}":WAIT198,1:POKE 198,0
55 POKE 56,p:POKE 55,0:CLR
60 bt=PEEK(56)*256:rl=828:bs=rl+64
62 FORx=rlTOrl+140:READb:POKEx,b:NEXT
65 f=0:READn$:l=LEN(n$):IF n$="-1"THEN115
67 IF n$<>"$"THEN75
70 PRINT"{reverse on}{down}<return> to continue, other key to stop{down}"
72 GET n$:IF n$=""THEN 72
73 IF  n$=CHR$(13)THEN 65
74 GOTO115
75 t$=",p,w":IF MID$(n$,l-1,1)=","THEN t$=",w":f=1
80 SYS rl,n$,bt+2:IF st<>64 THENPRINTn$;:{arrow left}e8:PRINT:GOTO65
85 al=PEEK(174)-PEEK(195)+256*(PEEK(175)-PEEK(196)):as=PEEK(172)+256*PEEK(173)
90 POKE bt,PEEK(172):POKE bt+1,PEEK(173):IF f THEN as=0:REM start adr
95 PRINT"saving: ";n$;TAB(25);as;TAB(32);as+al
100 OPEN 9,9,9,n$+t$:IF st<>0 THEN:{arrow left}e9:CLOSE9:PRINT:GOTO65
105 SYS bs,bt,al+2:IF st<>0 THEN:{arrow left}e9:PRINT
110 GOTO65
115 POKE 55,PEEK(643):POKE56,PEEK(644):CLR:POKE 53280,14:POKE53281,6
120 PRINT"{light blue}{down}end file-copy":END
200 DATA 32,253,174,32,158,173,32,163,182,32,189,255,32,253,174,32
210 DATA 138,173,32,247,183,132,195,133,196,162,8,32,121,0,240,3
220 DATA 32,155,183,169,127,160,0,32,186,255,169,0,166,195,164,196
230 DATA 32,213,255,176,9,165,144,41,191,240,3,76,156,225,24,96
240 DATA 32,253,174,32,138,173,32,247,183,132,172,133,173,32,253,174
250 DATA 32,138,173,32,247,183,132,174,133,175,166,184,32,201,255,144
260 DATA 3,76,55,164,160,0,230,175,166,1,8,120,169,240,133,1
270 DATA 177,172,134,1,40,32,210,255,200,208,2,230,173,198,174,208
280 DATA 233,198,175,208,229,165,184,32,195,255,76,204,255
499 REM
500 REM" seq files:"name,s" - $ to halt
510 DATA"external help,s","more help,s","user guide,s","grpad intro,s"
520 DATA"shareware,s"
530 DATA annual rep.demo,compl grpad v3.b,headline prnt
540 DATA print user guide,read me
550 DATA 80-screen.chr,std ascii.chr,headlinenor1.chr,headlineramb.chr
560 DATA exclusive.chr,outlineshift.chr
570 DATA hatman.spr,topprint.wnd,owl epson.psh,owl cbm.psh,hint & tips.pic,-1
stop tok64
(bastext 1.0)