P-P
FILE INFORMATION
FILENAME(S): P-P
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:23:15
APPEARS ON: 1 disk(s)
FILE HASH
9a6ea3567f0a45f10c2e4dcf8a975d8659a1eacf1e6b11997f91c952bceff737
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 10 1 | P-P | PRG | DuncanTwain | 22 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 01 00 89 31 30 30 30 00 41 08 03 00 |.......1000.A...|
00000010: 8F 20 50 52 4F 47 52 41 4D 4D 20 5A 55 52 20 45 |. PROGRAMM ZUR E|
00000020: 52 4D 49 54 54 4C 55 4E 47 20 44 45 52 20 44 52 |RMITTLUNG DER DR|
00000030: 55 43 4B 45 52 4B 45 4E 4E 47 52 4F 45 53 53 45 |UCKERKENNGROESSE|
00000040: 4E 00 51 08 04 00 8F 20 41 55 53 47 41 42 45 4E |N.Q.... AUSGABEN|
00000050: 3A 00 72 08 05 00 8F 20 41 31 20 2D 20 50 52 49 |:.r.... A1 - PRI|
00000060: 4D 41 45 52 41 44 52 45 53 53 45 20 28 31 2D 31 |MAERADRESSE (1-1|
00000070: 36 29 00 9F 08 06 00 8F 20 41 32 20 2D 20 31 20 |6)...... A2 - 1 |
00000080: 46 41 4C 4C 53 20 43 4F 4D 4D 4F 44 4F 52 45 2D |FALLS COMMODORE-|
00000090: 47 52 41 50 48 49 4B 2D 44 52 55 43 4B 45 52 00 |GRAPHIK-DRUCKER.|
000000A0: C0 08 07 00 8F 20 20 20 20 20 20 32 20 46 41 4C |..... 2 FAL|
000000B0: 4C 53 20 41 53 43 49 49 2D 44 52 55 43 4B 45 52 |LS ASCII-DRUCKER|
000000C0: 00 E7 08 08 00 8F 20 41 33 20 2D 20 30 20 46 41 |...... A3 - 0 FA|
000000D0: 4C 4C 53 20 4B 45 49 4E 20 41 55 54 4F 2D 4C 49 |LLS KEIN AUTO-LI|
000000E0: 4E 45 2D 46 45 45 44 00 09 09 09 00 8F 20 20 20 |NE-FEED...... |
000000F0: 20 20 20 31 20 46 41 4C 4C 53 20 41 55 54 4F 2D | 1 FALLS AUTO-|
00000100: 4C 49 4E 45 2D 46 45 45 44 00 2D 09 0A 00 8F 20 |LINE-FEED.-.... |
00000110: 41 34 20 2D 20 53 45 4B 55 4E 44 41 45 52 41 44 |A4 - SEKUNDAERAD|
00000120: 52 45 53 53 45 20 28 30 2C 37 2C 38 29 00 5C 09 |RESSE (0,7,8).\.|
00000130: 0B 00 8F 20 41 35 20 2D 20 5A 45 49 4C 45 4E 41 |... A5 - ZEILENA|
00000140: 42 53 54 41 4E 44 20 47 52 41 50 48 49 4B 20 49 |BSTAND GRAPHIK I|
00000150: 4E 20 31 2F 31 34 34 20 5A 4F 4C 4C 00 8B 09 0C |N 1/144 ZOLL....|
00000160: 00 8F 20 41 36 20 2D 20 5A 45 49 4C 45 4E 41 42 |.. A6 - ZEILENAB|
00000170: 53 54 41 4E 44 20 54 45 58 54 20 20 20 20 49 4E |STAND TEXT IN|
00000180: 20 31 2F 31 34 34 20 5A 4F 4C 4C 00 91 09 0D 00 | 1/144 ZOLL.....|
00000190: 8F 00 CF 09 0E 00 8F 20 41 55 53 47 41 42 45 20 |....... AUSGABE |
000001A0: 56 4F 4E 20 41 31 20 42 49 53 20 41 36 20 41 4C |VON A1 BIS A6 AL|
000001B0: 53 20 36 20 41 55 46 45 49 4E 41 4E 44 45 52 46 |S 6 AUFEINANDERF|
000001C0: 4F 4C 47 45 4E 44 45 20 53 54 52 49 4E 47 53 00 |OLGENDE STRINGS.|
000001D0: F5 09 0F 00 8F 20 49 4E 20 44 49 45 20 53 45 51 |..... IN DIE SEQ|
000001E0: 55 45 4E 54 49 45 4C 4C 45 20 44 41 54 45 49 20 |UENTIELLE DATEI |
000001F0: 22 50 2D 53 22 00 FB 09 10 00 8F 00 16 0A 40 00 |"P-S".........@.|
00000200: 22 56 45 52 54 45 49 4C 55 4E 47 45 4E 22 20 20 |"VERTEILUNGEN" |
00000210: 20 20 20 50 52 47 00 4B 0A C8 00 99 22 1D 1D 22 | PRG.K....".."|
00000220: 54 54 24 C8 28 22 9D 9D 9D 9D 9D 9D 9D 9D 22 2C |TT$.("........",|
00000230: C3 28 54 54 24 29 AA 32 29 3B 3A 85 54 54 24 3A |.(TT$).2);:.TT$:|
00000240: 54 54 B2 C5 28 54 54 24 29 3A 8E 00 6F 0A 90 01 |TT..(TT$):..o...|
00000250: 99 22 11 1D 1D 1D 1D 1D 1D 12 55 4E 47 55 45 4C |."........UNGUEL|
00000260: 54 49 47 45 20 45 49 4E 47 41 42 45 22 3A 8E 00 |TIGE EINGABE":..|
00000270: 90 0A F4 01 44 52 B2 C2 28 37 36 33 29 3A 44 52 |....DR..(763):DR|
00000280: 24 B2 CA 28 22 30 31 22 2C 44 52 AA 31 2C 31 29 |$..("01",DR.1,1)|
00000290: 00 9F 0A F9 01 A0 31 3A 9F 31 2C 38 2C 31 35 00 |......1:.1,8,15.|
000002A0: CD 0A FE 01 9F 38 2C 38 2C 38 2C 44 52 24 AA 22 |.....8,8,8,DR$."|
000002B0: 3A 50 2D 53 2C 53 2C 52 22 3A 84 31 2C 46 45 2C |:P-S,S,R":.1,FE,|
000002C0: 46 45 24 3A 8B 46 45 B3 33 A7 35 32 30 00 07 0B |FE$:.FE.3.520...|
000002D0: 03 02 41 31 24 B2 22 34 22 3A 41 32 24 B2 22 31 |..A1$."4":A2$."1|
000002E0: 22 3A 41 33 24 B2 22 31 22 3A 41 34 24 B2 22 30 |":A3$."1":A4$."0|
000002F0: 22 3A 41 35 24 B2 22 32 34 22 3A 41 36 24 B2 41 |":A5$."24":A6$.A|
00000300: 35 24 3A 89 35 32 32 00 35 0B 08 02 84 38 2C 41 |5$:.522.5....8,A|
00000310: 31 24 3A 84 38 2C 41 32 24 3A 84 38 2C 41 33 24 |1$:.8,A2$:.8,A3$|
00000320: 3A 84 38 2C 41 34 24 3A 84 38 2C 41 35 24 3A 84 |:.8,A4$:.8,A5$:.|
00000330: 38 2C 41 36 24 00 4C 0B 09 02 41 33 24 B2 CA 28 |8,A6$.L...A3$..(|
00000340: 22 4A 4E 22 2C 41 33 AA 31 2C 31 29 00 55 0B 0A |"JN",A3.1,1).U..|
00000350: 02 A0 38 3A 8E 00 84 0B 26 02 99 22 93 CE A3 A3 |..8:....&.."....|
00000360: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000370: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000380: A3 A3 CD 22 00 B3 0B 27 02 99 20 22 A5 20 20 20 |..."...'.. ". |
00000390: 20 20 44 52 55 43 4B 45 52 20 20 2D 20 20 4B 4F | DRUCKER - KO|
000003A0: 4E 46 49 47 55 52 41 54 49 4F 4E 20 20 20 20 20 |NFIGURATION |
000003B0: 20 A7 22 00 E2 0B 29 02 99 20 22 CD A4 A4 A4 A4 | ."...).. ".....|
000003C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000003D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000003E0: CE 22 00 E8 0B 2A 02 8E 00 F6 0B E8 03 8D 35 35 |."...*........55|
000003F0: 30 3A 8D 35 30 30 00 28 0C FC 03 54 54 24 B2 41 |0:.500.(...TT$.A|
00000400: 31 24 3A 99 22 11 1D 3D 3D 3D 3E 1D 50 52 49 4D |1$:."..===>.PRIM|
00000410: 41 45 52 41 44 52 45 53 53 45 20 22 3B 3A 8D 32 |AERADRESSE ";:.2|
00000420: 30 30 3A 41 31 B2 54 54 00 45 0C 01 04 8B 41 31 |00:A1.TT.E....A1|
00000430: B3 B2 30 B0 41 31 B1 B2 31 36 A7 8D 34 30 30 3A |..0.A1..16..400:|
00000440: 89 31 30 32 30 00 6B 0C 06 04 99 22 11 11 1D 3D |.1020.k...."...=|
00000450: 3D 3D 3E 1D 28 31 29 20 43 4F 4D 4D 4F 44 4F 52 |==>.(1) COMMODOR|
00000460: 45 2D 47 52 41 50 48 49 4B 2D 22 00 84 0C 07 04 |E-GRAPHIK-".....|
00000470: 99 22 1D 1D 1D 1D 1D 1D 20 20 20 20 44 52 55 43 |."...... DRUC|
00000480: 4B 45 52 22 00 A3 0C 08 04 99 22 1D 1D 1D 1D 1D |KER"......".....|
00000490: 1D 28 32 29 20 41 53 43 49 49 2D 44 52 55 43 4B |.(2) ASCII-DRUCK|
000004A0: 45 52 22 00 D9 0C 0B 04 54 54 24 B2 41 32 24 3A |ER".....TT$.A2$:|
000004B0: 99 22 11 1D 1D 1D 1D 1D 1D 20 20 20 20 57 45 4C |."....... WEL|
000004C0: 43 48 45 52 20 44 52 55 43 4B 45 52 22 3B 3A 8D |CHER DRUCKER";:.|
000004D0: 32 30 30 3A 41 32 B2 54 54 00 F6 0C 0C 04 8B 41 |200:A2.TT......A|
000004E0: 32 B3 B1 31 A7 8B 41 32 B3 B1 32 A7 8D 34 30 30 |2..1..A2..2..400|
000004F0: 3A 89 31 30 33 35 00 19 0D 0D 04 41 33 B2 30 3A |:.1035.....A3.0:|
00000500: 41 34 B2 30 3A 41 35 B2 30 3A 41 36 B2 30 3A 8B |A4.0:A5.0:A6.0:.|
00000510: 41 32 B2 31 A7 31 30 35 30 00 53 0D 10 04 54 54 |A2.1.1050.S...TT|
00000520: 24 B2 41 33 24 3A 99 22 11 11 1D 3D 3D 3D 3E 1D |$.A3$:."...===>.|
00000530: 41 55 54 4F 2D 4C 49 4E 45 2D 46 45 45 44 3F 20 |AUTO-LINE-FEED? |
00000540: 28 4A 2F 4E 29 22 3B 3A 8D 32 30 30 3A 41 24 B2 |(J/N)";:.200:A$.|
00000550: 54 54 24 00 74 0D 15 04 8B 41 24 B3 B1 22 4A 22 |TT$.t....A$.."J"|
00000560: A7 8B 41 24 B3 B1 22 4E 22 A7 8D 34 30 30 3A 89 |..A$.."N"..400:.|
00000570: 31 30 34 30 00 85 0D 16 04 8B 41 24 B2 22 4A 22 |1040......A$."J"|
00000580: A7 41 33 B2 31 00 94 0D 17 04 8B 41 32 B2 32 A7 |.A3.1......A2.2.|
00000590: 32 30 30 30 00 B4 0D 1A 04 99 22 11 11 1D 3D 3D |2000......"...==|
000005A0: 3D 3E 1D 53 45 4B 55 4E 44 41 45 52 41 44 52 45 |=>.SEKUNDAERADRE|
000005B0: 53 53 45 22 00 CF 0D 1B 04 99 22 1D 1D 1D 1D 1D |SSE"......".....|
000005C0: 1D 28 37 29 20 54 45 58 54 4D 4F 44 55 53 22 00 |.(7) TEXTMODUS".|
000005D0: EE 0D 1C 04 99 22 1D 1D 1D 1D 1D 1D 28 38 29 20 |....."......(8) |
000005E0: 47 52 41 50 48 49 4B 2D 4D 4F 44 55 53 22 00 0D |GRAPHIK-MODUS"..|
000005F0: 0E 1D 04 99 22 1D 1D 1D 1D 1D 1D 28 30 29 20 4E |...."......(0) N|
00000600: 49 43 48 54 20 42 45 44 49 45 4E 54 22 00 4B 0E |ICHT BEDIENT".K.|
00000610: 1F 04 54 54 24 B2 41 34 24 3A 99 22 11 1D 1D 1D |..TT$.A4$:."....|
00000620: 1D 1D 1D 20 20 20 20 57 45 4C 43 48 45 20 53 45 |... WELCHE SE|
00000630: 4B 55 4E 44 41 45 52 41 44 52 45 53 53 45 22 3B |KUNDAERADRESSE";|
00000640: 3A 8D 32 30 30 3A 41 34 B2 54 54 00 6F 0E 21 04 |:.200:A4.TT.o.!.|
00000650: 8B 41 34 B3 B1 30 A7 8B 41 34 B3 B1 37 A7 8B 41 |.A4..0..A4..7..A|
00000660: 34 B3 B1 38 A7 8D 34 30 30 3A 89 31 30 35 35 00 |4..8..400:.1055.|
00000670: AD 0E 24 04 54 54 24 B2 41 35 24 20 3A 99 22 11 |..$.TT$.A5$ :.".|
00000680: 11 1D 3D 3D 3D 3E 1D 50 55 4E 4B 54 41 42 53 54 |..===>.PUNKTABST|
00000690: 41 4E 44 20 46 55 45 52 20 47 52 41 50 48 49 4B |AND FUER GRAPHIK|
000006A0: 22 3B 3A 8D 32 30 30 3A 41 35 B2 54 54 00 CA 0E |";:.200:A5.TT...|
000006B0: 29 04 8B 41 35 B3 B2 30 B0 41 35 B1 32 35 35 A7 |)..A5..0.A5.255.|
000006C0: 8D 34 30 30 3A 89 31 30 36 30 00 04 0F 2E 04 54 |.400:.1060.....T|
000006D0: 54 24 B2 41 36 24 20 3A 99 22 11 1D 1D 1D 1D 1D |T$.A6$ :."......|
000006E0: 1D 50 55 4E 4B 54 41 42 53 54 41 4E 44 20 46 55 |.PUNKTABSTAND FU|
000006F0: 45 52 20 54 45 58 54 22 3B 3A 8D 32 30 30 3A 41 |ER TEXT";:.200:A|
00000700: 36 B2 54 54 00 21 0F 33 04 8B 41 36 B3 B2 30 B0 |6.TT.!.3..A6..0.|
00000710: 41 36 B1 32 35 35 A7 8D 34 30 30 3A 89 31 30 37 |A6.255..400:.107|
00000720: 30 00 4D 0F D0 07 99 22 11 11 1D 3D 3D 3D 3E 20 |0.M...."...===> |
00000730: 45 49 4E 47 41 42 45 4E 20 52 49 43 48 54 49 47 |EINGABEN RICHTIG|
00000740: 20 20 28 12 4A 92 2F 12 4E 92 29 22 3B 00 61 0F | (.J./.N.)";.a.|
00000750: D5 07 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 30 |...A$:.A$."".200|
00000760: 35 00 6F 0F DA 07 8B 41 24 B2 22 4E 22 A7 8A 00 |5.o....A$."N"...|
00000770: 80 0F E4 07 8B 41 24 B2 22 4A 22 A7 33 30 30 30 |.....A$."J".3000|
00000780: 00 8A 0F EE 07 89 32 30 30 35 00 AB 0F B8 0B 44 |......2005.....D|
00000790: 52 B2 C2 28 37 36 33 29 3A 44 52 24 B2 CA 28 22 |R..(763):DR$..("|
000007A0: 30 31 22 2C 44 52 AA 31 2C 31 29 00 CC 0F C2 0B |01",DR.1,1).....|
000007B0: A0 31 3A 9F 31 2C 38 2C 31 35 3A 98 31 2C 22 53 |.1:.1,8,15:.1,"S|
000007C0: 22 AA 44 52 24 AA 22 3A 50 2D 53 22 00 E5 0F C7 |".DR$.":P-S"....|
000007D0: 0B 84 31 2C 46 45 2C 46 45 24 3A 8B 46 45 B1 32 |..1,FE,FE$:.FE.2|
000007E0: A7 33 30 34 30 00 09 10 CC 0B 9F 38 2C 38 2C 38 |.3040......8,8,8|
000007F0: 2C 44 52 24 AA 22 3A 50 2D 53 2C 53 2C 57 22 3A |,DR$.":P-S,S,W":|
00000800: 44 43 24 B2 C7 28 31 33 29 00 22 10 D6 0B 84 31 |DC$..(13)."....1|
00000810: 2C 46 45 2C 46 45 24 3A 8B 46 45 B3 33 A7 33 31 |,FE,FE$:.FE.3.31|
00000820: 30 30 00 2C 10 E0 0B A0 31 3A A0 38 00 39 10 E5 |00.,....1:.8.9..|
00000830: 0B 99 22 11 12 22 46 45 24 00 68 10 EA 0B 85 22 |..".."FE$.h...."|
00000840: 11 57 45 49 54 45 52 4D 41 43 48 45 4E 22 3B 41 |.WEITERMACHEN";A|
00000850: 24 3A 8B 41 24 B3 B1 22 4A 22 A7 8B 41 24 B3 B1 |$:.A$.."J"..A$..|
00000860: 22 4E 22 A7 33 30 35 30 00 79 10 F4 0B 8B 41 24 |"N".3050.y....A$|
00000870: B2 22 4A 22 A7 33 30 30 30 00 83 10 FE 0B 89 33 |."J".3000......3|
00000880: 31 35 30 00 B5 10 1C 0C 98 38 2C 41 31 3B 44 43 |150......8,A1;DC|
00000890: 24 3B 41 32 3B 44 43 24 3B 41 33 3B 44 43 24 3B |$;A2;DC$;A3;DC$;|
000008A0: 41 34 3B 44 43 24 3B 41 35 3B 44 43 24 3B 41 36 |A4;DC$;A5;DC$;A6|
000008B0: 3B 44 43 24 3B 00 BF 10 4E 0C A0 38 3A A0 31 00 |;DC$;...N..8:.1.|
000008C0: E9 10 6C 0C 99 22 93 4C 4F 41 44 22 AA C7 28 33 |..l..".LOAD"..(3|
000008D0: 34 29 AA 44 52 24 22 3A 44 49 41 4E 41 22 AA C7 |4).DR$":DIANA"..|
000008E0: 28 33 34 29 AA 22 2C 38 22 00 F9 10 71 0C 41 B2 |(34).",8"...q.A.|
000008F0: 36 32 33 3A 42 B2 31 35 38 00 1A 11 76 0C 54 56 |623:B.158...v.TV|
00000900: 24 B2 22 91 91 91 91 22 AA C7 28 31 33 29 AA 22 |$."...."..(13)."|
00000910: 52 55 4E 22 AA C7 28 31 33 29 00 43 11 7B 0C 81 |RUN"..(13).C.{..|
00000920: 49 B2 30 A4 38 3A 97 41 AA 49 2C C6 28 CA 28 54 |I.0.8:.A.I,.(.(T|
00000930: 56 24 2C 49 AA 31 2C 31 29 29 3A 82 3A 97 42 2C |V$,I.1,1)):.:.B,|
00000940: 39 3A 80 00 00 00 E9 |9:..... |
.......1000.A.... PROGRAMM ZUR ERMITTLUN
G DER DRUCKERKENNGROESSEN.Q.... AUSGABEN
:.R.... A1 - PRIMAERADRESSE (1-16)......
A2 - 1 FALLS COMMODORE-GRAPHIK-DRUCKER.
..... 2 FALLS ASCII-DRUCKER...... A
3 - 0 FALLS KEIN AUTO-LINE-FEED......
1 FALLS AUTO-LINE-FEED.-.... A4 - SEK
UNDAERADRESSE (0,7,8).\.... A5 - ZEILENA
BSTAND GRAPHIK IN 1/144 ZOLL...... A6 -
ZEILENABSTAND TEXT IN 1/144 ZOLL.....
..O.... AUSGABE VON A1 BIS A6 ALS 6 AUFE
INANDERFOLGENDE STRINGS...... IN DIE SEQ
UENTIELLE DATEI "P-S".........@."VERTEIL
UNGEN" PRG.K.H..".."TT$H("........",
C(TT$).2);:.TT$:TT.E(TT$):..O...."......
..UNGUELTIGE EINGABE":......DR.B(763):DR
$.J("01",DR.1,1)..... 1:.1,8,15.M....8,8
,8,DR$.":P-S,S,R":.1,FE,FE$:.FE.3.520...
..A1$."4":A2$."1":A3$."1":A4$."0":A5$."2
4":A6$.A5$:.522.5....8,A1$:.8,A2$:.8,A3$
:.8,A4$:.8,A5$:.8,A6$.L...A3$.J("JN",A3.
1,1).U... 8:....&..".N..................
..................M"...'.. ". DRUCKE
R - KONFIGURATION ."...).. "M....
................................N"...*..
......550:.500.(...TT$.A1$:."..===>.PRIM
AERADRESSE ";:.200:A1.TT.E....A1..0.A1..
16..400:.1020.K...."...===>.(1) COMMODOR
E-GRAPHIK-"......"...... DRUCKER"....
.."......(2) ASCII-DRUCKER".Y...TT$.A2$:
."....... WELCHER DRUCKER";:.200:A2.T
T......A2..1..A2..2..400:.1035.....A3.0:
A4.0:A5.0:A6.0:.A2.1.1050.S...TT$.A3$:."
...===>.AUTO-LINE-FEED? (J/N)";:.200:A$.
TT$.T....A$.."J"..A$.."N"..400:.1040....
..A$."J".A3.1......A2.2.2000......"...==
=>.SEKUNDAERADRESSE".O...."......(7) TEX
TMODUS"......"......(8) GRAPHIK-MODUS"..
...."......(0) NICHT BEDIENT".K...TT$.A4
$:."....... WELCHE SEKUNDAERADRESSE";
:.200:A4.TT.O.!..A4..0..A4..7..A4..8..40
0:.1055...$.TT$.A5$ :."...===>.PUNKTABST
AND FUER GRAPHIK";:.200:A5.TT.J.)..A5..0
.A5.255..400:.1060.....TT$.A6$ :."......
.PUNKTABSTAND FUER TEXT";:.200:A6.TT.!.3
..A6..0.A6.255..400:.1070.M.P.."...===>
EINGABEN RICHTIG (.J./.N.)";.A.U..A$:.A
$."".2005.O.Z..A$."N"........A$."J".3000
......2005.....DR.B(763):DR$.J("01",DR.1
,1).L.B. 1:.1,8,15:.1,"S".DR$.":P-S"...G
..1,FE,FE$:.FE.2.3040...L..8,8,8,DR$.":P
-S,S,W":DC$.G(13).".V..1,FE,FE$:.FE.3.31
00.,... 1: 8.9....".."FE$.H....".WEITERM
ACHEN";A$:.A$.."J"..A$.."N".3050.Y....A$
."J".3000......3150......8,A1;DC$;A2;DC$
;A3;DC$;A4;DC$;A5;DC$;A6;DC$;...N. 8: 1.
..L..".LOAD".G(34).DR$":DIANA".G(34).",8
"...Q.A.623:B.158...V.TV$."....".G(13)."
RUN".G(13).C.{..I.0.8:.A.I,F(J(TV$,I.1,1
)):.:.B,9:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL