HoledOut/Loader

Home » Personal collection » Acorn ADFS disks » Electron » Holed_Out.ADF » HoledOut/Loader

HoledOut/Loader

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 » Acorn ADFS disks » Electron » Holed_Out.ADF
Filename:	HoledOut/Loader
Read OK:	✔
File size:	03A5 bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

   10 MODE6
   20 PRINT TAB(11,8)"H O L E D   O U T"
   30 PRINT TAB(0,15)"Select course : C = Cone Links"'TAB(16)"P = Pine Isles"'TAB(16)"D = Dune Royal"'TAB(16)"O = Owlet Wood"
   40 A$=GET$:IF INSTR("CcPpDdOo",A$)=0 THEN 30
   50 IF ASC(A$)>96 THEN A$=CHR$(ASC(A$)-32)
   60 INPUT TAB(0,21)"Starting Hole (1-18)",H
   70 IF H>18 OR H<1 THEN 60
   80 OSCLI"LOAD "+A$+".FLAG 70":OLDH=?&70:IF OLDH=H THEN 160
   90 PRINT TAB(12,23)"Sorting Holes..."
  100 OSCLI"ACCESS "+A$+".* WR"
  110 ?&70=H:OSCLI"SAVE "+A$+".FLAG 0070 0071"
  120 OSCLI"CDIR "+A$+"TEMP"
  130 FOR HOLE=1 TO 18:PRINT TAB(19,24) HOLE;:OSCLI"RENAME "+A$+"."+CHR$((HOLE+H-OLDH+35) MOD18+65)+" "+A$+"TEMP."+CHR$(HOLE+64):NEXT
  140 OSCLI"RENAME "+A$+".FLAG"+" "+A$+"TEMP"+".FLAG":IFA$="C" THEN *RENAME C.CD CTEMP.CD
  150 OSCLI"ACCESS "+A$+" R":OSCLI"ACCESS "+A$+"TEMP R":OSCLI"DELETE "+A$:OSCLI"RENAME "+A$+"TEMP "+A$:OSCLI"ACCESS "+A$+" DL":OSCLI"ACCESS "+A$+".* LR"
  160 IF A$="C" OR A$="P" THEN CHAIN"HOLEDOUT" ELSE *KEY1"LOAD""HOLEDOUT""|M190|MRUN|MLOAD""HOLEDOUT2""|M30860EQUS""RUN DRIVER2B"":EQUB13|MRUN|F|M"
  170 VDU21
  180 *FX 138,0,129
  190 END


 �6
  � �11,8)"H O L E D   O U T"
