C64 GEnie files - how to view them in XP?

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
On my many wandering around t'Interweb, I came across the Commodore 64 GEnie site >>>here<<<.

There seems to be loads of good stuff on this site, but I can't see it properly!!

What I mean is, when I try to view files, some of them that are obviously BASIC listings come up as corrupted and garbled. The pages open in Windows Explorer OK and I can pick out bits of BASIC, but the rest of the content is garbled.

How can I view these files under Windows Explorer correctly, without them getting corrupted?
 

meega

Elite ranking
Joined
Nov 24, 2007
Posts
933
Country
UK
Region
2
Please post a direct link to one such file, to help people help you. :)
 

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
Okerly-Dokerly...good idea, Meega....

Try this file:-

http://cbmfiles.com/genie/geniefiles/C64-128Toolkit/RELCOPIERV2

I get this in IE8:-

+d™ "“PLAIN BASIC RELATIVE FILE COPIER"Nn™ "DAVID WILLIAMS, 1984, 1990"Tx:w‚ THIS PROGRAM COPIES RELATIVEœŒ FILES FROM ONE DISK TO ANOTHERÀ– USING A SINGLE DISK DRIVE (OR⠏ DRIVE ZERO, ONLY, OF A DUAL𪏠DRIVE).ö´: ¾ IT MAY ALSO BE USABLE TO COPY< ȏ REL-FILES FROM ONE DRIVE TO_ ҏ ANOTHER, PROVIDING THEY HAVE… ܏ DIFFERING UNIT (DEVICE) NUMBERS‹ æ:° ð THE PROGRAM SHOULD WORK ON ALLÓ ú COMMODORE COMPUTERS AND DISKá  DRIVES.ç : ™:™ "ARE YOU USING A COMMODORE 64"9 "™ "OR A C-128 IN C-64 MODE? (Y/N) > ";\ ,¡ X$:‹ X$³±"Y" ¯ X$³±"N" § 300 6™ X$:C6%²(X$²"Y"):‹ C6% §  1430‡ @:¯ J™:™ "RELATIVE FILE COPYING IS MORE"Ü T™ "RELIABLE IF DONE SLOWLY THAN IF DONE" ^™ "FAST. HOWEVER, THE CHOICE IS UP TO YOU."; h™ "DO YOU WANT S’LOW, S’AFE COPYING, OR"h r™ "R’APID, R’ISKY COPYING? (S/R) > ";‹ |¡ X$:‹ X$³±"S" ¯ X$³±"R" § 380¡ †SS%²(X$²"S"):™ X$« ‰ 590½ š FAST RECORDÇ ¤ 430ô ®˜15,"P"ªÇ(5)ªÇ(RN ¯ 255)ªÇ(RN­256)ªÇ(RP)ú ¸Ž  SLOW RECORD ÌDE²60: 490& ֍ 4100 àDE²10@ ê‹ SS%²0 § ŽQ ôTI$²"000000"c þ‹ TI³DE § 510i Ž‚  READ ERROR CHANNEL— „15,E,E$,E1$,E2$ª &‹ C6% § ž AXª3Í 0E$²Ä(E)ª","ªE$ª","ªE1$ª","ªE2$à :‹ C6% § ž AXª3æ DŽ N™:… "INPUT FILENAME";FI$5 X‹ FI$²"" ° à (FI$)±16 § ™ "ILLEGAL NAME":‰590t b™:… "UNIT/DEVICE NUMBER OF DRIVE (8-11) 8";DU:DU²µ(DU)¡ l‹ DU³8 ° DU±11 § ™ "ILLEGAL ENTRY":‰ 610À vŸ15,DU,15:Ÿ5,DU,5,"0:"ªFI$Ú €530:‹ E § ™ E$: 15:ŠRP²1:RN²1: 410: 530:‹ E § ™ E$: 15:” 410: 530;ž‹ E²0 ¯ RN³32767 § RN²RNª1:‰ 660M¨NR²RN«1«(E²0)n²™:™ "NUMBER OF RECORDS =";NRw¼RN²1€ÆRP²2Ð 410: 530³Ú‹ E²0 ¯ RP³254 § RP²RPª1:‰ 720ÅäRL²RP«1«(E²0)âî™:™ "RECORD LENGTH =";RLø‹ C6% § ž AX:FM²256¬(Â(52)«Â(50))ªÂ(51)«Â(49):‰ 780&FM²¸(0)C AS²µ((FM«3000)­(RLª5))«1s‹ AS³5 § ™:™ "INSUFFICIENT MEMORY": 5: 15:€Š ‹ AS±²NR § AS²NR«1­*™:™ "NUMBER OF BUFFERS =";ASª1º4† A$(AS)Ú>CI²1: CURRENT INPUT RECORDûHCO²1: CURRENT OUTPUT RECORD R INPUT LOOP\AC²0f™:™4pI²0¤AS:A$(I)²"":‚Kz‹ C6% § ž AX:‰ 910V„I²¸(0)`ŽRN²CIj˜L$²""›¢™ "READING RECORD";CI;" TO BUFFER";ACª1;"‘"«¬ RP²1 ¤ RL˶ 410:¡#5,G$:‹G$²""§G$²Ç(0)ÞÀ‹ C6% § ž AXª3ðÊL$²L$ªG$:‚ RPÔA$(AC)²L$:AC²ACª1:CI²CIª1*Þ‹ AC³²AS ¯ CI³²NR § 9101è 59ò™:™Mü‹ DU³±DV § 1060x™ "INSERT OUTPUT DISK, PRESS RETURN’"‘¡ G$:‹ G$³±"" § 1040­¡ G$:‹ G$³±Ç(13) § 1050Á$‹ FO$±"" § 1200ñ.™:™ " *** PUT OUTPUT DISK INTO DRIVE ***":™8… "OUTPUT FILENAME *";FO$+B‹ FO$²"*" § FO$²FI$aL‹ FO$²"" ° Ã(FO$)±16 § ™ "ILLEGAL FILENAME":‰1080uV™:™ £35);DU;"‘"¬`… "UNIT/DEVICE NUMBER OF DRIVE (8-11)";DV:DV²µ(DV)Új‹ DV³8 ° DV±11 § ™ "ILLEGAL ENTRY":‰ 1110öt™:™ "INITIALIZING FILE"%~ 15:Ÿ15,DV,15:Ÿ5,DV,5,"0:"ªFO$ª",L,"ªÇ(RL)?ˆ 530:‹ E § ™E$: 15:T’RP²1:RN²NR: 450cœ˜5,Ç(255);j¦ 5° 15:Ÿ15,DV,15:Ÿ5,DV,5,"0:"ªFO$§º 530:‹ E § ™E$: 15:¯Ä™:™ÀΏ PRINT LOOPÉØRP²1Ú⁠I²0 ¤ AC«1 ì™ "WRITING BUFFER";Iª1;" TO RECORD";CO;"‘"öRN²CO: 450(˜5,A$(I);4 CO²COª1<‚ IC 5K(™:™s2‹ CO±NR § ™ "ALL DONE": 15:€:‰ 1330ˆ<™ "MORE TO COME"œF‹ DU³±DV § 1390ÇP™:™ "INSERT INPUT DISK, PRESS SPACE’"àZ¡ G$:‹ G$³±"" § 1370úd¡ G$:‹ G$³±" " § 1380n 15:Ÿ15,DU,15:Ÿ5,DU,5,"0:"ªFI$7x530:‹ E § ™ E$: 15:A‚‰ 850GŒ:s–™:™ "LOADING FAST GARBAGE COLLECTOR..." ‡ X,Y:AX²256¬YªX:X²AX°ª‡ Y:‹ ¨ Y § — X,Y:X²Xª1:‰ 1450¶´Žô¾ƒ 10,206,169,0,44,169,255,216,88,240,12,165,51,197,49,165/ȃ 52,229,50,201,4,176,21,162,5,181,32,72,202,16,250,32kÒƒ 53,206,162,0,104,149,32,232,224,6,208,248,96,165,1,41­Üƒ 254,133,1,165,55,141,246,207,141,251,207,165,56,141,247,207ðæƒ 141,252,207,169,0,141,255,207,173,246,207,141,244,207,56,1732ðƒ 247,207,233,31,144,15,141,245,207,165,51,205,244,207,165,52uúƒ 237,245,207,144,13,206,255,207,165,51,141,244,207,165,52,141·ƒ 245,207,173,242,207,133,34,173,243,207,133,35,32,92,207,173üƒ 244,207,141,253,207,173,245,207,141,254,207,165,34,141,244,207Aƒ 165,35,141,245,207,173,242,207,141,246,207,173,243,207,141,247ƒ"ƒ 207,173,251,207,133,34,173,252,207,133,35,32,92,207,173,255Æ,ƒ 207,208,25,165,34,141,251,207,165,35,141,252,207,173,253,2076ƒ 141,246,207,173,254,207,141,247,207,76,80,206,165,34,133,51A@ƒ 133,53,165,35,133,52,133,54,165,1,9,1,133,1,96,160Jƒ 0,177,32,208,8,200,145,32,200,145,32,208,75,141,248,207ÀTƒ 200,177,32,133,36,200,177,32,133,37,165,36,205,246,207,165^ƒ 37,237,247,207,176,50,165,36,205,244,207,165,37,237,245,207Ahƒ 144,38,56,165,34,237,248,207,133,34,176,2,198,35,172,248rƒ 207,136,192,255,240,7,177,36,145,34,76,41,207,160,1,165¼|ƒ 34,145,32,200,165,35,145,32,96,32,73,207,133,32,134,33ù†ƒ 96,24,101,32,72,138,101,33,170,104,96,160,3,177,32,1707ƒ 136,177,32,96,165,45,133,32,165,46,133,33,165,32,197,47ršƒ 165,33,229,48,176,41,160,0,177,32,48,5,200,177,32,48«¤ƒ 10,162,0,169,7,32,65,207,76,100,207,162,0,169,2,32讃 65,207,32,231,206,162,0,169,5,32,65,207,76,100,207,165#¸ƒ 32,197,49,165,33,229,50,176,79,160,0,177,32,48,5,200^ƒ 177,32,48,9,32,83,207,32,65,207,76,151,207,32,83,207œÌƒ 32,73,207,141,249,207,142,250,207,160,4,177,32,72,162,0×Öƒ 169,5,32,65,207,104,162,0,10,144,1,232,32,65,207,165àƒ 32,205,249,207,165,33,237,250,207,176,180,32,231,206,162,0Mêƒ 169,3,32,65,207,76,215,207,96,44,0,192,0,0,0,0fôƒ 0,0,0,0,0,0,0,0,-1
 
