GOTO/GOSUB-LABEL

FILE INFORMATION

FILENAME(S): GOTO/GOSUB-LABEL

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 21:11:17

APPEARS ON: 1 disk(s)

FILE HASH

82ada0c59e95c08a6eb1a8bc47ed0e2470bcb2719e15662af96c5c4b7de8f8d4

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIES 128 2	GOTO/GOSUB-LABEL	PRG	DuncanTwain	16	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 18 1C 05 00 8F 20  47 4F 54 4F 2F 47 4F 53  |....... GOTO/GOS|
00000010: 55 42 20 4C 41 42 45 4C  00 2C 1C 64 00 81 49 B2  |UB LABEL.,.d..I.|
00000020: 20 34 38 36 34 20 A4 20  35 30 34 36 00 3F 1C 65  | 4864 . 5046.?.e|
00000030: 00 87 20 41 24 3A 97 20  49 2C D1 28 41 24 29 00  |.. A$:. I,.(A$).|
00000040: 47 1C 66 00 82 20 49 00  79 1C 68 00 83 41 44 2C  |G.f.. I.y.h..AD,|
00000050: 30 30 2C 46 46 2C 34 38  2C 41 39 2C 30 30 2C 38  |00,FF,48,A9,00,8|
00000060: 44 2C 30 30 2C 46 46 2C  41 44 2C 30 36 2C 44 35  |D,00,FF,AD,06,D5|
00000070: 2C 30 39 2C 30 36 2C 38  44 00 AB 1C 69 00 83 30  |,09,06,8D...i..0|
00000080: 36 2C 44 35 2C 36 38 2C  38 44 2C 30 30 2C 46 46  |6,D5,68,8D,00,FF|
00000090: 2C 37 38 2C 41 39 2C 32  32 2C 38 44 2C 30 38 2C  |,78,A9,22,8D,08,|
000000A0: 30 33 2C 41 39 2C 31 33  2C 38 44 00 DD 1C 6A 00  |03,A9,13,8D...j.|
000000B0: 83 30 39 2C 30 33 2C 35  38 2C 36 30 2C 32 30 2C  |.09,03,58,60,20,|
000000C0: 38 30 2C 30 33 2C 43 39  2C 38 39 2C 46 30 2C 30  |80,03,C9,89,F0,0|
000000D0: 41 2C 43 39 2C 38 44 2C  46 30 2C 32 34 00 0F 1D  |A,C9,8D,F0,24...|
000000E0: 6B 00 83 34 43 2C 46 33  2C 34 41 2C 45 41 2C 45  |k..4C,F3,4A,EA,E|
000000F0: 41 2C 45 41 2C 32 30 2C  46 37 2C 37 37 2C 41 35  |A,EA,20,F7,77,A5|
00000100: 2C 30 46 2C 33 30 2C 32  33 2C 32 30 2C 31 35 00  |,0F,30,23,20,15.|
00000110: 41 1D 6C 00 83 38 38 2C  41 35 2C 31 37 2C 43 39  |A.l..88,A5,17,C9|
00000120: 2C 46 41 2C 42 30 2C 30  36 2C 32 30 2C 45 32 2C  |,FA,B0,06,20,E2,|
00000130: 35 39 2C 34 43 2C 46 36  2C 34 41 2C 41 32 2C 30  |59,4C,F6,4A,A2,0|
00000140: 42 00 73 1D 6D 00 83 32  43 2C 41 32 2C 31 31 2C  |B.s.m..2C,A2,11,|
00000150: 34 43 2C 33 43 2C 34 44  2C 32 30 2C 31 44 2C 35  |4C,3C,4D,20,1D,5|
00000160: 41 2C 32 30 2C 38 36 2C  30 33 2C 32 30 2C 33 33  |A,20,86,03,20,33|
00000170: 2C 31 33 00 A5 1D 6E 00  83 34 43 2C 46 36 2C 34  |,13...n..4C,F6,4|
00000180: 41 2C 32 30 2C 37 45 2C  38 37 2C 46 30 2C 45 41  |A,20,7E,87,F0,EA|
00000190: 2C 31 38 2C 36 39 2C 30  35 2C 39 30 2C 30 33 2C  |,18,69,05,90,03,|
000001A0: 34 43 2C 45 44 00 D7 1D  6F 00 83 41 35 2C 38 35  |4C,ED...o..A5,85|
000001B0: 2C 39 33 2C 38 41 2C 45  39 2C 30 34 2C 38 35 2C  |,93,8A,E9,04,85,|
000001C0: 35 43 2C 39 38 2C 45 39  2C 30 30 2C 38 35 2C 35  |5C,98,E9,00,85,5|
000001D0: 44 2C 41 35 2C 32 44 00  09 1E 70 00 83 41 36 2C  |D,A5,2D...p..A6,|
000001E0: 32 45 2C 38 35 2C 36 31  2C 38 36 2C 36 32 2C 41  |2E,85,61,86,62,A|
000001F0: 30 2C 30 31 2C 32 30 2C  45 43 2C 34 32 2C 46 30  |0,01,20,EC,42,F0|
00000200: 2C 43 37 2C 41 41 2C 41  30 00 3B 1E 71 00 83 30  |,C7,AA,A0.;.q..0|
00000210: 34 2C 32 30 2C 45 43 2C  34 32 2C 43 39 2C 38 46  |4,20,EC,42,C9,8F|
00000220: 2C 46 30 2C 31 34 2C 41  30 2C 30 30 2C 32 30 2C  |,F0,14,A0,00,20,|
00000230: 45 43 2C 34 32 2C 34 43  2C 37 41 00 6D 1E 72 00  |EC,42,4C,7A.m.r.|
00000240: 83 31 33 2C 32 30 2C 45  32 2C 34 32 2C 38 35 2C  |.13,20,E2,42,85,|
00000250: 41 36 2C 32 30 2C 45 43  2C 34 32 2C 43 35 2C 41  |A6,20,EC,42,C5,A|
00000260: 36 2C 44 30 2C 45 43 2C  43 38 2C 43 34 00 9F 1E  |6,D0,EC,C8,C4...|
00000270: 73 00 83 39 33 2C 44 30  2C 45 46 2C 31 38 2C 41  |s..93,D0,EF,18,A|
00000280: 30 2C 30 31 2C 32 30 2C  39 34 2C 35 30 2C 38 36  |0,01,20,94,50,86|
00000290: 2C 36 32 2C 33 38 2C 32  30 2C 30 36 2C 35 41 00  |,62,38,20,06,5A.|
000002A0: AD 1E 74 00 83 34 43 2C  46 36 2C 34 41 00 B7 1E  |..t..4C,F6,4A...|
000002B0: 75 00 9E 34 38 36 34 00  E4 1E 76 00 99 22 93 20  |u..4864...v..". |
000002C0: 2A 2A 20 43 2E 31 32 38  20 20 20 27 47 4F 54 4F  |** C.128   'GOTO|
000002D0: 2F 47 4F 53 55 42 20 53  54 52 49 4E 47 27 20 20  |/GOSUB STRING'  |
000002E0: 20 2A 2A 22 00 0A 1F 77  00 99 22 11 11 56 4F 4F  | **"...w.."..VOO|
000002F0: 52 42 45 45 4C 44 20 56  41 4E 20 44 49 54 20 50  |RBEELD VAN DIT P|
00000300: 52 4F 47 52 41 4D 4D 41  3A 22 00 23 1F 78 00 99  |ROGRAMMA:".#.x..|
00000310: 22 11 11 31 30 30 20 51  3D 52 4E 44 28 31 29 2A  |"..100 Q=RND(1)*|
00000320: 33 2B 31 00 4F 1F 79 00  99 22 31 31 30 20 4F 4E  |3+1.O.y.."110 ON|
00000330: 20 51 20 47 4F 53 55 42  20 48 41 4E 53 2C 43 4F  | Q GOSUB HANS,CO|
00000340: 55 52 42 4F 49 53 2C 53  4F 46 54 57 41 52 45 00  |URBOIS,SOFTWARE.|
00000350: 62 1F 7A 00 99 22 31 32  30 20 47 4F 54 4F 20 31  |b.z.."120 GOTO 1|
00000360: 30 30 00 6E 1F 7B 00 99  22 31 33 30 20 3A 00 81  |00.n.{.."130 :..|
00000370: 1F 7C 00 99 22 31 34 30  20 52 45 4D 20 48 41 4E  |.|.."140 REM HAN|
00000380: 53 00 9E 1F 7D 00 99 22  31 35 30 20 50 52 49 4E  |S...}.."150 PRIN|
00000390: 54 27 48 41 4E 53 27 3A  52 45 54 55 52 4E 00 B5  |T'HANS':RETURN..|
000003A0: 1F 7E 00 99 22 31 34 30  20 52 45 4D 20 43 4F 55  |.~.."140 REM COU|
000003B0: 52 42 4F 49 53 00 D6 1F  7F 00 99 22 31 37 30 20  |RBOIS......"170 |
000003C0: 50 52 49 4E 54 27 43 4F  55 52 42 4F 49 53 27 3A  |PRINT'COURBOIS':|
000003D0: 52 45 54 55 52 4E 00 ED  1F 80 00 99 22 31 34 30  |RETURN......"140|
000003E0: 20 52 45 4D 20 53 4F 46  54 57 41 52 45 00 0E 20  | REM SOFTWARE.. |
000003F0: 81 00 99 22 31 39 30 20  50 52 49 4E 54 27 53 4F  |..."190 PRINT'SO|
00000400: 46 54 57 41 52 45 27 3A  52 45 54 55 52 4E 00 36  |FTWARE':RETURN.6|
00000410: 20 82 00 99 22 11 11 44  45 46 49 4E 49 54 49 45  | ..."..DEFINITIE|
00000420: 20 56 41 4E 20 4C 41 42  45 4C 20 41 4C 53 20 56  | VAN LABEL ALS V|
00000430: 4F 4C 47 54 3A 22 00 64  20 83 00 99 22 11 52 45  |OLGT:".d ...".RE|
00000440: 47 45 4C 20 4E 55 4D 4D  45 52 20 27 52 45 4D 27  |GEL NUMMER 'REM'|
00000450: 20 4E 41 41 4D 20 56 41  4E 20 48 45 54 20 4C 41  | NAAM VAN HET LA|
00000460: 42 45 4C 22 00 86 20 8C  00 99 22 11 27 52 55 4E  |BEL".. ...".'RUN|
00000470: 27 20 2D 20 44 52 55 4B  20 45 45 4E 20 54 4F 45  |' - DRUK EEN TOE|
00000480: 54 53 20 49 4E 22 00 A4  20 8D 00 99 22 27 5E 27  |TS IN".. ..."'^'|
00000490: 20 20 20 2D 20 4C 49 53  54 20 50 52 4F 47 52 41  |   - LIST PROGRA|
000004A0: 4D 4D 41 22 00 B7 20 A0  00 A1 41 24 3A 8B 41 24  |MMA".. ...A$:.A$|
000004B0: B2 22 22 A7 31 36 30 00  C9 20 BE 00 51 B2 B5 28  |."".160.. ..Q..(|
000004C0: BB 28 31 29 AC 33 AA 31  29 00 DD 20 C8 00 8B 20  |.(1).3.1).. ... |
000004D0: 51 B2 31 20 A7 3A 8D 22  48 41 4E 53 22 00 F5 20  |Q.1 .:."HANS".. |
000004E0: C9 00 8B 20 51 B2 32 20  A7 3A 8D 22 43 4F 55 52  |... Q.2 .:."COUR|
000004F0: 42 4F 49 53 22 00 0D 21  CA 00 8B 20 51 B2 33 20  |BOIS"..!... Q.3 |
00000500: A7 3A 8D 22 53 4F 46 54  57 41 52 45 22 00 24 21  |.:."SOFTWARE".$!|
00000510: CD 00 A1 20 42 24 3A 8B  20 42 24 B2 22 5E 22 A7  |... B$:. B$."^".|
00000520: 20 33 30 30 00 2E 21 D2  00 89 20 31 39 30 00 34  | 300..!... 190.4|
00000530: 21 DC 00 3A 00 3E 21 E6  00 8F 48 41 4E 53 00 4A  |!..:.>!...HANS.J|
00000540: 21 F0 00 99 22 48 41 4E  53 22 00 50 21 F1 00 8E  |!..."HANS".P!...|
00000550: 00 5E 21 FA 00 8F 43 4F  55 52 42 4F 49 53 00 6E  |.^!...COURBOIS.n|
00000560: 21 04 01 99 22 43 4F 55  52 42 4F 49 53 22 00 74  |!..."COURBOIS".t|
00000570: 21 05 01 8E 00 82 21 0E  01 8F 53 4F 46 54 57 41  |!.....!...SOFTWA|
00000580: 52 45 00 92 21 18 01 99  22 53 4F 46 54 57 41 52  |RE..!..."SOFTWAR|
00000590: 45 22 00 98 21 19 01 8E  00 AA 21 2C 01 99 22 93  |E"..!.....!,..".|
000005A0: 22 3A 9B 31 39 30 AB 32  38 31 00 00 00           |":.190.281...   |