l � �0,15)"Select course : C = Cone Links"'�16)"P = Pine Isles"'�16)"D = Dune Royal"'�16)"O = Owlet Wood"
($ A$=�:� �"CcPpDdOo",A$)=0 � �T^@
2  � �(A$)>96 � A$=�(�(A$)-32)
<% � �0,21)"Starting Hole (1-18)",H
F � H>18 � H<1 � �T|@
P5 �"LOAD "+A$+".FLAG 70":OLDH=?&70:� OLDH=H � �t`@
Z  � �12,23)"Sorting Holes..."
d �"ACCESS "+A$+".* WR"
n) ?&70=H:�"SAVE "+A$+".FLAG 0070 0071"
x �"CDIR "+A$+"TEMP"
�k � HOLE=1 � 18:� �19,24) HOLE;:�"RENAME "+A$+"."+�((HOLE+H-OLDH+35) �18+65)+" "+A$+"TEMP."+�(HOLE+64):�
�P �"RENAME "+A$+".FLAG"+" "+A$+"TEMP"+".FLAG":�A$="C" � *RENAME C.CD CTEMP.CD
� �"ACCESS "+A$+" R":�"ACCESS "+A$+"TEMP R":�"DELETE "+A$:�"RENAME "+A$+"TEMP "+A$:�"ACCESS "+A$+" DL":�"ACCESS "+A$+".* LR"
�� � A$="C" � A$="P" � �"HOLEDOUT" � *KEY1"LOAD""HOLEDOUT""|M190|MRUN|MLOAD""HOLEDOUT2""|M30860EQUS""RUN DRIVER2B"":EQUB13|MRUN|F|M"
� �21
� *FX 138,0,129
� �
�

00000000  0d 00 0a 07 20 eb 36 0d  00 14 20 20 f1 20 8a 31  |.... .6...  . .1|
00000010  31 2c 38 29 22 48 20 4f  20 4c 20 45 20 44 20 20  |1,8)"H O L E D  |
00000020  20 4f 20 55 20 54 22 0d  00 1e 6c 20 f1 20 8a 30  | O U T"...l . .0|
00000030  2c 31 35 29 22 53 65 6c  65 63 74 20 63 6f 75 72  |,15)"Select cour|
00000040  73 65 20 3a 20 43 20 3d  20 43 6f 6e 65 20 4c 69  |se : C = Cone Li|
00000050  6e 6b 73 22 27 8a 31 36  29 22 50 20 3d 20 50 69  |nks"'.16)"P = Pi|
00000060  6e 65 20 49 73 6c 65 73  22 27 8a 31 36 29 22 44  |ne Isles"'.16)"D|
00000070  20 3d 20 44 75 6e 65 20  52 6f 79 61 6c 22 27 8a  | = Dune Royal"'.|
00000080  31 36 29 22 4f 20 3d 20  4f 77 6c 65 74 20 57 6f  |16)"O = Owlet Wo|
00000090  6f 64 22 0d 00 28 24 20  41 24 3d be 3a e7 20 a7  |od"..($ A$=.:. .|
000000a0  22 43 63 50 70 44 64 4f  6f 22 2c 41 24 29 3d 30  |"CcPpDdOo",A$)=0|
000000b0  20 8c 20 8d 54 5e 40 0d  00 32 20 20 e7 20 97 28  | . .T^@..2  . .(|
000000c0  41 24 29 3e 39 36 20 8c  20 41 24 3d bd 28 97 28  |A$)>96 . A$=.(.(|
000000d0  41 24 29 2d 33 32 29 0d  00 3c 25 20 e8 20 8a 30  |A$)-32)..<% . .0|
000000e0  2c 32 31 29 22 53 74 61  72 74 69 6e 67 20 48 6f  |,21)"Starting Ho|
000000f0  6c 65 20 28 31 2d 31 38  29 22 2c 48 0d 00 46 18  |le (1-18)",H..F.|
00000100  20 e7 20 48 3e 31 38 20  84 20 48 3c 31 20 8c 20  | . H>18 . H<1 . |
00000110  8d 54 7c 40 0d 00 50 35  20 ff 22 4c 4f 41 44 20  |.T|@..P5 ."LOAD |
00000120  22 2b 41 24 2b 22 2e 46  4c 41 47 20 37 30 22 3a  |"+A$+".FLAG 70":|
00000130  4f 4c 44 48 3d 3f 26 37  30 3a e7 20 4f 4c 44 48  |OLDH=?&70:. OLDH|
00000140  3d 48 20 8c 20 8d 74 60  40 0d 00 5a 20 20 f1 20  |=H . .t`@..Z  . |
00000150  8a 31 32 2c 32 33 29 22  53 6f 72 74 69 6e 67 20  |.12,23)"Sorting |
00000160  48 6f 6c 65 73 2e 2e 2e  22 0d 00 64 1a 20 ff 22  |Holes..."..d. ."|
00000170  41 43 43 45 53 53 20 22  2b 41 24 2b 22 2e 2a 20  |ACCESS "+A$+".* |
00000180  57 52 22 0d 00 6e 29 20  3f 26 37 30 3d 48 3a ff  |WR"..n) ?&70=H:.|
00000190  22 53 41 56 45 20 22 2b  41 24 2b 22 2e 46 4c 41  |"SAVE "+A$+".FLA|
000001a0  47 20 30 30 37 30 20 30  30 37 31 22 0d 00 78 17  |G 0070 0071"..x.|
000001b0  20 ff 22 43 44 49 52 20  22 2b 41 24 2b 22 54 45  | ."CDIR "+A$+"TE|
000001c0  4d 50 22 0d 00 82 6b 20  e3 20 48 4f 4c 45 3d 31  |MP"...k . HOLE=1|
000001d0  20 b8 20 31 38 3a f1 20  8a 31 39 2c 32 34 29 20  | . 18:. .19,24) |
000001e0  48 4f 4c 45 3b 3a ff 22  52 45 4e 41 4d 45 20 22  |HOLE;:."RENAME "|
000001f0  2b 41 24 2b 22 2e 22 2b  bd 28 28 48 4f 4c 45 2b  |+A$+"."+.((HOLE+|
00000200  48 2d 4f 4c 44 48 2b 33  35 29 20 83 31 38 2b 36  |H-OLDH+35) .18+6|
00000210  35 29 2b 22 20 22 2b 41  24 2b 22 54 45 4d 50 2e  |5)+" "+A$+"TEMP.|
00000220  22 2b bd 28 48 4f 4c 45  2b 36 34 29 3a ed 0d 00  |"+.(HOLE+64):...|
00000230  8c 50 20 ff 22 52 45 4e  41 4d 45 20 22 2b 41 24  |.P ."RENAME "+A$|
00000240  2b 22 2e 46 4c 41 47 22  2b 22 20 22 2b 41 24 2b  |+".FLAG"+" "+A$+|
00000250  22 54 45 4d 50 22 2b 22  2e 46 4c 41 47 22 3a e7  |"TEMP"+".FLAG":.|
00000260  41 24 3d 22 43 22 20 8c  20 2a 52 45 4e 41 4d 45  |A$="C" . *RENAME|
00000270  20 43 2e 43 44 20 43 54  45 4d 50 2e 43 44 0d 00  | C.CD CTEMP.CD..|
00000280  96 7f 20 ff 22 41 43 43  45 53 53 20 22 2b 41 24  |.. ."ACCESS "+A$|
00000290  2b 22 20 52 22 3a ff 22  41 43 43 45 53 53 20 22  |+" R":."ACCESS "|
000002a0  2b 41 24 2b 22 54 45 4d  50 20 52 22 3a ff 22 44  |+A$+"TEMP R":."D|
000002b0  45 4c 45 54 45 20 22 2b  41 24 3a ff 22 52 45 4e  |ELETE "+A$:."REN|
000002c0  41 4d 45 20 22 2b 41 24  2b 22 54 45 4d 50 20 22  |AME "+A$+"TEMP "|
000002d0  2b 41 24 3a ff 22 41 43  43 45 53 53 20 22 2b 41  |+A$:."ACCESS "+A|
000002e0  24 2b 22 20 44 4c 22 3a  ff 22 41 43 43 45 53 53  |$+" DL":."ACCESS|
000002f0  20 22 2b 41 24 2b 22 2e  2a 20 4c 52 22 0d 00 a0  | "+A$+".* LR"...|
00000300  86 20 e7 20 41 24 3d 22  43 22 20 84 20 41 24 3d  |. . A$="C" . A$=|
00000310  22 50 22 20 8c 20 d7 22  48 4f 4c 45 44 4f 55 54  |"P" . ."HOLEDOUT|
00000320  22 20 8b 20 2a 4b 45 59  31 22 4c 4f 41 44 22 22  |" . *KEY1"LOAD""|
00000330  48 4f 4c 45 44 4f 55 54  22 22 7c 4d 31 39 30 7c  |HOLEDOUT""|M190||
00000340  4d 52 55 4e 7c 4d 4c 4f  41 44 22 22 48 4f 4c 45  |MRUN|MLOAD""HOLE|
00000350  44 4f 55 54 32 22 22 7c  4d 33 30 38 36 30 45 51  |DOUT2""|M30860EQ|
00000360  55 53 22 22 52 55 4e 20  44 52 49 56 45 52 32 42  |US""RUN DRIVER2B|
00000370  22 22 3a 45 51 55 42 31  33 7c 4d 52 55 4e 7c 46  |"":EQUB13|MRUN|F|
00000380  7c 4d 22 0d 00 aa 08 20  ef 32 31 0d 00 b4 12 20  ||M".... .21.... |
00000390  2a 46 58 20 31 33 38 2c  30 2c 31 32 39 0d 00 be  |*FX 138,0,129...|
000003a0  06 20 e0 0d ff                                    |. ...|
000003a5

HoledOut/Loader.m0

HoledOut/Loader.m1

HoledOut/Loader.m2

HoledOut/Loader.m4

HoledOut/Loader.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .