Hi Peter,
I have just found the original LOST tape for the Hi-Res Board!
I have both sides as WAV files.
The Basic Program loads perfectly, and the MC driver for the card also loads in the machine code monitor then jumps to BASIC.
I will have to do the WAV files as links as it won't let me attach a WAV.
https://drive.google.com/file/d/1J9lpg4 ... drive_link
https://drive.google.com/file/d/1pfVGEV ... drive_link
I hope that this will solve you lockup problem Pete.
Regards,
Terry (Seldon2k)
I have just found the original LOST tape for the Hi-Res Board!
I have both sides as WAV files.
The Basic Program loads perfectly, and the MC driver for the card also loads in the machine code monitor then jumps to BASIC.
Code:
10 POKE515,0:GOSUB1000:S=4:POKE63,0 11 FORV=1TO2 12 X=128:Y=96:FORXX=0TO254STEPS:YY=0:GOSUB100:NEXT 14 XX=254:FORYY=0TO191STEPS:GOSUB100:NEXT 16 FORXX=254TO0STEP-S:GOSUB100:NEXT:XX=0 18 FORYY=191TO0STEP-S:GOSUB100:NEXT 19 POKE40944,3:FORK=1TO2000:NEXT:POKE40944,0:POKE63,1:NEXT:POKE63,0 20 FORJ=1TO3:FORK=1TO1000:NEXT:POKE40944,J:GOSUB1000 21 READX,Y,XX,YY:FORK=1TO100-(J*33):NEXT:IFX=-1THENRESTORE:NEXT:GOTO23 22 GOSUB100:GOTO21 23 FORK=1TO2000:NEXT:GOSUB1000 24 F=1:POKE40944,0:FORG=1TO100:W=INT(RND(1)*50):XS=INT(RND(1)*(254-W)) 26 YS=INT(RND(1)*(191-W)):X=XS:Y=YS:XX=X+W:YY=Y:GOSUB100 28 YY=YS+W:GOSUB100:XX=XS:GOSUB100:YY=YS:GOSUB100:NEXT 30 FORK=1TO2000:NEXT:GOSUB1000 31 FORJ=1TO100:X=RND(1)*254:XX=RND(1)*254 32 Y=RND(1)*191:YY=RND(1)*191:GOSUB100:NEXT 34 FORK=1TO2000:NEXT:GOSUB1000:POKE11,242 36 X0=64:Y0=96:RA=64:FORJ=1TO2:DR=5:DP=5:DP=DP*3.14159/180 38 FORR=0TORASTEPDR:FORP=0TO2*3.14159STEPDP:X=R*COS(P) 40 Y=R*SIN(P):X=X0+X:Y=Y0+Y:POKE64,X:POKE65,Y:X=USR(X) 41 NEXT:NEXT:X0=254-64:NEXT:FORK=1TO2000:NEXT 42 POKE11,121:F=0:X=64:Y=96:XX=254-64:YY=Y:GOSUB100 44 Y=32:XX=X:YY=Y+128:GOSUB100:X=254-64:XX=X:GOSUB100 46 YY=32:Y=32:X=64:GOSUB100:YY=160:Y=YY:GOSUB100 48 Y=32:FORXX=64TO254-64STEP3:YY=160:GOSUB100:NEXT 50 X=254-64:Y=160:YY=32:FORXX=64TOXSTEP3:GOSUB100:NEXT 52 FORK=1TO1000:NEXT:FORG=1TO12:POKE40944,G:FORL=1TO200:NEXT:NEXT 54 POKE40944,0:FORK=1TO2000:NEXT:RUN 99 END 100 POKE64,X:POKE65,Y:POKE66,XX:POKE67,YY:X=USR(X) 101 IFF=1THENX=XX:Y=YY 102 RETURN 200 DATA128,10,158,10,128,60,158,60,193,10,193,60 202 DATA28,10,58,10,28,35,58,35,78,60,108,60,158,10,158,60 204 DATA178,10,208,10,78,10,78,60,128,10,128,60 206 DATA58,10,58,35,28,10,28,60,28,70,208,70 208 DATA143,90,128,140,143,90,158,140,135,115,151,115 210 DATA178,90,185,140,185,140,193,90,193,90,201,140 212 DATA201,140,208,90,28,90,58,115,58,115,28,140,28,140 214 DATA28,90,78,90,108,90,108,90,108,115,93,115,108,140 216 DATA78,115,108,115,78,90,78,140,28,150,208,150 218 DATA-1,-1,-1,-1 1000 POKE11,89:POKE12,16:X=USR(X):POKE11,121:POKE12,16:RETURNRUNhttps://drive.google.com/file/d/1J9lpg4 ... drive_link
https://drive.google.com/file/d/1pfVGEV ... drive_link
I hope that this will solve you lockup problem Pete.
Regards,
Terry (Seldon2k)
Statistics: Posted by Seldon2k — Tue Apr 22, 2025 1:28 am