Last edited:

meega

Elite ranking
Joined
Nov 24, 2007
Posts
933
Country
UK
Region
2
Point 1: I get notification that it is in Unicode...

Point 2: is it compiled?
 

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
@ Meega

1. I've tried most of the regional and DOS variations under "View -> Encoding" in IE8 and it doesn't seem to make much difference to the text.

2. I don't think it's compiled; I think it's just a BASIC program listing that has got corrupted from the original.
 

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
Looks like a tokenised Basic Listing in ASCII format....

TC :cool:

So, how do I get to view non-tokenised ASCII (or whatever it needs) to read it clearly...??
 

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
Can somebody please try the link in another browser other than Internet Explorer 8 to see what output is displayed? I am wondering if IE8 is the problem.
 

jvdbossc

HypnusBE
Joined
Nov 11, 2009
Posts
3,326
Country
Belgium
Region
Antwerp (province)
Is that not PETSCII instead of ASCII:D try loading the file from disk using an emulator with the load command, then use list

---------- Post added at 21:30 ---------- Previous post was at 21:24 ----------

I had a look at vice it offers a load option, can't try it, since roms are removed in linux, and have more then enough real ones to avoid the trouble to put them there.

Oh firefox in linux does not open this file, it saves it to disk.
 

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
Even right-clicking the file and saving as a *.txt file in Notepad is no help either.

