start tok128 d64-xjOHPX
100 PRINT"{clear}{reverse on}{ct n}{space*2}SpeedScript File Conversion Program{space*3}"
110 GOSUB410
120 INPUT"{down}Input file name";i$
130 IFi$=""THEN120
140 INPUT"{down}Output file name";o$
150 PRINT"{down}{reverse on}D{reverse off}isk, {reverse on}S{reverse off}creen, {reverse on}P{reverse off}rinter, {reverse on}M{reverse off}odem, {reverse on}O{reverse off}ther"
160 GETa$:IFa$=""THEN160
170 dv=-(a$="t")-2*(a$="m")-3*(a$="s")-4*(a$="p")-8*(a$="d"):sa=7
180 IFdv=0THENINPUT"Device number";dv:INPUT"Secondary address";sa
190 PRINT"{down*2}Which conversion:"
200 PRINT"{down}1) SpeedScript to Commodore ASCII"
210 PRINT"{down}2) SpeedScript to True ASCII"
220 PRINT"{down}3) Commodore ASCII to SpeedScript"
230 GETp$:IFp$<"1"ORp$>"3"THEN230
240 adr=828+VAL(p$)*3-3
250 OPEN15,8,15,"i0":REM remove ,"i0" if you've changed the drive's speed
260 OPEN1,8,3,i$:INPUT#15,en,em$:f$=i$:IFen=0THEN290
270 PRINT"{down}Disk error for ";f$:PRINTem$
280 PRINT"{down*3}run{up*3}":CLOSE1:CLOSE2:CLOSE15:END
290 IFdv=2THENOPEN2,2,3,CHR$(6+32)+(6+64):GOTO380
295 IFdv<>8THENOPEN2,dv,sa,o$:GOTO380
300 ex$=",s,w":IFp$="3"THENex$=",p,w"
310 OPEN2,dv,sa,"0:"+o$+ex$:INPUT#15,en,em$:f$=o$
320 IFen=0THEN380
330 IFen<>63THEN270
340 IFen=63THENPRINT"{down}";o$;" exists{.*3} Replace? {reverse on}Y{reverse off}/{reverse on}N{reverse off}:"
350 GETa$:IFa$<>"y"ANDa$<>"n"THEN350
360 IFa$="n"THEN270
370 PRINT#15,"s0:"+o$:CLOSE2:GOTO310
380 SYS(adr):IF(PEEK(144)AND191)=0THENPRINT"{down}Done.":GOTO280
390 PRINT"I/O Error during conversion.":INPUT#15,en,em$:IFen<>0THEN270
400 GOTO280
410 FORi=828TO1001:READa:POKEi,a:ck=ck+a:NEXT:IFck=21584THENRETURN
420 PRINT"{reverse on}error in data statements.":END
430 DATA 076,069,003,076,122,003
440 DATA 076,174,003,032,225,255
450 DATA 240,018,032,216,003,032
460 DATA 095,003,032,183,255,072
470 DATA 032,224,003,104,041,064
480 DATA 240,233,076,204,255,133
490 DATA 251,041,064,010,005,251
500 DATA 041,191,133,251,041,032
510 DATA 073,032,010,005,251,201
520 DATA 095,208,002,169,013,133
530 DATA 251,096,032,225,255,240
540 DATA 221,032,216,003,032,095
550 DATA 003,041,127,201,065,144
560 DATA 018,201,091,176,014,170
570 DATA 165,251,041,128,073,128
580 DATA 074,074,133,251,138,005
590 DATA 251,133,251,032,183,255
600 DATA 072,032,224,003,104,041
610 DATA 064,240,207,076,204,255
620 DATA 032,225,255,240,169,032
630 DATA 216,003,201,013,208,002
640 DATA 169,031,072,041,128,074
650 DATA 133,251,104,041,063,005
660 DATA 251,133,251,032,183,255
670 DATA 072,032,224,003,104,041
680 DATA 064,240,217,076,204,255
690 DATA 162,001,032,198,255,076
700 DATA 207,255,162,002,032,201
710 DATA 255,165,251,076,210,255
stop tok128
(bastext 1.0)