....... GOTO/GOSUB LABEL.,.D..I. 4864 . 
5046.?.E.. A$:. I,Q(A$).G.F.. I.Y.H..AD,
00,FF,48,A9,00,8D,00,FF,AD,06,D5,09,06,8
D...I..06,D5,68,8D,00,FF,78,A9,22,8D,08,
03,A9,13,8D...J..09,03,58,60,20,80,03,C9
,89,F0,0A,C9,8D,F0,24...K..4C,F3,4A,EA,E
A,EA,20,F7,77,A5,0F,30,23,20,15.A.L..88,
A5,17,C9,FA,B0,06,20,E2,59,4C,F6,4A,A2,0
B.S.M..2C,A2,11,4C,3C,4D,20,1D,5A,20,86,
03,20,33,13...N..4C,F6,4A,20,7E,87,F0,EA
,18,69,05,90,03,4C,ED.W.O..A5,85,93,8A,E
9,04,85,5C,98,E9,00,85,5D,A5,2D...P..A6,
2E,85,61,86,62,A0,01,20,EC,42,F0,C7,AA,A
0.;.Q..04,20,EC,42,C9,8F,F0,14,A0,00,20,
EC,42,4C,7A.M.R..13,20,E2,42,85,A6,20,EC
,42,C5,A6,D0,EC,C8,C4...S..93,D0,EF,18,A
0,01,20,94,50,86,62,38,20,06,5A...T..4C,
F6,4A...U..4864...V..". ** C.128   'GOTO
/GOSUB STRING'   **"...W.."..VOORBEELD V
AN DIT PROGRAMMA:".#.X.."..100 Q=RND(1)*
3+1.O.Y.."110 ON Q GOSUB HANS,COURBOIS,S
OFTWARE.B.Z.."120 GOTO 100.N.{.."130 :..
.|.."140 REM HANS...}.."150 PRINT'HANS':
RETURN...~.."140 REM COURBOIS.V..."170 
PRINT'COURBOIS':RETURN......"140 REM SOF
TWARE.. ..."190 PRINT'SOFTWARE':RETURN.6
 ..."..DEFINITIE VAN LABEL ALS VOLGT:".D
 ...".REGEL NUMMER 'REM' NAAM VAN HET LA
BEL".. ...".'RUN' - DRUK EEN TOETS IN"..
 ..."'^'   - LIST PROGRAMMA"..  ..A$:.A$
."".160.I ..Q..(.(1).3.1).. H.. Q.1 .:."
HANS".. I.. Q.2 .:."COURBOIS"..!J.. Q.3 
.:."SOFTWARE".$!M.. B$:. B$."^". 300..!R
.. 190.4!..:.>!...HANS.J!..."HANS".P!...
.^!...COURBOIS.N!..."COURBOIS".T!.....!.
..SOFTWARE..!..."SOFTWARE"..!.....!,..".
":.190.281...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL