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,526DV��(186):�DV�8�DV�8L�53281,0:�53280,0W(�"�"�2�57812"HIRES FONT",DV,0:�780,0:�781,0:�782,8:�65493�<�57812"ALL SPRITES",DV,0:�780,0:�781,0:�782,120:�65493F�57812"HIRES.SHP",DV,0:�780,0:�781,0:�782,130:�65493BP�57812"HIRES C000-CA48",DV,0:�780,0:�781,0:�782,192:�65493KZ�220Qd:\n:� BOXbx:���SC�6,X,Y,"�"��(HZ$,XX)�"�"���II�1�YY���SC�6,X,Y�II,"�"��(SP$,XX)�"�"������SC�6,X,Y�YY�1,"�"��(HZ$,XX)�"�"�����:�:� SETUP VARIABLES�:��X(9),Y(9):�V�53248:S�54272:�I�0�24:�S�I,0:�k�UN�51456:HG�51459:WP�49152:SC�50176:CM�50816��HZ$�"��������������������������������������"��SP$�"                                      "��:�:� SETUP SPRITES�:N$�"������""�I�0�7#*G(I)��(�(N$,I�1,1))=,NQ�192:�G(I)�58�NQ�48N6G(I)�G(I)�NQ~@SM�30656�64�G(I)�1728�(NQ�48):EM�50944�64�I�J�CM,SM,EM,64�T��h�I�0�7:�53240�I,28�I:�V�39�I,7:��r�V�16,0:�V�29,0:�V�23,0:�V�27,0�|�I�0�8:�X(I),Y(I):�?��104,85,152,106,176,146,152,190,104,210,56,190,33,146,56,106,104,146f��I�0�7:�V�I�2,X(I):�V�1�I�2,Y(I):�l�:��:� SETUP SCRIPTOR��:���SC,224,204,8��:��:� SETUP HIRES SCREEN��:���53272,19:�53280,0���251,130:�252,224:�253,204��51456:�51459��V�21,255�:0�:� BOX AND LOOP6:a�SC�3,"�	�":X�24:XX�14:Y�5:YY�14:�130��SC�6,25,7,"�NTER ����� �TO"�&�SC�6,25,8,"PRINT SCREEN. "�0�SC�6,25,10,"�NTER ������"�:�SC�6,25,11,"�TO HEAD BACK"D�SC�6,25,12,"TO ������."(F�SC�6,25,14,"�NTER ����"IH�SC�6,25,15,"�TO CHECK OUT"eJ�SC�6,25,16,"THE CODE."kN:|X:� GET INPUT�b:�lX�26:Y�18:LN�8:�50000:L$��(Q9$,1)�n�V�21,0�v�L$�"�"�L$�"L"��51459:�"�":�40000���L$�"�"�L$�"P"�700��L$�"�"�L$�"B"��51459:�"�":���620>��SC�6,25,18,"7 �PIN PRINTERa��SC�6,25,19,"8 �PIN PRINTERt��A$:�A$�""�720���A$�"7"��49155,4,0,0,0,0,39,24,224:�760���A$�"8"��49152,4,5,1,0,0,39,24,224,75,35,51,24,0:�760���720��SC�6,25,18,"             "#�SC�6,25,19,"             "1�V�21,255:�540@
':X':� SCRATCH AND SAVE^':�'DV��(186):F$�"HIRES SKELETON":�15,DV,15,"S0:"�F$:�15:�F$,DV:��@��788,49�B��I�0�21:�828�I,8�I:��J��DV�8�DV�29�DV�8�40030T�A��(828):B��(828�DV�8):�828,B:�828�DV�8,AB^�A$�"HELLO CONNECT":�J�8�29:I��(828�J�8):�I�14��]h��2:�2,I,2:�2:�ST�40060�r��15:�15,I,15,"R0:"�A$�"="�A$:�15,ER:�15:�ER�63�40070�|��:�"�":�53272,23:�186,8:����Q$��(34):�646,�(53281):�"�":�53272,23!���"�P�2048,0:P�44,8:P�43,1:P�56,160:P�55,0:CLR:L�"Q$A$Q$","IK���"RUN:":�631,13:�632,13:�198,2:�QM�:fN�:� INPUT ROUTINElO�:�P�Q9$�"":�198,0:A�0�ZÞSC�6,X,Y,"	�"�dÁI�0�20�náA$:�A$��""�I�20:�:�50070�xÂ���A�1�A:�A��SC�3," ��":�50020�ÞSC�3,"� ��":�50020�ËA$��(13)��SC�3," ":�P�Ë(A$��(20)��(Q9$))�Q9$��(Q9$,�(Q9$)�1):�50140f�Ë�(Q9$)��LN�50020��ËA$��" "�A$�"�"�50020��ËA$��(34)�50020���Q9$�Q9$�A$��ÞSC�3,""�A$:�50020��ÞSC�3," �� �":�50020
]PJ@.56,120:.55,0:.:.788,52@6PT@dv..(186):.dv.8.dv.8@lP.@.53281,0:.53280,0@wP(@.".NH"@.P2@.57812"hires font",dv,0:.780,0:.781,0:.782,8:.65493@.P<@.57812"all sprites",dv,0:.780,0:.781,0:.782,120:.65493@CQf@.57812"hires.shp",dv,0:.780,0:.781,0:.782,130:.65493@bQp@.57812"hires c000-ca48",dv,0:.780,0:.781,0:.782,192:.65493@kQz@.220@qQD@:@£QN@:. box@BQX@:@.Q.@.sc.6,x,y,"."..(hz$,xx)."."@.Q.@.ii.1.yy@.Q.@.sc.6,x,y.ii,"."..(sp$,xx)."."@.Q.@.@.Q.@.sc.6,x,y.yy.1,"."..(hz$,xx)."."@.Q.@.@.Q.@:@@R.@:. setup variables@FR.@:@UR.@.x(9),y(9)@:R.@v.53248:s.54272:.i.0.24:.s.i,0:.@KR.@un.51456:hg.51459:wp.49152:sc.50176:cm.50816@.R.@hz$."......................................"@.R.@sp$."                                      "@.R.@:@.RDA:. setup sprites@.RNA:@@SXAn$."........"@KS"A.i.0.7@#S*Ag(i)..(.(n$,i.1,1))@=S,Anq.192:.g(i).58.nq.48@nS6Ag(i).g(i).nq@.S@Asm.30656.64.g(i).1728.(nq.48):em.50944.64.i@.SjA.cm,sm,em,64@.StA.@.SHA.i.0.7:.53240.i,28.i:.v.39.i,7:.@.SRA.v.16,0:.v.29,0:.v.23,0:.v.27,0@.S.A.i.0.8:.x(i),y(i):.@?T.A.104,85,152,106,176,146,152,190,104,210,56,190,33,146,56,106,104,146@FT.A.i.0.7:.v.i.2,x(i):.v.1.i.2,y(i):.@LT.A:@.T.A:. setup scriptor@.T.A:@.T.A.sc,224,204,8@.T.A:@.T.A:. setup hires screen@.T.A:@.T.A.53272,19:.53280,0@.T.A.251,130:.252,224:.253,204@HU.A.51456:.51459@VU.A.v.21,255@£U.A:@0U.A:. box and loop@6UHB:@AURB.sc.3,"H.I.":x.24:xx.14:y.5:yy.14:.130@.U£B.sc.6,25,7,".nter HE..... H.to"@.U&B.sc.6,25,8,"print screen. "@.U0B.sc.6,25,10,".nter HE........"@.U:B.sc.6,25,11,"H.to head back"@HVdB.sc.6,25,12,"to ........."@(VfB.sc.6,25,14,".nter HE....."@iVhB.sc.6,25,15,"H.to check out"@EVjB.sc.6,25,16,"the code."@KVnB:@.VxB:. get input@.VBB:@.VLBx.26:y.18:ln.8:.50000:l$..(q9$,1)@.VNB.v.21,0@.VVB.l$.".".l$."l"..51459:.".":.40000@.V.B.l$.".".l$."p".700@RW.B.l$.".".l$."b"..51459:.".":.@[W.B.620@>W.B.sc.6,25,18,"HE7 H.pin printer@AW.B.sc.6,25,19,"HE8 H.pin printer@TW.B.a$:.a$."".720@.W.B.a$."7"..49155,4,0,0,0,0,39,24,224:.760@.W.B.a$."8"..49152,4,5,1,0,0,39,24,224,75,35,51,24,0:.760@.W.B.720@CX.B.sc.6,25,18,"             "@#XBC.sc.6,25,19,"             "@1XLC.v.21,255@:XVC.540@@XM':@xXN':. scratch and save@.XO':@.XP'dv..(186):f$."hires skeleton":.15,dv,15,"s0:".f$:.15:.f$,dv:.@.X@..788,49@.Xb..i.0.21:.828.i,8.i:.@.Xj..dv.8.dv.29.dv.8.40030@NYt.a..(828):b..(828.dv.8):.828,b:.828.dv.8,a@bY..a$."hello connect":.j.8.29:i..(828.j.8):.i.14..@]YH..2:.2,i,2:.2:.st.40060@.YR..15:.15,i,15,"r0:".a$."=".a$:.15,er:.15:.er.63.40070@.Y...:.".":.53272,23:.186,8:.@.Y..q$..(34):.646,.(53281):.".":.53272,23@!Z...".QQQp.2048,0:p.44,8:p.43,1:p.56,160:p.55,0:clr:l."q$a$q$","i@kZ..."QQQQrun:S":.631,13:.632,13:.198,2:.@qZm.:@FZn.:. input routine@LZo.:@.Zp.q9$."":.198,0:a.0@.Zz..sc.6,x,y,"I.HE"@.ZD..i.0.20@.ZN..a$:.a$.."".i.20:.:.50070@.ZX..@.Z..a.1.a:.a..sc.3,"HER ..":.50020@D[...sc.3,"H.R ..":.50020@.[...a$..(13)..sc.3," ":.@p[...(a$..(20)..(q9$)).q9$..(q9$,.(q9$).1):.50140@F[....(q9$)..ln.50020@.[...a$.." ".a$.".".50020@.[...a$..(34).50020@.[..q9$.q9$.a$@.[...sc.3,"HE".a$:.50020@.[...sc.3," .. .":.50020@@@
00000000  1d 10 0a 00 97 35 36 2c  31 32 30 3a 97 35 35 2c  |.....56,120:.55,|
00000010  30 3a 9c 3a 97 37 38 38  2c 35 32 00 36 10 14 00  |0:.:.788,52.6...|
00000020  44 56 b2 c2 28 31 38 36  29 3a 8b 44 56 b3 38 a7  |DV..(186):.DV.8.|
00000030  44 56 b2 38 00 4c 10 1e  00 97 35 33 32 38 31 2c  |DV.8.L....53281,|
00000040  30 3a 97 35 33 32 38 30  2c 30 00 57 10 28 00 99  |0:.53280,0.W.(..|
00000050  22 93 0e 08 22 00 8f 10  32 00 9e 35 37 38 31 32  |"..."...2..57812|
00000060  22 48 49 52 45 53 20 46  4f 4e 54 22 2c 44 56 2c  |"HIRES FONT",DV,|
00000070  30 3a 97 37 38 30 2c 30  3a 97 37 38 31 2c 30 3a  |0:.780,0:.781,0:|
00000080  97 37 38 32 2c 38 3a 9e  36 35 34 39 33 00 ca 10  |.782,8:.65493...|
00000090  3c 00 9e 35 37 38 31 32  22 41 4c 4c 20 53 50 52  |<..57812"ALL SPR|
000000a0  49 54 45 53 22 2c 44 56  2c 30 3a 97 37 38 30 2c  |ITES",DV,0:.780,|
000000b0  30 3a 97 37 38 31 2c 30  3a 97 37 38 32 2c 31 32  |0:.781,0:.782,12|
000000c0  30 3a 9e 36 35 34 39 33  00 03 11 46 00 9e 35 37  |0:.65493...F..57|
000000d0  38 31 32 22 48 49 52 45  53 2e 53 48 50 22 2c 44  |812"HIRES.SHP",D|
000000e0  56 2c 30 3a 97 37 38 30  2c 30 3a 97 37 38 31 2c  |V,0:.780,0:.781,|
000000f0  30 3a 97 37 38 32 2c 31  33 30 3a 9e 36 35 34 39  |0:.782,130:.6549|
00000100  33 00 42 11 50 00 9e 35  37 38 31 32 22 48 49 52  |3.B.P..57812"HIR|
00000110  45 53 20 43 30 30 30 2d  43 41 34 38 22 2c 44 56  |ES C000-CA48",DV|
00000120  2c 30 3a 97 37 38 30 2c  30 3a 97 37 38 31 2c 30  |,0:.780,0:.781,0|
00000130  3a 97 37 38 32 2c 31 39  32 3a 9e 36 35 34 39 33  |:.782,192:.65493|
00000140  00 4b 11 5a 00 89 32 32  30 00 51 11 64 00 3a 00  |.K.Z..220.Q.d.:.|
00000150  5c 11 6e 00 3a 8f 20 42  4f 58 00 62 11 78 00 3a  |\.n.:. BOX.b.x.:|
00000160  00 82 11 82 00 9e 53 43  aa 36 2c 58 2c 59 2c 22  |......SC.6,X,Y,"|
00000170  b0 22 aa c8 28 48 5a 24  2c 58 58 29 aa 22 ae 22  |."..(HZ$,XX)."."|
00000180  00 8f 11 8c 00 81 49 49  b2 31 a4 59 59 00 b2 11  |......II.1.YY...|
00000190  96 00 9e 53 43 aa 36 2c  58 2c 59 aa 49 49 2c 22  |...SC.6,X,Y.II,"|
000001a0  dd 22 aa c8 28 53 50 24  2c 58 58 29 aa 22 dd 22  |."..(SP$,XX)."."|
000001b0  00 b8 11 a0 00 82 00 dd  11 aa 00 9e 53 43 aa 36  |............SC.6|
000001c0  2c 58 2c 59 aa 59 59 aa  31 2c 22 ad 22 aa c8 28  |,X,Y.YY.1,"."..(|
000001d0  48 5a 24 2c 58 58 29 aa  22 bd 22 00 e3 11 b4 00  |HZ$,XX).".".....|
000001e0  8e 00 e9 11 be 00 3a 00  00 12 c8 00 3a 8f 20 53  |......:.....:. S|
000001f0  45 54 55 50 20 56 41 52  49 41 42 4c 45 53 00 06  |ETUP VARIABLES..|
00000200  12 d2 00 3a 00 15 12 dc  00 86 58 28 39 29 2c 59  |...:......X(9),Y|
00000210  28 39 29 00 3a 12 e6 00  56 b2 35 33 32 34 38 3a  |(9).:...V.53248:|
00000220  53 b2 35 34 32 37 32 3a  81 49 b2 30 a4 32 34 3a  |S.54272:.I.0.24:|
00000230  97 53 aa 49 2c 30 3a 82  00 6b 12 e8 00 55 4e b2  |.S.I,0:..k...UN.|
00000240  35 31 34 35 36 3a 48 47  b2 35 31 34 35 39 3a 57  |51456:HG.51459:W|
00000250  50 b2 34 39 31 35 32 3a  53 43 b2 35 30 31 37 36  |P.49152:SC.50176|
00000260  3a 43 4d b2 35 30 38 31  36 00 9c 12 f0 00 48 5a  |:CM.50816.....HZ|
00000270  24 b2 22 c0 c0 c0 c0 c0  c0 c0 c0 c0 c0 c0 c0 c0  |$.".............|
00000280  c0 c0 c0 c0 c0 c0 c0 c0  c0 c0 c0 c0 c0 c0 c0 c0  |................|
00000290  c0 c0 c0 c0 c0 c0 c0 c0  c0 22 00 cd 12 f2 00 53  |.........".....S|
000002a0  50 24 b2 22 20 20 20 20  20 20 20 20 20 20 20 20  |P$."            |
000002b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002c0  20 20 20 20 20 20 20 20  20 20 22 00 d3 12 fa 00  |          ".....|
000002d0  3a 00 e8 12 04 01 3a 8f  20 53 45 54 55 50 20 53  |:.....:. SETUP S|
000002e0  50 52 49 54 45 53 00 ee  12 0e 01 3a 00 00 13 18  |PRITES.....:....|
000002f0  01 4e 24 b2 22 cc cf c1  c4 d3 d4 c1 d2 22 00 0b  |.N$."........"..|
00000300  13 22 01 81 49 b2 30 a4  37 00 23 13 2a 01 47 28  |."..I.0.7.#.*.G(|
00000310  49 29 b2 c6 28 ca 28 4e  24 2c 49 aa 31 2c 31 29  |I)..(.(N$,I.1,1)|
00000320  29 00 3d 13 2c 01 4e 51  b2 31 39 32 3a 8b 47 28  |).=.,.NQ.192:.G(|
00000330  49 29 b3 35 38 a7 4e 51  b2 34 38 00 4e 13 36 01  |I).58.NQ.48.N.6.|
00000340  47 28 49 29 b2 47 28 49  29 ab 4e 51 00 7e 13 40  |G(I).G(I).NQ.~.@|
00000350  01 53 4d b2 33 30 36 35  36 aa 36 34 ac 47 28 49  |.SM.30656.64.G(I|
00000360  29 ab 31 37 32 38 ac 28  4e 51 b2 34 38 29 3a 45  |).1728.(NQ.48):E|
00000370  4d b2 35 30 39 34 34 aa  36 34 ac 49 00 8f 13 4a  |M.50944.64.I...J|
00000380  01 9e 43 4d 2c 53 4d 2c  45 4d 2c 36 34 00 95 13  |..CM,SM,EM,64...|
00000390  54 01 82 00 ba 13 68 01  81 49 b2 30 a4 37 3a 97  |T.....h..I.0.7:.|
000003a0  35 33 32 34 30 aa 49 2c  32 38 aa 49 3a 97 56 aa  |53240.I,28.I:.V.|
000003b0  33 39 aa 49 2c 37 3a 82  00 de 13 72 01 97 56 aa  |39.I,7:....r..V.|
000003c0  31 36 2c 30 3a 97 56 aa  32 39 2c 30 3a 97 56 aa  |16,0:.V.29,0:.V.|
000003d0  32 33 2c 30 3a 97 56 aa  32 37 2c 30 00 f6 13 7c  |23,0:.V.27,0...||
000003e0  01 81 49 b2 30 a4 38 3a  87 58 28 49 29 2c 59 28  |..I.0.8:.X(I),Y(|
000003f0  49 29 3a 82 00 3f 14 86  01 83 31 30 34 2c 38 35  |I):..?....104,85|
00000400  2c 31 35 32 2c 31 30 36  2c 31 37 36 2c 31 34 36  |,152,106,176,146|
00000410  2c 31 35 32 2c 31 39 30  2c 31 30 34 2c 32 31 30  |,152,190,104,210|
00000420  2c 35 36 2c 31 39 30 2c  33 33 2c 31 34 36 2c 35  |,56,190,33,146,5|
00000430  36 2c 31 30 36 2c 31 30  34 2c 31 34 36 00 66 14  |6,106,104,146.f.|
00000440  88 01 81 49 b2 30 a4 37  3a 97 56 aa 49 ac 32 2c  |...I.0.7:.V.I.2,|
00000450  58 28 49 29 3a 97 56 aa  31 aa 49 ac 32 2c 59 28  |X(I):.V.1.I.2,Y(|
00000460  49 29 3a 82 00 6c 14 90  01 3a 00 82 14 9a 01 3a  |I):..l...:.....:|
00000470  8f 20 53 45 54 55 50 20  53 43 52 49 50 54 4f 52  |. SETUP SCRIPTOR|
00000480  00 88 14 a4 01 3a 00 9a  14 ae 01 9e 53 43 2c 32  |.....:......SC,2|
00000490  32 34 2c 32 30 34 2c 38  00 a0 14 b8 01 3a 00 ba  |24,204,8.....:..|
000004a0  14 c2 01 3a 8f 20 53 45  54 55 50 20 48 49 52 45  |...:. SETUP HIRE|
000004b0  53 20 53 43 52 45 45 4e  00 c0 14 cc 01 3a 00 d7  |S SCREEN.....:..|
000004c0  14 d6 01 97 35 33 32 37  32 2c 31 39 3a 97 35 33  |....53272,19:.53|
000004d0  32 38 30 2c 30 00 f6 14  e0 01 97 32 35 31 2c 31  |280,0......251,1|
000004e0  33 30 3a 97 32 35 32 2c  32 32 34 3a 97 32 35 33  |30:.252,224:.253|
000004f0  2c 32 30 34 00 08 15 ea  01 9e 35 31 34 35 36 3a  |,204......51456:|
00000500  9e 35 31 34 35 39 00 16  15 ec 01 97 56 aa 32 31  |.51459......V.21|
00000510  2c 32 35 35 00 1c 15 f4  01 3a 00 30 15 fe 01 3a  |,255.....:.0...:|
00000520  8f 20 42 4f 58 20 41 4e  44 20 4c 4f 4f 50 00 36  |. BOX AND LOOP.6|
00000530  15 08 02 3a 00 61 15 12  02 9e 53 43 aa 33 2c 22  |...:.a....SC.3,"|
00000540  08 9e 09 81 22 3a 58 b2  32 34 3a 58 58 b2 31 34  |....":X.24:XX.14|
00000550  3a 59 b2 35 3a 59 59 b2  31 34 3a 8d 31 33 30 00  |:Y.5:YY.14:.130.|
00000560  85 15 1c 02 9e 53 43 aa  36 2c 32 35 2c 37 2c 22  |.....SC.6,25,7,"|
00000570  c5 4e 54 45 52 20 08 05  d0 d2 c9 ce d4 20 08 9e  |.NTER ....... ..|
00000580  54 4f 22 00 a5 15 26 02  9e 53 43 aa 36 2c 32 35  |TO"...&..SC.6,25|
00000590  2c 38 2c 22 50 52 49 4e  54 20 53 43 52 45 45 4e  |,8,"PRINT SCREEN|
000005a0  2e 20 22 00 c8 15 30 02  9e 53 43 aa 36 2c 32 35  |. "...0..SC.6,25|
000005b0  2c 31 30 2c 22 c5 4e 54  45 52 20 08 05 cc cf c1  |,10,".NTER .....|
000005c0  c4 d3 d4 c1 d2 22 00 e9  15 3a 02 9e 53 43 aa 36  |....."...:..SC.6|
000005d0  2c 32 35 2c 31 31 2c 22  08 9e 54 4f 20 48 45 41  |,25,11,"..TO HEA|
000005e0  44 20 42 41 43 4b 22 00  08 16 44 02 9e 53 43 aa  |D BACK"...D..SC.|
000005f0  36 2c 32 35 2c 31 32 2c  22 54 4f 20 cc cf c1 c4  |6,25,12,"TO ....|
00000600  d3 d4 c1 d2 2e 22 00 28  16 46 02 9e 53 43 aa 36  |.....".(.F..SC.6|
00000610  2c 32 35 2c 31 34 2c 22  c5 4e 54 45 52 20 08 05  |,25,14,".NTER ..|
00000620  c2 c1 d3 c9 c3 22 00 49  16 48 02 9e 53 43 aa 36  |.....".I.H..SC.6|
00000630  2c 32 35 2c 31 35 2c 22  08 9e 54 4f 20 43 48 45  |,25,15,"..TO CHE|
00000640  43 4b 20 4f 55 54 22 00  65 16 4a 02 9e 53 43 aa  |CK OUT".e.J..SC.|
00000650  36 2c 32 35 2c 31 36 2c  22 54 48 45 20 43 4f 44  |6,25,16,"THE COD|
00000660  45 2e 22 00 6b 16 4e 02  3a 00 7c 16 58 02 3a 8f  |E.".k.N.:.|.X.:.|
00000670  20 47 45 54 20 49 4e 50  55 54 00 82 16 62 02 3a  | GET INPUT...b.:|
00000680  00 a8 16 6c 02 58 b2 32  36 3a 59 b2 31 38 3a 4c  |...l.X.26:Y.18:L|
00000690  4e b2 38 3a 8d 35 30 30  30 30 3a 4c 24 b2 c8 28  |N.8:.50000:L$..(|
000006a0  51 39 24 2c 31 29 00 b4  16 6e 02 97 56 aa 32 31  |Q9$,1)...n..V.21|
000006b0  2c 30 00 da 16 76 02 8b  4c 24 b2 22 cc 22 b0 4c  |,0...v..L$.".".L|
000006c0  24 b2 22 4c 22 a7 9e 35  31 34 35 39 3a 99 22 93  |$."L"..51459:.".|
000006d0  22 3a 89 34 30 30 30 30  00 f1 16 80 02 8b 4c 24  |":.40000......L$|
000006e0  b2 22 d0 22 b0 4c 24 b2  22 50 22 a7 37 30 30 00  |.".".L$."P".700.|
000006f0  12 17 8a 02 8b 4c 24 b2  22 c2 22 b0 4c 24 b2 22  |.....L$.".".L$."|
00000700  42 22 a7 9e 35 31 34 35  39 3a 99 22 9f 22 3a 80  |B"..51459:.".":.|
00000710  00 1b 17 94 02 89 36 32  30 00 3e 17 bc 02 9e 53  |......620.>....S|
00000720  43 aa 36 2c 32 35 2c 31  38 2c 22 08 05 37 20 08  |C.6,25,18,"..7 .|
00000730  9e 50 49 4e 20 50 52 49  4e 54 45 52 00 61 17 c6  |.PIN PRINTER.a..|
00000740  02 9e 53 43 aa 36 2c 32  35 2c 31 39 2c 22 08 05  |..SC.6,25,19,"..|
00000750  38 20 08 9e 50 49 4e 20  50 52 49 4e 54 45 52 00  |8 ..PIN PRINTER.|
00000760  74 17 d0 02 a1 41 24 3a  8b 41 24 b2 22 22 a7 37  |t....A$:.A$."".7|
00000770  32 30 00 a0 17 da 02 8b  41 24 b2 22 37 22 a7 9e  |20......A$."7"..|
00000780  34 39 31 35 35 2c 34 2c  30 2c 30 2c 30 2c 30 2c  |49155,4,0,0,0,0,|
00000790  33 39 2c 32 34 2c 32 32  34 3a 89 37 36 30 00 da  |39,24,224:.760..|
000007a0  17 e4 02 8b 41 24 b2 22  38 22 a7 9e 34 39 31 35  |....A$."8"..4915|
000007b0  32 2c 34 2c 35 2c 31 2c  30 2c 30 2c 33 39 2c 32  |2,4,5,1,0,0,39,2|
000007c0  34 2c 32 32 34 2c 37 35  2c 33 35 2c 35 31 2c 32  |4,224,75,35,51,2|
000007d0  34 2c 30 3a 89 37 36 30  00 e3 17 ee 02 89 37 32  |4,0:.760......72|
000007e0  30 00 03 18 f8 02 9e 53  43 aa 36 2c 32 35 2c 31  |0......SC.6,25,1|
000007f0  38 2c 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |8,"             |
00000800  22 00 23 18 02 03 9e 53  43 aa 36 2c 32 35 2c 31  |".#....SC.6,25,1|
00000810  39 2c 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |9,"             |
00000820  22 00 31 18 0c 03 97 56  aa 32 31 2c 32 35 35 00  |".1....V.21,255.|
00000830  3a 18 16 03 89 35 34 30  00 40 18 0d 27 3a 00 58  |:....540.@..':.X|
00000840  18 0e 27 3a 8f 20 53 43  52 41 54 43 48 20 41 4e  |..':. SCRATCH AN|
00000850  44 20 53 41 56 45 00 5e  18 0f 27 3a 00 a0 18 10  |D SAVE.^..':....|
00000860  27 44 56 b2 c2 28 31 38  36 29 3a 46 24 b2 22 48  |'DV..(186):F$."H|
00000870  49 52 45 53 20 53 4b 45  4c 45 54 4f 4e 22 3a 9f  |IRES SKELETON":.|
00000880  31 35 2c 44 56 2c 31 35  2c 22 53 30 3a 22 aa 46  |15,DV,15,"S0:".F|
00000890  24 3a a0 31 35 3a 94 46  24 2c 44 56 3a 80 00 ac  |$:.15:.F$,DV:...|
000008a0  18 40 9c 97 37 38 38 2c  34 39 00 c5 18 42 9c 81  |.@..788,49...B..|
000008b0  49 b2 30 a4 32 31 3a 97  38 32 38 aa 49 2c 38 aa  |I.0.21:.828.I,8.|
000008c0  49 3a 82 00 e0 18 4a 9c  8b 44 56 b3 38 b0 44 56  |I:....J..DV.8.DV|
000008d0  b1 32 39 b0 44 56 b2 38  a7 34 30 30 33 30 00 0e  |.29.DV.8.40030..|
000008e0  19 54 9c 41 b2 c2 28 38  32 38 29 3a 42 b2 c2 28  |.T.A..(828):B..(|
000008f0  38 32 38 aa 44 56 ab 38  29 3a 97 38 32 38 2c 42  |828.DV.8):.828,B|
00000900  3a 97 38 32 38 aa 44 56  ab 38 2c 41 00 42 19 5e  |:.828.DV.8,A.B.^|
00000910  9c 41 24 b2 22 48 45 4c  4c 4f 20 43 4f 4e 4e 45  |.A$."HELLO CONNE|
00000920  43 54 22 3a 81 4a b2 38  a4 32 39 3a 49 b2 c2 28  |CT":.J.8.29:I..(|
00000930  38 32 38 aa 4a ab 38 29  3a 8b 49 b2 31 34 a7 82  |828.J.8):.I.14..|
00000940  00 5d 19 68 9c a0 32 3a  9f 32 2c 49 2c 32 3a a0  |.].h..2:.2,I,2:.|
00000950  32 3a 8b 53 54 a7 34 30  30 36 30 00 96 19 72 9c  |2:.ST.40060...r.|
00000960  a0 31 35 3a 9f 31 35 2c  49 2c 31 35 2c 22 52 30  |.15:.15,I,15,"R0|
00000970  3a 22 aa 41 24 aa 22 3d  22 aa 41 24 3a 84 31 35  |:".A$."=".A$:.15|
00000980  2c 45 52 3a a0 31 35 3a  8b 45 52 b2 36 33 a7 34  |,ER:.15:.ER.63.4|
00000990  30 30 37 30 00 b4 19 7c  9c 82 3a 99 22 93 22 3a  |0070...|..:.".":|
000009a0  97 35 33 32 37 32 2c 32  33 3a 97 31 38 36 2c 38  |.53272,23:.186,8|
000009b0  3a 80 00 de 19 86 9c 51  24 b2 c7 28 33 34 29 3a  |:......Q$..(34):|
000009c0  97 36 34 36 2c c2 28 35  33 32 38 31 29 3a 99 22  |.646,.(53281):."|
000009d0  93 22 3a 97 35 33 32 37  32 2c 32 33 00 21 1a 90  |.":.53272,23.!..|
000009e0  9c 99 22 93 11 11 11 50  cf 32 30 34 38 2c 30 3a  |.."....P.2048,0:|
000009f0  50 cf 34 34 2c 38 3a 50  cf 34 33 2c 31 3a 50 cf  |P.44,8:P.43,1:P.|
00000a00  35 36 2c 31 36 30 3a 50  cf 35 35 2c 30 3a 43 4c  |56,160:P.55,0:CL|
00000a10  52 3a 4c cf 22 51 24 41  24 51 24 22 2c 22 49 00  |R:L."Q$A$Q$","I.|
00000a20  4b 1a 9a 9c 99 22 11 11  11 11 52 55 4e 3a 13 22  |K...."....RUN:."|
00000a30  3a 97 36 33 31 2c 31 33  3a 97 36 33 32 2c 31 33  |:.631,13:.632,13|
00000a40  3a 97 31 39 38 2c 32 3a  80 00 51 1a 4d c3 3a 00  |:.198,2:..Q.M.:.|
00000a50  66 1a 4e c3 3a 8f 20 49  4e 50 55 54 20 52 4f 55  |f.N.:. INPUT ROU|
00000a60  54 49 4e 45 00 6c 1a 4f  c3 3a 00 82 1a 50 c3 51  |TINE.l.O.:...P.Q|
00000a70  39 24 b2 22 22 3a 97 31  39 38 2c 30 3a 41 b2 30  |9$."":.198,0:A.0|
00000a80  00 97 1a 5a c3 9e 53 43  aa 36 2c 58 2c 59 2c 22  |...Z..SC.6,X,Y,"|
00000a90  09 81 08 05 22 00 a3 1a  64 c3 81 49 b2 30 a4 32  |...."...d..I.0.2|
00000aa0  30 00 c1 1a 6e c3 a1 41  24 3a 8b 41 24 b3 b1 22  |0...n..A$:.A$.."|
00000ab0  22 a7 49 b2 32 30 3a 82  3a 89 35 30 30 37 30 00  |".I.20:.:.50070.|
00000ac0  c7 1a 78 c3 82 00 ea 1a  82 c3 41 b2 31 ab 41 3a  |..x.......A.1.A:|
00000ad0  8b 41 a7 9e 53 43 aa 33  2c 22 08 05 12 20 9d 92  |.A..SC.3,"... ..|
00000ae0  22 3a 89 35 30 30 32 30  00 04 1b 8c c3 9e 53 43  |":.50020......SC|
00000af0  aa 33 2c 22 08 81 12 20  9d 92 22 3a 89 35 30 30  |.3,"... ..":.500|
00000b00  32 30 00 1e 1b 96 c3 8b  41 24 b2 c7 28 31 33 29  |20......A$..(13)|
00000b10  a7 9e 53 43 aa 33 2c 22  20 22 3a 8e 00 50 1b a0  |..SC.3," ":..P..|
00000b20  c3 8b 28 41 24 b2 c7 28  32 30 29 af c3 28 51 39  |..(A$..(20)..(Q9|
00000b30  24 29 29 a7 51 39 24 b2  c8 28 51 39 24 2c c3 28  |$)).Q9$..(Q9$,.(|
00000b40  51 39 24 29 ab 31 29 3a  89 35 30 31 34 30 00 66  |Q9$).1):.50140.f|
00000b50  1b aa c3 8b c3 28 51 39  24 29 b1 b2 4c 4e a7 35  |.....(Q9$)..LN.5|
00000b60  30 30 32 30 00 80 1b b4  c3 8b 41 24 b3 b2 22 20  |0020......A$.." |
00000b70  22 b0 41 24 b1 22 df 22  a7 35 30 30 32 30 00 94  |".A$.".".50020..|
00000b80  1b be c3 8b 41 24 b2 c7  28 33 34 29 a7 35 30 30  |....A$..(34).500|
00000b90  32 30 00 a3 1b c8 c3 51  39 24 b2 51 39 24 aa 41  |20.....Q9$.Q9$.A|
00000ba0  24 00 bc 1b d2 c3 9e 53  43 aa 33 2c 22 08 05 22  |$......SC.3,".."|
00000bb0  aa 41 24 3a 89 35 30 30  32 30 00 d5 1b dc c3 9e  |.A$:.50020......|
00000bc0  53 43 aa 33 2c 22 20 9d  9d 20 9d 22 3a 89 35 30  |SC.3," .. .":.50|
00000bd0  30 32 30 00 00 00                                 |020...|
00000bd6