PETPRO #2
FILE INFORMATION
FILENAME(S): PETPRO #2
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 21:13:13
APPEARS ON: 1 disk(s)
FILE HASH
5139ed5b8a659c8fa7037758b841b2c238ea66f8472ab090bca7c600f127e2f4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEKSTVERW C64 | PETPRO #2 | PRG | DuncanTwain | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 14 00 97 35 33 32 37 32 2C 32 32 3A |..A....53272,22:| 00000010: 99 22 05 93 12 D0 C5 D4 D0 D2 CF 23 32 92 22 3A |.".........#2.":| 00000020: 99 A6 31 31 29 22 11 28 43 29 C9 20 C2 49 52 4E |..11)".(C). .IRN| 00000030: 42 41 55 4D 20 31 39 38 31 11 11 22 3A 89 33 32 |BAUM 1981..":.32| 00000040: 30 00 63 08 1E 00 99 22 11 D0 52 45 53 53 20 27 |0.c...."..RESS '| 00000050: 53 50 41 43 45 27 20 57 48 45 4E 20 52 45 41 44 |SPACE' WHEN READ| 00000060: 59 2E 22 00 77 08 28 00 A1 41 24 3A 8B 41 24 B3 |Y.".w.(..A$:.A$.| 00000070: B1 22 20 22 A7 34 30 00 7D 08 32 00 8E 00 9A 08 |." ".40.}.2.....| 00000080: 3C 00 99 22 93 11 11 11 22 3B 3A 81 49 B2 30 A4 |<.."....";:.I.0.| 00000090: 39 3A 8B 4E AA 49 B1 43 A7 8E 00 BD 08 46 00 99 |9:.N.I.C.....F..| 000000A0: 49 3B C9 28 41 24 28 4E AA 49 29 2C C3 28 41 24 |I;.(A$(N.I),.(A$| 000000B0: 28 4E AA 49 29 29 AB 31 29 3A 82 3A 8E 00 F9 08 |(N.I)).1):.:....| 000000C0: 50 00 99 22 13 1D 1D 22 C7 28 33 34 29 C7 28 33 |P.."...".(34).(3| 000000D0: 34 29 C7 28 32 30 29 22 13 11 22 A6 41 AA 34 29 |4).(20)"..".A.4)| 000000E0: 22 5E 13 1D 1D 1D 22 3B 3A 97 36 32 33 2C 32 39 |"^....";:.623,29| 000000F0: 3A 97 31 35 38 2C 31 3A 8E 00 14 09 5A 00 81 4B |:.158,1:....Z..K| 00000100: B2 31 30 32 34 A4 32 30 32 33 3A 97 4B 2C 33 32 |.1024.2023:.K,32| 00000110: 3A 82 3A 8E 00 48 09 64 00 99 22 13 CD 41 58 20 |:.:..H.d.."..AX | 00000120: 4C 49 4E 45 20 4C 45 4E 47 54 48 20 45 58 43 45 |LINE LENGTH EXCE| 00000130: 45 44 45 44 2E 22 3A 51 B2 31 31 31 31 3A 8D 32 |EDED.":Q.1111:.2| 00000140: 34 30 3A 8D 39 30 3A 8E 00 6F 09 6E 00 99 22 93 |40:.90:..o.n..".| 00000150: CE 4F 20 22 41 24 22 20 50 4F 53 53 49 42 4C 45 |.O "A$" POSSIBLE| 00000160: 3A 20 4D 45 4D 4F 52 59 20 46 55 4C 4C 2E 22 00 |: MEMORY FULL.".| 00000170: 84 09 78 00 51 B2 32 30 30 30 3A 8D 32 34 30 3A |..x.Q.2000:.240:| 00000180: 89 38 32 30 00 A1 09 82 00 A1 41 24 3A 8B 41 24 |.820......A$:.A$| 00000190: B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 31 33 |.."Y".A$.."N".13| 000001A0: 30 00 A7 09 8C 00 8E 00 DD 09 96 00 52 24 B2 22 |0...........R$."| 000001B0: 30 3A 22 3A 99 22 11 12 4B 92 45 59 42 4F 41 52 |0:":."..K.EYBOAR| 000001C0: 44 20 4F 52 20 12 54 92 41 50 45 20 28 3D 46 4C |D OR .T.APE (=FL| 000001D0: 4F 50 50 59 29 20 49 4E 50 55 54 3F 22 00 FA 09 |OPPY) INPUT?"...| 000001E0: A0 00 A1 42 24 3A 8B 42 24 B3 B1 22 4B 22 AF 42 |...B$:.B$.."K".B| 000001F0: 24 B3 B1 22 54 22 A7 31 36 30 00 00 0A AA 00 8E |$.."T".160......| 00000200: 00 32 0A B4 00 81 49 B2 31 A4 43 3A 41 24 28 49 |.2....I.1.C:A$(I| 00000210: 29 B2 22 22 3A 82 3A 55 B2 31 3A 59 B2 B8 28 30 |)."":.:U.1:Y..(0| 00000220: 29 AA 36 35 30 30 30 3A 4C B2 30 3A 99 22 93 22 |).65000:L.0:."."| 00000230: 3A 8E 00 73 0A BE 00 99 22 93 CE 41 4D 45 20 4F |:..s...."..AME O| 00000240: 46 20 54 41 50 45 20 46 49 4C 45 20 28 49 46 20 |F TAPE FILE (IF | 00000250: 4E 4F 20 4E 41 4D 45 22 3A 85 22 50 52 45 53 53 |NO NAME":."PRESS| 00000260: 20 27 52 45 54 55 52 4E 27 1D 1D DF 9D 9D 9D 22 | 'RETURN'......"| 00000270: 3B 41 24 00 85 0A C8 00 8B 41 24 B2 22 DF 22 A7 |;A$......A$.".".| 00000280: 41 24 B2 22 22 00 A9 0A D2 00 9F 42 2C 51 2C 52 |A$.""......B,Q,R| 00000290: 2C 52 24 AA 41 24 AA 46 24 3A 8D 31 34 30 30 3A |,R$.A$.F$:.1400:| 000002A0: 52 24 B2 22 30 3A 22 3A 8E 00 E5 0A DC 00 4A B2 |R$."0:":......J.| 000002B0: 31 3A 42 B2 32 3A 51 B2 38 3A 52 B2 38 3A 46 24 |1:B.2:Q.8:R.8:F$| 000002C0: B2 22 2C 53 2C 57 22 20 3A 8D 31 39 30 3A 81 49 |.",S,W" :.190:.I| 000002D0: B2 31 A4 43 3A 98 32 2C C7 28 33 34 29 AA 41 24 |.1.C:.2,.(34).A$| 000002E0: 28 49 29 3A 82 00 F6 0A E6 00 A0 42 3A 97 31 34 |(I):.......B:.14| 000002F0: 34 2C 34 39 3A 8E 00 05 0B F0 00 81 52 B2 31 A4 |4,49:.......R.1.| 00000300: 51 3A 82 3A 8E 00 2A 0B FA 00 4C B2 4C AA C3 28 |Q:.:..*...L.L..(| 00000310: 41 24 28 4E AA 4A 29 29 AC 44 3A 8B 4C B1 2E 37 |A$(N.J)).D:.L..7| 00000320: AC 59 B0 43 B2 4D A7 45 B2 32 00 30 0B 04 01 8E |.Y.C.M.E.2.0....| 00000330: 00 4E 0B 0E 01 52 B2 30 3A 44 B2 44 AA 31 3A 8B |.N...R.0:D.D.1:.| 00000340: 44 B1 4E A7 44 B2 32 3A 8B 51 B2 30 A7 8E 00 66 |D.N.D.2:.Q.0...f| 00000350: 0B 18 01 8B CA 28 41 24 2C 44 2C 31 29 B3 B1 22 |.....(A$,D,1).."| 00000360: 20 22 A7 52 B2 31 00 71 0B 22 01 8B 52 B2 51 A7 | ".R.1.q."..R.Q.| 00000370: 8E 00 7A 0B 2C 01 89 32 37 30 00 B2 0B 36 01 44 |..z.,..270...6.D| 00000380: B2 AB 31 3A 8D 32 35 30 3A 43 B2 43 AB 31 3A 81 |..1:.250:C.C.1:.| 00000390: 49 B2 4E AA 4A A4 43 3A 41 24 28 49 29 B2 41 24 |I.N.J.C:A$(I).A$| 000003A0: 28 49 AA 31 29 3A 82 3A 41 24 28 49 29 B2 22 22 |(I.1):.:A$(I).""| 000003B0: 3A 8E 00 D8 0B 40 01 9F 31 35 2C 38 2C 31 35 3A |:....@..15,8,15:| 000003C0: 97 31 34 34 2C 34 39 3A 8D 31 35 30 3A 43 24 B2 |.144,49:.150:C$.| 000003D0: 42 24 3A 99 22 93 22 3B 00 0F 0C 4A 01 85 22 CD |B$:.".";...J..".| 000003E0: 41 58 20 4C 49 4E 45 20 4C 45 4E 47 54 48 20 28 |AX LINE LENGTH (| 000003F0: 37 33 20 4F 52 20 4C 45 53 53 29 22 3B 41 3A 8B |73 OR LESS)";A:.| 00000400: 41 B1 37 33 A7 99 22 91 22 3B 3A 89 33 33 30 00 |A.73..".";:.330.| 00000410: 1F 0C 54 01 8B 42 24 B2 22 54 22 A7 34 33 30 00 |..T..B$."T".430.| 00000420: 61 0C 5E 01 99 22 11 C1 55 54 4F 4D 41 54 49 43 |a.^.."..UTOMATIC| 00000430: 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4E | CARRIAGE RETURN| 00000440: 22 3A 99 22 57 49 4C 4C 20 4F 43 43 55 52 20 42 |":."WILL OCCUR B| 00000450: 45 54 57 45 45 4E 20 43 48 41 52 41 43 54 45 52 |ETWEEN CHARACTER| 00000460: 22 00 7D 0C 68 01 99 22 50 4F 53 49 54 49 4F 4E |".}.h.."POSITION| 00000470: 53 22 41 AB 37 22 41 4E 44 22 41 AA 32 00 A7 0C |S"A.7"AND"A.2...| 00000480: 72 01 85 22 11 C8 4F 57 20 4D 41 4E 59 20 D4 C1 |r.."..OW MANY ..| 00000490: C2 53 20 28 4D 41 58 20 31 30 29 22 3B 54 3A 8B |.S (MAX 10)";T:.| 000004A0: 54 B2 30 A7 34 32 30 00 BC 0C 7C 01 8B 54 B1 31 |T.0.420...|..T.1| 000004B0: 30 A7 99 22 91 22 3B 3A 89 33 37 30 00 E3 0C 86 |0..".";:.370....| 000004C0: 01 99 22 11 12 C5 4E 54 45 52 20 54 48 45 4D 20 |.."...NTER THEM | 000004D0: 49 4E 20 4E 55 4D 45 52 49 43 41 4C 20 4F 52 44 |IN NUMERICAL ORD| 000004E0: 45 52 22 00 17 0D 90 01 99 22 C3 4F 4C 55 4D 4E |ER"......".OLUMN| 000004F0: 20 50 4F 53 49 54 49 4F 4E 53 20 41 52 45 20 42 | POSITIONS ARE B| 00000500: 45 54 57 45 45 4E 20 31 20 41 4E 44 22 41 3A 99 |ETWEEN 1 AND"A:.| 00000510: 3A 81 49 B2 31 A4 54 00 32 0D 9A 01 99 22 D4 C1 |:.I.1.T.2...."..| 00000520: C2 20 4E 4F 2E 22 3B 49 3B 3A 85 54 25 28 49 29 |. NO.";I;:.T%(I)| 00000530: 3A 82 00 3F 0D A4 01 8B 56 B2 31 A7 35 30 30 00 |:..?....V.1.500.| 00000540: 84 0D AE 01 4D B2 B5 28 28 B8 28 30 29 AA 36 35 |....M..((.(0).65| 00000550: 30 30 30 29 AD 41 29 AA 31 30 3A 5A B2 B5 28 2E |000).A).10:Z..(.| 00000560: 39 AC 4D 29 3A 86 41 24 28 4D 29 3A 59 B2 B8 28 |9.M):.A$(M):Y..(| 00000570: 30 29 AA 36 35 30 30 30 3A 8B 42 24 B2 22 4B 22 |0).65000:.B$."K"| 00000580: A7 35 30 30 00 AB 0D B8 01 42 B2 31 3A 49 B2 31 |.500.....B.1:I.1| 00000590: 3A 4A B2 30 3A 51 B2 38 3A 52 B2 38 3A 46 24 B2 |:J.0:Q.8:R.8:F$.| 000005A0: 22 2C 53 2C 52 22 3A 8D 31 39 30 00 CC 0D C2 01 |",S,R":.190.....| 000005B0: 81 43 B2 31 A4 5A 3A 84 31 2C 41 24 28 43 29 3A |.C.1.Z:.1,A$(C):| 000005C0: 4C B2 4C AA C3 28 41 24 28 43 29 29 00 F1 0D CC |L.L..(A$(C))....| 000005D0: 01 8B 53 54 B2 36 34 A7 99 22 93 C5 4E 44 20 4F |..ST.64.."..ND O| 000005E0: 46 20 46 49 4C 45 22 3A 8D 32 33 30 3A 89 37 39 |F FILE":.230:.79| 000005F0: 30 00 02 0E D6 01 8B 4C B1 2E 37 AC 59 A7 89 34 |0......L..7.Y..4| 00000600: 39 30 00 0E 0E E0 01 82 3A 43 B2 43 AB 31 00 23 |90......:C.C.1.#| 00000610: 0E EA 01 46 B2 31 3A 97 31 34 34 2C 34 39 3A 89 |...F.1:.144,49:.| 00000620: 37 38 30 00 2B 0E F4 01 8D 33 30 00 52 0E FE 01 |780.+....30.R...| 00000630: 99 22 93 22 3B 3A 97 31 36 37 2C 30 3A 43 B2 31 |.".";:.167,0:C.1| 00000640: 3A 44 B2 30 3A 45 B2 30 3A 41 24 28 31 29 B2 22 |:D.0:E.0:A$(1)."| 00000650: 11 22 00 65 0E 08 02 A1 41 24 3A 8B 41 24 B2 22 |.".e....A$:.A$."| 00000660: 22 A7 35 32 30 00 7F 0E 12 02 49 B2 C6 28 41 24 |".520.....I..(A$| 00000670: 29 AF 31 32 37 3A 8B 49 B2 31 33 A7 36 37 30 00 |).127:.I.13.670.| 00000680: AD 0E 1C 02 8B 28 44 B2 31 AF 41 24 B2 22 20 22 |.....(D.1.A$." "| 00000690: 29 B0 49 B2 33 B0 49 B2 31 37 B0 49 B2 31 39 B0 |).I.3.I.17.I.19.| 000006A0: 49 B2 31 38 B0 49 B2 32 39 A7 35 32 30 00 CA 0E |I.18.I.29.520...| 000006B0: 26 02 44 B2 30 3A 8B C6 28 41 24 29 B2 33 34 A7 |&.D.0:..(A$).34.| 000006C0: 99 22 93 22 3B 3A 89 37 39 30 00 DD 0E 30 02 8B |.".";:.790...0..| 000006D0: 41 24 B2 22 AC 22 A7 41 24 B2 22 2C 22 00 EE 0E |A$.".".A$.","...| 000006E0: 3A 02 8B 49 B2 35 39 A7 41 24 B2 22 2E 22 00 01 |:..I.59.A$."."..| 000006F0: 0F 44 02 8B 41 24 B2 22 3A 22 A7 41 24 B2 22 3B |.D..A$.":".A$.";| 00000700: 22 00 14 0F 4E 02 8B 41 24 B2 22 BA 22 A7 41 24 |"...N..A$.".".A$| 00000710: B2 22 3A 22 00 22 0F 58 02 8B 49 B2 39 35 A7 37 |.":".".X..I.95.7| 00000720: 35 30 00 3D 0F 62 02 8B 49 B3 B1 32 30 AF 49 B3 |50.=.b..I..20.I.| 00000730: B1 39 34 A7 99 41 24 3B 3A 89 37 31 30 00 51 0F |.94..A$;:.710.Q.| 00000740: 6C 02 8B C3 28 41 24 28 43 29 29 B2 31 A7 36 34 |l...(A$(C)).1.64| 00000750: 30 00 7C 0F 76 02 41 24 28 43 29 B2 C8 28 41 24 |0.|.v.A$(C)..(A$| 00000760: 28 43 29 2C C3 28 41 24 28 43 29 29 AB 31 29 3A |(C),.(A$(C)).1):| 00000770: 99 C7 28 32 30 29 3B 3A 89 35 32 30 00 9C 0F 80 |..(20);:.520....| 00000780: 02 41 24 28 43 29 B2 22 22 3A 43 B2 43 AB 31 3A |.A$(C)."":C.C.1:| 00000790: 4C B2 4C AB C3 28 41 24 28 43 29 29 00 B6 0F 8A |L.L..(A$(C))....| 000007A0: 02 8B C3 28 41 24 28 43 29 29 B1 33 39 A7 99 22 |...(A$(C)).39.."| 000007B0: 92 20 9D 91 22 3B 00 DC 0F 94 02 99 22 92 20 9D |. ..";......". .| 000007C0: 91 22 C9 28 41 24 28 43 29 2C C3 28 41 24 28 43 |.".(A$(C),.(A$(C| 000007D0: 29 29 AB 31 29 20 3B 3A 89 35 32 30 00 09 10 9E |)).1) ;:.520....| 000007E0: 02 8B C3 28 41 24 28 43 29 29 B3 B2 33 39 A7 58 |...(A$(C))..39.X| 000007F0: B2 32 32 35 AA C2 28 32 31 36 29 3A 97 58 2C 28 |.225..(216):.X,(| 00000800: C2 28 58 29 B0 31 32 38 29 00 2A 10 A8 02 99 22 |.(X).128).*...."| 00000810: 92 20 22 C7 28 31 33 29 3B 3A 45 B2 30 3A 4C B2 |. ".(13);:E.0:L.| 00000820: 4C AA C3 28 41 24 28 43 29 29 00 44 10 B2 02 8B |L..(A$(C)).D....| 00000830: 43 B2 5A B0 4C B1 2E 38 AC 59 A7 99 22 93 22 3A |C.Z.L..8.Y..".":| 00000840: 89 37 38 30 00 5D 10 BC 02 43 B2 43 AA 31 3A 41 |.780.]...C.C.1:A| 00000850: 24 28 43 29 B2 22 11 22 3A 89 35 32 30 00 7E 10 |$(C).".":.520.~.| 00000860: C6 02 8B 45 B2 30 AF C3 28 41 24 28 43 29 29 B1 |...E.0..(A$(C)).| 00000870: 41 AB 37 AF 41 24 B2 22 20 22 A7 37 34 30 00 91 |A.7.A$." ".740..| 00000880: 10 D0 02 41 24 28 43 29 B2 41 24 28 43 29 AA 41 |...A$(C).A$(C).A| 00000890: 24 00 A7 10 DA 02 8B C3 28 41 24 28 43 29 29 B3 |$.......(A$(C)).| 000008A0: 41 AA 33 A7 35 32 30 00 B4 10 E4 02 44 B2 31 3A |A.3.520.....D.1:| 000008B0: 89 36 38 30 00 D7 10 EE 02 81 51 B2 31 A4 54 3A |.680......Q.1.T:| 000008C0: 8B C2 28 31 39 38 29 B1 B2 54 25 28 51 29 AB 31 |..(198)..T%(Q).1| 000008D0: A7 82 3A 89 35 32 30 00 0B 11 F8 02 50 B2 54 25 |..:.520.....P.T%| 000008E0: 28 51 29 AB C2 28 31 39 38 29 AB 31 3A 81 57 B2 |(Q)..(198).1:.W.| 000008F0: 31 A4 50 3A 41 24 28 43 29 B2 41 24 28 43 29 AA |1.P:A$(C).A$(C).| 00000900: 22 20 22 3A 99 22 20 22 3B 3A 82 00 23 11 02 03 |" ":." ";:..#...| 00000910: 45 B2 28 51 B2 54 29 AC 28 54 B3 B1 31 29 3A 89 |E.(Q.T).(T..1):.| 00000920: 35 32 30 00 41 11 0C 03 99 22 93 C3 4F 4D 50 55 |520.A...."..OMPU| 00000930: 54 45 52 20 4D 45 4D 4F 52 59 20 46 55 4C 4C 2E |TER MEMORY FULL.| 00000940: 22 00 84 11 16 03 97 31 36 37 2C 31 3A 99 22 11 |"......167,1:.".| 00000950: C5 44 49 54 20 54 45 58 54 20 49 46 20 4E 45 43 |.DIT TEXT IF NEC| 00000960: 45 53 53 41 52 59 2E 22 3A 99 22 11 D0 52 45 53 |ESSARY.":."..RES| 00000970: 53 20 22 C7 28 33 34 29 22 20 57 48 45 4E 20 52 |S ".(34)" WHEN R| 00000980: 45 41 44 59 00 9B 11 20 03 A1 41 24 3A 8B 41 24 |EADY... ..A$:.A$| 00000990: B3 B1 C7 28 33 34 29 A7 38 30 30 00 A3 11 2A 03 |...(34).800...*.| 000009A0: 4E B2 31 00 B5 11 34 03 8D 36 30 3A 8B 49 B2 30 |N.1...4..60:.I.0| 000009B0: A7 31 31 33 30 00 EE 11 3E 03 99 22 12 44 92 45 |.1130...>..".D.E| 000009C0: 4C 45 54 45 20 12 45 92 44 49 54 20 12 49 92 4E |LETE .E.DIT .I.N| 000009D0: 53 45 52 54 20 12 53 92 51 55 45 45 5A 45 20 2B |SERT .S.QUEEZE +| 000009E0: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 22 3B 00 13 | LINE NUMBER";..| 000009F0: 12 48 03 99 A6 31 30 29 22 4F 54 48 45 52 57 49 |.H...10)"OTHERWI| 00000A00: 53 45 20 45 12 58 92 49 54 20 12 3E 92 20 12 3C |SE E.X.IT .>. .<| 00000A10: 92 22 3B 00 52 12 52 03 A1 41 24 3A 8B 28 41 24 |.";.R.R..A$:.(A$| 00000A20: B2 22 3C 22 AF 4E B1 31 30 29 B0 41 24 B2 22 3E |."<".N.10).A$.">| 00000A30: 22 A7 4E B2 4E AA 31 30 AC 28 41 24 B2 22 3C 22 |".N.N.10.(A$."<"| 00000A40: 29 AB 31 30 AC 28 41 24 B2 22 3E 22 29 3A 89 38 |).10.(A$.">"):.8| 00000A50: 32 30 00 63 12 5C 03 8B 41 24 B2 22 58 22 A7 31 |20.c.\..A$."X".1| 00000A60: 31 33 30 00 94 12 66 03 8B 41 24 B2 22 22 B0 28 |130...f..A$."".(| 00000A70: 41 24 B3 B1 22 44 22 AF 41 24 B3 B1 22 45 22 AF |A$.."D".A$.."E".| 00000A80: 41 24 B3 B1 22 49 22 AF 41 24 B3 B1 22 53 22 29 |A$.."I".A$.."S")| 00000A90: A7 38 35 30 00 9D 12 70 03 99 41 24 3B 00 B0 12 |.850...p..A$;...| 00000AA0: 7A 03 A1 42 24 3A 8B 42 24 B2 22 22 A7 38 39 30 |z..B$:.B$."".890| 00000AB0: 00 C8 12 84 03 8B C6 28 42 24 29 B2 32 30 A7 99 |.......(B$).20..| 00000AC0: 42 24 3B 3A 89 38 35 30 00 E3 12 8E 03 8B C6 28 |B$;:.850.......(| 00000AD0: 42 24 29 B3 34 38 B0 C6 28 42 24 29 B1 35 37 A7 |B$).48..(B$).57.| 00000AE0: 38 39 30 00 0A 13 98 03 99 42 24 3B 3A 4A B2 C5 |890......B$;:J..| 00000AF0: 28 42 24 29 3A 8B 4A B1 49 A7 4A B2 49 AC 28 41 |(B$):.J.I.J.I.(A| 00000B00: 24 B3 B1 22 45 22 29 AC AB 31 00 20 13 A2 03 8B |$.."E")..1. ....| 00000B10: 41 24 B2 22 44 22 A7 8D 33 31 30 3A 89 38 32 30 |A$."D"..310:.820| 00000B20: 00 31 13 AC 03 8B 41 24 B2 22 49 22 A7 31 30 30 |.1....A$."I".100| 00000B30: 30 00 42 13 B6 03 8B 41 24 B2 22 53 22 A7 31 30 |0.B....A$."S".10| 00000B40: 34 30 00 67 13 C0 03 8B 45 B2 32 A7 8B B8 28 30 |40.g....E.2...(0| 00000B50: 29 B3 32 35 30 A7 41 24 B2 22 45 44 49 54 49 4E |).250.A$."EDITIN| 00000B60: 47 22 3A 89 31 31 30 00 9B 13 CA 03 44 B2 AB 31 |G":.110.....D..1| 00000B70: 3A 8D 32 35 30 3A 8D 38 30 3A 99 C9 28 41 24 28 |:.250:.80:..(A$(| 00000B80: 4E AA 4A 29 2C C3 28 41 24 28 4E AA 4A 29 29 AB |N.J),.(A$(N.J)).| 00000B90: 31 29 3B 3A 85 22 13 22 3B 41 24 00 B8 13 D4 03 |1);:.".";A$.....| 00000BA0: 8D 39 30 3A 8B C3 28 41 24 29 B1 41 AA 32 A7 8D |.90:..(A$).A.2..| 00000BB0: 31 30 30 3A 89 39 37 30 00 D9 13 DE 03 41 24 28 |100:.970.....A$(| 00000BC0: 4E AA 4A 29 B2 22 11 22 AA 41 24 3A 44 B2 31 3A |N.J).".".A$:D.1:| 00000BD0: 8D 32 35 30 3A 89 38 32 30 00 0C 14 E8 03 8B 45 |.250:.820......E| 00000BE0: B2 32 A7 8B 28 B8 28 30 29 AA 36 35 30 30 30 29 |.2..(.(0).65000)| 00000BF0: B3 33 30 30 B0 43 B2 4D A7 41 24 B2 22 49 4E 53 |.300.C.M.A$."INS| 00000C00: 45 52 54 49 4E 47 22 3A 89 31 31 30 00 32 14 F2 |ERTING":.110.2..| 00000C10: 03 81 49 B2 43 A4 4E AA 4A A9 AB 31 3A 41 24 28 |..I.C.N.J..1:A$(| 00000C20: 49 AA 31 29 B2 41 24 28 49 29 3A 82 3A 43 B2 43 |I.1).A$(I):.:C.C| 00000C30: AA 31 00 5C 14 FC 03 8D 38 30 3A 85 22 13 22 3B |.1.\....80:.".";| 00000C40: 41 24 3A 8D 39 30 3A 8B C3 28 41 24 29 B1 41 AA |A$:.90:..(A$).A.| 00000C50: 32 A7 8D 31 30 30 3A 89 31 30 32 30 00 65 14 06 |2..100:.1020.e..| 00000C60: 04 89 39 39 30 00 A5 14 10 04 81 52 B2 4E AA 4A |..990......R.N.J| 00000C70: A4 43 AB 31 3A 41 24 B2 41 24 28 52 29 3A 45 24 |.C.1:A$.A$(R):E$| 00000C80: B2 41 24 28 52 AA 31 29 3A 57 B2 C3 28 41 24 29 |.A$(R.1):W..(A$)| 00000C90: 3A 4B B2 C3 28 45 24 29 3A 8B 4B B3 32 B0 57 B2 |:K..(E$):.K.2.W.| 00000CA0: 31 A7 38 32 30 00 B7 14 1A 04 8B 57 B1 41 AB 37 |1.820......W.A.7| 00000CB0: A7 82 3A 89 38 32 30 00 CE 14 24 04 8B CA 28 45 |..:.820...$...(E| 00000CC0: 24 2C 32 2C 31 29 B2 22 20 22 A7 38 32 30 00 E0 |$,2,1)." ".820..| 00000CD0: 14 2E 04 8B 4B B3 41 AB 36 AB 57 A7 31 31 30 30 |....K.A.6.W.1100| 00000CE0: 00 0D 15 38 04 81 42 B2 41 AB 35 AB 57 A4 4B AB |...8..B.A.5.W.K.| 00000CF0: 31 3A 8B CA 28 45 24 2C 42 2C 31 29 B2 22 20 22 |1:..(E$,B,1)." "| 00000D00: B0 42 B1 41 AA 33 AB 57 A7 31 31 31 30 00 26 15 |.B.A.3.W.1110.&.| 00000D10: 42 04 82 3A 8B 4B B2 41 AB 57 AA 34 A7 42 B2 4B |B..:.K.A.W.4.B.K| 00000D20: 3A 89 31 31 31 30 00 56 15 4C 04 41 24 28 52 29 |:.1110.V.L.A$(R)| 00000D30: B2 41 24 AA 22 20 22 AA C9 28 45 24 2C 4B AB 31 |.A$." "..(E$,K.1| 00000D40: 29 3A 4A B2 52 AA 31 AB 4E 3A 8D 33 31 30 3A 82 |):J.R.1.N:.310:.| 00000D50: 52 3A 89 38 32 30 00 99 15 56 04 41 24 28 52 29 |R:.820...V.A$(R)| 00000D60: B2 41 24 AA 22 20 22 AA CA 28 45 24 2C 32 2C 42 |.A$." "..(E$,2,B| 00000D70: AB 32 29 3A 42 B2 42 AA 28 CA 28 45 24 2C 42 2C |.2):B.B.(.(E$,B,| 00000D80: 31 29 B3 B1 22 20 22 29 AB 28 CA 28 45 24 2C 42 |1).." ").(.(E$,B| 00000D90: 2C 32 29 B2 22 20 20 22 29 00 BB 15 60 04 41 24 |,2)." ")...`.A$| 00000DA0: 28 52 AA 31 29 B2 22 11 22 AA C9 28 45 24 2C 4B |(R.1)."."..(E$,K| 00000DB0: AB 42 29 3A 82 52 3A 89 38 32 30 00 F9 15 6A 04 |.B):.R:.820...j.| 00000DC0: 8D 32 30 30 30 3A 99 22 93 C4 4F 20 59 4F 55 20 |.2000:."..O YOU | 00000DD0: 57 41 4E 54 20 54 4F 20 4C 4F 4F 4B 20 41 54 20 |WANT TO LOOK AT | 00000DE0: 54 48 49 53 20 54 45 58 54 22 3A 99 22 41 47 41 |THIS TEXT":."AGA| 00000DF0: 49 4E 3F 22 3A 8D 31 33 30 00 09 16 74 04 8B 41 |IN?":.130...t..A| 00000E00: 24 B2 22 59 22 A7 38 31 30 00 40 16 7E 04 99 22 |$."Y".810.@.~.."| 00000E10: 93 C9 53 20 54 48 45 52 45 20 41 20 50 52 49 4E |..S THERE A PRIN| 00000E20: 54 45 52 20 41 54 54 41 43 48 45 44 3F 22 3A 8D |TER ATTACHED?":.| 00000E30: 31 33 30 3A 8B 41 24 B2 22 4E 22 A7 31 33 30 30 |130:.A$."N".1300| 00000E40: 00 80 16 88 04 99 22 93 12 CD 41 4B 45 20 53 55 |......"...AKE SU| 00000E50: 52 45 20 54 48 45 20 50 52 49 4E 54 45 52 20 49 |RE THE PRINTER I| 00000E60: 53 20 4F 4E 22 3A 8D 33 30 3A 97 31 34 34 2C 34 |S ON":.30:.144,4| 00000E70: 36 3A 9F 34 2C 34 3A 8B 55 B2 31 A7 31 32 30 30 |6:.4,4:.U.1.1200| 00000E80: 00 BD 16 92 04 47 B2 30 3A 99 22 11 C4 4F 20 59 |.....G.0:."..O Y| 00000E90: 4F 55 20 57 41 4E 54 20 44 4F 55 42 4C 45 2D 53 |OU WANT DOUBLE-S| 00000EA0: 50 41 43 45 44 20 4C 49 4E 45 53 3F 22 3A 8D 31 |PACED LINES?":.1| 00000EB0: 33 30 3A 53 B2 28 41 24 B2 22 59 22 29 00 05 17 |30:S.(A$."Y")...| 00000EC0: 9C 04 99 22 11 CD 41 58 49 4D 55 4D 20 4E 55 4D |..."..AXIMUM NUM| 00000ED0: 42 45 52 20 4F 46 20 12 54 59 50 45 44 92 20 4C |BER OF .TYPED. L| 00000EE0: 49 4E 45 53 20 50 45 52 20 50 41 47 45 22 3A 99 |INES PER PAGE":.| 00000EF0: 22 28 49 46 20 4E 4F 20 4D 41 58 20 54 59 50 45 |"(IF NO MAX TYPE| 00000F00: 20 30 29 22 3B 00 3F 17 A6 04 85 22 1D 1D BF 9D | 0)";.?...."....| 00000F10: 9D 9D 22 3B 48 3A 85 22 11 CC 45 4E 47 54 48 20 |..";H:."..ENGTH | 00000F20: 4F 46 20 4C 45 46 54 20 48 41 4E 44 20 4D 41 52 |OF LEFT HAND MAR| 00000F30: 47 49 4E 1D 1D BF 9D 9D 9D 22 3B 4F 3A 98 34 00 |GIN......";O:.4.| 00000F40: 81 17 B0 04 99 22 11 CA 55 53 54 49 46 59 20 54 |....."..USTIFY T| 00000F50: 45 58 54 3F 22 3A 8D 31 33 30 3A 42 24 B2 41 24 |EXT?":.130:B$.A$| 00000F60: 3A 44 B2 31 3A 81 49 B2 31 A4 43 3A 41 24 B2 41 |:D.1:.I.1.C:A$.A| 00000F70: 24 28 49 29 3A 8B 42 24 B2 22 4E 22 A7 31 32 35 |$(I):.B$."N".125| 00000F80: 30 00 BD 17 BA 04 4E B2 C3 28 41 24 29 3A 50 B2 |0.....N..(A$):P.| 00000F90: C3 28 41 24 28 49 AA 31 29 29 3A 8B CA 28 41 24 |.(A$(I.1)):..(A$| 00000FA0: 28 49 AA 31 29 2C 32 2C 31 29 B2 22 20 22 B0 4E |(I.1),2,1)." ".N| 00000FB0: B3 41 AB 38 B0 50 B2 31 A7 31 32 35 30 00 CD 17 |.A.8.P.1.1250...| 00000FC0: C4 04 8B 4E B2 41 AA 33 A7 31 32 35 30 00 ED 17 |...N.A.3.1250...| 00000FD0: CE 04 51 B2 31 3A 8D 32 37 30 3A 51 B2 30 3A 8D |..Q.1:.270:Q.0:.| 00000FE0: 32 37 30 3A 8B 44 B2 32 A7 31 32 33 30 00 16 18 |270:.D.2.1230...| 00000FF0: D8 04 41 24 B2 C8 28 41 24 2C 44 29 AA 22 20 22 |..A$..(A$,D)." "| 00001000: AA CA 28 41 24 2C 44 AA 31 29 3A 4E B2 4E AA 31 |..(A$,D.1):N.N.1| 00001010: 3A 89 31 32 32 30 00 32 18 E2 04 98 34 2C A6 4F |:.1220.2....4,.O| 00001020: 29 41 24 3A 47 B2 47 AA 31 3A 8B 53 B2 AB 31 A7 |)A$:G.G.1:.S..1.| 00001030: 98 34 00 41 18 EC 04 8B 47 B3 B1 48 A7 31 32 38 |.4.A....G..H.128| 00001040: 30 00 82 18 F6 04 99 22 93 CD 41 58 20 4C 49 4E |0......"..AX LIN| 00001050: 45 53 20 50 45 52 20 50 41 47 45 20 52 45 41 43 |ES PER PAGE REAC| 00001060: 48 45 44 22 3A 99 22 11 C1 44 4A 55 53 54 20 50 |HED":."..DJUST P| 00001070: 41 50 45 52 22 3A 8D 33 30 3A 47 B2 30 3A 99 22 |APER":.30:G.0:."| 00001080: 93 22 00 91 18 00 05 82 3A 42 B2 34 3A 8D 32 33 |."......:B.4:.23| 00001090: 30 00 C1 18 0A 05 99 22 11 D0 52 49 4E 54 20 54 |0......"..RINT T| 000010A0: 48 49 53 20 4F 55 54 20 41 47 41 49 4E 3F 22 3A |HIS OUT AGAIN?":| 000010B0: 8D 31 33 30 3A 8B 41 24 B2 22 59 22 A7 31 31 36 |.130:.A$."Y".116| 000010C0: 30 00 F4 18 14 05 99 22 11 11 D3 41 56 45 20 54 |0......"...AVE T| 000010D0: 48 49 53 20 54 45 58 54 20 4F 4E 20 54 41 50 45 |HIS TEXT ON TAPE| 000010E0: 3F 22 3A 8D 31 33 30 3A 8B 41 24 B2 22 59 22 A7 |?":.130:.A$."Y".| 000010F0: 8D 32 32 30 00 24 19 1E 05 99 22 11 11 C5 44 49 |.220.$...."...DI| 00001100: 54 20 54 48 49 53 20 54 45 58 54 20 41 47 41 49 |T THIS TEXT AGAI| 00001110: 4E 3F 22 3A 8D 31 33 30 3A 8B 41 24 B2 22 59 22 |N?":.130:.A$."Y"| 00001120: A7 38 31 30 00 36 19 28 05 45 B2 30 3A 8B 46 B2 |.810.6.(.E.0:.F.| 00001130: 31 A7 31 33 39 30 00 69 19 32 05 99 22 93 CD 4F |1.1390.i.2.."..O| 00001140: 52 45 20 54 45 58 54 20 54 4F 20 49 4E 50 55 54 |RE TEXT TO INPUT| 00001150: 3F 22 3A 8D 31 33 30 3A 8B 41 24 B2 22 4E 22 A7 |?":.130:.A$."N".| 00001160: 97 31 34 34 2C 34 36 3A 80 00 9A 19 3C 05 99 22 |.144,46:....<.."| 00001170: 11 D7 49 4C 4C 20 50 52 49 4E 54 4F 55 54 20 43 |..ILL PRINTOUT C| 00001180: 41 52 52 59 22 3A 99 22 53 54 52 41 49 47 48 54 |ARRY":."STRAIGHT| 00001190: 20 4F 4E 3F 22 3A 8D 31 33 30 00 AD 19 46 05 8B | ON?":.130...F..| 000011A0: 41 24 B2 22 4E 22 A7 9C 3A 89 33 32 30 00 C8 19 |A$."N"..:.320...| 000011B0: 50 05 8D 31 35 30 3A 8B 42 24 B2 22 54 22 A7 8D |P..150:.B$."T"..| 000011C0: 31 38 30 3A 89 34 34 30 00 FB 19 5A 05 8B 43 24 |180:.440...Z..C$| 000011D0: B2 22 4B 22 A7 8D 31 38 30 3A 99 22 CF 2E CB 2E |."K"..180:."....| 000011E0: 20 C3 4F 4E 54 49 4E 55 45 2E 22 3A 51 B2 35 35 | .ONTINUE.":Q.55| 000011F0: 35 3A 8D 32 34 30 3A 89 35 31 30 00 14 1A 64 05 |5:.240:.510...d.| 00001200: 43 24 B2 22 4B 22 3A 8D 31 38 30 3A 56 B2 31 3A |C$."K":.180:V.1:| 00001210: 89 33 35 30 00 51 1A 6E 05 8D 31 38 30 3A 99 22 |.350.Q.n..180:."| 00001220: D4 48 45 52 45 20 49 53 20 4D 4F 52 45 20 54 45 |.HERE IS MORE TE| 00001230: 58 54 20 4F 4E 20 54 41 50 45 20 54 4F 20 49 4E |XT ON TAPE TO IN| 00001240: 50 55 54 22 3A 46 B2 30 3A 8D 33 30 3A 89 34 35 |PUT":F.0:.30:.45| 00001250: 30 00 79 1A 78 05 84 31 35 2C 45 31 24 2C 45 32 |0.y.x..15,E1$,E2| 00001260: 24 2C 45 33 24 2C 45 34 24 3A 8B 20 C5 28 45 31 |$,E3$,E4$:. .(E1| 00001270: 24 29 B3 32 30 20 A7 20 8E 00 B0 1A 82 05 99 20 |$).20 . ....... | 00001280: 45 31 24 2C 45 32 24 2C 45 33 24 2C 45 34 24 20 |E1$,E2$,E3$,E4$ | 00001290: 3A A0 42 3A 8B 20 C5 28 45 31 24 29 B2 36 33 20 |:.B:. .(E1$).63 | 000012A0: A7 20 85 22 44 4F 4F 52 47 41 41 4E 22 3B 51 24 |. ."DOORGAAN";Q$| 000012B0: 00 DA 1A 8C 05 8B 20 51 24 B2 22 59 22 20 A7 20 |...... Q$."Y" . | 000012C0: 52 24 B2 22 40 30 3A 22 3A 9F 42 2C 51 2C 52 2C |R$."@0:":.B,Q,R,| 000012D0: 52 24 AA 41 24 AA 46 24 3A 8E 00 E5 1A 96 05 A0 |R$.A$.F$:.......| 000012E0: 20 31 35 3A 90 00 02 1B D0 07 99 22 93 CB 49 45 | 15:......."..IE| 000012F0: 53 20 44 45 20 53 43 48 52 49 46 54 53 4F 4F 52 |S DE SCHRIFTSOOR| 00001300: 54 22 00 12 1B DA 07 99 22 CB 49 45 53 20 55 49 |T"......".IES UI| 00001310: 54 22 00 5C 1B E4 07 99 22 28 31 29 53 54 41 4E |T".\...."(1)STAN| 00001320: 44 41 41 52 44 20 45 4C 49 54 45 22 3A 99 22 28 |DAARD ELITE":."(| 00001330: 32 29 43 4F 4E 44 45 4E 53 45 44 20 43 48 41 52 |2)CONDENSED CHAR| 00001340: 2E 22 3A 99 22 28 33 29 43 4F 52 52 45 53 50 4F |.":."(3)CORRESPO| 00001350: 4E 44 45 4E 43 45 20 50 49 43 41 22 00 A7 1B EE |NDENCE PICA"....| 00001360: 07 99 22 28 34 29 45 4C 49 54 45 20 43 48 41 52 |.."(4)ELITE CHAR| 00001370: 41 43 54 45 52 22 3A 99 22 28 35 29 49 54 41 4C |ACTER":."(5)ITAL| 00001380: 49 43 20 43 55 52 53 49 56 45 22 3A 99 22 28 36 |IC CURSIVE":."(6| 00001390: 29 50 52 4F 50 4F 52 54 49 4F 4E 41 4C 20 43 48 |)PROPORTIONAL CH| 000013A0: 41 52 2E 20 53 45 54 00 E4 1B F8 07 99 22 28 36 |AR. SET......"(6| 000013B0: 29 53 55 50 45 52 53 43 52 49 50 54 20 43 48 41 |)SUPERSCRIPT CHA| 000013C0: 52 2E 20 53 45 54 22 3A 99 22 4F 46 20 28 37 29 |R. SET":."OF (7)| 000013D0: 20 53 55 42 53 43 52 49 50 54 20 43 48 41 52 2E | SUBSCRIPT CHAR.| 000013E0: 20 53 45 54 00 FA 1B 02 08 A1 41 24 3A 8B 20 41 | SET......A$:. A| 000013F0: 24 B2 22 22 20 A7 32 30 35 30 00 06 1C 07 08 5A |$."" .2050.....Z| 00001400: B2 C6 28 41 24 29 00 0F 1C 0C 08 9F 34 2C 34 00 |..(A$)......4,4.| 00001410: 43 1C 16 08 41 41 B2 36 39 3A 41 42 B2 36 37 3A |C...AA.69:AB.67:| 00001420: 41 43 B2 37 32 3A 41 44 B2 38 31 3A 41 45 B2 36 |AC.72:AD.81:AE.6| 00001430: 36 3A 41 46 B2 38 30 3A 41 47 B2 38 35 3A 41 48 |6:AF.80:AG.85:AH| 00001440: B2 36 38 00 7E 1C 20 08 8B 5A B2 34 39 A7 4C B2 |.68.~. ..Z.49.L.| 00001450: 41 41 3A 8B 5A B2 35 30 A7 4C B2 41 42 3A 8B 5A |AA:.Z.50.L.AB:.Z| 00001460: B2 35 31 A7 4C B2 41 43 3A 8B 5A B2 35 32 A7 4C |.51.L.AC:.Z.52.L| 00001470: B2 41 44 3A 8B 5A B2 35 33 A7 4C B2 41 45 00 A3 |.AD:.Z.53.L.AE..| 00001480: 1C 2A 08 8B 5A B2 35 34 A7 4C B2 41 46 3A 8B 5A |.*..Z.54.L.AF:.Z| 00001490: B2 35 35 A7 4C B2 41 47 3A 8B 5A B2 35 36 A7 4C |.55.L.AG:.Z.56.L| 000014A0: B2 41 48 00 B4 1C 34 08 98 34 2C C7 28 32 37 29 |.AH...4..4,.(27)| 000014B0: C7 28 4C 29 00 C6 1C 39 08 98 34 2C C7 28 32 37 |.(L)...9..4,.(27| 000014C0: 29 C7 28 31 35 29 00 FC 1C 3E 08 99 22 93 D6 45 |).(15)...>.."..E| 000014D0: 52 47 52 4F 4F 54 20 53 43 48 52 49 46 54 20 3F |RGROOT SCHRIFT ?| 000014E0: 22 3A 8D 31 33 30 3A 8B 41 24 B2 22 4A 22 A7 98 |":.130:.A$."J"..| 000014F0: 34 2C C7 28 32 37 29 C7 28 31 34 29 00 07 1D 43 |4,.(27).(14)...C| 00001500: 08 A0 34 2C 34 3A 8E 00 00 00 |..4,4:.... |
..A....53272,22:."...PETPRO#2.":..11)".( C)I BIRNBAUM 1981..":.320.C....".PRESS ' SPACE' WHEN READY.".W.(..A$:.A$.." ".40. }.2.....<.."....";:.I.0.9:.N.I.C.....F.. I;I(A$(N.I),C(A$(N.I)).1):.:....P.."..." G(34)G(34)G(20)"..".A.4)"^....";:.623,29 :.158,1:....Z..K.1024.2023:.K,32:.:..H.D ..".MAX LINE LENGTH EXCEEDED.":Q.1111:.2 40:.90:..O.N..".NO "A$" POSSIBLE: MEMORY FULL."...X.Q.2000:.240:.820......A$:.A$ .."Y".A$.."N".130...........R$."0:":.".. K.EYBOARD OR .T.APE (=FLOPPY) INPUT?"... ..B$:.B$.."K".B$.."T".160.......2....I. 1.C:A$(I)."":.:U.1:Y..(0).65000:L.0:."." :..S....".NAME OF TAPE FILE (IF NO NAME" :."PRESS 'RETURN'......";A$...H..A$.".". A$.""...R..B,Q,R,R$.A$.F$:.1400:R$."0:": ......J.1:B.2:Q.8:R.8:F$.",S,W" :.190:.I .1.C:.2,G(34).A$(I):...... B:.144,49:... ....R.1.Q:.:..*...L.L.C(A$(N.J)).D:.L..7 .Y.C.M.E.2.0.....N...R.0:D.D.1:.D.N.D.2: .Q.0...F....J(A$,D,1).." ".R.1.Q."..R.Q. ..Z.,..270...6.D..1:.250:C.C.1:.I.N.J.C: A$(I).A$(I.1):.:A$(I)."":..X.@..15,8,15: .144,49:.150:C$.B$:.".";...J.."MAX LINE LENGTH (73 OR LESS)";A:.A.73..".";:.330. ..T..B$."T".430.A.^..".AUTOMATIC CARRIAG E RETURN":."WILL OCCUR BETWEEN CHARACTER ".}.H.."POSITIONS"A.7"AND"A.2...R..".HOW MANY TABS (MAX 10)";T:.T.0.420...|..T.1 0..".";:.370......"..ENTER THEM IN NUMER ICAL ORDER"......"COLUMN POSITIONS ARE B ETWEEN 1 AND"A:.:.I.1.T.2...."TAB NO.";I ;:.T%(I):..?....V.1.500.....M..((.(0).65 000).A).10:Z..(.9.M):.A$(M):Y..(0).65000 :.B$."K".500.....B.1:I.1:J.0:Q.8:R.8:F$. ",S,R":.190.L.B..C.1.Z:.1,A$(C):L.L.C(A$ (C))...L..ST.64..".END OF FILE":.230:.79 0...V..L..7.Y..490......:C.C.1.#...F.1:. 144,49:.780.+....30.R....".";:.167,0:C.1 :D.0:E.0:A$(1).".".E....A$:.A$."".520.. ..I.F(A$).127:.I.13.670......(D.1.A$." " ).I.3.I.17.I.19.I.18.I.29.520.J.&.D.0:.F (A$).34..".";:.790...0..A$.".".A$.","... :..I.59.A$."."...D..A$.":".A$.";"...N..A $.".".A$.":".".X..I.95.750.=.B..I..20.I. .94..A$;:.710.Q.L..C(A$(C)).1.640.|.V.A$ (C).H(A$(C),C(A$(C)).1):.G(20);:.520.... .A$(C)."":C.C.1:L.L.C(A$(C))......C(A$(C )).39..". ..";......". .."I(A$(C),C(A$(C )).1) ;:.520......C(A$(C))..39.X.225.B(2 16):.X,(B(X).128).*....". "G(13);:E.0:L. L.C(A$(C)).D....C.Z.L..8.Y..".":.780.].. .C.C.1:A$(C).".":.520.~.F..E.0.C(A$(C)). A.7.A$." ".740...P.A$(C).A$(C).A$...Z..C (A$(C)).A.3.520.....D.1:.680.W....Q.1.T: .B(198)..T%(Q).1..:.520.....P.T%(Q).B(19 8).1:.W.1.P:A$(C).A$(C)." ":." ";:..#... E.(Q.T).(T..1):.520.A....".COMPUTER MEMO RY FULL."......167,1:.".EDIT TEXT IF NEC ESSARY.":.".PRESS "G(34)" WHEN READY... ..A$:.A$..G(34).800...*.N.1...4..60:.I.0 .1130...>..".D.ELETE .E.DIT .I.NSERT .S. QUEEZE + LINE NUMBER";...H...10)"OTHERWI SE E.X.IT .>. .<.";.R.R..A$:.(A$."<".N.1 0).A$.">".N.N.10.(A$."<").10.(A$.">"):.8 20.C.\..A$."X".1130...F..A$."".(A$.."D". A$.."E".A$.."I".A$.."S").850...P..A$;... Z..B$:.B$."".890.H....F(B$).20..B$;:.850 ......F(B$).48.F(B$).57.890......B$;:J.E (B$):.J.I.J.I.(A$.."E")..1. ....A$."D".. 310:.820.1....A$."I".1000.B....A$."S".10 40.G....E.2...(0).250.A$."EDITING":.110. ..J.D..1:.250:.80:.I(A$(N.J),C(A$(N.J)). 1);:.".";A$...T..90:.C(A$).A.2..100:.970 .Y...A$(N.J).".".A$:D.1:.250:.820......E .2..(.(0).65000).300.C.M.A$."INSERTING": .110.2....I.C.N.J..1:A$(I.1).A$(I):.:C.C .1.\....80:.".";A$:.90:.C(A$).A.2..100:. 1020.E....990......R.N.J.C.1:A$.A$(R):E$ .A$(R.1):W.C(A$):K.C(E$):.K.2.W.1.820... ...W.A.7..:.820.N.$..J(E$,2,1)." ".820.. ....K.A.6.W.1100...8..B.A.5.W.K.1:.J(E$, B,1)." ".B.A.3.W.1110.&.B..:.K.A.W.4.B.K :.1110.V.L.A$(R).A$." ".I(E$,K.1):J.R.1. N:.310:.R:.820...V.A$(R).A$." ".J(E$,2,B .2):B.B.(J(E$,B,1).." ").(J(E$,B,2)." " )...`.A$(R.1).".".I(E$,K.B):.R:.820...J. .2000:.".DO YOU WANT TO LOOK AT THIS TEX T":."AGAIN?":.130...T..A$."Y".810.@.~.." .IS THERE A PRINTER ATTACHED?":.130:.A$. "N".1300......"..MAKE SURE THE PRINTER I S ON":.30:.144,46:.4,4:.U.1.1200.....G.0 :.".DO YOU WANT DOUBLE-SPACED LINES?":.1 30:S.(A$."Y")......".MAXIMUM NUMBER OF . TYPED. LINES PER PAGE":."(IF NO MAX TYPE 0)";.?...."......";H:.".LENGTH OF LEFT HAND MARGIN......";O:.4......".JUSTIFY T EXT?":.130:B$.A$:D.1:.I.1.C:A$.A$(I):.B$ ."N".1250.....N.C(A$):P.C(A$(I.1)):.J(A$ (I.1),2,1)." ".N.A.8.P.1.1250.M.D..N.A.3 .1250...N.Q.1:.270:Q.0:.270:.D.2.1230... X.A$.H(A$,D)." ".J(A$,D.1):N.N.1:.1220.2 ....4,.O)A$:G.G.1:.S..1..4.A....G..H.128 0......".MAX LINES PER PAGE REACHED":.". ADJUST PAPER":.30:G.0:."."......:B.4:.23 0.A....".PRINT THIS OUT AGAIN?":.130:.A$ ."Y".1160......"..SAVE THIS TEXT ON TAPE ?":.130:.A$."Y"..220.$...."..EDIT THIS T EXT AGAIN?":.130:.A$."Y".810.6.(.E.0:.F. 1.1390.I.2..".MORE TEXT TO INPUT?":.130: .A$."N"..144,46:....<..".WILL PRINTOUT C ARRY":."STRAIGHT ON?":.130...F..A$."N".. :.320.H.P..150:.B$."T"..180:.440...Z..C$ ."K"..180:."O.K. CONTINUE.":Q.555:.240:. 510...D.C$."K":.180:V.1:.350.Q.N..180:." THERE IS MORE TEXT ON TAPE TO INPUT":F.0 :.30:.450.Y.X..15,E1$,E2$,E3$,E4$:. E(E1 $).20 . ....... E1$,E2$,E3$,E4$ : B:. E( E1$).63 . ."DOORGAAN";Q$.Z.... Q$."Y" . R$."@0:":.B,Q,R,R$.A$.F$:...... 15:.... P..".KIES DE SCHRIFTSOORT"...Z.."KIES UI T".\...."(1)STANDAARD ELITE":."(2)CONDEN SED CHAR.":."(3)CORRESPONDENCE PICA".... .."(4)ELITE CHARACTER":."(5)ITALIC CURSI VE":."(6)PROPORTIONAL CHAR. SET......"(6 )SUPERSCRIPT CHAR. SET":."OF (7) SUBSCRI PT CHAR. SET......A$:. A$."" .2050.....Z .F(A$)......4,4.C...AA.69:AB.67:AC.72:AD .81:AE.66:AF.80:AG.85:AH.68.~. ..Z.49.L. AA:.Z.50.L.AB:.Z.51.L.AC:.Z.52.L.AD:.Z.5 3.L.AE...*..Z.54.L.AF:.Z.55.L.AG:.Z.56.L .AH...4..4,G(27)G(L).F.9..4,G(27)G(15).. .>..".VERGROOT SCHRIFT ?":.130:.A$."J".. 4,G(27)G(14)...C. 4,4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL