PERISCOPE
FILE INFORMATION
FILENAME(S): PERISCOPE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 00:01:58
APPEARS ON: 1 disk(s)
FILE HASH
21973f15c637283c93491d6c43b7db2dbab4fd1d086de74cf40e26f98b6f4392
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | PERISCOPE | PRG | earthshaker | 30 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 58 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.X.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 59 02 8F 20 2A 20 |*******.M.Y.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.|
00000050: 5A 02 8F 20 2A 20 20 20 20 20 2A 2A 50 45 52 49 |Z.. * **PERI|
00000060: 53 43 4F 50 45 2A 2A 20 20 20 20 20 20 20 20 20 |SCOPE** |
00000070: 20 20 2A 00 99 08 5B 02 8F 20 2A 20 46 4F 52 20 | *...[.. * FOR |
00000080: 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 41 4E 44 |COMMODORE 64 AND|
00000090: 20 56 49 43 20 32 30 20 2A 00 BF 08 5C 02 8F 20 | VIC 20 *...\.. |
000000A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000000C0: E5 08 5D 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..].. **********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 00 24 09 5E 02 97 35 33 32 38 30 |*****.$.^..53280|
000000F0: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 22 93 22 |,0:.53281,0:."."|
00000100: 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |:.".............|
00000110: B8 B8 B8 B8 22 3A 99 22 20 20 50 45 52 49 53 43 |....":." PERISC|
00000120: 4F 50 45 22 00 5E 09 5F 02 99 20 22 B9 B9 B9 B9 |OPE".^._.. "....|
00000130: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 22 3A 99 |.............":.|
00000140: 3A 99 22 57 41 49 54 20 46 4F 52 20 41 20 4D 4F |:."WAIT FOR A MO|
00000150: 4D 45 4E 54 2C 50 4C 45 41 53 45 21 21 22 00 91 |MENT,PLEASE!!"..|
00000160: 09 63 02 86 4D 24 28 35 36 29 2C 4F 25 28 32 35 |.c..M$(56),O%(25|
00000170: 35 29 3A 81 50 B2 30 A4 35 36 3A 87 4D 24 28 50 |5):.P.0.56:.M$(P|
00000180: 29 3A 82 3A 81 50 B2 30 A4 20 32 35 35 3A 87 57 |):.:.P.0. 255:.W|
00000190: 3A 00 A3 09 67 02 8B 57 B3 39 39 A7 57 B2 57 AC |:...g..W.99.W.W.|
000001A0: 31 30 30 00 B1 09 6C 02 4F 25 28 50 29 B2 57 3A |100...l.O%(P).W:|
000001B0: 82 00 EB 09 76 02 99 C7 28 31 34 37 29 3A 52 B2 |....v...(147):R.|
000001C0: 30 3A 99 C7 28 31 38 29 3B 22 2A 20 50 45 52 49 |0:..(18);"* PERI|
000001D0: 53 43 4F 50 45 20 48 45 52 45 21 20 2A 22 3A 99 |SCOPE HERE! *":.|
000001E0: 3A 99 22 31 29 20 44 55 4D 50 22 00 26 0A 80 02 |:."1) DUMP".&...|
000001F0: 99 22 32 29 20 50 41 54 43 48 22 3A 99 22 33 29 |."2) PATCH":."3)|
00000200: 20 44 49 53 41 53 45 4D 42 4C 45 22 3A 99 22 34 | DISASEMBLE":."4|
00000210: 29 20 43 4F 4E 56 45 52 54 22 3A 99 22 35 29 20 |) CONVERT":."5) |
00000220: 45 4E 44 22 3A 99 00 46 0A 85 02 85 22 4F 50 54 |END":..F...."OPT|
00000230: 49 4F 4E 20 22 3B 43 3A 8B 43 B1 33 B0 43 B3 31 |ION ";C:.C.3.C.1|
00000240: 20 A7 20 36 35 35 00 5C 0A 8A 02 8D 20 36 36 35 | . 655.\.... 665|
00000250: 3A 8D 39 37 30 3A 8B 52 A7 36 33 30 00 85 0A 8F |:.970:.R.630....|
00000260: 02 91 43 8D 39 30 30 2C 38 30 30 2C 37 30 30 2C |..C.900,800,700,|
00000270: 36 37 30 2C 36 36 30 3A 52 B2 30 3A 8B 43 B1 33 |670,660:R.0:.C.3|
00000280: A7 20 36 33 30 00 91 0A 94 02 8D 20 36 36 35 3A |. 630...... 665:|
00000290: 80 00 AA 0A 99 02 8B 4C B2 31 A7 98 34 3A A0 34 |.......L.1..4:.4|
000002A0: 3A 4C B2 30 3A 50 24 B2 22 22 00 B0 0A 9B 02 8E |:L.0:P$.""......|
000002B0: 00 D1 0A 9E 02 52 B2 30 3A 99 22 28 31 3D 44 45 |.....R.0:."(1=DE|
000002C0: 43 20 32 3D 48 45 58 20 33 3D 42 49 4E 29 20 3F |C 2=HEX 3=BIN) ?|
000002D0: 22 00 E5 0A A0 02 A1 4B 24 3A 8B 4B 24 B2 22 22 |"......K$:.K$.""|
000002E0: A7 20 36 37 32 00 F3 0A A2 02 8B 4B 24 B2 22 58 |. 672......K$."X|
000002F0: 22 A7 8E 00 1E 0B A4 02 8B 4B 24 B2 22 31 22 20 |"........K$."1" |
00000300: A7 20 99 22 44 45 43 22 3B 3A 45 B2 30 3A 85 45 |. ."DEC";:E.0:.E|
00000310: 3A 50 B2 45 3A 8D 36 39 36 3A 8D 36 39 30 00 3D |:P.E:.696:.690.=|
00000320: 0B A6 02 8B 4B 24 B2 22 33 22 A7 20 99 22 42 49 |....K$."3". ."BI|
00000330: 4E 22 3B 3A 8D 36 38 34 3A 8D 36 39 36 00 67 0B |N";:.684:.696.g.|
00000340: A8 02 8B 4B 24 B2 22 32 22 A7 20 99 22 48 45 58 |...K$."2". ."HEX|
00000350: 3F 22 3B 3A 8D 39 38 30 3A 8B 52 B3 31 A7 8D 36 |?";:.980:.R.1..6|
00000360: 38 38 3A 8D 36 39 30 00 72 0B AA 02 99 3A 89 36 |88:.690.r....:.6|
00000370: 37 30 00 9F 0B AC 02 45 B2 30 3A 51 B2 30 3A 4B |70.....E.0:Q.0:K|
00000380: 24 B2 22 30 22 3A 85 4B 24 3A 81 58 B2 C3 28 4B |$."0":.K$:.X..(K|
00000390: 24 29 A4 20 31 20 A9 AB 31 3A 51 B2 51 AA 31 00 |$). 1 ..1:Q.Q.1.|
000003A0: C7 0B AE 02 45 B2 45 AA C5 28 CA 28 4B 24 2C 51 |....E.E..(.(K$,Q|
000003B0: 2C 31 29 29 AC 32 AE 28 58 AB 31 29 3A 82 20 58 |,1)).2.(X.1):. X|
000003C0: 3A 8D 36 38 38 3A 8E 00 D7 0B B0 02 99 22 44 45 |:.688:......."DE|
000003D0: 43 3D 22 3B 45 3A 8E 00 0B 0C B2 02 99 22 42 49 |C=";E:......."BI|
000003E0: 4E 3D 22 3B 3A 81 58 B2 31 35 20 A4 20 31 A9 AB |N=";:.X.15 . 1..|
000003F0: 31 3A 51 B2 30 3A 8B 45 AB 32 AE 58 B1 B2 30 A7 |1:Q.0:.E.2.X..0.|
00000400: 45 B2 45 AB 32 AE 58 3A 51 B2 31 00 1A 0C B4 02 |E.E.2.X:Q.1.....|
00000410: 8B 58 B2 37 A7 99 22 20 22 3B 00 3B 0C B6 02 99 |.X.7.." ";.;....|
00000420: C9 28 C4 28 51 29 2C 31 29 3B 3A 82 20 58 3A 99 |.(.(Q),1);:. X:.|
00000430: C9 28 C4 28 45 29 2C 31 29 3A 8E 00 55 0C B8 02 |.(.(E),1):..U...|
00000440: 50 B2 45 3A 99 22 48 45 58 3D 22 3B 3A 8D 39 35 |P.E:."HEX=";:.95|
00000450: 30 3A 99 3A 8E 00 64 0C BA 02 50 B2 45 3A 82 50 |0:.:..d...P.E:.P|
00000460: 3A 99 3A 8E 00 7C 0C BC 02 8D 20 39 39 30 3A 81 |:.:..|.... 990:.|
00000470: 50 B2 53 A4 45 3A 8B 4C A7 37 31 30 00 8D 0C C1 |P.S.E:.L.710....|
00000480: 02 8D 20 38 39 35 3A 8B 52 A7 36 39 38 00 C7 0C |.. 895:.R.698...|
00000490: C6 02 8D 39 35 30 3A 57 B2 4F 25 28 C2 28 50 29 |...950:W.O%(.(P)|
000004A0: 29 3A 5A B2 B5 28 57 AD 31 30 30 29 3A 57 B2 57 |):Z..(W.100):W.W|
000004B0: AB 5A AC 31 30 30 3A 99 22 20 22 3B 4D 24 28 5A |.Z.100:." ";M$(Z|
000004C0: 29 3B 22 20 20 22 3B 00 01 0D D0 02 91 57 8D 20 |);" ";......W. |
000004D0: 37 32 35 2C 37 38 30 2C 37 34 30 2C 37 38 32 2C |725,780,740,782,|
000004E0: 37 35 30 2C 37 35 35 2C 37 36 30 2C 37 36 35 2C |750,755,760,765,|
000004F0: 37 37 30 2C 37 37 33 2C 37 37 35 3A 99 3A 82 3A |770,773,775:.:.:|
00000500: 8E 00 11 0D D5 02 99 22 23 22 3B 3A 89 20 37 38 |......."#";:. 78|
00000510: 30 00 23 0D DF 02 8D 37 38 30 3A 99 22 2C 58 22 |0.#....780:.",X"|
00000520: 3B 3A 8E 00 35 0D E4 02 8D 37 38 30 3A 99 22 2C |;:..5....780:.",|
00000530: 59 22 3B 3A 8E 00 47 0D EE 02 8D 37 38 32 3A 99 |Y";:..G....782:.|
00000540: 22 2C 58 22 3B 3A 8E 00 59 0D F3 02 8D 37 38 32 |",X";:..Y....782|
00000550: 3A 99 22 2C 59 22 3B 3A 8E 00 7D 0D F8 02 50 B2 |:.",Y";:..}...P.|
00000560: 50 AA 31 3A 51 B2 50 3A 48 B2 C2 28 50 29 3A 8B |P.1:Q.P:H..(P):.|
00000570: 48 B1 31 32 37 A7 50 B2 50 AB 32 35 36 00 9A 0D |H.127.P.P.256...|
00000580: FB 02 50 B2 50 AA 31 AA 48 3A 99 22 24 22 3B 3A |..P.P.1.H:."$";:|
00000590: 8D 39 35 30 3A 50 B2 51 3A 8E 00 B3 0D FD 02 99 |.950:P.Q:.......|
000005A0: 22 28 22 3B 3A 8D 37 38 30 3A 99 22 2C 58 29 22 |"(";:.780:.",X)"|
000005B0: 3B 3A 8E 00 CC 0D 02 03 99 22 28 22 3B 3A 8D 37 |;:......."(";:.7|
000005C0: 38 30 3A 99 22 29 2C 59 22 3B 3A 8E 00 D8 0D 05 |80:."),Y";:.....|
000005D0: 03 99 22 41 22 3B 3A 8E 00 F1 0D 07 03 99 22 28 |.."A";:......."(|
000005E0: 22 3B 3A 8D 37 38 32 3A 99 22 2C 58 29 22 3B 3A |";:.782:.",X)";:|
000005F0: 8E 00 0E 0E 0C 03 99 22 24 22 3B 3A 50 B2 50 AA |......."$";:P.P.|
00000600: 31 3A 48 B2 C2 28 50 29 3A 89 20 39 32 30 00 38 |1:H..(P):. 920.8|
00000610: 0E 0E 03 99 22 24 22 3B 3A 50 B2 50 AA 32 3A 48 |...."$";:P.P.2:H|
00000620: B2 C2 28 50 29 3A 89 39 32 30 3A 48 B2 C2 28 50 |..(P):.920:H..(P|
00000630: AB 31 29 3A 89 39 32 30 00 85 0E 0F 03 83 3F 3F |.1):.920......??|
00000640: 3F 2C 41 44 43 2C 41 4E 44 2C 41 53 4C 2C 43 4D |?,ADC,AND,ASL,CM|
00000650: 50 2C 45 4F 52 2C 4C 44 41 2C 4F 52 41 2C 53 42 |P,EOR,LDA,ORA,SB|
00000660: 43 2C 53 54 41 2C 42 43 43 2C 42 43 53 2C 42 45 |C,STA,BCC,BCS,BE|
00000670: 51 2C 42 49 54 2C 42 4D 49 2C 42 4E 45 2C 42 50 |Q,BIT,BMI,BNE,BP|
00000680: 4C 2C 42 52 4B 00 D2 0E 10 03 83 42 56 43 2C 42 |L,BRK......BVC,B|
00000690: 56 53 2C 43 4C 43 2C 43 4C 44 2C 43 4C 49 2C 43 |VS,CLC,CLD,CLI,C|
000006A0: 4C 56 2C 43 50 58 2C 43 50 59 2C 44 45 43 2C 44 |LV,CPX,CPY,DEC,D|
000006B0: 45 58 2C 44 45 59 2C 49 4E 43 2C 49 4E 58 2C 49 |EX,DEY,INC,INX,I|
000006C0: 4E 59 2C 4A 4D 50 2C 4A 53 52 2C 4C 44 58 2C 4C |NY,JMP,JSR,LDX,L|
000006D0: 44 59 00 1C 0F 11 03 83 4C 53 52 2C 4E 4F 50 2C |DY......LSR,NOP,|
000006E0: 50 48 41 2C 50 48 50 2C 50 4C 41 2C 50 4C 50 2C |PHA,PHP,PLA,PLP,|
000006F0: 52 4F 4C 2C 52 4F 52 2C 52 54 49 2C 52 54 53 2C |ROL,ROR,RTI,RTS,|
00000700: 53 45 43 2C 53 45 44 2C 53 45 49 2C 53 54 58 2C |SEC,SED,SEI,STX,|
00000710: 53 54 59 2C 54 41 58 2C 54 41 59 2C 00 47 0F 12 |STY,TAX,TAY,.G..|
00000720: 03 83 53 54 58 2C 54 58 41 2C 54 58 53 2C 31 37 |..STX,TXA,TXS,17|
00000730: 2C 37 30 39 2C 2C 2C 2C 37 30 32 2C 33 30 32 2C |,709,,,,702,302,|
00000740: 2C 33 39 2C 37 30 31 00 93 0F 13 03 83 33 31 31 |,39,701......311|
00000750: 2C 2C 2C 37 30 35 2C 33 30 35 2C 2C 31 36 30 38 |,,,705,305,,1608|
00000760: 2C 37 31 30 2C 2C 2C 2C 37 30 33 2C 33 30 33 2C |,710,,,,703,303,|
00000770: 2C 32 30 2C 37 30 37 2C 2C 2C 2C 37 30 36 2C 33 |,20,707,,,,706,3|
00000780: 30 36 2C 2C 33 33 30 35 2C 32 30 39 2C 2C 2C 31 |06,,3305,209,,,1|
00000790: 33 30 32 00 CE 0F 14 03 83 32 30 32 2C 34 32 30 |302......202,420|
000007A0: 32 2C 2C 34 31 2C 32 30 31 2C 34 32 31 31 2C 2C |2,,41,201,4211,,|
000007B0: 31 33 30 35 2C 32 30 35 2C 34 32 30 35 2C 2C 31 |1305,205,4205,,1|
000007C0: 34 30 38 2C 32 31 30 2C 2C 2C 2C 32 30 33 00 1C |408,210,,,,203..|
000007D0: 10 15 03 83 34 32 30 33 2C 2C 34 36 2C 32 30 37 |....4203,,46,207|
000007E0: 2C 2C 2C 2C 32 30 36 2C 34 32 30 36 2C 2C 34 34 |,,,,206,4206,,44|
000007F0: 2C 35 30 39 2C 2C 2C 2C 35 30 32 2C 33 36 30 32 |,509,,,,502,3602|
00000800: 2C 2C 33 38 2C 35 30 31 2C 33 36 31 31 2C 2C 33 |,,38,501,3611,,3|
00000810: 32 30 35 2C 35 30 35 2C 33 36 30 35 00 67 10 16 |205,505,3605.g..|
00000820: 03 83 2C 31 38 30 38 2C 35 31 30 2C 2C 2C 2C 35 |..,1808,510,,,,5|
00000830: 30 33 2C 33 36 30 33 2C 2C 32 32 2C 35 30 37 2C |03,3603,,22,507,|
00000840: 2C 2C 2C 35 30 36 2C 33 36 30 36 2C 2C 34 35 2C |,,,506,3606,,45,|
00000850: 31 30 39 2C 2C 2C 2C 31 30 32 2C 34 33 30 32 2C |109,,,,102,4302,|
00000860: 2C 34 30 2C 31 30 31 00 AC 10 18 03 83 34 33 31 |,40,101......431|
00000870: 31 2C 2C 33 32 31 32 2C 31 30 35 2C 34 33 30 35 |1,,3212,105,4305|
00000880: 2C 2C 31 39 30 38 2C 31 31 30 2C 2C 2C 2C 31 30 |,,1908,110,,,,10|
00000890: 33 2C 34 33 30 33 2C 2C 34 38 2C 31 30 37 2C 2C |3,4303,,48,107,,|
000008A0: 2C 2C 31 30 36 2C 34 33 30 36 2C 2C 00 FA 10 19 |,,106,4306,,....|
000008B0: 03 83 39 30 39 2C 2C 2C 35 30 30 32 2C 39 30 32 |..909,,,5002,902|
000008C0: 2C 34 39 30 32 2C 2C 32 38 2C 2C 35 34 2C 2C 35 |,4902,,28,,54,,5|
000008D0: 30 30 35 2C 39 30 35 2C 34 39 30 35 2C 2C 31 30 |005,905,4905,,10|
000008E0: 30 38 2C 39 31 30 2C 2C 2C 35 30 30 33 2C 39 30 |08,910,,,5003,90|
000008F0: 33 2C 34 39 30 34 2C 2C 35 36 00 46 11 1A 03 83 |3,4904,,56.F....|
00000900: 39 30 37 2C 35 35 2C 2C 2C 39 30 36 2C 2C 2C 33 |907,55,,,906,,,3|
00000910: 35 30 31 2C 36 30 39 2C 33 34 30 31 2C 2C 33 35 |501,609,3401,,35|
00000920: 30 32 2C 36 30 32 2C 33 34 30 32 2C 2C 35 32 2C |02,602,3402,,52,|
00000930: 36 30 31 2C 35 31 2C 2C 33 35 30 35 2C 36 30 35 |601,51,,3505,605|
00000940: 2C 33 34 30 35 2C 00 8F 11 1B 03 83 31 31 30 38 |,3405,......1108|
00000950: 2C 36 31 30 2C 2C 2C 33 35 30 33 2C 36 30 33 2C |,610,,,3503,603,|
00000960: 33 34 30 34 2C 2C 32 33 2C 36 30 37 2C 35 33 2C |3404,,23,607,53,|
00000970: 2C 33 35 30 36 2C 36 30 36 2C 33 34 30 37 2C 2C |,3506,606,3407,,|
00000980: 32 35 30 31 2C 34 30 39 2C 2C 2C 32 35 30 32 00 |2501,409,,,2502.|
00000990: DC 11 1C 03 83 34 30 32 2C 32 36 30 32 2C 2C 33 |.....402,2602,,3|
000009A0: 31 2C 34 30 31 2C 32 37 2C 2C 32 35 30 35 2C 34 |1,401,27,,2505,4|
000009B0: 30 35 2C 32 36 30 35 2C 2C 31 35 30 38 2C 34 31 |05,2605,,1508,41|
000009C0: 30 2C 2C 2C 2C 34 30 33 2C 32 36 30 33 2C 2C 32 |0,,,,403,2603,,2|
000009D0: 31 2C 34 30 37 2C 2C 2C 2C 34 30 36 00 20 12 1D |1,407,,,,406. ..|
000009E0: 03 83 32 36 30 36 2C 2C 32 34 30 31 2C 38 30 39 |..2606,,2401,809|
000009F0: 2C 2C 2C 32 34 30 32 2C 38 30 32 2C 32 39 30 32 |,,,2402,802,2902|
00000A00: 2C 2C 33 30 2C 38 30 31 2C 33 37 2C 2C 32 34 30 |,,30,801,37,,240|
00000A10: 35 2C 38 30 35 2C 32 39 30 35 2C 2C 31 32 30 38 |5,805,2905,,1208|
00000A20: 00 4A 12 1E 03 83 38 31 30 2C 2C 2C 2C 38 30 33 |.J....810,,,,803|
00000A30: 2C 32 39 30 33 2C 2C 34 37 2C 38 30 37 2C 2C 2C |,2903,,47,807,,,|
00000A40: 2C 38 30 36 2C 32 39 30 36 2C 00 76 12 20 03 81 |,806,2906,.v. ..|
00000A50: 50 B2 53 A4 45 3A 8D 39 35 30 3A 99 22 5B 53 53 |P.S.E:.950:."[SS|
00000A60: 5D 22 3B 3A 48 24 B2 22 22 3A 8D 20 38 32 30 3A |]";:H$."":. 820:|
00000A70: 8B 52 A7 36 39 38 00 86 12 2A 03 97 50 2C 48 3A |.R.698...*..P,H:|
00000A80: 20 99 3A 82 3A 8E 00 99 12 34 03 A1 4B 24 3A 8B | .:.:....4..K$:.|
00000A90: 4B 24 B2 22 22 A7 38 32 30 00 B1 12 3E 03 57 B2 |K$."".820...>.W.|
00000AA0: C6 28 4B 24 29 3A 8B 57 B2 38 38 A7 52 B2 31 3A |.(K$):.W.88.R.1:|
00000AB0: 8E 00 CA 12 48 03 8B 57 B2 31 33 AF C3 28 48 24 |....H..W.13..(H$|
00000AC0: 29 B1 31 20 A7 20 38 37 30 B2 00 E9 12 52 03 8B |).1 . 870....R..|
00000AD0: 57 B3 34 38 B0 28 57 B1 35 37 AF 57 B3 36 35 29 |W.48.(W.57.W.65)|
00000AE0: B0 57 B1 37 30 A7 38 32 30 00 01 13 5C 03 99 4B |.W.70.820...\..K|
00000AF0: 24 3B 3A 48 24 B2 48 24 AA 4B 24 3A 89 20 38 32 |$;:H$.H$.K$:. 82|
00000B00: 30 00 20 13 66 03 57 B2 C6 28 C9 28 48 24 2C 32 |0. .f.W..(.(H$,2|
00000B10: 29 29 AB 34 38 3A 8B 57 B1 39 A7 57 B2 57 AB 37 |)).48:.W.9.W.W.7|
00000B20: 00 46 13 70 03 57 B2 57 AC 31 36 3A 48 B2 C6 28 |.F.p.W.W.16:H..(|
00000B30: C9 28 48 24 2C 31 29 29 AB 34 38 3A 8B 48 B1 39 |.(H$,1)).48:.H.9|
00000B40: A7 48 B2 48 AB 37 00 52 13 7A 03 48 B2 48 AA 57 |.H.H.7.R.z.H.H.W|
00000B50: 3A 8E 00 64 13 7F 03 A1 4B 24 3A 8B 4B 24 B2 22 |:..d....K$:.K$."|
00000B60: 22 A7 20 8E 00 76 13 81 03 8B 4B 24 B2 22 58 22 |". ..v....K$."X"|
00000B70: A7 52 B2 31 3A 8E 00 8A 13 82 03 92 31 39 38 2C |.R.1:.......198,|
00000B80: 31 3A 97 31 39 38 2C 30 3A 8E 00 B5 13 84 03 8D |1:.198,0:.......|
00000B90: 39 39 30 3A 81 50 B2 53 A4 45 3A 8B B5 28 28 50 |990:.P.S.E:..((P|
00000BA0: AB 53 29 AD 38 29 B2 28 50 AB 53 29 AD 38 A7 99 |.S).8).(P.S).8..|
00000BB0: 3A 8D 39 35 30 00 CB 13 89 03 8B 4C B2 30 20 A7 |:.950......L.0 .|
00000BC0: 8D 38 39 35 3A 8B 52 A7 36 39 38 00 EA 13 8E 03 |.895:.R.698.....|
00000BD0: 48 B2 C2 28 50 29 3A 99 22 5B 53 53 5D 22 3B 3A |H..(P):."[SS]";:|
00000BE0: 8D 39 32 30 3A 82 3A 99 3A 8E 00 0A 14 98 03 57 |.920:.:.:......W|
00000BF0: B2 B5 28 48 AD 31 36 29 3A 48 B2 48 AB 57 AC 31 |..(H.16):H.H.W.1|
00000C00: 36 3A 8D 39 33 30 3A 57 B2 48 00 21 14 A2 03 57 |6:.930:W.H.!...W|
00000C10: B2 57 AA 34 38 3A 8B 57 B1 35 37 A7 57 B2 57 AA |.W.48:.W.57.W.W.|
00000C20: 37 00 2E 14 AC 03 99 C7 28 57 29 3B 3A 8E 00 55 |7.......(W);:..U|
00000C30: 14 B6 03 48 B2 B5 28 50 AD 32 35 36 29 3A 5A B2 |...H..(P.256):Z.|
00000C40: 50 AB 48 AC 32 35 36 3A 8D 39 32 30 3A 48 B2 5A |P.H.256:.920:H.Z|
00000C50: 3A 89 39 32 30 00 6C 14 CA 03 99 22 59 45 53 3F |:.920.l...."YES?|
00000C60: 22 3B 3A 8D 39 38 30 3A 8B 50 A7 8E 00 7A 14 CF |";:.980:.P...z..|
00000C70: 03 53 B2 45 3A 99 22 3E 22 3B 00 8E 14 D4 03 48 |.S.E:.">";.....H|
00000C80: 24 B2 22 22 3A 8D 38 32 30 3A 8B 52 A7 8E 00 C7 |$."":.820:.R....|
00000C90: 14 D9 03 48 24 B2 22 30 30 22 AA 48 24 3A 45 B2 |...H$."00".H$:E.|
00000CA0: 48 3A 48 24 B2 CA 28 48 24 2C C3 28 48 24 29 AB |H:H$..(H$,.(H$).|
00000CB0: 33 2C 32 29 3A 8D 38 37 30 3A 45 B2 45 AA 48 AC |3,2):.870:E.E.H.|
00000CC0: 32 35 36 3A 99 3A 8E 00 05 15 DE 03 4C B2 30 3A |256:.:......L.0:|
00000CD0: 85 22 50 52 49 4E 54 45 52 20 4F 55 54 50 55 54 |."PRINTER OUTPUT|
00000CE0: 20 28 59 2F 4E 29 22 3B 50 24 3A 8B C8 28 50 24 | (Y/N)";P$:..(P$|
00000CF0: 2C 31 29 B2 22 59 22 A7 4C B2 31 3A 9F 34 2C 34 |,1)."Y".L.1:.4,4|
00000D00: 2C 30 3A 9D 34 00 0B 15 E1 03 8E 00 00 00 FF |,0:.4.......... |
..'.X.. *******************************.
M.Y.. * *.S.
Z.. * **PERISCOPE** *...[.
. * FOR COMMODORE 64 AND VIC 20 *...\..
* *...].. **
*****************************.$.^..53280
,0:.53281,0:.".":.".................":."
PERISCOPE".^._.. ".................":.
:."WAIT FOR A MOMENT,PLEASE!!"...C..M$(5
6),O%(255):.P.0.56:.M$(P):.:.P.0. 255:.W
:...G..W.99.W.W.100...L.O%(P).W:....V..G
(147):R.0:.G(18);"* PERISCOPE HERE! *":.
:."1) DUMP".&...."2) PATCH":."3) DISASEM
BLE":."4) CONVERT":."5) END":..F...."OPT
ION ";C:.C.3.C.1 . 655.\.... 665:.970:.R
.630......C.900,800,700,670,660:R.0:.C.3
. 630...... 665:.......L.1..4: 4:L.0:P$.
"".......Q...R.0:."(1=DEC 2=HEX 3=BIN) ?
"... ..K$:.K$."". 672......K$."X".......
.K$."1" . ."DEC";:E.0:.E:P.E:.696:.690.=
....K$."3". ."BIN";:.684:.696.G....K$."2
". ."HEX?";:.980:.R.1..688:.690.R....:.6
70.....E.0:Q.0:K$."0":.K$:.X.C(K$). 1 ..
1:Q.Q.1.G...E.E.E(J(K$,Q,1)).2.(X.1):. X
:.688:..W...."DEC=";E:......."BIN=";:.X.
15 . 1..1:Q.0:.E.2.X..0.E.E.2.X:Q.1.....
.X.7.." ";.;....I(D(Q),1);:. X:.I(D(E),1
):..U...P.E:."HEX=";:.950:.:..D...P.E:.P
:.:..|.... 990:.P.S.E:.L.710...A.. 895:.
R.698.G.F..950:W.O%(B(P)):Z..(W.100):W.W
.Z.100:." ";M$(Z);" ";...P..W. 725,780,
740,782,750,755,760,765,770,773,775:.:.:
....U.."#";:. 780.#....780:.",X";:..5...
.780:.",Y";:..G....782:.",X";:..Y....782
:.",Y";:..}...P.P.1:Q.P:H.B(P):.H.127.P.
P.256.....P.P.1.H:."$";:.950:P.Q:.......
"(";:.780:.",X)";:..L...."(";:.780:."),Y
";:..X...."A";:......."(";:.782:.",X)";:
......."$";:P.P.1:H.B(P):. 920.8...."$";
:P.P.2:H.B(P):.920:H.B(P.1):.920......??
?,ADC,AND,ASL,CMP,EOR,LDA,ORA,SBC,STA,BC
C,BCS,BEQ,BIT,BMI,BNE,BPL,BRK.R....BVC,B
VS,CLC,CLD,CLI,CLV,CPX,CPY,DEC,DEX,DEY,I
NC,INX,INY,JMP,JSR,LDX,LDY......LSR,NOP,
PHA,PHP,PLA,PLP,ROL,ROR,RTI,RTS,SEC,SED,
SEI,STX,STY,TAX,TAY,.G....STX,TXA,TXS,17
,709,,,,702,302,,39,701......311,,,705,3
05,,1608,710,,,,703,303,,20,707,,,,706,3
06,,3305,209,,,1302.N....202,4202,,41,20
1,4211,,1305,205,4205,,1408,210,,,,203..
....4203,,46,207,,,,206,4206,,44,509,,,,
502,3602,,38,501,3611,,3205,505,3605.G..
..,1808,510,,,,503,3603,,22,507,,,,506,3
606,,45,109,,,,102,4302,,40,101......431
1,,3212,105,4305,,1908,110,,,,103,4303,,
48,107,,,,106,4306,,......909,,,5002,902
,4902,,28,,54,,5005,905,4905,,1008,910,,
,5003,903,4904,,56.F....907,55,,,906,,,3
501,609,3401,,3502,602,3402,,52,601,51,,
3505,605,3405,......1108,610,,,3503,603,
3404,,23,607,53,,3506,606,3407,,2501,409
,,,2502......402,2602,,31,401,27,,2505,4
05,2605,,1508,410,,,,403,2603,,21,407,,,
,406. ....2606,,2401,809,,,2402,802,2902
,,30,801,37,,2405,805,2905,,1208.J....81
0,,,,803,2903,,47,807,,,,806,2906,.V. ..
P.S.E:.950:."[SS]";:H$."":. 820:.R.698..
.*..P,H: .:.:....4..K$:.K$."".820...>.W.
F(K$):.W.88.R.1:..J.H..W.13.C(H$).1 . 87
0....R..W.48.(W.57.W.65).W.70.820...\..K
$;:H$.H$.K$:. 820. .F.W.F(I(H$,2)).48:.W
.9.W.W.7.F.P.W.W.16:H.F(I(H$,1)).48:.H.9
.H.H.7.R.Z.H.H.W:..D...K$:.K$."". ..V..
..K$."X".R.1:.......198,1:.198,0:.......
990:.P.S.E:..((P.S).8).(P.S).8..:.950.K.
...L.0 ..895:.R.698.....H.B(P):."[SS]";:
.920:.:.:......W..(H.16):H.H.W.16:.930:W
.H.!...W.W.48:.W.57.W.W.7......G(W);:..U
...H..(P.256):Z.P.H.256:.920:H.Z:.920.L.
J.."YES?";:.980:.P...Z.O.S.E:.">";...T.H
$."":.820:.R...G.Y.H$."00".H$:E.H:H$.J(H
$,C(H$).3,2):.870:E.E.H.256:.:......L.0:
."PRINTER OUTPUT (Y/N)";P$:.H(P$,1)."Y".
L.1:.4,4,0:.4..........
> CLICK IMAGE PREVIEW FOR FULL MODAL