PP4
FILE INFORMATION
FILENAME(S): PP4
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:27:16
APPEARS ON: 3 disk(s)
FILE HASH
eeee64a9eda75f27e973baa7013d7f1b80de6371c0523af2ac9057c53af26696
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 3M | PP4 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
| 3M | PP4 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
| EDDY S | PP4 | PRG | DuncanTwain | 23 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 00 00 97 38 30 38 2C 32 33 30 00 17 |.......808,230..|
00000010: 08 01 00 99 22 93 22 00 20 08 02 00 4E 47 B2 30 |....".". ...NG.0|
00000020: 00 39 08 0A 00 8F 20 20 44 49 47 49 54 49 5A 45 |.9.... DIGITIZE|
00000030: 44 20 50 49 43 54 55 52 45 00 52 08 14 00 8F 20 |D PICTURE.R.... |
00000040: 20 42 59 20 53 54 45 50 48 45 4E 20 4D 55 52 52 | BY STEPHEN MURR|
00000050: 49 2E 00 58 08 1E 00 8F 00 7E 08 28 00 8F 20 20 |I..X.....~.(.. |
00000060: 53 50 45 43 49 41 4C 20 54 48 41 4E 4B 53 20 54 |SPECIAL THANKS T|
00000070: 4F 20 46 52 41 4E 4B 20 43 4F 56 49 54 5A 00 A2 |O FRANK COVITZ..|
00000080: 08 32 00 8F 20 20 46 4F 52 20 44 45 53 49 47 4E |.2.. FOR DESIGN|
00000090: 49 4E 47 20 54 48 45 20 44 49 47 49 54 49 5A 45 |ING THE DIGITIZE|
000000A0: 52 2E 00 A8 08 3C 00 8F 00 CA 08 46 00 8F 20 20 |R....<.....F.. |
000000B0: 54 48 49 53 20 53 48 4F 57 20 50 55 54 20 54 4F |THIS SHOW PUT TO|
000000C0: 47 45 54 48 45 52 20 46 4F 52 00 E9 08 50 00 8F |GETHER FOR...P..|
000000D0: 20 20 50 53 49 20 42 59 20 54 48 45 20 4E 49 47 | PSI BY THE NIG|
000000E0: 48 54 20 52 49 44 45 52 2E 00 EF 08 5A 00 8F 00 |HT RIDER....Z...|
000000F0: 06 09 64 00 8F 20 53 50 52 49 54 45 53 20 41 54 |..d.. SPRITES AT|
00000100: 20 24 33 46 38 30 00 27 09 6E 00 8F 20 44 49 53 | $3F80.'.n.. DIS|
00000110: 53 4F 4C 56 45 20 52 4F 55 54 49 4E 45 53 20 41 |SOLVE ROUTINES A|
00000120: 54 20 24 43 30 30 30 00 42 09 78 00 8B 58 B2 30 |T $C000.B.x..X.0|
00000130: A7 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 |..53280,6:.53281|
00000140: 2C 36 00 7A 09 82 00 8F 20 49 46 58 3D 30 54 48 |,6.z.... IFX=0TH|
00000150: 45 4E 50 52 49 4E 54 22 11 20 20 20 42 59 20 20 |ENPRINT". BY |
00000160: D4 48 45 20 CB 41 4E 53 41 53 20 C3 49 54 59 20 |.HE .ANSAS .ITY |
00000170: C3 4F 4D 4D 4F 44 4F 52 45 22 00 A9 09 84 00 8F |.OMMODORE"......|
00000180: 20 49 46 58 3D 30 54 48 45 4E 50 52 49 4E 54 22 | IFX=0THENPRINT"|
00000190: 20 20 20 20 20 20 20 D5 53 45 52 53 20 C7 52 4F | .SERS .RO|
000001A0: 55 50 2C 20 C9 4E 43 2E 22 00 DA 09 85 00 8F 20 |UP, .NC."...... |
000001B0: 49 46 58 3D 30 54 48 45 4E 50 52 49 4E 54 22 11 |IFX=0THENPRINT".|
000001C0: 11 20 20 20 20 20 20 20 C1 52 54 20 D3 48 4F 57 |. .RT .HOW|
000001D0: 20 D6 4F 4C 55 4D 45 20 C9 22 00 E3 09 86 00 99 | .OLUME ."......|
000001E0: 22 1F 22 00 08 0A 8C 00 8B 58 B2 30 A7 58 B2 31 |"."......X.0.X.1|
000001F0: 3A 8F 20 50 52 49 4E 54 22 11 11 11 4C 4F 41 44 |:. PRINT"...LOAD|
00000200: 49 4E 47 20 2E 2E 2E 22 00 20 0A 96 00 8B 58 B2 |ING ...". ....X.|
00000210: 31 A7 58 B2 32 3A 93 22 50 50 31 22 2C 38 2C 31 |1.X.2:."PP1",8,1|
00000220: 00 38 0A A0 00 8B 58 B2 32 A7 58 B2 33 3A 93 22 |.8....X.2.X.3:."|
00000230: 50 50 32 22 2C 38 2C 31 00 61 0A AA 00 8B 58 B2 |PP2",8,1.a....X.|
00000240: 33 A7 97 35 35 2C 30 3A 97 35 36 2C 33 31 3A 9C |3..55,0:.56,31:.|
00000250: 3A 58 B2 34 3A 4E 47 B2 4E 47 AA 31 3A 89 35 33 |:X.4:NG.NG.1:.53|
00000260: 30 00 85 0A B4 00 8B 58 B2 34 A7 58 B2 35 3A 97 |0......X.4.X.5:.|
00000270: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0|
00000280: 3A 89 32 30 30 00 92 0A BE 00 8B 58 B2 35 A7 32 |:.200......X.5.2|
00000290: 39 30 00 D0 0A C8 00 8F 20 50 52 49 4E 54 22 93 |90...... PRINT".|
000002A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000002B0: 20 20 20 20 20 20 20 20 20 D0 52 45 53 53 20 C1 | .RESS .|
000002C0: 4E 59 20 CB 45 59 20 D4 4F 20 D3 54 41 52 54 22 |NY .EY .O .TART"|
000002D0: 00 EC 0A C9 00 53 43 B2 B5 28 BB 28 30 29 AC 31 |.....SC..(.(0).1|
000002E0: 35 AA 31 29 3A 97 36 34 36 2C 53 43 00 07 0B D2 |5.1):.646,SC....|
000002F0: 00 8F 3A 47 45 54 41 24 3A 49 46 41 24 3D 22 22 |..:GETA$:IFA$=""|
00000300: 54 48 45 4E 32 30 30 00 21 0B DC 00 99 22 93 05 |THEN200.!...."..|
00000310: 22 3A 81 54 B2 30 A4 35 30 30 3A 82 3A 89 32 33 |":.T.0.500:.:.23|
00000320: 30 00 31 0B E6 00 8F 20 4D 41 49 4E 20 4C 4F 4F |0.1.... MAIN LOO|
00000330: 50 00 49 0B F0 00 8D 33 33 30 3A 8F 20 54 49 54 |P.I....330:. TIT|
00000340: 4C 45 20 53 43 52 45 45 4E 00 6C 0B FA 00 9E 33 |LE SCREEN.l....3|
00000350: 34 35 39 32 3A 8F 20 53 45 54 20 55 50 20 4D 43 |4592:. SET UP MC|
00000360: 20 42 49 54 4D 41 50 20 4D 4F 44 45 00 7B 0B 04 | BITMAP MODE.{..|
00000370: 01 81 54 B2 30 A4 31 30 30 3A 82 00 9D 0B 0E 01 |..T.0.100:......|
00000380: 9E 33 34 35 39 32 AA 33 3A 8F 20 44 49 53 53 4F |.34592.3:. DISSO|
00000390: 4C 56 45 20 49 4E 20 53 43 52 45 45 4E 00 B7 0B |LVE IN SCREEN...|
000003A0: 18 01 89 35 33 30 3A 8F 20 4C 4F 41 44 20 4E 45 |...530:. LOAD NE|
000003B0: 58 54 20 46 49 4C 45 00 D3 0B 22 01 9E 33 34 35 |XT FILE..."..345|
000003C0: 39 32 AA 36 3A 8F 20 44 49 53 53 4F 4C 56 45 20 |92.6:. DISSOLVE |
000003D0: 4F 55 54 00 D9 0B 2C 01 8F 00 F6 0B 36 01 8B 45 |OUT...,.....6..E|
000003E0: B2 31 A7 37 32 30 3A 8F 20 45 4E 44 20 4F 46 20 |.1.720:. END OF |
000003F0: 53 54 52 45 41 4D 00 FF 0B 40 01 89 32 35 30 00 |STREAM...@..250.|
00000400: 20 0C 4A 01 9E 33 34 35 39 32 AA 39 3A 8F 20 52 | .J..34592.9:. R|
00000410: 45 53 54 4F 52 45 20 54 45 58 54 20 4D 4F 44 45 |ESTORE TEXT MODE|
00000420: 00 35 0C 54 01 8F 20 53 50 52 49 54 45 20 50 4F |.5.T.. SPRITE PO|
00000430: 49 4E 54 45 52 00 4A 0C 5E 01 8F 20 53 50 52 49 |INTER.J.^.. SPRI|
00000440: 54 45 20 50 4F 49 4E 54 45 52 00 58 0C 68 01 56 |TE POINTER.X.h.V|
00000450: 49 43 B2 35 33 32 34 38 00 76 0C 72 01 8F 50 4F |IC.53248.v.r..PO|
00000460: 4B 45 56 49 43 2B 33 39 2C 36 3A 52 45 4D 20 43 |KEVIC+39,6:REM C|
00000470: 4F 4C 4F 52 20 30 00 94 0C 7C 01 8F 50 4F 4B 45 |OLOR 0...|..POKE|
00000480: 56 49 43 2B 34 30 2C 32 3A 52 45 4D 20 43 4F 4C |VIC+40,2:REM COL|
00000490: 4F 52 20 31 00 B7 0C 86 01 8F 50 4F 4B 45 56 49 |OR 1......POKEVI|
000004A0: 43 2B 32 39 2C 30 3A 52 45 4D 20 58 20 45 58 50 |C+29,0:REM X EXP|
000004B0: 41 4E 44 20 4F 46 46 00 D5 0C 90 01 8F 50 4F 4B |AND OFF......POK|
000004C0: 45 56 49 43 2B 32 38 2C 30 3A 52 45 4D 20 4D 43 |EVIC+28,0:REM MC|
000004D0: 4D 20 4F 46 46 00 F8 0C 9A 01 8F 50 4F 4B 45 56 |M OFF......POKEV|
000004E0: 49 43 2B 32 33 2C 30 3A 52 45 4D 20 59 20 45 58 |IC+23,0:REM Y EX|
000004F0: 50 41 4E 44 20 4F 46 46 00 1B 0D A4 01 8F 20 20 |PAND OFF...... |
00000500: 20 50 4F 4B 45 56 49 43 2B 31 36 2C 30 3A 52 45 | POKEVIC+16,0:RE|
00000510: 4D 20 4D 53 42 20 58 20 4F 46 46 00 42 0D AE 01 |M MSB X OFF.B...|
00000520: 8F 20 20 20 50 4F 4B 45 56 49 43 2B 31 2C 31 33 |. POKEVIC+1,13|
00000530: 36 3A 52 45 4D 20 59 20 4C 4F 43 41 54 49 4F 4E |6:REM Y LOCATION|
00000540: 20 30 00 64 0D B8 01 8F 4B 45 56 49 43 2B 33 2C | 0.d....KEVIC+3,|
00000550: 31 33 36 3A 52 45 4D 20 59 20 4C 4F 43 41 54 49 |136:REM Y LOCATI|
00000560: 4F 4E 20 31 00 89 0D C2 01 8F 20 50 4F 4B 45 56 |ON 1...... POKEV|
00000570: 49 43 2B 30 2C 31 32 38 3A 52 45 4D 20 58 20 4C |IC+0,128:REM X L|
00000580: 4F 43 41 54 49 4F 4E 20 30 00 B0 0D CC 01 8F 20 |OCATION 0...... |
00000590: 20 20 50 4F 4B 45 56 49 43 2B 32 2C 31 32 38 3A | POKEVIC+2,128:|
000005A0: 52 45 4D 20 58 20 4C 4F 43 41 54 49 4F 4E 20 31 |REM X LOCATION 1|
000005B0: 00 D3 0D D6 01 8F 20 20 20 20 20 50 4F 4B 45 56 |...... POKEV|
000005C0: 49 43 2B 32 31 2C 33 3A 52 45 4D 20 54 55 52 4E |IC+21,3:REM TURN|
000005D0: 20 4F 4E 00 0A 0E E0 01 8F 20 50 52 49 4E 54 22 | ON...... PRINT"|
000005E0: 93 05 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |................|
000005F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 43 4F 4D |............ COM|
00000600: 4D 4F 44 4F 52 45 20 36 34 22 00 33 0E EA 01 8F |MODORE 64".3....|
00000610: 20 50 52 49 4E 54 22 11 1D 1D 11 1D 1D 1D 1D 1D | PRINT".........|
00000620: 1D 1D 1D 1D 1D 1D 1D 20 20 20 41 52 54 20 53 48 |....... ART SH|
00000630: 4F 57 22 00 43 0E F4 01 81 54 B2 30 A4 32 35 30 |OW".C....T.0.250|
00000640: 30 3A 82 00 67 0E FE 01 8F 20 20 50 4F 4B 45 56 |0:..g.... POKEV|
00000650: 49 43 2B 32 31 2C 30 3A 52 45 4D 20 53 50 52 49 |IC+21,0:REM SPRI|
00000660: 54 45 53 20 4F 46 46 00 6D 0E 08 02 8E 00 83 0E |TES OFF.m.......|
00000670: 12 02 8F 49 46 4E 3D 30 54 48 45 4E 46 24 3D 22 |...IFN=0THENF$="|
00000680: 41 2A 22 00 9A 0E 1C 02 8F 20 49 46 4E 3D 31 54 |A*"...... IFN=1T|
00000690: 48 45 4E 46 24 3D 22 42 2A 22 00 B0 0E 26 02 8F |HENF$="B*"...&..|
000006A0: 49 46 4E 3D 32 54 48 45 4E 46 24 3D 22 43 2A 22 |IFN=2THENF$="C*"|
000006B0: 00 C6 0E 30 02 8F 49 46 4E 3D 33 54 48 45 4E 46 |...0..IFN=3THENF|
000006C0: 24 3D 22 44 2A 22 00 DC 0E 3A 02 8F 49 46 4E 3D |$="D*"...:..IFN=|
000006D0: 34 54 48 45 4E 46 24 3D 22 45 2A 22 00 F2 0E 44 |4THENF$="E*"...D|
000006E0: 02 8F 49 46 4E 3D 35 54 48 45 4E 46 24 3D 22 46 |..IFN=5THENF$="F|
000006F0: 2A 22 00 08 0F 4E 02 8F 49 46 4E 3D 36 54 48 45 |*"...N..IFN=6THE|
00000700: 4E 46 24 3D 22 48 2A 22 00 1F 0F 58 02 8F 20 49 |NF$="H*"...X.. I|
00000710: 46 4E 3D 37 54 48 45 4E 46 24 3D 22 49 2A 22 00 |FN=7THENF$="I*".|
00000720: 35 0F 62 02 8F 49 46 4E 3D 38 54 48 45 4E 46 24 |5.b..IFN=8THENF$|
00000730: 3D 22 4A 2A 22 00 4B 0F 6C 02 8F 49 46 4E 3D 39 |="J*".K.l..IFN=9|
00000740: 54 48 45 4E 46 24 3D 22 4B 2A 22 00 62 0F 76 02 |THENF$="K*".b.v.|
00000750: 8F 49 46 4E 3D 31 30 54 48 45 4E 46 24 3D 22 4C |.IFN=10THENF$="L|
00000760: 2A 22 00 79 0F 80 02 8F 49 46 4E 3D 31 31 54 48 |*".y....IFN=11TH|
00000770: 45 4E 46 24 3D 22 4D 2A 22 00 90 0F 8A 02 8F 49 |ENF$="M*"......I|
00000780: 46 4E 3D 31 32 54 48 45 4E 46 24 3D 22 4E 2A 22 |FN=12THENF$="N*"|
00000790: 00 A7 0F 94 02 8F 49 46 4E 3D 31 33 54 48 45 4E |......IFN=13THEN|
000007A0: 46 24 3D 22 4F 2A 22 00 C2 0F 9E 02 8F 49 46 4E |F$="O*"......IFN|
000007B0: 3D 31 34 54 48 45 4E 46 24 3D 22 50 2A 22 3A 45 |=14THENF$="P*":E|
000007C0: 3D 31 00 DB 0F A8 02 46 49 24 B2 C7 28 31 32 39 |=1.....FI$..(129|
000007D0: 29 AA 22 50 49 43 20 22 AA 46 24 00 E7 0F B2 02 |)."PIC ".F$.....|
000007E0: 8F 20 4E 3D 4E 2B 31 00 FC 0F BC 02 8B 4E 47 B2 |. N=N+1......NG.|
000007F0: 31 A7 93 22 50 50 33 22 2C 38 2C 31 00 0D 10 C1 |1.."PP3",8,1....|
00000800: 02 81 49 B2 31 A4 31 35 30 30 3A 82 49 00 18 10 |..I.1.1500:.I...|
00000810: C6 02 89 20 31 30 30 30 00 39 10 D0 02 9E 33 34 |... 1000.9....34|
00000820: 35 39 32 AA 39 3A 8F 20 52 45 53 54 4F 52 45 20 |592.9:. RESTORE |
00000830: 54 45 58 54 20 4D 4F 44 45 00 4C 10 DA 02 9C 3A |TEXT MODE.L....:|
00000840: 4E B2 30 3A 58 B2 35 3A 89 32 33 30 00 5D 10 E8 |N.0:X.5:.230.]..|
00000850: 03 93 22 50 50 35 22 2C 38 2C 31 3A A2 00 00 00 |.."PP5",8,1:....|
.......808,230......".". ...NG.0.9....
DIGITIZED PICTURE.R.... BY STEPHEN MURR
I..X.....~.(.. SPECIAL THANKS TO FRANK
COVITZ...2.. FOR DESIGNING THE DIGITIZE
R....<...J.F.. THIS SHOW PUT TOGETHER F
OR...P.. PSI BY THE NIGHT RIDER....Z...
..D.. SPRITES AT $3F80.'.N.. DISSOLVE RO
UTINES AT $C000.B.X..X.0..53280,6:.53281
,6.Z.... IFX=0THENPRINT". BY THE KANS
AS CITY COMMODORE"...... IFX=0THENPRINT"
USERS GROUP, INC.".Z.... IFX=0THE
NPRINT".. ART SHOW VOLUME I"......
"."......X.0.X.1:. PRINT"...LOADING ..."
. ....X.1.X.2:."PP1",8,1.8. ..X.2.X.3:."
PP2",8,1.A....X.3..55,0:.56,31:.:X.4:NG.
NG.1:.530......X.4.X.5:.53280,0:.53281,0
:.200......X.5.290.P.H.. PRINT".........
........ PRESS ANY KEY TO START"
...I.SC..(.(0).15.1):.646,SC...R..:GETA$
:IFA$=""THEN200.!...."..":.T.0.500:.:.23
0.1.... MAIN LOOP.I....330:. TITLE SCREE
N.L....34592:. SET UP MC BITMAP MODE.{..
..T.0.100:.......34592.3:. DISSOLVE IN S
CREEN......530:. LOAD NEXT FILE.S."..345
92.6:. DISSOLVE OUT.Y.,.....6..E.1.720:.
END OF STREAM...@..250. .J..34592.9:. R
ESTORE TEXT MODE.5.T.. SPRITE POINTER.J.
^.. SPRITE POINTER.X.H.VIC.53248.V.R..PO
KEVIC+39,6:REM COLOR 0...|..POKEVIC+40,2
:REM COLOR 1......POKEVIC+29,0:REM X EXP
AND OFF.U....POKEVIC+28,0:REM MCM OFF...
...POKEVIC+23,0:REM Y EXPAND OFF......
POKEVIC+16,0:REM MSB X OFF.B.... POKE
VIC+1,136:REM Y LOCATION 0.D....KEVIC+3,
136:REM Y LOCATION 1...B.. POKEVIC+0,128
:REM X LOCATION 0...L.. POKEVIC+2,128:
REM X LOCATION 1.S.V.. POKEVIC+21,3:
REM TURN ON...... PRINT"................
............ COMMODORE 64".3.... PRINT".
............... ART SHOW".C....T.0.250
0:..G.... POKEVIC+21,0:REM SPRITES OFF.
M..........IFN=0THENF$="A*"...... IFN=1T
HENF$="B*"...&..IFN=2THENF$="C*".F.0..IF
N=3THENF$="D*"...:..IFN=4THENF$="E*"...D
..IFN=5THENF$="F*"...N..IFN=6THENF$="H*"
...X.. IFN=7THENF$="I*".5.B..IFN=8THENF$
="J*".K.L..IFN=9THENF$="K*".B.V..IFN=10T
HENF$="L*".Y....IFN=11THENF$="M*"......I
FN=12THENF$="N*"......IFN=13THENF$="O*".
B....IFN=14THENF$="P*":E=1.....FI$.G(129
)."PIC ".F$...... N=N+1......NG.1.."PP3"
,8,1...A..I.1.1500:.I...F.. 1000.9.P..34
592.9:. RESTORE TEXT MODE.L.Z..:N.0:X.5:
.230.]...."PP5",8,1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL