GOTO DEMO.@
FILE INFORMATION
FILENAME(S): GOTO DEMO.@
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:12:53
APPEARS ON: 1 disk(s)
FILE HASH
2a18e4b5e3e2e708eda0d925336dda99460c75d5a783727f49a576a0d716d811
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64TAPE COMP UK 4 | GOTO DEMO.@ | PRG | DuncanTwain | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3C 08 64 00 97 35 33 32 38 30 2C 39 3A 97 |..<.d..53280,9:.|
00000010: 35 33 32 38 31 2C 37 3A 97 35 33 32 37 32 2C 32 |53281,7:.53272,2|
00000020: 33 3A 99 22 93 90 C3 4F 4D 4D 4F 44 4F 52 45 20 |3:."...OMMODORE |
00000030: 36 34 20 D5 54 49 4C 49 54 49 45 53 00 59 08 65 |64 .TILITIES.Y.e|
00000040: 00 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..".............|
00000050: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 A9 08 66 00 99 22 |............f.."|
00000060: 11 11 C8 4F 57 20 4D 41 4E 59 20 54 49 4D 45 53 |...OW MANY TIMES|
00000070: 20 48 41 56 45 20 59 4F 55 20 48 41 44 20 50 52 | HAVE YOU HAD PR|
00000080: 4F 47 52 41 4D 20 20 20 20 20 4C 49 53 54 49 4E |OGRAM LISTIN|
00000090: 47 53 20 54 48 41 54 20 4C 4F 4F 4B 20 53 4F 4D |GS THAT LOOK SOM|
000000A0: 45 54 48 49 4E 47 20 22 3B 00 BB 08 67 00 99 22 |ETHING ";...g.."|
000000B0: 4C 49 4B 45 20 54 48 49 53 3A 2D 00 0C 09 68 00 |LIKE THIS:-...h.|
000000C0: 99 22 32 30 20 CF CE 20 D0 20 C7 CF D4 CF 20 31 |."20 .. . .... 1|
000000D0: 30 30 2C 32 30 30 2C 33 30 30 2C 34 30 30 2C 35 |00,200,300,400,5|
000000E0: 30 30 2C 36 30 30 2C 37 30 30 30 2C 38 30 30 2C |00,600,7000,800,|
000000F0: 39 30 30 2C 31 30 30 30 2C 31 30 31 30 2C 31 30 |900,1000,1010,10|
00000100: 32 30 2C 31 30 33 30 2C 31 30 34 30 00 54 09 69 |20,1030,1040.T.i|
00000110: 00 99 22 33 30 20 CF CE 20 D0 2D 31 34 20 C7 CF |.."30 .. .-14 ..|
00000120: D4 CF 20 31 30 35 30 2C 31 30 36 30 2C 31 30 37 |.. 1050,1060,107|
00000130: 30 2C 31 30 38 30 2C 31 30 39 30 2C 31 31 30 30 |0,1080,1090,1100|
00000140: 2C 31 31 31 30 2C 31 31 32 30 2C 31 31 33 30 2C |,1110,1120,1130,|
00000150: 31 31 34 30 00 69 09 6A 00 99 22 11 41 4E 44 20 |1140.i.j..".AND |
00000160: 53 4F 20 4F 4E 20 2E 2E 2E 00 BB 09 6B 00 99 22 |SO ON ......k.."|
00000170: 11 C8 4F 57 20 4D 55 43 48 20 45 41 53 49 45 52 |..OW MUCH EASIER|
00000180: 20 4C 49 46 45 20 57 4F 55 4C 44 20 42 45 20 49 | LIFE WOULD BE I|
00000190: 46 20 57 45 20 20 20 20 20 43 4F 55 4C 44 20 45 |F WE COULD E|
000001A0: 4D 55 4C 41 54 45 20 54 48 45 20 D3 50 45 43 54 |MULATE THE .PECT|
000001B0: 52 55 4D 2C 20 53 41 59 2C 22 3B 00 F1 09 6C 00 |RUM, SAY,";...l.|
000001C0: 99 22 20 41 4E 44 20 20 20 20 48 41 56 45 20 4A |." AND HAVE J|
000001D0: 55 53 54 20 4F 4E 45 20 4C 49 4E 45 2C 20 4C 4F |UST ONE LINE, LO|
000001E0: 4F 4B 49 4E 47 20 4C 49 4B 45 20 54 48 49 53 3A |OKING LIKE THIS:|
000001F0: 2D 00 08 0A 6D 00 99 22 11 32 30 20 C7 CF D4 CF |-...m..".20 ....|
00000200: 20 D0 2A 31 30 2B 39 30 00 1D 0A 6E 00 99 22 11 | .*10+90...n..".|
00000210: D7 45 4C 4C 2C 20 57 45 20 43 41 4E 21 00 26 0A |.ELL, WE CAN!.&.|
00000220: 6F 00 8D 31 32 37 00 75 0A 70 00 99 22 93 D7 49 |o..127.u.p.."..I|
00000230: 54 48 20 4A 55 53 54 20 41 20 56 45 52 59 20 53 |TH JUST A VERY S|
00000240: 48 4F 52 54 20 4D 41 43 48 49 4E 45 20 43 4F 44 |HORT MACHINE COD|
00000250: 45 20 20 20 20 20 52 4F 55 54 49 4E 45 2C 20 57 |E ROUTINE, W|
00000260: 45 20 43 41 4E 20 48 41 56 45 20 50 52 4F 47 52 |E CAN HAVE PROGR|
00000270: 41 4D 20 22 3B 00 97 0A 71 00 99 22 4C 49 4E 45 |AM ";...q.."LINE|
00000280: 53 20 54 48 41 54 20 4C 4F 4F 4B 20 4C 49 4B 45 |S THAT LOOK LIKE|
00000290: 20 54 48 49 53 3A 2D 00 B4 0A 72 00 99 22 11 32 | THIS:-...r..".2|
000002A0: 30 20 D3 D9 D3 34 39 31 35 32 2C D0 2A 31 30 2B |0 ...49152,.*10+|
000002B0: 39 30 2C 30 00 C8 0A 73 00 99 22 11 CD 55 43 48 |90,0...s.."..UCH|
000002C0: 20 4E 45 41 54 45 52 2E 00 01 0B 74 00 99 22 11 | NEATER....t..".|
000002D0: D4 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 53 48 |.HE FOLLOWING SH|
000002E0: 4F 52 54 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |ORT PROGRAM WILL|
000002F0: 20 44 4F 20 54 48 45 20 54 52 49 43 4B 20 2E 2E | DO THE TRICK ..|
00000300: 2E 00 30 0B 75 00 99 22 11 31 30 30 20 C6 CF D2 |..0.u..".100 ...|
00000310: C9 3D 30 D4 CF 31 30 3A D2 C5 C1 C4 C1 3A D0 CF |.=0..10:.....:..|
00000320: CB C5 34 39 31 35 32 2B C9 2C C1 3A CE C5 D8 D4 |..49152+.,.:....|
00000330: 00 67 0B 76 00 99 22 31 31 30 20 C4 C1 D4 C1 31 |.g.v.."110 ....1|
00000340: 30 34 2C 31 30 34 2C 33 32 2C 32 35 33 2C 31 37 |04,104,32,253,17|
00000350: 34 2C 33 32 2C 32 33 35 2C 31 38 33 2C 37 36 2C |4,32,235,183,76,|
00000360: 31 36 36 2C 31 36 38 00 B4 0B 77 00 99 22 11 C9 |166,168...w.."..|
00000370: 46 20 54 48 45 20 41 52 45 41 20 4F 46 20 4D 45 |F THE AREA OF ME|
00000380: 4D 4F 52 59 20 46 52 4F 4D 20 4C 4F 43 41 54 49 |MORY FROM LOCATI|
00000390: 4F 4E 20 20 20 20 20 34 39 31 35 32 20 55 50 57 |ON 49152 UPW|
000003A0: 41 52 44 53 20 49 53 20 4F 43 43 55 50 49 45 44 |ARDS IS OCCUPIED|
000003B0: 2C 20 22 3B 00 05 0C 78 00 99 22 57 45 4C 4C 2C |, ";...x.."WELL,|
000003C0: 20 4A 55 53 54 20 20 20 43 48 41 4E 47 45 20 54 | JUST CHANGE T|
000003D0: 48 41 54 20 4E 55 4D 42 45 52 20 49 4E 20 4C 49 |HAT NUMBER IN LI|
000003E0: 4E 45 20 31 30 30 20 54 4F 20 42 45 20 20 20 20 |NE 100 TO BE |
000003F0: 53 4F 4D 45 54 48 49 4E 47 20 45 4C 53 45 20 2E |SOMETHING ELSE .|
00000400: 2E 2E 20 22 3B 00 30 0C 79 00 99 22 54 48 45 20 |.. ";.0.y.."THE |
00000410: 43 4F 44 45 20 44 4F 45 53 4E 27 54 20 43 41 52 |CODE DOESN'T CAR|
00000420: 45 57 48 45 52 45 20 49 54 20 53 49 54 53 2E 22 |EWHERE IT SITS."|
00000430: 00 39 0C 7A 00 8D 31 32 37 00 50 0C 7B 00 99 22 |.9.z..127.P.{.."|
00000440: 93 D4 52 59 20 49 54 20 41 4E 44 20 53 45 45 2E |..RY IT AND SEE.|
00000450: 00 7E 0C 7C 00 99 22 11 CE 4F 57 2C 20 50 52 45 |.~.|.."..OW, PRE|
00000460: 53 53 20 27 D2 27 20 54 4F 20 52 45 2D 52 55 4E |SS '.' TO RE-RUN|
00000470: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2E 00 A1 | THIS PROGRAM...|
00000480: 0C 7D 00 A1 4C 4F 24 3A 91 AB 28 4C 4F 24 B2 22 |.}..LO$:..(LO$."|
00000490: 22 29 89 31 32 35 3A 8B 4C 4F 24 B2 22 52 22 A7 |").125:.LO$."R".|
000004A0: 8A 00 B6 0C 7E 00 97 35 33 32 37 32 2C 32 31 3A |....~..53272,21:|
000004B0: 99 22 93 22 3A 80 00 DA 0C 7F 00 99 22 11 D0 52 |.".":......."..R|
000004C0: 45 53 53 20 12 3C D3 D0 C1 C3 C5 3E 92 20 54 4F |ESS .<.....>. TO|
000004D0: 20 43 4F 4E 54 49 4E 55 45 2E 00 ED 0C 80 00 81 | CONTINUE.......|
000004E0: 49 B2 31 A4 31 30 3A A1 53 50 24 3A 82 00 04 0D |I.1.10:.SP$:....|
000004F0: 81 00 A1 53 50 24 3A 8B 53 50 24 B3 B1 22 20 22 |...SP$:.SP$.." "|
00000500: A7 31 32 39 00 0A 0D 82 00 8E 00 00 00 |.129......... |
..<.D..53280,9:.53281,7:.53272,23:."..CO
MMODORE 64 UTILITIES.Y.E..".............
............F.."..HOW MANY TIMES HAVE YO
U HAD PROGRAM LISTINGS THAT LOOK SOM
ETHING ";...G.."LIKE THIS:-...H.."20 ON
P GOTO 100,200,300,400,500,600,7000,800,
900,1000,1010,1020,1030,1040.T.I.."30 ON
P-14 GOTO 1050,1060,1070,1080,1090,1100
,1110,1120,1130,1140.I.J..".AND SO ON ..
....K..".HOW MUCH EASIER LIFE WOULD BE I
F WE COULD EMULATE THE SPECTRUM, SAY
,";...L.." AND HAVE JUST ONE LINE, LO
OKING LIKE THIS:-...M..".20 GOTO P*10+90
...N..".WELL, WE CAN!.&.O..127.U.P..".WI
TH JUST A VERY SHORT MACHINE CODE RO
UTINE, WE CAN HAVE PROGRAM ";...Q.."LINE
S THAT LOOK LIKE THIS:-...R..".20 SYS491
52,P*10+90,0.H.S..".MUCH NEATER....T..".
THE FOLLOWING SHORT PROGRAM WILL DO THE
TRICK ....0.U..".100 FORI=0TO10:READA:PO
KE49152+I,A:NEXT.G.V.."110 DATA104,104,3
2,253,174,32,235,183,76,166,168...W..".I
F THE AREA OF MEMORY FROM LOCATION 4
9152 UPWARDS IS OCCUPIED, ";...X.."WELL,
JUST CHANGE THAT NUMBER IN LINE 100 T
O BE SOMETHING ELSE ... ";.0.Y.."THE
CODE DOESN'T CAREWHERE IT SITS.".9.Z..12
7.P.{..".TRY IT AND SEE..~.|..".NOW, PRE
SS 'R' TO RE-RUN THIS PROGRAM....}..LO$:
..(LO$."").125:.LO$."R".....~..53272,21:
.".":..Z...".PRESS .<SPACE>. TO CONTINU
E.......I.1.10:.SP$:.......SP$:.SP$.." "
.129.........
> CLICK IMAGE PREVIEW FOR FULL MODAL