10 REM ***    SHOPMASTER    ***
20 REM KONVERTIERT PRINTSHOP-GRAFIK
30 REM ZU PRINTMASTER-GRAFIK
40 REM (C) 64'ER, MARKT UND TECHNIK
50 REM GESCHRIEBEN VON BORIS SCHNEIDER
60 REM AM 23.03.86 UM 23.17 UHR
70 REM:
80 DIM G$(572)
90 INPUT "FILENAME";A$
100 FOR I=1TOLEN(A$)
101 :B$=B$+CHR$(ASC(MID$(A$,I,1))+32)
102 NEXTI
110 B$=B$+".GRA"
120 OPEN 1,8,2,A$+",P,R"
130 GET#1,X$:GET#1,X$
140 FORY=0TO51
150 :FORX=1TO11
160 ::GET#1,G$
161 ::G$(Y*11+X)=CHR$(ASC(G$+CHR$(0)))
170 :NEXTX
180 NEXTY
190 CLOSE1
191 PRINT"ZIELDISKETTE EINLEGEN[146]"
192 GETE$:IFE$=""THEN192
200 OPEN 1,8,2,B$+",P,W"
210 PRINT#1,CHR$(80)CHR$(135)CHR$(88)CHR$(0)CHR$(52)CHR$(0)CHR$(180)CHR$(139);
220 FOR Y=0TO51
230 :FORX=1TO11
240 ::PRINT#1,G$(Y*11+X);
250 :NEXTX
260 :PRINT#1,CHR$(139);
270 NEXTY
280 CLOSE1
290 RUN