0 REM                                   * SIGNCONVERT V1.0 BY MARK L. FLETCHER *
1 IFPEEK(2)=127THENPOKE2,0:GOTO170
10 POKE53281,0:POKE53280,0:POKE788,52
20 PRINT"[147]      [153]SIGNCREATOR SCREEN CONVERTOR"
30 PRINT"     BY MARK L. FLETCHER    10/2/88"
40 PRINT"  [150]CONVERTS A SIGNCREATOR SIGN FILE TO A"
50 PRINT"   PRINT SHOP [TM] SCREEN MAGIC FILE"
60 PRINT" TO ALLOW SIGNS TO BE LOADED INTO PRINT"
70 PRINT" SHOP AND PRINTED WITH THE APPROPRIATE"
80 PRINT"            PRINTER DRIVER."
81 FORL=23552TO24575:POKEL,1:NEXT
85 PRINT"[158]INSERT DISK CONTAINING SIGN AND ENTER"
90 PRINT"FILENAME WITHOUT 'S>' :";
100 OPEN1,0:INPUT#1,F$:CLOSE1
105 PRINT"[147][153][158]NOW READING S>"F$"..."
115 POKE631,13:POKE198,1:PRINT"[144]GOTO120[145][145][145]";
116 POKE56576,202:POKE53272,124:POKE53265,59:LOAD"^",8,1
120 OPEN1,8,0,"S>"+F$+",U,R":GET#1,Y$:GET#1,Z$
130 OPEN15,8,15:INPUT#15,A$,B$
140 IFVAL(A$)<>0THEN1000
145 CLOSE1:POKE2,127:LOAD"S>"+F$+",U",8,1
170 PRINT:PRINT"[158]READ COMPLETE."
175 POKE56576,199:POKE53272,21:POKE53265,27
180 PRINT"INSERT TARGET DISK AND HIT RETURN[146][158].":POKE198,0:CLOSE15
190 GETA$:IFA$<>CHR$(13)THEN190
200 OPEN15,8,15,"S:"+F$:CLOSE15
203 ZK=PEEK(53)+256*PEEK(54)-LEN(F$)
204 POKE782,ZK/256
205 POKE781,ZK-PEEK(782)*256:POKE780,LEN(F$)
210 SYS65469:POKE780,1:POKE781,8:POKE782,1:SYS65466
220 POKE254,96:POKE253,0:POKE780,253:POKE782,128:POKE781,0:SYS65496
240 PRINT:PRINT"SAVE COMPLETE.":CLOSE1:CLOSE15
250 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:CLOSE15
260 PRINT""A$","B$","C$","D$
270 END
1000 PRINT"[150]ERROR: "A$","B$""
1010 POKE56576,199:POKE53272,21:POKE53265,27:END