home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_07_1985_Transactor_Publishing.d64
/
b to xx32.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
37 lines
0 rem the transactor volume 6 issue 02 bits & pieces section
10 rem save"0:b to xx32.bas",8
20 rem -- for bits and pieces volume 6 issue 02
30 :
100 rem ** change b-128 program to run on 80/4032
110 rem ** jack weaver input systems, inc.
120 rem ** 15600 palmetto lake dr. miami fl 33157
130 rem ** phone (305) 252-1550
140 :
150 cu$=chr$(145): cd$=chr$(17): cl$=chr$(157): ry$=chr$(18): rn$=chr$(146)
160 c$=chr$(0)
170 open 15,8,15,"i0
180 [150] [165] r(x)[178](b2[172]256[170]b1)[170]1022
190 [215] d0
200 [153] cu$;ry$;"name of b-128 prog to change"rn$" ";
210 [133] of$
220 [153] cd$"new name of the 80/4032 program ";
230 [133] nf$
240 [153] "b-128 prg = "ry$;of$: [153] "80/4032 prg = "ry$;nf$
250 [153] cd$;cd$"(NULL)(NULL) (y/n) n"cl$;cl$;cl$;
260 [133] yn$
270 [139] yn$[179][177]"y" [167] [144]
280 a[178]1025: [159] 4,8,4,of$: [139] ds [167] [153] ds$: [144]
290 [161]#4,a$,b$: a1[178][198](a$[170]c$): a2[178][198](b$[170]c$): [139] a1[179][177]3 [167] [206]: [144]
300 [159] 5,8,5,"@0:"[170]nf$[170]",p,w": [139] ds [167] [153] ds$: [144]
310 [152]5,[199](1)[199](4);
320 [139] s [167] 390
330 [161]#4,a$,b$: b1[178][198](a$[170]c$): b2[178][198](b$[170]c$)
340 x[178][165] r(x): [139] x[178]1022 [167] s[178]1: [137] 390: [143] check for end of prg
350 hi[178][181](x[173]256): lo[178]x[171]hi[172]256: [153] ry$;a;rn$;b1;b2;x;lo;hi
360 a[178]a[170]2: [152]5,[199](lo)[199](hi);
370 [139] a[178]x [167] 320
380 a[178]a[170]1
390 [139] s [167] [152]5,c$;c$;c$;: [160]5: [160]4: [153] "converted !": [128]
400 [161]#4,a$: s[178]st: [152]5,[199]([198](a$[170]c$));
410 [137] 370