> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 99 22 93 22 00 33 08 0A 00 99 |.......".".3....|
00000010: 22 50 41 52 41 20 44 45 53 43 4F 4E 45 43 54 41 |"PARA DESCONECTA|
00000020: 52 20 46 41 53 54 20 4C 4F 41 44 20 54 49 50 45 |R FAST LOAD TIPE|
00000030: 45 3A 22 00 54 08 14 00 99 22 50 4F 4B 45 20 37 |E:".T...."POKE 7|
00000040: 37 30 2C 31 33 31 3A 50 4F 4B 45 20 37 37 31 2C |70,131:POKE 771,|
00000050: 31 36 34 22 00 79 08 1E 00 99 22 50 41 52 41 20 |164".y...."PARA |
00000060: 56 4F 4C 56 45 52 20 41 20 43 4F 4E 45 43 54 41 |VOLVER A CONECTA|
00000070: 52 4C 4F 20 54 49 50 45 45 00 9A 08 28 00 99 22 |RLO TIPEE...(.."|
00000080: 50 4F 4B 45 20 37 37 30 2C 31 30 36 3A 50 4F 4B |POKE 770,106:POK|
00000090: 45 20 37 37 31 2C 32 32 33 22 00 CA 08 29 00 99 |E 771,223"...)..|
000000A0: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 EE 08 32 00 99 |*********"...2..|
000000D0: 22 50 41 52 41 20 52 45 44 49 4D 45 4E 53 49 4F |"PARA REDIMENSIO|
000000E0: 4E 41 52 20 56 41 52 49 41 42 4C 45 53 22 00 1A |NAR VARIABLES"..|
000000F0: 09 3C 00 99 22 53 49 4E 20 51 55 45 20 41 50 41 |.<.."SIN QUE APA|
00000100: 52 45 5A 43 41 4E 20 45 52 52 4F 52 45 53 20 50 |REZCAN ERRORES P|
00000110: 4F 52 20 52 45 44 49 4D 2E 22 00 27 09 46 00 99 |OR REDIM.".'.F..|
00000120: 22 54 49 50 45 45 22 00 4F 09 50 00 99 22 50 4F |"TIPEE".O.P.."PO|
00000130: 4B 45 20 34 39 2C 50 45 45 4B 28 34 37 29 3A 50 |KE 49,PEEK(47):P|
00000140: 4F 4B 45 20 35 30 2C 50 45 45 4B 28 34 38 29 00 |OKE 50,PEEK(48).|
00000150: 7F 09 51 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..Q.."**********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00000180: A6 09 5A 00 99 22 50 41 52 41 20 45 4E 43 4F 4E |..Z.."PARA ENCON|
00000190: 54 52 41 52 20 45 4C 20 45 4E 44 49 4E 47 20 41 |TRAR EL ENDING A|
000001A0: 44 52 45 53 53 22 00 B3 09 5F 00 99 22 54 49 50 |DRESS"..._.."TIP|
000001B0: 45 45 22 00 DF 09 64 00 99 22 45 41 3D 50 45 45 |EE"...d.."EA=PEE|
000001C0: 4B 28 31 37 34 29 2B 32 35 36 2A 50 45 45 4B 28 |K(174)+256*PEEK(|
000001D0: 31 37 35 29 2D 31 3A 50 52 49 4E 54 20 45 41 00 |175)-1:PRINT EA.|
000001E0: 0F 0A 65 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..e.."**********|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00000210: 3F 0A 6E 00 99 22 50 41 52 41 20 47 4F 54 4F 20 |?.n.."PARA GOTO |
00000220: 43 41 4C 43 55 4C 41 44 4F 20 28 47 4C 3D 4E 55 |CALCULADO (GL=NU|
00000230: 4D 45 52 4F 20 44 45 20 4C 49 4E 45 41 29 22 00 |MERO DE LINEA)".|
00000240: 7F 0A 6F 00 99 22 31 30 30 30 20 50 4F 4B 45 20 |..o.."1000 POKE |
00000250: 37 38 35 2C 31 38 38 3A 50 4F 4B 45 20 37 38 36 |785,188:POKE 786|
00000260: 2C 31 36 38 3A 50 4F 4B 45 20 47 4C 2C 50 45 45 |,168:POKE GL,PEE|
00000270: 4B 28 47 4C 29 3A 47 4C 3D 55 53 52 28 30 29 00 |K(GL):GL=USR(0).|
00000280: 00 00 |.. |
.......".".3...."PARA DESCONECTAR FAST L
OAD TIPEE:".T...."POKE 770,131:POKE 771,
164".Y...."PARA VOLVER A CONECTARLO TIPE
E...(.."POKE 770,106:POKE 771,223".J.)..
"***************************************
*"...2.."PARA REDIMENSIONAR VARIABLES"..
.<.."SIN QUE APAREZCAN ERRORES POR REDIM
.".'.F.."TIPEE".O.P.."POKE 49,PEEK(47):P
OKE 50,PEEK(48)..Q.."******************
**********************"...Z.."PARA ENCON
TRAR EL ENDING ADRESS"..._.."TIPEE"...D.
."EA=PEEK(174)+256*PEEK(175)-1:PRINT EA.
..E.."**********************************
******".?.N.."PARA GOTO CALCULADO (GL=NU
MERO DE LINEA)"..O.."1000 POKE 785,188:
POKE 786,168:POKE GL,PEEK(GL):GL=USR(0).
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL