100 PRINT CHR$(147) CHR$(142):POKE 53280,14:POKE 53281,6
105 PRINT " [154]SIDPLAYER SINGALONG":PRINT " SPEEDSCRIPT TO WORD FILE CONVERTER"
110 PRINT " BY CRAIG CHAMBERLAIN":PRINT
120 DN=8:SA=780:SX=781:SY=782:SP=783:LL=38
130 S$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"+CHR$(13)+" !"+CHR$(34)+"#$%&'()"
131 S$=S$+"*+,-./0123456789:;<=>?@[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][\]^_"
132 FOR K=96 TO 129:X$=X$+CHR$(K):NEXT:FOR K=224 TO 255:Z$=Z$+CHR$(K):NEXT
133 Y$="[133][134][153][136][137][138][139][155][152]"+CHR$(142)+CHR$(143)+"[144][145][150]"+"[147][148][149][146][151][152][153][154][155]"
134 Y$=Y$+CHR$(156)+"[157]"+CHR$(158)+CHR$(159)+CHR$(160)+"[161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183]"
135 Y$=Y$+"[184][185][186][187][188][189][190][191][192][193][159][196][197][198][200][201][202][144][204][205][149][129][156][209][211][212][213][216][158][218][219][220][221]"+CHR$(222)+"[223]"
140 W$="[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"+CHR$(13)+" !"+CHR$(34)+"#$%&'()"
141 X$=X$+"[154]"+CHR$(131)+"[151]":S$=S$+X$+Y$+Z$
142 W$=W$+"*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"+X$+Y$+Z$
150 LA=PEEK(49)+256*PEEK(50)+500:X$="":Y$="":Z$="":K=FRE(0):I=1
300 PRINT " PLEASE ENTER THE NAME OF THE"
301 PRINT " SPEEDSCRIPT FILE THAT YOU WANT":PRINT " TO CONVERT TO A .WDS FILE"
302 PRINT
305 F$="":INPUT " NAME OF SPEEDSCRIPT FILE";F$:IF F$="" OR LEN(F$)>16 GOTO 305
310 PRINT:POKE SA,1:POKE SX,DN:POKE SY,0:SYS 65466
320 FOR K=1 TO LEN(F$):POKE 584+K,ASC(MID$(F$,K)):NEXT
330 POKE SA,LEN(F$):POKE SX,73:POKE SY,2:SYS 65469
340 POKE SA,0:POKE SX,LA-256*INT(LA/256):POKE SY,LA/256:SYS 65493
345 IF (PEEK(SP)AND1)=0 GOTO 360
350 IF PEEK(SA)=4 THEN PRINT " ERROR - FILE NOT FOUND":PRINT:GOTO 300
355 PRINT " ERROR LOADING " F$:END
360 EA=PEEK(SX)+256*PEEK(SY)-1:IF PEEK(EA)<>31 THEN EA=EA+1:POKE EA,31
400 PRINT " WHAT IS THE TITLE OF THE SONG?":PRINT "  [146][157]";:T$="":L=0
410 WAIT 198,15:GET G$:IF G$=CHR$(13) AND L THEN PRINT " ":PRINT:GOTO 500
420 IF G$=CHR$(20) AND L THEN PRINT G$;:L=L-1:T$=LEFT$(T$,L):K=FRE(0):GOTO 410
430 IF L=36 OR G$<" " OR G$>"_" OR G$=CHR$(34) GOTO 410
440 PRINT G$ " [157][146]";:T$=T$+G$:L=L+1:GOTO 410
500 PRINT " NOW ENTER THE NAME FOR THE .WDS FILE"
501 PRINT " (EXCLUDING THE .WDS EXTENSION)"
502 IF LEN(F$)<=12 THEN PRINT " OR JUST PRESS RETURN FOR " F$
503 PRINT
505 INPUT " NAME OF WORD FILE";F$:IF F$="" OR LEN(F$)>12 GOTO 505
510 F$=F$+".WDS":OPEN 1,8,15:PRINT#1,"S0:" F$:CLOSE 1
520 OPEN 1,8,2,F$+",W,P":PRINT#1,CHR$(34) T$ CHR$(34)
540 PRINT "[147][154]";:POKE 53280,12:POKE 53281,0:R=LA-1:ML=LL+1
550 FOR K=LA TO EA:P=PEEK(K):PRINT MID$(S$,P,I);:PRINT#1,MID$(W$,P,I);
555 IF P=31 THEN PRINT " [154]";:L=K-R:R=K:IF L>ML GOTO 570
560 NEXT:PRINT#1,CHR$(0);:CLOSE 1:END
570 PRINT:PRINT " [197][210][210][207][210]: [204][201][206][197] [204][207][206][199][197][210] [212][200][193][206]" LL "[195][200][193][210][193][195][212][197][210][211]":CLOSE 1
580 OPEN 1,8,15:PRINT#1,"S0:"+F$:CLOSE 1:END