I've e-mailed the site's support address to see what they suggest.
 

jvdbossc

HypnusBE
Joined
Nov 11, 2009
Posts
3,326
Country
Belgium
Region
Antwerp (province)
i wanted to prove my point about petscii so here I go:

cbm2asc.zip (dos program, ran it in dosemu in linux)

linky:


http://www.fairlight.to/tools/pc.html

there are others to..

result:


+D
"plain basic relative file copier"
nN
"david williams, 1984, 1990"
tX
:
W
this program copies relative

files from one disk to another

using a single disk drive (or

drive zero, only, of a dual

drive).

:

it may also be usable to copy
<
rel-files from one drive to

another, providing they have

differing unit (device) numbers

:

the program should work on all

commodore computers and disk
drives.
:
: "are you using a commodore 64"
9" "or a c-128 in c-64 mode? (y/n) > ";
, x$: x$"y" x$"n" 300
6 x$:c6%(x$"y"): c6%
1430
@:
j: "relative file copying is more"
t "reliable if done slowly than if done"
 "fast. however, the choice is up to you."
;H "do you want slow, safe copying, or"
HR "rapid, risky copying? (s/r) > ";
x$: x$"s" x$"r" 380
ss%(x$"s"): x$
590
fast record

430
15,"p"(5)(rn 255)(rn256)(rp)

