HoledOut/LoadOLD

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

HoledOut/LoadOLD

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/LoadOLD
Read OK:	✔
File size:	03A2 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 FLAG=OPENIN(A$+".FLAG"):INPUT#FLAG,OLDH:CLOSE#0:IF OLDH=H THEN 160
   90 PRINT TAB(12,23)"Sorting Holes..."
  100 OSCLI"ACCESS "+A$+".* WR"
  110 FLAG=OPENOUT(A$+".FLAG"):PRINT#FLAG,H:CLOSE#0
  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|@
P7 FLAG=�(A$+".FLAG"):�#FLAG,OLDH:�#0:� OLDH=H � �t`@
Z  � �12,23)"Sorting Holes..."
d �"ACCESS "+A$+".* WR"
n$ FLAG=�(A$+".FLAG"):�#FLAG,H:�#0
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 37  20 46 4c 41 47 3d 8e 28  |.T|@..P7 FLAG=.(|
00000120  41 24 2b 22 2e 46 4c 41  47 22 29 3a e8 23 46 4c  |A$+".FLAG"):.#FL|
00000130  41 47 2c 4f 4c 44 48 3a  d9 23 30 3a e7 20 4f 4c  |AG,OLDH:.#0:. OL|
00000140  44 48 3d 48 20 8c 20 8d  74 60 40 0d 00 5a 20 20  |DH=H . .t`@..Z  |
00000150  f1 20 8a 31 32 2c 32 33  29 22 53 6f 72 74 69 6e  |. .12,23)"Sortin|
00000160  67 20 48 6f 6c 65 73 2e  2e 2e 22 0d 00 64 1a 20  |g Holes..."..d. |
00000170  ff 22 41 43 43 45 53 53  20 22 2b 41 24 2b 22 2e  |."ACCESS "+A$+".|
00000180  2a 20 57 52 22 0d 00 6e  24 20 46 4c 41 47 3d ae  |* WR"..n$ FLAG=.|
00000190  28 41 24 2b 22 2e 46 4c  41 47 22 29 3a f1 23 46  |(A$+".FLAG"):.#F|
000001a0  4c 41 47 2c 48 3a d9 23  30 0d 00 78 17 20 ff 22  |LAG,H:.#0..x. ."|
000001b0  43 44 49 52 20 22 2b 41  24 2b 22 54 45 4d 50 22  |CDIR "+A$+"TEMP"|
000001c0  0d 00 82 6b 20 e3 20 48  4f 4c 45 3d 31 20 b8 20  |...k . HOLE=1 . |
000001d0  31 38 3a f1 20 8a 31 39  2c 32 34 29 20 48 4f 4c  |18:. .19,24) HOL|
000001e0  45 3b 3a ff 22 52 45 4e  41 4d 45 20 22 2b 41 24  |E;:."RENAME "+A$|
000001f0  2b 22 2e 22 2b bd 28 28  48 4f 4c 45 2b 48 2d 4f  |+"."+.((HOLE+H-O|
00000200  4c 44 48 2b 33 35 29 20  83 31 38 2b 36 35 29 2b  |LDH+35) .18+65)+|
00000210  22 20 22 2b 41 24 2b 22  54 45 4d 50 2e 22 2b bd  |" "+A$+"TEMP."+.|
00000220  28 48 4f 4c 45 2b 36 34  29 3a ed 0d 00 8c 50 20  |(HOLE+64):....P |
00000230  ff 22 52 45 4e 41 4d 45  20 22 2b 41 24 2b 22 2e  |."RENAME "+A$+".|
00000240  46 4c 41 47 22 2b 22 20  22 2b 41 24 2b 22 54 45  |FLAG"+" "+A$+"TE|
00000250  4d 50 22 2b 22 2e 46 4c  41 47 22 3a e7 41 24 3d  |MP"+".FLAG":.A$=|
00000260  22 43 22 20 8c 20 2a 52  45 4e 41 4d 45 20 43 2e  |"C" . *RENAME C.|
00000270  43 44 20 43 54 45 4d 50  2e 43 44 0d 00 96 7f 20  |CD CTEMP.CD.... |
00000280  ff 22 41 43 43 45 53 53  20 22 2b 41 24 2b 22 20  |."ACCESS "+A$+" |
00000290  52 22 3a ff 22 41 43 43  45 53 53 20 22 2b 41 24  |R":."ACCESS "+A$|
000002a0  2b 22 54 45 4d 50 20 52  22 3a ff 22 44 45 4c 45  |+"TEMP R":."DELE|
000002b0  54 45 20 22 2b 41 24 3a  ff 22 52 45 4e 41 4d 45  |TE "+A$:."RENAME|
000002c0  20 22 2b 41 24 2b 22 54  45 4d 50 20 22 2b 41 24  | "+A$+"TEMP "+A$|
000002d0  3a ff 22 41 43 43 45 53  53 20 22 2b 41 24 2b 22  |:."ACCESS "+A$+"|
000002e0  20 44 4c 22 3a ff 22 41  43 43 45 53 53 20 22 2b  | DL":."ACCESS "+|
000002f0  41 24 2b 22 2e 2a 20 4c  52 22 0d 00 a0 86 20 e7  |A$+".* LR".... .|
00000300  20 41 24 3d 22 43 22 20  84 20 41 24 3d 22 50 22  | A$="C" . A$="P"|
00000310  20 8c 20 d7 22 48 4f 4c  45 44 4f 55 54 22 20 8b  | . ."HOLEDOUT" .|
00000320  20 2a 4b 45 59 31 22 4c  4f 41 44 22 22 48 4f 4c  | *KEY1"LOAD""HOL|
00000330  45 44 4f 55 54 22 22 7c  4d 31 39 30 7c 4d 52 55  |EDOUT""|M190|MRU|
00000340  4e 7c 4d 4c 4f 41 44 22  22 48 4f 4c 45 44 4f 55  |N|MLOAD""HOLEDOU|
00000350  54 32 22 22 7c 4d 33 30  38 36 30 45 51 55 53 22  |T2""|M30860EQUS"|
00000360  22 52 55 4e 20 44 52 49  56 45 52 32 42 22 22 3a  |"RUN DRIVER2B"":|
00000370  45 51 55 42 31 33 7c 4d  52 55 4e 7c 46 7c 4d 22  |EQUB13|MRUN|F|M"|
00000380  0d 00 aa 08 20 ef 32 31  0d 00 b4 12 20 2a 46 58  |.... .21.... *FX|
00000390  20 31 33 38 2c 30 2c 31  32 39 0d 00 be 06 20 e0  | 138,0,129.... .|
000003a0  0d ff                                             |..|
000003a2

HoledOut/LoadOLD.m0

HoledOut/LoadOLD.m1

HoledOut/LoadOLD.m2

HoledOut/LoadOLD.m4

HoledOut/LoadOLD.m5

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