Home » Personal collection » Commodore disks » disk30a2_loadstar_131.d64 » hires skeleton
hires skeleton
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore disks » disk30a2_loadstar_131.d64 |
Filename: | hires skeleton |
Read OK: | ✔ |
File size: | 0BD6 bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
10 POKE56,120:POKE55,0:CLR:POKE788,52 20 DV=PEEK(186):IFDV<8THENDV=8 30 POKE53281,0:POKE53280,0 40 PRINT"<clr><text mode><shift disable>" 50 SYS57812"HIRES FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493 60 SYS57812"ALL SPRITES",DV,0:POKE780,0:POKE781,0:POKE782,120:SYS65493 70 SYS57812"HIRES.SHP",DV,0:POKE780,0:POKE781,0:POKE782,130:SYS65493 80 SYS57812"HIRES C000-CA48",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 90 GOTO220 100 : 110 :REM BOX 120 : 130 SYSSC+6,X,Y,"┌"+LEFT$(HZ$,XX)+"┐" 140 FORII=1TOYY 150 SYSSC+6,X,Y+II,"│"+LEFT$(SP$,XX)+"│" 160 NEXT 170 SYSSC+6,X,Y+YY+1,"└"+LEFT$(HZ$,XX)+"┘" 180 RETURN 190 : 200 :REM SETUP VARIABLES 210 : 220 DIMX(9),Y(9) 230 V=53248:S=54272:FORI=0TO24:POKES+I,0:NEXT 232 UN=51456:HG=51459:WP=49152:SC=50176:CM=50816 240 HZ$="🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹" 242 SP$=" " 250 : 260 :REM SETUP SPRITES 270 : 280 N$="🭼🭽♠🭷♥🭰♠🭻" 290 FORI=0TO7 298 G(I)=ASC(MID$(N$,I+1,1)) 300 NQ=192:IFG(I)<58THENNQ=48 310 G(I)=G(I)-NQ 320 SM=30656+64*G(I)-1728*(NQ=48):EM=50944+64*I 330 SYSCM,SM,EM,64 340 NEXT 360 FORI=0TO7:POKE53240+I,28+I:POKEV+39+I,7:NEXT 370 POKEV+16,0:POKEV+29,0:POKEV+23,0:POKEV+27,0 380 FORI=0TO8:READX(I),Y(I):NEXT 390 DATA104,85,152,106,176,146,152,190,104,210,56,190,33,146,56,106,104,146 392 FORI=0TO7:POKEV+I*2,X(I):POKEV+1+I*2,Y(I):NEXT 400 : 410 :REM SETUP SCRIPTOR 420 : 430 SYSSC,224,204,8 440 : 450 :REM SETUP HIRES SCREEN 460 : 470 POKE53272,19:POKE53280,0 480 POKE251,130:POKE252,224:POKE253,204 490 SYS51456:SYS51459 492 POKEV+21,255 500 : 510 :REM BOX AND LOOP 520 : 530 SYSSC+3,"<shift disable><yellow><shift enable><orange>":X=24:XX=14:Y=5:YY=14:GOSUB130 540 SYSSC+6,25,7,"🭶NTER <shift disable><white>🭾🭻╮╱🭰 <shift disable><yellow>TO" 550 SYSSC+6,25,8,"PRINT SCREEN. " 560 SYSSC+6,25,10,"🭶NTER <shift disable><white>🭼🭽♠🭷♥🭰♠🭻" 570 SYSSC+6,25,11,"<shift disable><yellow>TO HEAD BACK" 580 SYSSC+6,25,12,"TO 🭼🭽♠🭷♥🭰♠🭻." 582 SYSSC+6,25,14,"🭶NTER <shift disable><white>🭲♠♥╮🭸" 584 SYSSC+6,25,15,"<shift disable><yellow>TO CHECK OUT" 586 SYSSC+6,25,16,"THE CODE." 590 : 600 :REM GET INPUT 610 : 620 X=26:Y=18:LN=8:GOSUB50000:L$=LEFT$(Q9$,1) 622 POKEV+21,0 630 IFL$="🭼"ORL$="L"THENSYS51459:PRINT"<clr>":GOTO40000 640 IFL$="🭾"ORL$="P"THEN700 650 IFL$="🭲"ORL$="B"THENSYS51459:PRINT"<cyan>":END 660 GOTO620 700 SYSSC+6,25,18,"<shift disable><white>7 <shift disable><yellow>PIN PRINTER 710 SYSSC+6,25,19,"<shift disable><white>8 <shift disable><yellow>PIN PRINTER 720 GETA$:IFA$=""THEN720 730 IFA$="7"THENSYS49155,4,0,0,0,0,39,24,224:GOTO760 740 IFA$="8"THENSYS49152,4,5,1,0,0,39,24,224,75,35,51,24,0:GOTO760 750 GOTO720 760 SYSSC+6,25,18," " 770 SYSSC+6,25,19," " 780 POKEV+21,255 790 GOTO540 9997 : 9998 :REM SCRATCH AND SAVE 9999 : 10000 DV=PEEK(186):F$="HIRES SKELETON":OPEN15,DV,15,"S0:"+F$:CLOSE15:SAVEF$,DV:END 40000 POKE788,49 40002 FORI=0TO21:POKE828+I,8+I:NEXT 40010 IFDV<8ORDV>29ORDV=8THEN40030 40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A 40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT 40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060 40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070 40060 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END 40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23 40080 PRINT"<clr><cursor down><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I 40090 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END 49997 : 49998 :REM INPUT ROUTINE 49999 : 50000 Q9$="":POKE198,0:A=0 50010 SYSSC+6,X,Y,"<shift enable><orange><shift disable><white>" 50020 FORI=0TO20 50030 GETA$:IFA$<>""THENI=20:NEXT:GOTO50070 50040 NEXT 50050 A=1-A:IFATHENSYSSC+3,"<shift disable><white><reverse on> <cursor left><rev off>":GOTO50020 50060 SYSSC+3,"<shift disable><orange><reverse on> <cursor left><rev off>":GOTO50020 50070 IFA$=CHR$(13)THENSYSSC+3," ":RETURN 50080 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50140 50090 IFLEN(Q9$)>=LNTHEN50020 50100 IFA$<=" "ORA$>"◥"THEN50020 50110 IFA$=CHR$(34)THEN50020 50120 Q9$=Q9$+A$ 50130 SYSSC+3,"<shift disable><white>"+A$:GOTO50020 50140 SYSSC+3," <cursor left><cursor left> <cursor left>":GOTO50020
�56,120:�55,0:�:�788,52 6 DV��(186):�DV�8�DV�8 L �53281,0:�53280,0 W( �"�"