PRG4<3>
FILE INFORMATION
FILENAME(S): PRG4<3>
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 20:18:58
APPEARS ON: 1 disk(s)
FILE HASH
c659b309d9167116d4cd1c2b86fa44fdb8156f1210da0983c05badb9bc43278c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 30 SIDE 1 | PRG4<3> | PRG | Curtcool, Malcom | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 0B 00 8F 20 2A 2A 20 |******.K.... ** | 00000030: 47 52 41 46 4B 55 50 4F 4E 2E 20 20 20 20 20 20 |GRAFKUPON. | 00000040: 20 20 20 20 20 20 20 20 20 20 2A 00 70 08 14 00 | *.p...| 00000050: 8F 20 2A 2A 20 4A 2E 4B 2E 20 4C 41 53 45 52 20 |. ** J.K. LASER | 00000060: 26 20 53 43 45 4E 45 20 54 45 4B 4E 49 4B 2E 2A |& SCENE TEKNIK.*| 00000070: 00 95 08 1E 00 8F 20 2A 2A 20 3C 43 3E 20 43 4F |...... ** <C> CO| 00000080: 50 59 52 49 47 48 54 20 20 31 39 38 39 2E 20 20 |PYRIGHT 1989. | 00000090: 20 20 20 20 2A 00 BA 08 28 00 8F 20 2A 2A 2A 2A | *...(.. ****| 000000A0: 2A 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 00 D5 08 E8 03 86 |**********......| 000000C0: 20 54 28 33 30 29 2C 41 24 28 31 32 29 2C 45 44 | T(30),A$(12),ED| 000000D0: 24 28 31 32 29 00 E4 08 FC 03 81 20 49 B2 31 20 |$(12)...... I.1 | 000000E0: A4 20 33 30 00 09 09 10 04 54 28 49 29 B2 B5 28 |. 30.....T(I)..(| 000000F0: 28 33 35 AA 28 49 AB 31 29 AC 34 AD 28 32 2E 35 |(35.(I.1).4.(2.5| 00000100: 33 AD 36 29 29 AA 2E 35 29 00 11 09 24 04 82 20 |3.6))..5)...$.. | 00000110: 49 00 2B 09 38 04 99 22 93 22 20 20 20 3A 85 20 |I.+.8.."." :. | 00000120: 20 22 55 47 45 20 20 3A 22 3B 55 00 43 09 4C 04 | "UGE :";U.C.L.| 00000130: 8B 20 55 B3 31 20 B0 20 55 B1 35 32 20 A7 20 31 |. U.1 . U.52 . 1| 00000140: 30 38 30 00 5D 09 60 04 8F 20 2A 20 53 45 4C 56 |080.].`.. * SELV| 00000150: 45 20 53 30 47 4E 49 4E 47 45 4E 20 2A 00 6B 09 |E S0GNINGEN *.k.| 00000160: 74 04 86 20 53 24 28 37 30 30 29 00 79 09 88 04 |t.. S$(700).y...| 00000170: 9F 20 31 35 2C 38 2C 31 35 00 97 09 9C 04 9F 20 |. 15,8,15...... | 00000180: 35 2C 38 2C 35 2C 22 30 3A 4B 22 AA C4 28 55 29 |5,8,5,"0:K"..(U)| 00000190: AA 22 2C 53 2C 52 22 00 AB 09 B0 04 84 31 35 2C |.",S,R"......15,| 000001A0: 46 24 2C 47 24 2C 48 24 2C 49 24 00 BB 09 C4 04 |F$,G$,H$,I$.....| 000001B0: 8B 20 C5 28 46 24 29 B1 30 20 A7 00 C3 09 D8 04 |. .(F$).0 ......| 000001C0: 4B B2 31 00 D0 09 EC 04 84 35 2C 53 24 28 4B 29 |K.1......5,S$(K)| 000001D0: 00 EA 09 00 05 8B 20 53 54 B2 30 20 A7 20 4B B2 |...... ST.0 . K.| 000001E0: 4B AA 31 3A 89 20 31 32 36 30 00 F7 09 14 05 A0 |K.1:. 1260......| 000001F0: 20 31 35 3A A0 20 35 00 01 0A 28 05 9F 20 33 2C | 15:. 5...(.. 3,| 00000200: 34 00 14 0A 50 05 81 20 49 B2 31 20 A4 20 4B 20 |4...P.. I.1 . K | 00000210: A9 20 31 30 00 28 0A 5A 05 81 20 4A B2 31 20 A4 |. 10.(.Z.. J.1 .| 00000220: 20 35 3A 98 33 2C 3A 82 00 37 0A 8C 05 81 20 4E | 5:.3,:..7.... N| 00000230: B2 31 20 A4 20 31 33 00 3F 0A 96 05 51 B2 30 00 |.1 . 13.?...Q.0.| 00000240: 58 0A A0 05 8F 20 2A 20 55 44 53 4B 52 49 46 54 |X.... * UDSKRIFT| 00000250: 53 44 45 4C 45 4E 20 2A 00 88 0A DC 05 51 B2 31 |SDELEN *.....Q.1| 00000260: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 30 29 2C 4E |:ED$..(S$(I.0),N| 00000270: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 00000280: 3B 3A 45 44 24 B2 22 22 00 B8 0A 04 06 51 B2 31 |;:ED$."".....Q.1| 00000290: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 31 29 2C 4E |:ED$..(S$(I.1),N| 000002A0: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 000002B0: 3B 3A 45 44 24 B2 22 22 00 E8 0A 2C 06 51 B2 33 |;:ED$.""...,.Q.3| 000002C0: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 32 29 2C 4E |:ED$..(S$(I.2),N| 000002D0: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 000002E0: 3B 3A 45 44 24 B2 22 22 00 18 0B 54 06 51 B2 34 |;:ED$.""...T.Q.4| 000002F0: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 33 29 2C 4E |:ED$..(S$(I.3),N| 00000300: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 00000310: 3B 3A 45 44 24 B2 22 22 00 48 0B 7C 06 51 B2 35 |;:ED$."".H.|.Q.5| 00000320: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 34 29 2C 4E |:ED$..(S$(I.4),N| 00000330: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 00000340: 3B 3A 45 44 24 B2 22 22 00 78 0B A4 06 51 B2 36 |;:ED$."".x...Q.6| 00000350: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 35 29 2C 4E |:ED$..(S$(I.5),N| 00000360: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 00000370: 3B 3A 45 44 24 B2 22 22 00 A8 0B CC 06 51 B2 37 |;:ED$."".....Q.7| 00000380: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 36 29 2C 4E |:ED$..(S$(I.6),N| 00000390: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 000003A0: 3B 3A 45 44 24 B2 22 22 00 D8 0B F4 06 51 B2 38 |;:ED$."".....Q.8| 000003B0: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 37 29 2C 4E |:ED$..(S$(I.7),N| 000003C0: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 000003D0: 3B 3A 45 44 24 B2 22 22 00 08 0C 1C 07 51 B2 39 |;:ED$."".....Q.9| 000003E0: 3A 45 44 24 B2 CA 28 53 24 28 49 AA 38 29 2C 4E |:ED$..(S$(I.8),N| 000003F0: 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 24 |,1):.1960:.3,ED$| 00000400: 3B 3A 45 44 24 B2 22 22 00 39 0C 44 07 51 B2 31 |;:ED$."".9.D.Q.1| 00000410: 30 3A 45 44 24 B2 CA 28 53 24 28 49 AA 39 29 2C |0:ED$..(S$(I.9),| 00000420: 4E 2C 31 29 3A 8D 31 39 36 30 3A 98 33 2C 45 44 |N,1):.1960:.3,ED| 00000430: 24 3B 3A 45 44 24 B2 22 22 00 41 0C 58 07 82 20 |$;:ED$."".A.X.. | 00000440: 4E 00 55 0C 6C 07 8B 20 58 58 B2 31 20 A7 20 89 |N.U.l.. XX.1 . .| 00000450: 20 31 39 34 30 00 6F 0C 85 07 81 20 4A B2 31 20 | 1940.o.... J.1 | 00000460: A4 20 31 35 3A 98 33 2C 3A 82 3A 58 58 B2 31 00 |. 15:.3,:.:XX.1.| 00000470: 7A 0C 8A 07 89 20 31 33 36 30 00 9F 0C 94 07 99 |z.... 1360......| 00000480: 22 9A 49 4E 44 53 54 49 4C 20 50 41 50 49 52 20 |".INDSTIL PAPIR | 00000490: 2D 20 54 52 59 4B 20 45 4E 20 54 41 53 54 22 00 |- TRYK EN TAST".| 000004A0: B9 0C 95 07 A1 20 53 56 24 3A 8B 20 53 56 24 B2 |..... SV$:. SV$.| 000004B0: 22 22 20 A7 20 31 39 34 31 00 C1 0C 99 07 82 20 |"" . 1941...... | 000004C0: 49 00 CF 0C A7 07 98 33 2C 3A A0 20 33 3A 80 00 |I......3,:. 3:..| 000004D0: EB 0C A8 07 8F 20 2A 20 45 44 49 54 45 52 49 4E |..... * EDITERIN| 000004E0: 47 20 41 46 20 54 45 47 4E 20 2A 00 08 0D BC 07 |G AF TEGN *.....| 000004F0: 8B 20 45 44 24 B2 22 31 22 20 A7 20 54 50 B2 28 |. ED$."1" . TP.(| 00000500: 51 AB 31 29 AC 33 AA 31 00 25 0D D0 07 8B 20 45 |Q.1).3.1.%.... E| 00000510: 44 24 B2 22 58 22 20 A7 20 54 50 B2 28 51 AB 31 |D$."X" . TP.(Q.1| 00000520: 29 AC 33 AA 32 00 42 0D E4 07 8B 20 45 44 24 B2 |).3.2.B.... ED$.| 00000530: 22 32 22 20 A7 20 54 50 B2 28 51 AB 31 29 AC 33 |"2" . TP.(Q.1).3| 00000540: AA 33 00 4D 0D F8 07 8D 20 32 30 38 30 00 53 0D |.3.M.... 2080.S.| 00000550: 0C 08 8E 00 6C 0D 20 08 8F 20 2A 20 50 52 49 4E |....l. .. * PRIN| 00000560: 54 20 50 4F 53 49 54 49 4F 4E 20 2A 00 72 0D 2A |T POSITION *.r.*| 00000570: 08 8C 00 88 0D 34 08 41 24 B2 22 22 3A 5A B2 30 |.....4.A$."":Z.0| 00000580: 3A 59 B2 30 3A 41 B2 30 00 94 0D 48 08 5A B2 54 |:Y.0:A.0...H.Z.T| 00000590: 28 54 50 29 00 B5 0D 5C 08 8B 20 5A B1 32 35 35 |(TP)...\.. Z.255| 000005A0: 20 A7 20 59 B2 B5 28 5A AD 36 29 3A 5A B2 5A AB | . Y..(Z.6):Z.Z.| 000005B0: 28 59 AC 36 29 00 CD 0D 84 08 41 24 B2 C7 28 38 |(Y.6).....A$..(8| 000005C0: 29 AA C7 28 32 37 29 AA C7 28 31 36 29 00 E7 0D |)..(27)..(16)...| 000005D0: AE 08 41 24 B2 41 24 AA C7 28 59 29 3A 41 24 B2 |..A$.A$..(Y):A$.| 000005E0: 41 24 AA C7 28 5A 29 00 F5 0D B1 08 81 20 4A B2 |A$..(Z)...... J.| 000005F0: 31 20 A4 20 37 00 08 0E B4 08 87 20 41 3A 41 24 |1 . 7...... A:A$| 00000600: B2 41 24 AA C7 28 41 29 00 10 0E B6 08 82 20 4A |.A$..(A)...... J| 00000610: 00 31 0E D4 08 83 20 31 39 34 2C 31 36 34 2C 31 |.1.... 194,164,1| 00000620: 35 32 2C 31 35 32 2C 31 36 34 2C 31 39 34 2C 31 |52,152,164,194,1| 00000630: 35 00 42 0E E8 08 45 44 24 B2 41 24 3A 41 24 B2 |5.B...ED$.A$:A$.| 00000640: 22 22 00 48 0E FC 08 8E 00 00 00 FE |"".H........ |
..&.... ******************************.K .... ** GRAFKUPON. *.P... . ** J.K. LASER & SCENE TEKNIK.*...... * * <C> COPYRIGHT 1989. *...(.. **** **************************.U.... T(30),A $(12),ED$(12)...... I.1 . 30.....T(I)..( (35.(I.1).4.(2.53.6))..5)...$.. I.+.8.." ." :. "UGE :";U.C.L.. U.1 . U.52 . 1 080.].`.. * SELVE S0GNINGEN *.K.T.. S$(7 00).Y.... 15,8,15...... 5,8,5,"0:K".D(U) .",S,R"......15,F$,G$,H$,I$...D.. E(F$). 0 ..C.X.K.1.P....5,S$(K)...... ST.0 . K. K.1:. 1260..... 15: 5...(.. 3,4...P.. I.1 . K . 10.(.Z.. J.1 . 5:.3,:..7.... N .1 . 13.?...Q.0.X. .. * UDSKRIFTSDELEN * .....Q.1:ED$.J(S$(I.0),N,1):.1960:.3,ED$ ;:ED$."".....Q.1:ED$.J(S$(I.1),N,1):.196 0:.3,ED$;:ED$.""...,.Q.3:ED$.J(S$(I.2),N ,1):.1960:.3,ED$;:ED$.""...T.Q.4:ED$.J(S $(I.3),N,1):.1960:.3,ED$;:ED$."".H.|.Q.5 :ED$.J(S$(I.4),N,1):.1960:.3,ED$;:ED$."" .X...Q.6:ED$.J(S$(I.5),N,1):.1960:.3,ED$ ;:ED$.""...L.Q.7:ED$.J(S$(I.6),N,1):.196 0:.3,ED$;:ED$."".X...Q.8:ED$.J(S$(I.7),N ,1):.1960:.3,ED$;:ED$."".....Q.9:ED$.J(S $(I.8),N,1):.1960:.3,ED$;:ED$."".9.D.Q.1 0:ED$.J(S$(I.9),N,1):.1960:.3,ED$;:ED$." ".A.X.. N.U.L.. XX.1 . . 1940.O.... J.1 . 15:.3,:.:XX.1.Z.... 1360......".INDSTI L PAPIR - TRYK EN TAST"...... SV$:. SV$. "" . 1941.A.... I.O....3,: 3:....... * EDITERING AF TEGN *...... ED$."1" . TP.( Q.1).3.1.%.P.. ED$."X" . TP.(Q.1).3.2.B. ... ED$."2" . TP.(Q.1).3.3.M.... 2080.S. ....L. .. * PRINT POSITION *.R.*.....4.A $."":Z.0:Y.0:A.0...H.Z.T(TP)...\.. Z.255 . Y..(Z.6):Z.Z.(Y.6).M...A$.G(8).G(27). G(16).....A$.A$.G(Y):A$.A$.G(Z)...... J. 1 . 7...... A:A$.A$.G(A)...... J.1.T.. 1 94,164,152,152,164,194,15.B...ED$.A$:A$. "".H........
> CLICK IMAGE PREVIEW FOR FULL MODAL