slow record
de60:
490
&
410
0de10
@ ss%0
qti$"000000"
C tide 510
I
read error channel
15,e,e$,e1$,e2$
& c6% ax3
0e$(e)","e$","e1$","e2$
: c6% ax3
d

n: "input filename";fi$
5
x fi$"" (fi$)16 "illegal name":590
T
B: "unit/device number of drive (8-11) 8";du:du(du)

L du8 du11 "illegal entry": 610

V15,du,15:5,du,5,"0:"fi$


530: e e$:15:
rp1:rn1:
410:
530: e e$: 15:

410:
530
; e0 rn32767 rnrn1: 660
mnrrn1(e0)
N: "number of records =";nr
Wrn1
rp2

410:
530
e0 rp254 rprp1: 720
rlrp1(e0)
: "record length =";rl
c6% ax:fm256((52)(50))(51)(49): 780
&fm(0)
cas((fm3000)(rl5))1
S as5 : "insufficient memory":5:15:
asnr asnr1
*: "number of buffers =";as1
4 a$(as)
>ci1: current input record
hco1: current output record
r input loop
ac0
F:
4Pi0as:a$(i)"":
kZ c6% ax: 910
vi(0)
rnci
Jl$""
"reading record";ci;" to buffer";ac1;""
rp1 rl

410:#5,g$:g$""g$(0)
c6% ax3
l$l$g$: rp
a$(ac)l$:acac1:cici1
* acas cinr 910
15
9:
m dudv 1060
X "insert output disk, press return"
g$: g$"" 1040
g$: g$(13) 1050
$ fo$"" 1200
.: " *** put output disk into drive ***":
8 "output filename *";fo$
+b fo$"*" fo$fi$
Al fo$"" (fo$)16 "illegal filename":1080
Uv: 35);du;""
"unit/device number of drive (8-11)";dv:dv(dv)
J dv8 dv11 "illegal entry": 1110
T: "initializing file"
%15:15,dv,15:5,dv,5,"0:"fo$",l,"(rl)
?
530: e e$:15:
trp1:rnnr:
450
C5,(255);
J5

15:15,dv,15:5,dv,5,"0:"fo$

530: e e$:15:
:
print loop
rp1
i0 ac1
"writing buffer";i1;" to record";co;""
rnco:
450
(
5,a$(i);
4coco1
< i
c5
k:)
S2 conr "all done":15:: 1330
< "more to come"
f dudv 1390
p: "insert input disk, press space"
z g$: g$"" 1370
D g$: g$" " 1380
N15:15,du,15:5,du,5,"0:"fi$
7X
530: e e$:15:
a 850
g:
S: "loading fast garbage collector..."

x,y:ax256yx:xax
y: y x,y:xx1: 1450

10,206,169,0,44,169,255,216,88,240,12,165,51,197,49,165
/ 52,229,50,201,4,176,21,162,5,181,32,72,202,16,250,32
K 53,206,162,0,104,149,32,232,224,6,208,248,96,165,1,41
254,133,1,165,55,141,246,207,141,251,207,165,56,141,247,207
141,252,207,169,0,141,255,207,173,246,207,141,244,207,56,173
2 247,207,233,31,144,15,141,245,207,165,51,205,244,207,165,52
U 237,245,207,144,13,206,255,207,165,51,141,244,207,165,52,141
245,207,173,242,207,133,34,173,243,207,133,35,32,92,207,173
244,207,141,253,207,173,245,207,141,254,207,165,34,141,244,207
a 165,35,141,245,207,173,242,207,141,246,207,173,243,207,141,247
" 207,173,251,207,133,34,173,252,207,133,35,32,92,207,173,255
, 207,208,25,165,34,141,251,207,165,35,141,252,207,173,253,207
6 141,246,207,173,254,207,141,247,207,76,80,206,165,34,133,51
a@ 133,53,165,35,133,52,133,54,165,1,9,1,133,1,96,160
j 0,177,32,208,8,200,145,32,200,145,32,208,75,141,248,207
t 200,177,32,133,36,200,177,32,133,37,165,36,205,246,207,165
 37,237,247,207,176,50,165,36,205,244,207,165,37,237,245,207
