GOSUB LABEL

FILE INFORMATION

FILENAME(S): GOSUB LABEL

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:12:08

APPEARS ON: 1 disk(s)

FILE HASH

2f2b2d1943dd73e3d0021c7690fbde7eb7af39f50d94a2a4b7059092f778a3c2

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MASTER 128D04	GOSUB LABEL	PRG	DuncanTwain	15	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 16 1C 0A 00 97 20  34 36 2C 33 32 3A 97 34  |....... 46,32:.4|
00000010: 38 2C 33 32 3A 8A 00 00  00 00 87 20 41 24 3A 97  |8,32:...... A$:.|
00000020: 20 49 2C D1 28 41 24 29  00 30 1C 66 00 82 20 49  | I,.(A$).0.f.. I|
00000030: 00 62 1C 68 00 83 41 44  2C 30 30 2C 46 46 2C 34  |.b.h..AD,00,FF,4|
00000040: 38 2C 41 39 2C 30 30 2C  38 44 2C 30 30 2C 46 46  |8,A9,00,8D,00,FF|
00000050: 2C 41 44 2C 30 36 2C 44  35 2C 30 39 2C 30 36 2C  |,AD,06,D5,09,06,|
00000060: 38 44 00 94 1C 69 00 83  30 36 2C 44 35 2C 36 38  |8D...i..06,D5,68|
00000070: 2C 38 44 2C 30 30 2C 46  46 2C 37 38 2C 41 39 2C  |,8D,00,FF,78,A9,|
00000080: 32 32 2C 38 44 2C 30 38  2C 30 33 2C 41 39 2C 31  |22,8D,08,03,A9,1|
00000090: 33 2C 38 44 00 C6 1C 6A  00 83 30 39 2C 30 33 2C  |3,8D...j..09,03,|
000000A0: 35 38 2C 36 30 2C 32 30  2C 38 30 2C 30 33 2C 43  |58,60,20,80,03,C|
000000B0: 39 2C 38 39 2C 46 30 2C  30 41 2C 43 39 2C 38 44  |9,89,F0,0A,C9,8D|
000000C0: 2C 46 30 2C 32 34 00 F8  1C 6B 00 83 34 43 2C 46  |,F0,24...k..4C,F|
000000D0: 33 2C 34 41 2C 45 41 2C  45 41 2C 45 41 2C 32 30  |3,4A,EA,EA,EA,20|
000000E0: 2C 46 37 2C 37 37 2C 41  35 2C 30 46 2C 33 30 2C  |,F7,77,A5,0F,30,|
000000F0: 32 33 2C 32 30 2C 31 35  00 2A 1D 6C 00 83 38 38  |23,20,15.*.l..88|
00000100: 2C 41 35 2C 31 37 2C 43  39 2C 46 41 2C 42 30 2C  |,A5,17,C9,FA,B0,|
00000110: 30 36 2C 32 30 2C 45 32  2C 35 39 2C 34 43 2C 46  |06,20,E2,59,4C,F|
00000120: 36 2C 34 41 2C 41 32 2C  30 42 00 5C 1D 6D 00 83  |6,4A,A2,0B.\.m..|
00000130: 32 43 2C 41 32 2C 31 31  2C 34 43 2C 33 43 2C 34  |2C,A2,11,4C,3C,4|
00000140: 44 2C 32 30 2C 31 44 2C  35 41 2C 32 30 2C 38 36  |D,20,1D,5A,20,86|
00000150: 2C 30 33 2C 32 30 2C 33  33 2C 31 33 00 8E 1D 6E  |,03,20,33,13...n|
00000160: 00 83 34 43 2C 46 36 2C  34 41 2C 32 30 2C 37 45  |..4C,F6,4A,20,7E|
00000170: 2C 38 37 2C 46 30 2C 45  41 2C 31 38 2C 36 39 2C  |,87,F0,EA,18,69,|
00000180: 30 35 2C 39 30 2C 30 33  2C 34 43 2C 45 44 00 C0  |05,90,03,4C,ED..|
00000190: 1D 6F 00 83 41 35 2C 38  35 2C 39 33 2C 38 41 2C  |.o..A5,85,93,8A,|
000001A0: 45 39 2C 30 34 2C 38 35  2C 35 43 2C 39 38 2C 45  |E9,04,85,5C,98,E|
000001B0: 39 2C 30 30 2C 38 35 2C  35 44 2C 41 35 2C 32 44  |9,00,85,5D,A5,2D|
000001C0: 00 F2 1D 70 00 83 41 36  2C 32 45 2C 38 35 2C 36  |...p..A6,2E,85,6|
000001D0: 31 2C 38 36 2C 36 32 2C  41 30 2C 30 31 2C 32 30  |1,86,62,A0,01,20|
000001E0: 2C 45 43 2C 34 32 2C 46  30 2C 43 37 2C 41 41 2C  |,EC,42,F0,C7,AA,|
000001F0: 41 30 00 24 1E 71 00 83  30 34 2C 32 30 2C 45 43  |A0.$.q..04,20,EC|
00000200: 2C 34 32 2C 43 39 2C 38  46 2C 46 30 2C 31 34 2C  |,42,C9,8F,F0,14,|
00000210: 41 30 2C 30 30 2C 32 30  2C 45 43 2C 34 32 2C 34  |A0,00,20,EC,42,4|
00000220: 43 2C 37 41 00 56 1E 72  00 83 31 33 2C 32 30 2C  |C,7A.V.r..13,20,|
00000230: 45 32 2C 34 32 2C 38 35  2C 41 36 2C 32 30 2C 45  |E2,42,85,A6,20,E|
00000240: 43 2C 34 32 2C 43 35 2C  41 36 2C 44 30 2C 45 43  |C,42,C5,A6,D0,EC|
00000250: 2C 43 38 2C 43 34 00 88  1E 73 00 83 39 33 2C 44  |,C8,C4...s..93,D|
00000260: 30 2C 45 46 2C 31 38 2C  41 30 2C 30 31 2C 32 30  |0,EF,18,A0,01,20|
00000270: 2C 39 34 2C 35 30 2C 38  36 2C 36 32 2C 33 38 2C  |,94,50,86,62,38,|
00000280: 32 30 2C 30 36 2C 35 41  00 96 1E 74 00 83 34 43  |20,06,5A...t..4C|
00000290: 2C 46 36 2C 34 41 00 A0  1E 75 00 9E 34 38 36 34  |,F6,4A...u..4864|
000002A0: 00 CE 1E 76 00 99 22 93  2A 2A 2A 20 43 4F 4D 4D  |...v..".*** COMM|
000002B0: 4F 44 4F 52 45 20 31 32  38 20 2A 2A 2A 20 47 4F  |ODORE 128 *** GO|
000002C0: 53 55 42 20 53 54 52 49  4E 47 20 2A 2A 2A 00 24  |SUB STRING ***.$|
000002D0: 1F 77 00 99 22 11 11 4D  45 54 20 44 49 54 20 50  |.w.."..MET DIT P|
000002E0: 52 4F 47 52 41 4D 4D 41  20 4B 55 4E 20 4A 45 20  |ROGRAMMA KUN JE |
000002F0: 45 45 4E 20 47 4F 54 4F  2F 47 4F 53 55 42 20 4E  |EEN GOTO/GOSUB N|
00000300: 41 41 52 20 45 45 4E 20  53 54 52 49 4E 47 20 47  |AAR EEN STRING G|
00000310: 45 56 45 4E 2C 20 42 49  4A 56 4F 4F 52 42 45 45  |EVEN, BIJVOORBEE|
00000320: 4C 44 20 3A 00 3D 1F 78  00 99 22 11 11 31 30 30  |LD :.=.x.."..100|
00000330: 20 51 3D 52 4E 44 28 31  29 2A 33 2B 31 00 69 1F  | Q=RND(1)*3+1.i.|
00000340: 79 00 99 22 31 31 30 20  4F 4E 20 51 20 47 4F 53  |y.."110 ON Q GOS|
00000350: 55 42 20 48 41 4E 53 2C  43 4F 55 52 42 4F 49 53  |UB HANS,COURBOIS|
00000360: 2C 53 4F 46 54 57 41 52  45 00 7C 1F 7A 00 99 22  |,SOFTWARE.|.z.."|
00000370: 31 32 30 20 47 4F 54 4F  20 31 30 30 00 88 1F 7B  |120 GOTO 100...{|
00000380: 00 99 22 31 33 30 20 3A  00 9B 1F 7C 00 99 22 31  |.."130 :...|.."1|
00000390: 34 30 20 52 45 4D 20 48  41 4E 53 00 B8 1F 7D 00  |40 REM HANS...}.|
000003A0: 99 22 31 35 30 20 50 52  49 4E 54 27 48 41 4E 53  |."150 PRINT'HANS|
000003B0: 27 3A 52 45 54 55 52 4E  00 CF 1F 7E 00 99 22 31  |':RETURN...~.."1|
000003C0: 34 30 20 52 45 4D 20 43  4F 55 52 42 4F 49 53 00  |40 REM COURBOIS.|
000003D0: F0 1F 7F 00 99 22 31 37  30 20 50 52 49 4E 54 27  |....."170 PRINT'|
000003E0: 43 4F 55 52 42 4F 49 53  27 3A 52 45 54 55 52 4E  |COURBOIS':RETURN|
000003F0: 00 07 20 80 00 99 22 31  34 30 20 52 45 4D 20 53  |.. ..."140 REM S|
00000400: 4F 00 15 20 64 00 81 49  B2 20 34 38 36 34 20 A4  |O.. d..I. 4864 .|
00000410: 20 35 30 34 36 00 28 20  65 00 87 20 41 24 3A 97  | 5046.( e.. A$:.|
00000420: 20 49 2C D1 28 41 24 29  00 30 20 66 00 82 20 49  | I,.(A$).0 f.. I|
00000430: 00 62 20 68 00 83 41 44  2C 30 30 2C 46 46 2C 34  |.b h..AD,00,FF,4|
00000440: 38 2C 41 39 2C 30 30 2C  38 44 2C 30 30 2C 46 46  |8,A9,00,8D,00,FF|
00000450: 2C 41 44 2C 30 36 2C 44  35 2C 30 39 2C 30 36 2C  |,AD,06,D5,09,06,|
00000460: 38 44 00 94 20 69 00 83  30 36 2C 44 35 2C 36 38  |8D.. i..06,D5,68|
00000470: 2C 38 44 2C 30 30 2C 46  46 2C 37 38 2C 41 39 2C  |,8D,00,FF,78,A9,|
00000480: 32 32 2C 38 44 2C 30 38  2C 30 33 2C 41 39 2C 31  |22,8D,08,03,A9,1|
00000490: 33 2C 38 44 00 C6 20 6A  00 83 30 39 2C 30 33 2C  |3,8D.. j..09,03,|
000004A0: 35 38 2C 36 30 2C 32 30  2C 38 30 2C 30 33 2C 43  |58,60,20,80,03,C|
000004B0: 39 2C 38 39 2C 46 30 2C  30 41 2C 43 39 2C 38 44  |9,89,F0,0A,C9,8D|
000004C0: 2C 46 30 2C 32 34 00 F8  20 6B 00 83 34 43 2C 46  |,F0,24.. k..4C,F|
000004D0: 33 2C 34 41 2C 45 41 2C  45 41 2C 45 41 2C 32 30  |3,4A,EA,EA,EA,20|
000004E0: 2C 46 37 2C 37 37 2C 41  35 2C 30 46 2C 33 30 2C  |,F7,77,A5,0F,30,|
000004F0: 32 33 2C 32 30 2C 31 35  00 2A 21 6C 00 83 38 38  |23,20,15.*!l..88|
00000500: 2C 41 35 2C 31 37 2C 43  39 2C 46 41 2C 42 30 2C  |,A5,17,C9,FA,B0,|
00000510: 30 36 2C 32 30 2C 45 32  2C 35 39 2C 34 43 2C 46  |06,20,E2,59,4C,F|
00000520: 36 2C 34 41 2C 41 32 2C  30 42 00 5C 21 6D 00 83  |6,4A,A2,0B.\!m..|
00000530: 32 43 2C 41 32 2C 31 31  2C 34 43 2C 33 43 2C 34  |2C,A2,11,4C,3C,4|
00000540: 44 2C 32 30 2C 31 44 2C  35 41 2C 32 30 2C 38 36  |D,20,1D,5A,20,86|
00000550: 2C 30 33 2C 32 30 2C 33  33 2C 31 33 00 8E 21 6E  |,03,20,33,13..!n|
00000560: 00 83 34 43 2C 46 36 2C  34 41 2C 32 30 2C 37 45  |..4C,F6,4A,20,7E|
00000570: 2C 38 37 2C 46 30 2C 45  41 2C 31 38 2C 36 39 2C  |,87,F0,EA,18,69,|
00000580: 30 35 2C 39 30 2C 30 33  2C 34 43 2C 45 44 00 C0  |05,90,03,4C,ED..|
00000590: 21 6F 00 83 41 35 2C 38  35 2C 39 33 2C 38 41 2C  |!o..A5,85,93,8A,|
000005A0: 45 39 2C 30 34 2C 38 35  2C 35 43 2C 39 38 2C 45  |E9,04,85,5C,98,E|
000005B0: 39 2C 30 30 2C 38 35 2C  35 44 2C 41 35 2C 32 44  |9,00,85,5D,A5,2D|
000005C0: 00 F2 21 70 00 83 41 36  2C 32 45 2C 38 35 2C 36  |..!p..A6,2E,85,6|
000005D0: 31 2C 38 36 2C 36 32 2C  41 30 2C 30 31 2C 32 30  |1,86,62,A0,01,20|
000005E0: 2C 45 43 2C 34 32 2C 46  30 2C 43 37 2C 41 41 2C  |,EC,42,F0,C7,AA,|
000005F0: 41 30 00 24 22 71 00 83  30 34 2C 32 30 2C 45 43  |A0.$"q..04,20,EC|
00000600: 2C 34 32 2C 43 39 2C 38  46 2C 46 30 2C 31 34 2C  |,42,C9,8F,F0,14,|
00000610: 41 30 2C 30 30 2C 32 30  2C 45 43 2C 34 32 2C 34  |A0,00,20,EC,42,4|
00000620: 43 2C 37 41 00 56 22 72  00 83 31 33 2C 32 30 2C  |C,7A.V"r..13,20,|
00000630: 45 32 2C 34 32 2C 38 35  2C 41 36 2C 32 30 2C 45  |E2,42,85,A6,20,E|
00000640: 43 2C 34 32 2C 43 35 2C  41 36 2C 44 30 2C 45 43  |C,42,C5,A6,D0,EC|
00000650: 2C 43 38 2C 43 34 00 88  22 73 00 83 39 33 2C 44  |,C8,C4.."s..93,D|
00000660: 30 2C 45 46 2C 31 38 2C  41 30 2C 30 31 2C 32 30  |0,EF,18,A0,01,20|
00000670: 2C 39 34 2C 35 30 2C 38  36 2C 36 32 2C 33 38 2C  |,94,50,86,62,38,|
00000680: 32 30 2C 30 36 2C 35 41  00 96 22 74 00 83 34 43  |20,06,5A.."t..4C|
00000690: 2C 46 36 2C 34 41 00 A0  22 75 00 9E 34 38 36 34  |,F6,4A.."u..4864|
000006A0: 00 CE 22 76 00 99 22 93  2A 2A 2A 20 43 4F 4D 4D  |.."v..".*** COMM|
000006B0: 4F 44 4F 52 45 20 31 32  38 20 2A 2A 2A 20 47 4F  |ODORE 128 *** GO|
000006C0: 53 55 42 20 53 54 52 49  4E 47 20 2A 2A 2A 00 24  |SUB STRING ***.$|
000006D0: 23 77 00 99 22 11 11 4D  45 54 20 44 49 54 20 50  |#w.."..MET DIT P|
000006E0: 52 4F 47 52 41 4D 4D 41  20 4B 55 4E 20 4A 45 20  |ROGRAMMA KUN JE |
000006F0: 45 45 4E 20 47 4F 54 4F  2F 47 4F 53 55 42 20 4E  |EEN GOTO/GOSUB N|
00000700: 41 41 52 20 45 45 4E 20  53 54 52 49 4E 47 20 47  |AAR EEN STRING G|
00000710: 45 56 45 4E 2C 20 42 49  4A 56 4F 4F 52 42 45 45  |EVEN, BIJVOORBEE|
00000720: 4C 44 20 3A 00 3D 23 78  00 99 22 11 11 31 30 30  |LD :.=#x.."..100|
00000730: 20 51 3D 52 4E 44 28 31  29 2A 33 2B 31 00 69 23  | Q=RND(1)*3+1.i#|
00000740: 79 00 99 22 31 31 30 20  4F 4E 20 51 20 47 4F 53  |y.."110 ON Q GOS|
00000750: 55 42 20 48 41 4E 53 2C  43 4F 55 52 42 4F 49 53  |UB HANS,COURBOIS|
00000760: 2C 53 4F 46 54 57 41 52  45 00 7C 23 7A 00 99 22  |,SOFTWARE.|#z.."|
00000770: 31 32 30 20 47 4F 54 4F  20 31 30 30 00 88 23 7B  |120 GOTO 100..#{|
00000780: 00 99 22 31 33 30 20 3A  00 9B 23 7C 00 99 22 31  |.."130 :..#|.."1|
00000790: 34 30 20 52 45 4D 20 48  41 4E 53 00 B8 23 7D 00  |40 REM HANS..#}.|
000007A0: 99 22 31 35 30 20 50 52  49 4E 54 27 48 41 4E 53  |."150 PRINT'HANS|
000007B0: 27 3A 52 45 54 55 52 4E  00 CF 23 7E 00 99 22 31  |':RETURN..#~.."1|
000007C0: 34 30 20 52 45 4D 20 43  4F 55 52 42 4F 49 53 00  |40 REM COURBOIS.|
000007D0: F0 23 7F 00 99 22 31 37  30 20 50 52 49 4E 54 27  |.#..."170 PRINT'|
000007E0: 43 4F 55 52 42 4F 49 53  27 3A 52 45 54 55 52 4E  |COURBOIS':RETURN|
000007F0: 00 07 24 80 00 99 22 31  34 30 20 52 45 4D 20 53  |..$..."140 REM S|
00000800: 4F 46 54 57 41 52 45 00  28 24 81 00 99 22 31 39  |OFTWARE.($..."19|
00000810: 30 20 50 52 49 4E 54 27  53 4F 46 54 57 41 52 45  |0 PRINT'SOFTWARE|
00000820: 27 3A 52 45 54 55 52 4E  00 7D 24 82 00 99 22 11  |':RETURN.}$...".|
00000830: 11 57 49 4C 20 4A 45 20  45 45 4E 20 4C 41 42 45  |.WIL JE EEN LABE|
00000840: 4C 20 44 45 46 49 4E 49  45 52 45 4E 20 44 41 4E  |L DEFINIEREN DAN|
00000850: 20 4D 4F 45 54 20 44 49  54 20 41 4C 53 20 56 4F  | MOET DIT ALS VO|
00000860: 4C 47 54 20 3A 20 52 45  47 45 4C 20 4E 55 4D 4D  |LGT : REGEL NUMM|
00000870: 45 52 20 27 52 45 4D 27  20 4E 41 41 4D 00 93 24  |ER 'REM' NAAM..$|
00000880: 8C 00 99 22 11 56 41 4E  20 48 45 54 20 4C 41 42  |...".VAN HET LAB|
00000890: 45 4C 2E 00 CC 24 96 00  99 22 11 44 52 55 4B 20  |EL...$...".DRUK |
000008A0: 45 45 4E 20 54 4F 45 54  53 20 45 4E 20 44 41 4E  |EEN TOETS EN DAN|
000008B0: 20 52 55 4E 4E 45 4E 20  57 45 20 44 49 54 20 50  | RUNNEN WE DIT P|
000008C0: 52 4F 47 52 41 4D 4D 41  54 4A 45 2E 00 DF 24 A0  |ROGRAMMATJE...$.|
000008D0: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 31 36 30 00  |..A$:.A$."".160.|
000008E0: F1 24 BE 00 51 B2 B5 28  BB 28 31 29 AC 33 AA 31  |.$..Q..(.(1).3.1|
000008F0: 29 00 05 25 C8 00 8B 20  51 B2 31 20 A7 3A 8D 22  |)..%... Q.1 .:."|
00000900: 48 41 4E 53 22 00 1D 25  C9 00 8B 20 51 B2 32 20  |HANS"..%... Q.2 |
00000910: A7 3A 8D 22 43 4F 55 52  42 4F 49 53 22 00 35 25  |.:."COURBOIS".5%|
00000920: CA 00 8B 20 51 B2 33 20  A7 3A 8D 22 53 4F 46 54  |... Q.3 .:."SOFT|
00000930: 57 41 52 45 22 00 49 25  CD 00 A1 41 24 3A 8B 41  |WARE".I%...A$:.A|
00000940: 24 B2 22 20 22 A7 33 30  30 00 53 25 D2 00 89 20  |$." ".300.S%... |
00000950: 31 39 30 00 59 25 DC 00  3A 00 63 25 E6 00 8F 48  |190.Y%..:.c%...H|
00000960: 41 4E 53 00 6F 25 F0 00  99 22 48 41 4E 53 22 00  |ANS.o%..."HANS".|
00000970: 75 25 F1 00 8E 00 83 25  FA 00 8F 43 4F 55 52 42  |u%.....%...COURB|
00000980: 4F 49 53 00 93 25 04 01  99 22 43 4F 55 52 42 4F  |OIS..%..."COURBO|
00000990: 49 53 22 00 99 25 05 01  8E 00 A7 25 0E 01 8F 53  |IS"..%.....%...S|
000009A0: 4F 46 54 57 41 52 45 00  B7 25 18 01 99 22 53 4F  |OFTWARE..%..."SO|
000009B0: 46 54 57 41 52 45 22 00  BD 25 19 01 8E 00 CF 25  |FTWARE"..%.....%|
000009C0: 2C 01 99 22 93 22 3A 9B  31 39 30 AB 32 38 31 00  |,..".":.190.281.|
000009D0: 00 00                                             |..              |

....... 46,32:.48,32:...... A$:. I,Q(A$)
.0.F.. I.B.H..AD,00,FF,48,A9,00,8D,00,FF
,AD,06,D5,09,06,8D...I..06,D5,68,8D,00,F
F,78,A9,22,8D,08,03,A9,13,8D.F.J..09,03,
58,60,20,80,03,C9,89,F0,0A,C9,8D,F0,24..
.K..4C,F3,4A,EA,EA,EA,20,F7,77,A5,0F,30,
23,20,15.*.L..88,A5,17,C9,FA,B0,06,20,E2
,59,4C,F6,4A,A2,0B.\.M..2C,A2,11,4C,3C,4
D,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..
.O..A5,85,93,8A,E9,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,A0.$.Q..04,20,EC,42,C9,8
F,F0,14,A0,00,20,EC,42,4C,7A.V.R..13,20,
E2,42,85,A6,20,EC,42,C5,A6,D0,EC,C8,C4..
.S..93,D0,EF,18,A0,01,20,94,50,86,62,38,
20,06,5A...T..4C,F6,4A. .U..4864.N.V..".
*** COMMODORE 128 *** GOSUB STRING ***.$
.W.."..MET DIT PROGRAMMA KUN JE EEN GOTO
/GOSUB NAAR EEN STRING GEVEN, BIJVOORBEE
LD :.=.X.."..100 Q=RND(1)*3+1.I.Y.."110 
ON Q GOSUB HANS,COURBOIS,SOFTWARE.|.Z.."
120 GOTO 100...{.."130 :...|.."140 REM H
ANS...}.."150 PRINT'HANS':RETURN.O.~.."1
40 REM COURBOIS....."170 PRINT'COURBOIS
':RETURN.. ..."140 REM SO.. D..I. 4864 .
 5046.( E.. A$:. I,Q(A$).0 F.. I.B H..AD
,00,FF,48,A9,00,8D,00,FF,AD,06,D5,09,06,
8D.. I..06,D5,68,8D,00,FF,78,A9,22,8D,08
,03,A9,13,8D.F J..09,03,58,60,20,80,03,C
9,89,F0,0A,C9,8D,F0,24.. K..4C,F3,4A,EA,
EA,EA,20,F7,77,A5,0F,30,23,20,15.*!L..88
,A5,17,C9,FA,B0,06,20,E2,59,4C,F6,4A,A2,
0B.\!M..2C,A2,11,4C,3C,4D,20,1D,5A,20,86
,03,20,33,13..!N..4C,F6,4A,20,7E,87,F0,E
A,18,69,05,90,03,4C,ED..!O..A5,85,93,8A,
E9,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,
A0.$"Q..04,20,EC,42,C9,8F,F0,14,A0,00,20
,EC,42,4C,7A.V"R..13,20,E2,42,85,A6,20,E
C,42,C5,A6,D0,EC,C8,C4.."S..93,D0,EF,18,
A0,01,20,94,50,86,62,38,20,06,5A.."T..4C
,F6,4A. "U..4864.N"V..".*** COMMODORE 12
8 *** GOSUB STRING ***.$#W.."..MET DIT P
ROGRAMMA KUN JE EEN GOTO/GOSUB NAAR EEN 
STRING GEVEN, BIJVOORBEELD :.=#X.."..100
 Q=RND(1)*3+1.I#Y.."110 ON Q GOSUB HANS,
COURBOIS,SOFTWARE.|#Z.."120 GOTO 100..#{
.."130 :..#|.."140 REM HANS..#}.."150 PR
INT'HANS':RETURN.O#~.."140 REM COURBOIS.
.#.."170 PRINT'COURBOIS':RETURN..$..."1
40 REM SOFTWARE.($..."190 PRINT'SOFTWARE
':RETURN.}$..."..WIL JE EEN LABEL DEFINI
EREN DAN MOET DIT ALS VOLGT : REGEL NUMM
ER 'REM' NAAM..$...".VAN HET LABEL..L$..
.".DRUK EEN TOETS EN DAN RUNNEN WE DIT P
ROGRAMMATJE...$ ..A$:.A$."".160..$..Q..(
.(1).3.1)..%H.. Q.1 .:."HANS"..%I.. Q.2 
.:."COURBOIS".5%J.. Q.3 .:."SOFTWARE".I%
M..A$:.A$." ".300.S%R.. 190.Y%..:.C%...H
ANS.O%..."HANS".U%.....%...COURBOIS..%..
."COURBOIS"..%.....%...SOFTWARE..%..."SO
FTWARE"..%....O%,..".":.190.281...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL