TYPEWRITER.C
FILE INFORMATION
FILENAME(S): TYPEWRITER.C
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-10-20 14:31:52
APPEARS ON: 3 disk(s)
FILE HASH
a46702dab0275cc30df658616e83b53ae1d047a2ecd413900a00b7ba42a70dcc
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | TYPEWRITER.C | PRG | Treasure Chest - Klaus Der Suhler | 13 | 9 | DOWNLOAD FILE |
| A NWENDER | TYPEWRITER.C | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 3 | DOWNLOAD FILE |
| FREESOFT DISK NR | TYPEWRITER.C | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 18 04 00 00 8F 20 2A 2A 20 54 59 50 45 57 |....... ** TYPEW| 00000010: 52 49 54 45 52 20 2A 2A 00 37 04 01 00 99 22 93 |RITER **.7....".| 00000020: 11 11 11 11 11 12 20 54 59 50 45 57 52 49 54 45 |...... TYPEWRITE| 00000030: 52 20 35 20 92 20 22 00 63 04 02 00 99 22 42 59 |R 5 . ".c...."BY| 00000040: 20 4D 49 4B 45 20 52 49 43 48 54 45 52 20 2D 2D | MIKE RICHTER --| 00000050: 20 4D 4F 44 20 42 59 20 54 49 4D 20 4F 4E 4F 53 | MOD BY TIM ONOS| 00000060: 4B 4F 22 00 90 04 03 00 99 22 11 41 56 41 49 4C |KO"......".AVAIL| 00000070: 41 42 4C 45 20 46 52 4F 4D 20 50 45 54 20 43 41 |ABLE FROM PET CA| 00000080: 53 53 45 54 54 45 20 45 58 43 48 41 4E 47 45 22 |SSETTE EXCHANGE"| 00000090: 00 B1 04 04 00 99 22 31 39 32 39 20 4E 4F 52 54 |......"1929 NORT| 000000A0: 48 50 4F 52 54 20 44 52 2C 20 52 4F 4F 4D 20 36 |HPORT DR, ROOM 6| 000000B0: 22 00 CB 04 05 00 99 22 4D 41 44 49 53 4F 4E 2C |"......"MADISON,| 000000C0: 20 57 49 20 20 35 33 37 30 34 22 00 E5 04 06 00 | WI 53704".....| 000000D0: 81 20 58 58 B2 31 A4 33 30 30 30 3A 82 20 58 58 |. XX.1.3000:. XX| 000000E0: 3A 99 22 93 22 00 F9 04 0A 00 86 20 54 24 28 32 |:."."...... T$(2| 000000F0: 35 35 29 2C 54 42 28 35 29 00 07 05 14 00 97 35 |55),TB(5)......5| 00000100: 39 34 36 38 2C 31 34 00 20 05 64 00 8F 20 2A 2A |9468,14. .d.. **| 00000110: 20 43 4F 4E 54 52 4F 4C 20 4C 4F 4F 50 20 2A 2A | CONTROL LOOP **| 00000120: 00 46 05 6E 00 99 C7 28 31 34 37 29 3A 99 A6 39 |.F.n...(147):..9| 00000130: 29 3B 22 57 4F 52 44 20 50 52 4F 43 45 53 53 4F |);"WORD PROCESSO| 00000140: 52 22 3A 99 3A 99 00 75 05 82 00 99 3A 99 22 44 |R":.:..u....:."D| 00000150: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 12 52 |O YOU WANT TO .R| 00000160: 92 45 41 44 20 57 48 41 54 20 59 4F 55 20 57 52 |.EAD WHAT YOU WR| 00000170: 4F 54 45 2C 22 00 96 05 8C 00 99 A6 31 35 29 3B |OTE,".......15);| 00000180: 22 12 45 92 44 49 54 20 57 48 41 54 20 59 4F 55 |".E.DIT WHAT YOU| 00000190: 20 57 52 4F 54 45 00 B3 05 8D 00 99 A6 31 35 29 | WROTE.......15)| 000001A0: 3B 22 12 49 92 4E 50 55 54 20 46 52 4F 4D 20 54 |;".I.NPUT FROM T| 000001B0: 41 50 45 00 CF 05 8F 00 99 A6 31 35 29 3B 22 12 |APE.......15);".| 000001C0: 4F 92 55 54 50 55 54 20 54 4F 20 54 41 50 45 00 |O.UTPUT TO TAPE.| 000001D0: ED 05 90 00 99 A6 31 35 29 3B 22 12 50 92 52 49 |......15);".P.RI| 000001E0: 4E 54 20 54 48 45 20 4F 55 54 50 55 54 00 04 06 |NT THE OUTPUT...| 000001F0: 91 00 99 A6 31 35 29 3B 22 12 53 92 45 54 20 54 |....15);".S.ET T| 00000200: 41 42 53 22 00 27 06 92 00 99 A6 31 35 29 3B 22 |ABS".'.....15);"| 00000210: 12 51 92 55 45 53 54 49 4F 4E 20 46 52 45 45 20 |.Q.UESTION FREE | 00000220: 4D 45 4D 4F 52 59 22 00 57 06 96 00 85 20 22 20 |MEMORY".W.... " | 00000230: 20 20 20 20 20 20 20 20 20 20 20 4F 52 20 12 57 | OR .W| 00000240: 92 52 49 54 45 20 53 4F 4D 45 54 48 49 4E 47 20 |.RITE SOMETHING | 00000250: 4E 45 57 22 3B 58 24 00 6F 06 A0 00 8B 20 C8 28 |NEW";X$.o.... .(| 00000260: 58 24 2C 31 29 B2 22 52 22 20 89 31 30 30 30 00 |X$,1)."R" .1000.| 00000270: 87 06 AA 00 8B 20 C8 28 58 24 2C 31 29 B2 22 45 |..... .(X$,1)."E| 00000280: 22 20 89 32 30 30 30 00 9F 06 AF 00 8B 20 C8 28 |" .2000...... .(| 00000290: 58 24 2C 31 29 B2 22 53 22 20 89 34 30 30 30 00 |X$,1)."S" .4000.| 000002A0: B7 06 B4 00 8B 20 C8 28 58 24 2C 31 29 B2 22 57 |..... .(X$,1)."W| 000002B0: 22 20 89 33 30 30 30 00 CF 06 BE 00 8B 20 C8 28 |" .3000...... .(| 000002C0: 58 24 2C 31 29 B2 22 49 22 20 89 35 30 30 30 00 |X$,1)."I" .5000.| 000002D0: E7 06 C8 00 8B 20 C8 28 58 24 2C 31 29 B2 22 4F |..... .(X$,1)."O| 000002E0: 22 20 89 36 30 30 30 00 FF 06 D2 00 8B 20 C8 28 |" .6000...... .(| 000002F0: 58 24 2C 31 29 B2 22 50 22 20 89 37 30 30 30 00 |X$,1)."P" .7000.| 00000300: 18 07 DC 00 8B 20 C8 28 58 24 2C 31 29 B2 22 51 |..... .(X$,1)."Q| 00000310: 22 20 89 31 30 30 30 30 00 21 07 2C 01 89 31 30 |" .10000.!.,..10| 00000320: 30 00 37 07 E8 03 8F 20 2A 2A 20 52 45 41 44 20 |0.7.... ** READ | 00000330: 54 45 58 54 20 2A 2A 00 43 07 F2 03 99 C7 28 31 |TEXT **.C.....(1| 00000340: 34 37 29 00 53 07 FC 03 81 20 49 B2 30 20 A4 20 |47).S.... I.0 . | 00000350: 32 35 35 00 69 07 06 04 8B 20 54 24 28 49 29 B2 |255.i.... T$(I).| 00000360: 22 5C 22 20 89 31 30 35 30 00 8C 07 0B 04 8B 20 |"\" .1050...... | 00000370: 28 49 B1 30 20 AF 20 49 AD 31 32 B2 B5 28 49 AD |(I.0 . I.12..(I.| 00000380: 31 32 29 29 A7 20 8D 20 31 35 30 30 00 9B 07 10 |12)). . 1500....| 00000390: 04 99 54 24 28 49 29 3A 82 20 49 00 AA 07 1A 04 |..T$(I):. I.....| 000003A0: 8D 31 35 30 30 3A 89 31 30 30 00 E7 07 DC 05 99 |.1500:.100......| 000003B0: 22 11 11 11 2A 2A 54 48 41 54 27 53 20 41 4C 4C |"...**THAT'S ALL| 000003C0: 20 4F 4E 20 54 48 49 53 20 50 41 47 45 22 3A 99 | ON THIS PAGE":.| 000003D0: 22 4B 45 59 20 27 52 45 54 55 52 4E 27 20 54 4F |"KEY 'RETURN' TO| 000003E0: 20 47 4F 20 4F 4E 22 00 FC 07 E6 05 A1 20 58 24 | GO ON"...... X$| 000003F0: 3A 8B 58 24 B2 22 22 89 31 35 31 30 00 0B 08 FA |:.X$."".1510....| 00000400: 05 99 C7 28 31 34 37 29 3A 20 8E 00 24 08 D0 07 |...(147): ..$...| 00000410: 8F 20 2A 2A 20 45 44 49 54 20 50 52 4F 47 52 41 |. ** EDIT PROGRA| 00000420: 4D 20 2A 2A 00 50 08 D2 07 99 22 93 54 4F 20 4C |M **.P....".TO L| 00000430: 45 41 56 45 20 54 48 45 20 4C 49 4E 45 20 41 4C |EAVE THE LINE AL| 00000440: 4F 4E 45 2C 20 48 49 54 20 52 45 54 55 52 4E 22 |ONE, HIT RETURN"| 00000450: 00 79 08 D4 07 99 22 54 4F 20 44 45 4C 45 54 45 |.y...."TO DELETE| 00000460: 20 54 48 45 20 4C 49 4E 45 20 54 59 50 45 20 23 | THE LINE TYPE #| 00000470: 2C 52 45 54 55 52 4E 2E 22 00 BA 08 D6 07 99 22 |,RETURN."......"| 00000480: 54 4F 20 49 4E 53 45 52 54 20 41 20 4C 49 4E 45 |TO INSERT A LINE| 00000490: 20 42 45 46 4F 52 45 20 54 48 49 53 20 4F 4E 45 | BEFORE THIS ONE| 000004A0: 2C 22 3A 99 22 20 20 20 20 20 54 59 50 45 20 5E |,":." TYPE ^| 000004B0: 2C 20 52 45 54 55 52 4E 2E 22 00 FD 08 D8 07 99 |, RETURN."......| 000004C0: 22 54 4F 20 43 4F 52 52 45 43 54 20 54 48 45 20 |"TO CORRECT THE | 000004D0: 4C 49 4E 45 2C 20 54 59 50 45 20 49 4E 20 54 48 |LINE, TYPE IN TH| 000004E0: 45 22 3A 99 22 20 20 20 20 52 45 56 49 53 49 4F |E":." REVISIO| 000004F0: 4E 2C 20 52 45 54 55 52 4E 2E 22 3A 99 00 0D 09 |N, RETURN.":....| 00000500: DA 07 81 20 4B B2 30 20 A4 20 32 35 35 00 1F 09 |... K.0 . 255...| 00000510: E4 07 99 54 24 28 4B 29 3A 8D 20 39 30 30 30 00 |...T$(K):. 9000.| 00000520: 32 09 E7 07 8B 20 58 24 B2 22 23 22 20 89 32 31 |2.... X$."#" .21| 00000530: 30 30 00 45 09 EB 07 8B 20 58 24 B2 22 5E 22 20 |00.E.... X$."^" | 00000540: 89 32 32 30 30 00 5D 09 EE 07 8B 20 58 24 B3 B1 |.2200.].... X$..| 00000550: 22 22 20 A7 20 54 24 28 4B 29 B2 58 24 00 74 09 |"" . T$(K).X$.t.| 00000560: F8 07 8B 20 54 24 28 4B 29 B3 B1 22 5C 22 20 A7 |... T$(K).."\" .| 00000570: 20 82 20 4B 00 7D 09 02 08 89 31 30 30 00 9E 09 | . K.}....100...| 00000580: 34 08 81 20 4C B2 4B 20 A4 20 32 35 34 3A 54 24 |4.. L.K . 254:T$| 00000590: 28 4C 29 B2 54 24 28 4C AA 31 29 3A 82 4C 00 A8 |(L).T$(L.1):.L..| 000005A0: 09 3E 08 89 32 30 32 30 00 BF 09 98 08 81 20 4C |.>..2020...... L| 000005B0: B2 32 35 35 20 A4 20 4B AA 31 20 A9 20 AB 31 00 |.255 . K.1 . .1.| 000005C0: D4 09 A2 08 54 24 28 4C 29 B2 54 24 28 4C AB 31 |....T$(L).T$(L.1| 000005D0: 29 3A 82 4C 00 E4 09 AC 08 8D 39 30 30 30 3A 89 |):.L......9000:.| 000005E0: 32 30 32 33 00 FE 09 B8 0B 8F 20 2A 2A 20 57 52 |2023...... ** WR| 000005F0: 49 54 45 20 50 52 4F 47 52 41 4D 20 2A 2A 00 0A |ITE PROGRAM **..| 00000600: 0A BD 0B 99 C7 28 31 34 37 29 00 1A 0A C2 0B 81 |.....(147)......| 00000610: 20 4B B2 30 20 A4 20 32 35 35 00 2E 0A CC 0B 8D | K.0 . 255......| 00000620: 20 39 30 30 30 3A 54 24 28 4B 29 B2 58 24 00 42 | 9000:T$(K).X$.B| 00000630: 0A D6 0B 8B 20 58 24 B3 B1 22 5C 22 20 A7 20 82 |.... X$.."\" . .| 00000640: 20 4B 00 4B 0A E0 0B 89 31 30 30 00 64 0A A0 0F | K.K....100.d...| 00000650: 8F 20 2A 2A 20 54 41 42 20 53 45 54 54 49 4E 47 |. ** TAB SETTING| 00000660: 20 2A 2A 2A 00 84 0A AA 0F 99 C7 28 31 34 37 29 | ***.......(147)| 00000670: 3A 99 22 20 22 2C 22 53 45 54 20 54 41 42 53 22 |:." ","SET TABS"| 00000680: 3A 99 3A 99 00 BE 0A B4 0F 99 22 54 48 45 20 54 |:.:......."THE T| 00000690: 41 42 20 4B 45 59 20 49 53 20 54 48 45 20 5F 20 |AB KEY IS THE _ | 000006A0: 41 54 20 54 48 45 20 54 4F 50 22 3A 99 22 52 49 |AT THE TOP":."RI| 000006B0: 47 48 54 20 43 4F 52 4E 45 52 2E 22 3A 99 00 E9 |GHT CORNER.":...| 000006C0: 0A BE 0F 85 20 22 48 4F 57 20 4D 41 4E 59 20 53 |.... "HOW MANY S| 000006D0: 50 41 43 45 53 20 54 4F 20 54 48 45 20 46 49 52 |PACES TO THE FIR| 000006E0: 53 54 22 3B 54 42 28 31 29 00 F5 0A C8 0F 81 20 |ST";TB(1)...... | 000006F0: 49 B2 32 A4 35 00 23 0B D2 0F 85 20 22 48 4F 57 |I.2.5.#.... "HOW| 00000700: 20 4D 41 4E 59 20 46 52 4F 4D 20 54 48 45 52 45 | MANY FROM THERE| 00000710: 20 54 4F 20 54 48 45 20 4E 45 58 54 22 3B 54 42 | TO THE NEXT";TB| 00000720: 28 49 29 00 2F 0B DC 0F 82 49 3A 89 31 30 30 00 |(I)./....I:.100.| 00000730: 49 0B 88 13 8F 20 2A 2A 49 4E 50 55 54 20 46 52 |I.... **INPUT FR| 00000740: 4F 4D 20 54 41 50 45 2A 2A 00 65 0B 92 13 99 22 |OM TAPE**.e...."| 00000750: 93 11 52 45 41 44 49 4E 47 20 46 52 4F 4D 20 54 |..READING FROM T| 00000760: 41 50 45 11 11 00 91 0B 9C 13 99 22 11 49 27 4C |APE........".I'L| 00000770: 4C 20 50 52 49 4E 54 20 41 20 2A 20 46 4F 52 20 |L PRINT A * FOR | 00000780: 45 41 43 48 20 4C 49 4E 45 20 49 20 52 45 41 44 |EACH LINE I READ| 00000790: 11 00 98 0B A6 13 9F 31 00 A2 0B B0 13 84 31 2C |.......1......1,| 000007A0: 58 24 00 C1 0B BA 13 8B 58 24 B1 22 22 A7 99 22 |X$......X$."".."| 000007B0: 54 48 49 53 20 46 49 4C 45 20 49 53 20 22 3B 58 |THIS FILE IS ";X| 000007C0: 24 00 D4 0B C4 13 81 49 B2 30 A4 32 35 35 3A 99 |$......I.0.255:.| 000007D0: 22 2A 22 3B 00 DE 0B CE 13 84 31 2C 58 24 00 FD |"*";......1,X$..| 000007E0: 0B D8 13 4C B2 C3 28 58 24 29 3A 54 24 28 49 29 |...L..(X$):T$(I)| 000007F0: B2 22 22 3A 8B 4C B3 31 89 35 31 35 30 00 0E 0C |."":.L.1.5150...| 00000800: E2 13 8B 58 24 B2 22 5C 22 89 35 31 36 30 00 3D |...X$."\".5160.=| 00000810: 0C EC 13 81 4A B2 31 A4 4C 3A 43 B2 C6 28 CA 28 |....J.1.L:C..(.(| 00000820: 58 24 2C 4A 2C 31 29 29 3A 8B 43 B1 31 32 37 AF |X$,J,1)):.C.127.| 00000830: 43 B3 31 39 33 A7 43 B2 43 AB 31 32 38 00 55 0C |C.193.C.C.128.U.| 00000840: F6 13 54 24 28 49 29 B2 54 24 28 49 29 AA C7 28 |..T$(I).T$(I)..(| 00000850: 43 29 3A 82 4A 00 5C 0C 1E 14 82 49 00 76 0C 28 |C):.J.\....I.v.(| 00000860: 14 A0 31 3A 8B 49 B3 32 35 35 A7 54 24 28 49 AA |..1:.I.255.T$(I.| 00000870: 31 29 B2 22 5C 22 00 7F 0C 32 14 89 31 30 30 00 |1)."\"...2..100.| 00000880: 98 0C 70 17 8F 20 2A 2A 4F 55 54 50 55 54 20 54 |..p.. **OUTPUT T| 00000890: 4F 20 54 41 50 45 2A 2A 00 B8 0C 7A 17 99 22 93 |O TAPE**...z..".| 000008A0: 11 53 41 56 49 4E 47 20 4F 55 54 50 55 54 20 4F |.SAVING OUTPUT O| 000008B0: 4E 20 54 41 50 45 11 11 00 D9 0C 84 17 85 22 57 |N TAPE........"W| 000008C0: 48 41 54 27 53 20 54 48 45 20 46 49 4C 45 27 53 |HAT'S THE FILE'S| 000008D0: 20 4E 41 4D 45 22 3B 58 24 00 07 0D 8E 17 99 22 | NAME";X$......"| 000008E0: 11 49 27 4C 4C 20 50 52 49 4E 54 20 41 20 2A 20 |.I'LL PRINT A * | 000008F0: 46 4F 52 20 45 41 43 48 20 4C 49 4E 45 20 49 20 |FOR EACH LINE I | 00000900: 4F 55 54 50 55 54 11 00 15 0D 98 17 9F 31 2C 31 |OUTPUT.......1,1| 00000910: 2C 31 2C 58 24 00 1F 0D 9D 17 98 31 2C 58 24 00 |,1,X$......1,X$.| 00000920: 32 0D A2 17 81 49 B2 30 A4 32 35 35 3A 99 22 2A |2....I.0.255:."*| 00000930: 22 3B 00 51 0D AC 17 4C B2 C3 28 54 24 28 49 29 |";.Q...L..(T$(I)| 00000940: 29 3A 58 24 B2 22 22 3A 8B 4C B3 31 89 36 31 30 |):X$."":.L.1.610| 00000950: 30 00 65 0D B6 17 8B 54 24 28 49 29 B2 22 5C 22 |0.e....T$(I)."\"| 00000960: 89 36 31 32 30 00 90 0D C0 17 81 4A B2 31 A4 4C |.6120......J.1.L| 00000970: 3A 43 B2 C6 28 CA 28 54 24 28 49 29 2C 4A 2C 31 |:C..(.(T$(I),J,1| 00000980: 29 29 3A 8B 43 B3 36 35 A7 43 B2 43 AA 31 32 38 |)):.C.65.C.C.128| 00000990: 00 9A 0D C5 17 4D B2 4D AA 31 00 AC 0D CA 17 58 |.....M.M.1.....X| 000009A0: 24 B2 58 24 AA C7 28 43 29 3A 82 4A 00 C3 0D CF |$.X$..(C):.J....| 000009B0: 17 8B 4D B1 B2 31 39 30 20 A7 4D B2 30 3A 8D 36 |..M..190 .M.0:.6| 000009C0: 31 35 30 00 CD 0D D4 17 98 31 2C 58 24 00 D4 0D |150......1,X$...| 000009D0: DE 17 82 49 00 DF 0D E8 17 98 31 2C 22 5C 22 00 |...I......1,"\".| 000009E0: E7 0D ED 17 4D B2 30 00 FA 0D F2 17 A0 31 3A 8D |....M.0......1:.| 000009F0: 20 36 31 38 35 3A 89 31 30 30 00 12 0E 06 18 8F | 6185:.100......| 00000A00: 2A 2A 2A 43 41 53 53 45 54 54 45 20 46 49 58 2A |***CASSETTE FIX*| 00000A10: 2A 2A 00 20 0E 10 18 97 35 39 34 31 31 2C 35 33 |**. ....59411,53| 00000A20: 00 2A 0E 15 18 54 4A B2 54 49 00 3F 0E 1A 18 8B |.*...TJ.TI.?....| 00000A30: 28 54 49 AB 54 4A 29 B3 36 30 A7 36 31 37 30 00 |(TI.TJ).60.6170.| 00000A40: 4F 0E 24 18 97 35 39 34 31 31 2C 36 31 3A 8E 00 |O.$..59411,61:..| 00000A50: 73 0E 29 18 8F 2A 2A 53 55 42 20 54 4F 20 53 50 |s.)..**SUB TO SP| 00000A60: 41 43 45 20 42 45 54 57 45 45 4E 20 46 49 4C 45 |ACE BETWEEN FILE| 00000A70: 53 2A 2A 00 81 0E 2B 18 97 35 39 34 31 31 2C 35 |S**...+..59411,5| 00000A80: 33 00 8B 0E 2C 18 54 53 B2 54 49 00 A2 0E 2E 18 |3...,.TS.TI.....| 00000A90: 8B 20 28 54 49 AB 54 53 29 B3 31 38 30 89 36 31 |. (TI.TS).180.61| 00000AA0: 39 30 00 B2 0E 33 18 97 35 39 34 31 31 2C 36 31 |90...3..59411,61| 00000AB0: 3A 8E 00 D2 0E 58 1B 8F 20 2A 2A 50 4C 41 43 45 |:....X.. **PLACE| 00000AC0: 20 46 4F 52 20 50 52 49 4E 54 20 4C 4F 47 49 43 | FOR PRINT LOGIC| 00000AD0: 2A 2A 00 F1 0E 62 1B 99 22 93 11 11 53 4F 52 52 |**...b.."...SORR| 00000AE0: 59 2C 20 4E 4F 20 50 52 49 4E 54 45 52 20 59 45 |Y, NO PRINTER YE| 00000AF0: 54 00 14 0F 6C 1B 99 22 11 57 48 45 4E 20 54 48 |T...l..".WHEN TH| 00000B00: 45 52 45 20 49 53 2C 20 49 27 4C 4C 20 55 53 45 |ERE IS, I'LL USE| 00000B10: 20 49 54 2E 00 3E 0F 76 1B 99 22 11 11 28 50 CC | IT..>.v.."..(P.| 00000B20: C5 C1 D3 C5 20 CB C5 D9 A0 27 52 45 54 55 52 4E |.... ....'RETURN| 00000B30: 27 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 29 00 53 |'............).S| 00000B40: 0F 80 1B A1 20 43 24 3A 8B 43 24 B2 22 22 89 37 |.... C$:.C$."".7| 00000B50: 30 34 30 00 5C 0F 8A 1B 89 31 30 30 00 81 0F 28 |040.\....100...(| 00000B60: 23 8F 20 2A 2A 20 43 41 53 45 20 52 45 56 45 52 |#. ** CASE REVER| 00000B70: 53 41 4C 20 53 55 42 52 4F 55 54 49 4E 45 20 2A |SAL SUBROUTINE *| 00000B80: 2A 00 8F 0F 2D 23 58 24 B2 22 22 3A 4A B2 30 00 |*...-#X$."":J.0.| 00000B90: 98 0F 32 23 A1 20 43 24 00 AC 0F 34 23 8B 20 43 |..2#. C$...4#. C| 00000BA0: 24 B3 B1 22 5F 22 20 89 39 30 32 30 00 B6 0F 36 |$.."_" .9020...6| 00000BB0: 23 4A B2 4A AA 31 00 D8 0F 38 23 81 49 B2 31 A4 |#J.J.1...8#.I.1.| 00000BC0: 54 42 28 4A 29 3A 99 22 20 22 3B 3A 58 24 B2 58 |TB(J):." ";:X$.X| 00000BD0: 24 AA 22 20 22 3A 82 49 00 E2 0F 3A 23 89 39 30 |$." ":.I...:#.90| 00000BE0: 31 30 00 0E 10 3C 23 8B 20 43 24 B2 22 22 20 A7 |10...<#. C$."" .| 00000BF0: 20 99 22 A6 22 3B C7 28 31 35 37 29 3B 22 20 22 | .".";.(157);" "| 00000C00: 3B C7 28 31 35 37 29 3B 3A 89 39 30 31 30 00 1A |;.(157);:.9010..| 00000C10: 10 41 23 43 B2 C6 28 43 24 29 00 2E 10 46 23 8B |.A#C..(C$)...F#.| 00000C20: 20 43 B2 31 33 20 A7 20 99 43 24 3B 3A 8E 00 4C | C.13 . .C$;:..L| 00000C30: 10 50 23 8B 20 28 43 B1 36 34 20 AF 20 43 B3 39 |.P#. (C.64 . C.9| 00000C40: 31 29 20 A7 20 43 B2 43 AA 32 35 36 00 62 10 5A |1) . C.C.256.b.Z| 00000C50: 23 8B 20 43 B1 31 32 37 20 A7 20 43 B2 43 AB 31 |#. C.127 . C.C.1| 00000C60: 32 38 00 7C 10 64 23 43 24 B2 C7 28 43 29 3A 99 |28.|.d#C$..(C):.| 00000C70: 43 24 3B 3A 58 24 B2 58 24 AA 43 24 00 B2 10 69 |C$;:X$.X$.C$...i| 00000C80: 23 8B 20 43 B2 33 34 20 A7 20 99 43 24 3B C7 28 |#. C.34 . .C$;.(| 00000C90: 31 35 37 29 3B 3A 8F 20 54 48 49 53 20 49 53 20 |157);:. THIS IS | 00000CA0: 41 20 50 41 54 43 48 20 46 4F 52 20 51 55 4F 54 |A PATCH FOR QUOT| 00000CB0: 45 53 00 C4 10 6E 23 8B 20 43 B3 B1 32 30 20 89 |ES...n#. C..20 .| 00000CC0: 39 30 31 30 00 D2 10 78 23 43 B2 C3 28 58 24 29 |9010...x#C..(X$)| 00000CD0: AB 32 00 E9 10 82 23 8B 20 43 B1 31 20 A7 20 58 |.2....#. C.1 . X| 00000CE0: 24 B2 C8 28 58 24 2C 43 29 00 F3 10 8C 23 89 39 |$..(X$,C)....#.9| 00000CF0: 30 31 30 00 24 11 10 27 99 22 93 11 11 11 11 11 |010.$..'."......| 00000D00: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000D10: 1D 1D 1D 46 52 45 45 20 42 59 54 45 53 3A 22 3B |...FREE BYTES:";| 00000D20: B8 28 4F 29 00 54 11 15 27 99 3A 99 3A 99 3A 99 |.(O).T..'.:.:.:.| 00000D30: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |"PRESS ANY KEY T| 00000D40: 4F 20 52 45 54 55 52 4E 20 54 4F 20 50 52 4F 47 |O RETURN TO PROG| 00000D50: 52 41 4D 22 00 69 11 1A 27 A1 43 24 3A 8B 43 24 |RAM".i..'.C$:.C$| 00000D60: B2 22 22 A7 31 30 30 31 30 00 72 11 24 27 89 31 |."".10010.r.$'.1| 00000D70: 30 30 00 00 00 |00... |
....... ** TYPEWRITER **.7...."....... T
YPEWRITER 5 . ".C...."BY MIKE RICHTER --
MOD BY TIM ONOSKO"......".AVAILABLE FRO
M PET CASSETTE EXCHANGE"......"1929 NORT
HPORT DR, ROOM 6".K...."MADISON, WI 537
04"...... XX.1.3000:. XX:."."...... T$(2
55),TB(5)......59468,14. .D.. ** CONTROL
LOOP **.F.N..G(147):..9);"WORD PROCESSO
R":.:..U....:."DO YOU WANT TO .R.EAD WHA
T YOU WROTE,".......15);".E.DIT WHAT YOU
WROTE.......15);".I.NPUT FROM TAPE.O...
..15);".O.UTPUT TO TAPE.......15);".P.RI
NT THE OUTPUT.......15);".S.ET TABS".'..
...15);".Q.UESTION FREE MEMORY".W.... "
OR .W.RITE SOMETHING NEW";X$.
O. .. H(X$,1)."R" .1000...... H(X$,1)."E
" .2000...... H(X$,1)."S" .4000...... H(
X$,1)."W" .3000.O.... H(X$,1)."I" .5000.
..H.. H(X$,1)."O" .6000...R.. H(X$,1)."P
" .7000...... H(X$,1)."Q" .10000.!.,..10
0.7.... ** READ TEXT **.C....G(147).S...
. I.0 . 255.I.... T$(I)."\" .1050......
(I.0 . I.12..(I.12)). . 1500......T$(I):
. I......1500:.100......"...**THAT'S ALL
ON THIS PAGE":."KEY 'RETURN' TO GO ON".
..... X$:.X$."".1510......G(147): ..$.P.
. ** EDIT PROGRAM **.P.R..".TO LEAVE THE
LINE ALONE, HIT RETURN".Y.T.."TO DELETE
THE LINE TYPE #,RETURN."...V.."TO INSER
T A LINE BEFORE THIS ONE,":." TYPE ^
, RETURN."...X.."TO CORRECT THE LINE, TY
PE IN THE":." REVISION, RETURN.":....
Z.. K.0 . 255......T$(K):. 9000.2.... X$
."#" .2100.E.... X$."^" .2200.].... X$..
"" . T$(K).X$.T.... T$(K).."\" . . K.}..
..100...4.. L.K . 254:T$(L).T$(L.1):.L..
.>..2020...... L.255 . K.1 . .1.T...T$(L
).T$(L.1):.L......9000:.2023...... ** WR
ITE PROGRAM **......G(147)...B.. K.0 . 2
55...L.. 9000:T$(K).X$.B.V.. X$.."\" . .
K.K....100.D. .. ** TAB SETTING ***....
..G(147):." ","SET TABS":.:......."THE T
AB KEY IS THE _ AT THE TOP":."RIGHT CORN
ER.":....... "HOW MANY SPACES TO THE FIR
ST";TB(1)...H.. I.2.5.#.R.. "HOW MANY FR
OM THERE TO THE NEXT";TB(I)./....I:.100.
I.... **INPUT FROM TAPE**.E...."..READIN
G FROM TAPE........".I'LL PRINT A * FOR
EACH LINE I READ.......1......1,X$.A....
X$."".."THIS FILE IS ";X$.T.D..I.0.255:.
"*";...N..1,X$...X.L.C(X$):T$(I)."":.L.1
.5150......X$."\".5160.=....J.1.L:C.F(J(
X$,J,1)):.C.127.C.193.C.C.128.U...T$(I).
T$(I).G(C):.J.\....I.V.(. 1:.I.255.T$(I.
1)."\"..2..100...P.. **OUTPUT TO TAPE**
...Z.."..SAVING OUTPUT ON TAPE...Y...."W
HAT'S THE FILE'S NAME";X$......".I'LL PR
INT A * FOR EACH LINE I OUTPUT.......1,1
,1,X$......1,X$.2....I.0.255:."*";.Q...L
.C(T$(I)):X$."":.L.1.6100.E....T$(I)."\"
.6120......J.1.L:C.F(J(T$(I),J,1)):.C.65
.C.C.128...E.M.M.1...J.X$.X$.G(C):.J.C.O
..M..190 .M.0:.6150.M.T..1,X$.T....I....
..1,"\".....M.0..... 1:. 6185:.100......
***CASSETTE FIX***. ....59411,53.*...TJ.
TI.?....(TI.TJ).60.6170.O.$..59411,61:..
S.)..**SUB TO SPACE BETWEEN FILES**...+.
.59411,53...,.TS.TI...... (TI.TS).180.61
90...3..59411,61:..R.X.. **PLACE FOR PRI
NT LOGIC**...B.."...SORRY, NO PRINTER YE
T...L..".WHEN THERE IS, I'LL USE IT..>.V
.."..(PLEASE KEY 'RETURN' TO CONTINUE).S
.... C$:.C$."".7040.\....100...(#. ** CA
SE REVERSAL SUBROUTINE **...-#X$."":J.0.
..2#. C$...4#. C$.."_" .9020...6#J.J.1.X
.8#.I.1.TB(J):." ";:X$.X$." ":.I...:#.90
10...<#. C$."" . .".";G(157);" ";G(157);
:.9010...A#C.F(C$)...F#. C.13 . .C$;:..L
.P#. (C.64 . C.91) . C.C.256.B.Z#. C.127
. C.C.128.|.D#C$.G(C):.C$;:X$.X$.C$...I
#. C.34 . .C$;G(157);:. THIS IS A PATCH
FOR QUOTES.D.N#. C..20 .9010.R.X#C.C(X$)
.2....#. C.1 . X$.H(X$,C)....#.9010.$..'
.".........................FREE BYTES:";
.(O).T..'.:.:.:."PRESS ANY KEY TO RETURN
TO PROGRAM".I..'.C$:.C$."".10010.R.$'.1
00...
> CLICK IMAGE PREVIEW FOR FULL MODAL