aH 144,38,56,165,34,237,248,207,133,34,176,2,198,35,172,248
R 207,136,192,255,240,7,177,36,145,34,76,41,207,160,1,165
34,145,32,200,165,35,145,32,96,32,73,207,133,32,134,33
96,24,101,32,72,138,101,33,170,104,96,160,3,177,32,170
7 136,177,32,96,165,45,133,32,165,46,133,33,165,32,197,47
R 165,33,229,48,176,41,160,0,177,32,48,5,200,177,32,48
10,162,0,169,7,32,65,207,76,100,207,162,0,169,2,32
65,207,32,231,206,162,0,169,5,32,65,207,76,100,207,165
# 32,197,49,165,33,229,50,176,79,160,0,177,32,48,5,200
 177,32,48,9,32,83,207,32,65,207,76,151,207,32,83,207
32,73,207,141,249,207,142,250,207,160,4,177,32,72,162,0
169,5,32,65,207,104,162,0,10,144,1,232,32,65,207,165
32,205,249,207,165,33,237,250,207,176,180,32,231,206,162,0
m 169,3,32,65,207,76,215,207,96,44,0,192,0,0,0,0
F 0,0,0,0,0,0,0,0,-1
 

fatbob_gb

Still Poor
Joined
Mar 28, 2008
Posts
838
Country
United Kingdom
Region
Lancashire
The Previous program that I mentioned just displays the Basic tokenised file as ascii readable text.

