Super Huey
Jump to navigation
Jump to search
Contents
Source 1
Property | Data |
---|---|
Title | Super Huey |
Publisher and/or Developer | Cosmi Corp. |
Year | 1985 |
Disk(s) | 1 |
Number of Index Holes | ? |
Media Type | 5.25 DSDD |
Retail, Budget or Compilation (with name) | Retail |
Country of Release | US |
Language(s) | English |
Platform | C64 |
NTSC or PAL | NTSC |
Protection | Checks if track 35 is unformatted |
Working? | Yes |
Archived | 7 Sep 2024 enigma, provided by Quadflyer8@F64 |
Verified by | enigma |
Protection
in "SH"
3 ifathen442 30 rem adc format protection routine 34 gosub 63989:rem ttttttttttttttttttt 50 kk=3:kc=0:sk=35 60 r1=20:rem tttttttttttttt 190 d$="0" 200 open 15,8,15,"i"+d$:gosub 650 205 open4,4 210 open 2,8,2,"#":gosub 650 215 tk=kk:sc=kc:rem tttttttttttttttttttt 220 print#15,"u1:2,"d$;tk,sc:gosub 650 222 e1=en 225 close 15:close4:close 2 226 gosub 425:rem ttttttttttttttttttt 258 d$="0" 260 open 15,8,15,"i"+d$:gosub 650 265 open4,4 270 open 2,8,2,"#":gosub 650 320 t=sk:s=kc:rem ttttttttttttttttttt 330 print#15,"u1:2,"d$;t,s:gosub 650 332 e2=en 362 close 15:close 4:close 2 422 gosub 435 423 goto 440 425 return:remcheck 427 if e1<>r1 then goto 430:rem ttttttttttttttttttt 428 return 430 print "error 50":end:rem tttttttttttttttttttttttttttttt 432 print "error 30":end:rem tttttttttttttttttttttttttttttt 435 rem check error subroutine 436 if e2<>r1+1 then goto 432:rem ttttttttttttttttttttt 438 return 440 if a then 442 441 print"“qqqlO"+chr$(34)+" rcdir"+chr$(34)+",8" 442 print"qqqqrUs":poke631,13:poke632,13:poke198,2:new 650 input#15,en,em$,et,es:return:rem tttttttttttttttttttt 700 end 63989 ky=2049:for j=1 to 27:rem ttttttttttttttttttt 63991 for lp=1 to (2 16)-1:rem ttttttttttt 63992 lng=peek(ky+2)+peek(ky+3)*256:rem ttttttttt 63993 nxln=peek(ky)+peek(ky+1)*256:rem ttttttttt 63994 if lng<ln then ky=nxln:next lp:end 63995 if lng>ln then print "error":end 63996 lo=peek(ky)+peek(ky+1)*256:rem tttttttttttttttttttt 63997 nl=peek(lo):nh=peek(lo+1) 63998 poke ky,nl:poke ky+1,nh:rem tttttttt 63999 next j:return:rem
Streams
File:Streams SuperHuey Cosmi q8.zip
G64
File:SuperHuey Cosmi q8 s0.g64
Disk side 1 is empty.