start bastext 1025
start tok64 d64-A6Szit
0 IF PEEK(37191)<>183 THEN ne=1:LOAD "link1",8,1
1 IF ne=1 THEN ne=2:LOAD "link2",8,1
2 IF ne=2 THEN SYS 49152
100 PRINT"{clear}{reverse on}{space*3}place destination disk in drive 1.{space*3}"
110 PRINT"{down*3}{space*6}press any key to continue."
120 a$="y":INPUT"{down*2}split (y/n){space*2}y{left*3}";a$:IF a$<>"y" THEN IF a$<>"n" THEN120
130 IF a$<>"n" THEN 160
135 REM *** single link save ***
140 LOMEM 37053 TO 52223, "link"
150 PRINT"{down*2}completed{.*3}{down*2}":END
155 REM *** split link save ***
160 PRINT"saving link1 {.*3}"
165 LOMEM 37053 TO 40959, "link1"
170 PRINT"{down}link 1 saved{.*3}"
180 PRINT"{down}verifying{.*3}"
190 VERIFY "*",8,1
210 PRINT"saving link2 {.*3}"
220 LOMEM 49152 TO 52223, "link2"
230 PRINT"{down}link2 saved{.*3}"
240 PRINT"{down}verifying{.*3}"
250 VERIFY"*",8,1
270 END
stop tok64
(bastext 1.0)