home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 46
/
046.d81
/
ps.converter.v2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
81 lines
0 ifx=.thenpoke55,.:poke56,128:clr:x=1
5 ifx=1thenx=2:load"ps.xvert.ml",8,1
10 gosub60100:clr
20 close15:open15,8,15:print"[147]":gosub3000
23 print"[197]nter [208]rint [211]hop filename to convert"
24 print"([209] [209]uits) ==> [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
25 gosub60500:f$=b$
26 iff$="q"orf$="[209]"then2000
30 d$="n."+f$:d$=d$+",p,w"
32 print#15,"r0:"+f$+"="+f$:input#15,er
34 ifer=63then40
36 print" [198][201][204][197] [206][207][212] [198][207][213][206][196]!":fora=1to1000:next
38 print"[145] [145][145][145][145][145]":goto23
40 open2,8,2,f$:gosub5000:if not ok thenclose2:goto20
45 open3,8,3,d$:gosub5000:if not ok thenclose3:goto20
50 get#2,a$,b$:print#3,chr$(asc(a$+chr$(0)))chr$(asc(b$+chr$(0)));
60 :
70 forx=0to44:print".";
80 fory=0to5:get#2,a$
90 a=asc(a$+chr$(0))
92 sys32768,a
94 print#3,chr$(peek(251));
95 ify<>5thenprint#3,chr$(peek(252));
96 nexty:nextx:gosub5000:if not ok then20
98 :
100 rem fill in the rest of the rest
110 forx=1to82:print#3,chr$(0);:next
120 close2:close3:print
130 print" [196]one with conversion."
140 print"[206]ew filename is n."f$
160 print" [208]ress [211][208][193][195][197] to continue":poke198,.
170 ifpeek(203)<>60then170
180 goto20
2000 rem quit
2010 print#15,"r0:hello connect=hello connect":input#15,e:ife<>63thenclose15:end
2020 close15:load"hello connect",8
2998 rem *** instructions ***
3000 print"[147] [208]rint [211]hop [195]onverter"
3005 print"[208]rint [211]hop [201]mages published in [204]oadstar"
3010 print"are in the 1525 printer format. [201]f"
3020 print"your [208]rint [211]hop [208]rogram does not "
3030 print"recognize them as they are, this utility"
3040 print"will convert them to the format required"
3050 print"by other printers."
3990 return
5000 ok=-1:input#15,e,e$,t,s
5010 ife=0thenreturn
5015 c$=","
5020 print"[147][196]isk [197]rror! "e;c$;e$;c$;t;c$;s
5030 print" [208]ress [211][208][193][195][197] to continue":ok=0
5035 gosub6000:ift$<>" "then5035
5040 return
6000 poke198,0:wait198,1:gett$:return
60100 poke53280,14:poke53281,14
60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 fora=1to23:print"[221]"spc(38)"[221]";:next
60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60140 fora=217to242:pokea,peek(a)or128:next
60150 print" [204][207][193][196][211][212][193][210] [208]resents:"
60160 print" "
60170 print" [208]rint [211]hop [195]onverter [214]2 "
60180 print" "
60190 print" [194]y [193]lan [199]ardner "
60200 print" [213]pdated [194]y [205]ike [205]aynard "
60210 print" "
60220 print" [195]opyright 1987 "
60230 print" "
60240 print" "
60250 print" [208]ress [211][208][193][195][197] to continue"
60260 ifpeek(203)<>60then60260
60270 return
60500 b$="":print"[164]";:poke198,.:fora=1to17
60510 geta$:ifa$=""then60510
60520 ifa$=chr$(13)thenprint"[157] ":return
60530 ifa$=chr$(20)anda>1thenprint"[157][157] [157][157][164]";:a=a-1:b$=left$(b$,a-1):goto60510
60540 ifa=17then60510
60550 ifa$>=" "anda$<="z"then60580
60560 ifa$>="[193]"anda$<="[218]"then60580
60570 goto60510
60580 print"[157]"a$;:poke212,.:print"[164]";:b$=b$+a$:next