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( �"�"