If you want a way of running the file in an emulator and viewing the Basic file you could try C64prgGen (http://www.ajordison.co.uk/). You can import the downloaded .prg file then view/edit it or automatically send it to an emulator to run.

It isn't perfect though, in the example file that Merlin had linked to lines 150 and 170 had to be edited (it was confused by parenthesis in the REM statements)
 
Last edited:

jvdbossc

HypnusBE
Joined
Nov 11, 2009
Posts
3,326
Country
Belgium
Region
Antwerp (province)
Ok, mission complete:


Code:
rel ==0801==
  100 print "{clr}plain basic relative file copier"
  110 print "david williams, 1984, 1990"
  120 :
  130 rem this program copies relative
  140 rem files from one disk to another
  150 rem using a single disk drive (or
  160 rem drive zero, only, of a dual
  170 rem drive).
  180 :
  190 rem it may also be usable to copy
  200 rem rel-files from one drive to
  210 rem another, providing they have
  220 rem differing unit (device) numbers
  230 :
  240 rem the program should work on all
  250 rem commodore computers and disk
  260 rem drives.
  270 :
  280 print:print "are you using a commodore 64"
  290 print "or a c-128 in c-64 mode? (y/n) > ";
  300 get x$:if x$<>"y" and x$<>"n" then 300
  310 print x$:c6%=(x$="y"):if c6% then gosub 1430
  320 :
  330 print:print "relative file copying is more"
  340 print "reliable if done slowly than if done"
  350 print "fast. however, the choice is up to you."
  360 print "do you want {rvon}s{rvof}low, {rvon}s{rvof}afe copying, or"
  370 print "{rvon}r{rvof}apid, {rvon}r{rvof}isky  copying? (s/r) > ";
  380 get x$:if x$<>"s" and x$<>"r" then 380
  390 ss%=(x$="s"):print x$
  400 goto 590
  410 rem fast record
  420 gosub 430
  430 print#15,"p"+chr$(5)+chr$(rn and 255)+chr$(rn/256)+chr$(rp)
  440 return
  450 rem slow record
  460 de=60:gosub 490
  470 gosub 410
  480 de=10
  490 if ss%=0 then return
  500 ti$="000000"
  510 if ti<de then 510
  520 return
  530 rem read error channel
  540 input#15,e,e$,e1$,e2$
  550 if c6% then sys ax+3
  560 e$=str$(e)+","+e$+","+e1$+","+e2$
  570 if c6% then sys ax+3
  580 return
  590 print:input "input filename";fi$
  600 if fi$="" or len (fi$)>16 then print "illegal name":goto590
  610 print:input "unit/device number of drive (8-11)  8{left}{left}{left}";du:du=int(du)
  620 if du<8 or du>11 then print "illegal entry":goto 610
  630 open15,du,15:open5,du,5,"0:"+fi$
  640 gosub530:if e then print e$:close15:stop
  650 rp=1:rn=1:gosub 410:gosub 530:if e then print e$:close 15:stop
  660 gosub 410:gosub 530
  670 if e=0 and rn<32767 then rn=rn+1:goto 660
  680 nr=rn-1-(e=0)
  690 print:print "number of records =";nr
  700 rn=1
  710 rp=2
  720 gosub 410:gosub 530
  730 if e=0 and rp<254 then rp=rp+1:goto 720
  740 rl=rp-1-(e=0)
  750 print:print "record length =";rl
  760 if c6% then sys ax:fm=256*(peek(52)-peek(50))+peek(51)-peek(49):goto 780
  770 fm=fre(0)
  780 as=int((fm-3000)/(rl+5))-1
  790 if as<5 then print:print "insufficient memory":close5:close15:end
  800 if as>=nr then as=nr-1
  810 print:print "number of buffers =";as+1
  820 dim a$(as)
  830 ci=1:rem current input record
  840 co=1:rem current output record
  850 rem input loop
  860 ac=0
  870 print:print
  880 fori=0toas:a$(i)="":next
  890 if c6% then sys ax:goto 910
  900 i=fre(0)
  910 rn=ci
  920 l$=""
  930 print "reading record";ci;"{left} to buffer";ac+1;"{up}"
  940 for rp=1 to rl
  950 gosub 410:get#5,g$:ifg$=""theng$=chr$(0)
  960 if c6% then sys ax+3
  970 l$=l$+g$:next rp
  980 a$(ac)=l$:ac=ac+1:ci=ci+1
  990 if ac<=as and ci<=nr then 910
 1000 close5
 1010 print:print
 1020 if du<>dv then 1060
 1030 print "insert output disk, press {rvon}return{rvof}"
 1040 get g$:if g$<>"" then 1040
 1050 get g$:if g$<>chr$(13) then 1050
 1060 if fo$>"" then 1200
 1070 print:print " *** put output disk into drive ***":print
 1080 input "output filename  *{left}{left}{left}";fo$
 1090 if fo$="*" then fo$=fi$
 1100 if fo$="" or len(fo$)>16 then print "illegal filename":goto1080
 1110 print:print tab(35);du;"{up}"
 1120 input "unit/device number of drive (8-11)";dv:dv=int(dv)
 1130 if dv<8 or dv>11 then print "illegal entry":goto 1110
 1140 print:print "initializing file"
 1150 close15:open15,dv,15:open5,dv,5,"0:"+fo$+",l,"+chr$(rl)
 1160 gosub 530:if e then printe$:close15:stop
 1170 rp=1:rn=nr:gosub 450
 1180 print#5,chr$(255);
 1190 close5
 1200 close15:open15,dv,15:open5,dv,5,"0:"+fo$
 1210 gosub 530:if e then printe$:close15:stop
 1220 print:print
 1230 rem print loop
 1240 rp=1
 1250 for i=0 to ac-1
 1260 print "writing buffer";i+1;"{left} to record";co;"{up}"
 1270 rn=co:gosub 450
 1280 print#5,a$(i);
 1290 co=co+1
 1300 next i
 1310 close5
 1320 print:print
 1330 if co>nr then print "all done":close15:end:goto 1330
 1340 print "more to come"
 1350 if du<>dv then 1390
 1360 print:print "insert input disk, press {rvon}space{rvof}"
 1370 get g$:if g$<>"" then 1370
 1380 get g$:if g$<>" " then 1380
 1390 close15:open15,du,15:open5,du,5,"0:"+fi$
 1400 gosub530:if e then print e$:close15:stop
 1410 goto 850
 1420 :
 1430 print:print "loading fast garbage collector..."
 1440 read x,y:ax=256*y+x:x=ax
 1450 read y:if not y then poke x,y:x=x+1:goto 1450
 1460 return
 1470 data 10,206,169,0,44,169,255,216,88,240,12,165,51,197,49,165
 1480 data 52,229,50,201,4,176,21,162,5,181,32,72,202,16,250,32
 1490 data 53,206,162,0,104,149,32,232,224,6,208,248,96,165,1,41
 1500 data 254,133,1,165,55,141,246,207,141,251,207,165,56,141,247,207
 1510 data 141,252,207,169,0,141,255,207,173,246,207,141,244,207,56,173
 1520 data 247,207,233,31,144,15,141,245,207,165,51,205,244,207,165,52
 1530 data 237,245,207,144,13,206,255,207,165,51,141,244,207,165,52,141
 1540 data 245,207,173,242,207,133,34,173,243,207,133,35,32,92,207,173
 1550 data 244,207,141,253,207,173,245,207,141,254,207,165,34,141,244,207
 1560 data 165,35,141,245,207,173,242,207,141,246,207,173,243,207,141,247
 1570 data 207,173,251,207,133,34,173,252,207,133,35,32,92,207,173,255
 1580 data 207,208,25,165,34,141,251,207,165,35,141,252,207,173,253,207
 1590 data 141,246,207,173,254,207,141,247,207,76,80,206,165,34,133,51
 1600 data 133,53,165,35,133,52,133,54,165,1,9,1,133,1,96,160
 1610 data 0,177,32,208,8,200,145,32,200,145,32,208,75,141,248,207
 1620 data 200,177,32,133,36,200,177,32,133,37,165,36,205,246,207,165
 1630 data 37,237,247,207,176,50,165,36,205,244,207,165,37,237,245,207
 1640 data 144,38,56,165,34,237,248,207,133,34,176,2,198,35,172,248
 1650 data 207,136,192,255,240,7,177,36,145,34,76,41,207,160,1,165
 1660 data 34,145,32,200,165,35,145,32,96,32,73,207,133,32,134,33
 1670 data 96,24,101,32,72,138,101,33,170,104,96,160,3,177,32,170
 1680 data 136,177,32,96,165,45,133,32,165,46,133,33,165,32,197,47
 1690 data 165,33,229,48,176,41,160,0,177,32,48,5,200,177,32,48
 1700 data 10,162,0,169,7,32,65,207,76,100,207,162,0,169,2,32
 1710 data 65,207,32,231,206,162,0,169,5,32,65,207,76,100,207,165
 1720 data 32,197,49,165,33,229,50,176,79,160,0,177,32,48,5,200
 1730 data 177,32,48,9,32,83,207,32,65,207,76,151,207,32,83,207
 1740 data 32,73,207,141,249,207,142,250,207,160,4,177,32,72,162,0
 1750 data 169,5,32,65,207,104,162,0,10,144,1,232,32,65,207,165
 1760 data 32,205,249,207,165,33,237,250,207,176,180,32,231,206,162,0
 1770 data 169,3,32,65,207,76,215,207,96,44,0,192,0,0,0,0
 1780 data 0,0,0,0,0,0,0,0,-1


:)

---------- Post added at 22:44 ---------- Previous post was at 22:43 ----------

Well the linux way:

petcat rel > merlin.txt
jvdbossc@jvdbossc-laptop:~$ gedit merlin.txt

Petcat comes with vice!! = runs on windows to!!
 
Last edited by a moderator:

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
@ Jurgen

Nice job! It's a pity that the smileys got the better of you.....
 

SkydivinGirl

Retro Girl
Joined
Dec 16, 2008
Posts
7,069
Country
USA
Region
Raleigh, NC
I edit the post to add CODE tags to make the listing readable without the smileys. :)

@Merlin

Have you picked up a UIEC yet? You really should get one for your 8-Bit Commodores. :D

Heather
 

Merlin

Ministry of Retr0bright and Street Judge
VIP
Joined
Nov 24, 2007
Posts
15,597
Country
UK
Region
Manchester
@ SdG

I shall be picking one up from Jim Brain once I have enough spare cash.
 

jvdbossc

HypnusBE
Joined
Nov 11, 2009
Posts
3,326
Country
Belgium
Region
Antwerp (province)
Merlin,

I am interested how the device works out for you.. I am probably going for the same, once I get other stuff complete and $$$$
 
Top Bottom