STRINGS
FILE INFORMATION
FILENAME(S): STRINGS
FILE TYPE(S): PRG
FILE SIZE: 13.1K
FIRST SEEN: 2025-10-19 22:35:46
APPEARS ON: 1 disk(s)
FILE HASH
084f84aed3046c21d032e1fed59fce7db65b4054fe907854549375b70b7e1596
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| !! | STRINGS | PRG | Radd Maxx | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 CB 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 2A 20 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 |* GENERAL INPUT |
000000C0: 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 D1 08 0F 00 |ROUTINE ***.....|
000000D0: 3A 00 D7 08 1E 00 3A 00 F3 08 23 00 8F 20 2B 2B |:.....:...#.. ++|
000000E0: 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 |+ INPUT SECTION |
000000F0: 2B 2B 2B 00 0C 09 28 00 55 52 24 B2 22 22 3A 55 |+++...(.UR$."":U|
00000100: 49 24 B2 22 22 3A 97 20 55 4F 2C 30 00 1C 09 2A |I$."":. UO,0...*|
00000110: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 2F 09 2D |..UL.0.UL.80./.-|
00000120: 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 |.." ..";:.UC,0.|
00000130: 43 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |C.2..UI$:.UI$.""|
00000140: A7 35 30 00 6D 09 37 00 8B 55 49 24 B2 C7 28 31 |.50.m.7..UI$..(1|
00000150: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC|
00000160: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 80 09 |,1:." .";:.85...|
00000170: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105|
00000180: 00 94 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U|
00000190: 4C A7 35 30 00 B9 09 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. |
000001A0: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000001B0: 43 48 41 52 41 43 54 45 52 00 C9 09 46 00 55 52 |CHARACTER...F.UR|
000001C0: 24 B2 55 52 24 AA 55 49 24 00 D3 09 4B 00 99 55 |$.UR$.UI$...K..U|
000001D0: 49 24 3B 00 DB 09 50 00 89 35 30 00 00 0A 55 00 |I$;...P..50...U.|
000001E0: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR |
000001F0: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++|
00000200: 00 28 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |.(.Z..UR$.UX$.19|
00000210: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP|
00000220: 20 52 4F 55 54 49 4E 45 00 37 0A 5F 00 8B 55 46 | ROUTINE.7._..UF|
00000230: B2 31 A7 8D 32 34 30 00 44 0A 64 00 55 46 B2 30 |.1..240.D.d.UF.0|
00000240: 3A 99 3A 8E 00 5D 0A 66 00 8F 20 2B 2B 20 43 48 |:.:..].f.. ++ CH|
00000250: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 6E 0A |ECK DELETE ++.n.|
00000260: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 86 |i...(UR$).1.50..|
00000270: 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U|
00000280: 52 24 29 AB 31 29 00 98 0A 73 00 99 22 9D 20 20 |R$).1)...s..". |
00000290: 9D 9D 22 3B 3A 89 35 30 00 BF 0A 78 00 8F 20 2B |..";:.50...x.. +|
000002A0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI|
000002B0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.|
000002C0: D1 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15|
000002D0: 30 00 E2 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |0......US.1..(US|
000002E0: 24 29 00 F9 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US|
000002F0: 24 2C 55 53 2C 31 29 A7 8E 00 FF 0A 8C 00 82 00 |$,US,1).........|
00000300: 0C 0B 91 00 55 49 24 B2 22 22 3A 8E 00 27 0B 96 |....UI$."":..'..|
00000310: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I|
00000320: 4E 50 55 54 20 2A 2A 00 38 0B 98 00 8B C6 28 55 |NPUT **.8.....(U|
00000330: 49 24 29 B2 34 36 A7 8E 00 49 0B 9B 00 8B 55 49 |I$).46...I....UI|
00000340: 24 B2 C7 28 33 32 29 A7 8E 00 66 0B A0 00 8B C6 |$..(32)...f.....|
00000350: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).|
00000360: 35 37 A7 31 37 30 00 6C 0B A5 00 8E 00 89 0B AA |57.170.l........|
00000370: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI|
00000380: 24 29 B1 39 30 A7 31 38 30 00 8F 0B AF 00 8E 00 |$).90.180.......|
00000390: B3 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.|
000003A0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."|
000003B0: 22 3A 8E 00 D6 0B B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U|
000003C0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).|
000003D0: 31 32 38 29 3A 8E 00 DC 0B BB 00 8E 00 E9 0B BE |128):...........|
000003E0: 00 55 49 24 B2 22 22 3A 8E 00 0E 0C C3 00 55 46 |.UI$."":......UF|
000003F0: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO|
00000400: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 17 |UTINE EXIT +++..|
00000410: 0C C5 00 8D 32 35 30 00 20 0C C8 00 8D 32 34 35 |....250. ....245|
00000420: 00 3F 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |.?....UQ.UB.(U2%|
00000430: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).|
00000440: 5B 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |[...UQ%(UQ.UB)..|
00000450: 28 55 51 29 3A 82 3A 99 22 93 22 00 6E 0C D7 00 |(UQ):.:.".".n...|
00000460: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 77 |UZ.1:UV%..(UT).w|
00000470: 0C D8 00 89 33 30 30 00 9C 0C D9 00 55 5A B2 30 |....300.....UZ.0|
00000480: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$|
00000490: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 D3 0C DA |:UP.UJ:UL.UK....|
000004A0: 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |...(50003).0..53|
000004B0: 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 |281,1:.".";:.532|
000004C0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 |81,6:.53280,14:.|
000004D0: 32 32 30 00 DD 0C DB 00 99 22 93 22 3B 00 0C 0D |220......".";...|
000004E0: DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 |..UT$.UL$:.UT,UV|
000004F0: 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |%:.UQ.UB.(U2%.25|
00000500: 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 21 0D E1 |6.U1%.U3%.3).!..|
00000510: 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A |..UQ,UQ%(UQ.UB):|
00000520: 82 00 2D 0D E6 00 97 55 31 2C 55 31 25 00 39 0D |..-....U1,U1%.9.|
00000530: E8 00 97 55 32 2C 55 32 25 00 45 0D E9 00 97 55 |...U2,U2%.E....U|
00000540: 34 2C 55 34 25 00 53 0D EA 00 97 55 33 2C 55 33 |4,U4%.S....U3,U3|
00000550: 25 AB 31 00 5B 0D EB 00 89 33 35 00 8D 0D F0 00 |%.1.[....35.....|
00000560: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1|
00000570: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..|
00000580: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 C8 0D |(UD$,UD%.1):....|
00000590: F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |....(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E | . HELP COMIN|
000005C0: 47 20 92 20 20 22 3A 8E 00 F4 0D FA 00 55 31 25 |G . ":......U1%|
000005D0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005E0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005F0: 28 55 34 29 00 1C 0E FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
00000600: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
00000610: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 22 0E FF |:UJ.UP:UK.UL."..|
00000620: 00 8E 00 33 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...3.,.. ** MENU|
00000630: 20 2A 2A 00 39 0E 2D 01 3A 00 68 0E 2E 01 99 22 | **.9.-.:.h...."|
00000640: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000650: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000660: 97 35 33 32 38 30 2C 38 00 6E 0E 2F 01 3A 00 8B |.53280,8.n./.:..|
00000670: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000680: 20 20 20 20 20 20 4D 45 4E 55 22 00 BA 0E 36 01 | MENU"...6.|
00000690: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 DD 0E 3B 01 99 |---------"...;..|
000006C0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000006D0: 45 47 49 4E 20 53 54 52 49 4E 47 53 22 00 07 0F |EGIN STRINGS"...|
000006E0: 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 |@..".. 2. |
000006F0: 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 | STUDENT INSTRU|
00000700: 43 54 49 4F 4E 53 22 00 31 0F 45 01 99 22 11 11 |CTIONS".1.E.."..|
00000710: 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 | 3. TEAC|
00000720: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS|
00000730: 22 00 4D 0F 4F 01 99 22 11 11 20 20 20 20 20 20 |".M.O..".. |
00000740: 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 7C 0F | 4. QUIT..".|.|
00000750: 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T.." -----------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A7 0F 59 |-----------"...Y|
00000780: 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 |..".. PRES|
00000790: 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 |S A NUMBER KEY (|
000007A0: 31 2D 34 29 20 22 3B 00 CF 0F 5E 01 55 4C B2 31 |1-4) ";...^.UL.1|
000007B0: 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A |:US$."1234":.35:|
000007C0: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.|
000007D0: DA 0F 60 01 55 53 24 B2 22 22 00 F7 0F 63 01 91 |..`.US$.""...c..|
000007E0: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
000007F0: 35 30 30 2C 33 39 36 00 00 10 68 01 89 33 30 30 |500,396...h..300|
00000800: 00 27 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 |.'.... ** RE-ENA|
00000810: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 |BLE STOP KEY AND|
00000820: 20 45 4E 44 20 2A 2A 00 56 10 8C 01 8B C2 28 35 | END **.V.....(5|
00000830: 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 |0003)..1..(50003|
00000840: 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 |)..160..(50003).|
00000850: B1 30 A7 33 39 39 00 80 10 8D 01 9E 55 55 AA 37 |.0.399......UU.7|
00000860: 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |1:..(50003).0..5|
00000870: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000880: 00 8C 10 8E 01 99 22 9A 93 22 3A 80 00 97 10 8F |......"..":.....|
00000890: 01 8D 38 37 35 3A 8E 00 B8 10 90 01 8F 20 2A 2A |..875:....... **|
000008A0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
000008B0: 54 49 4F 4E 53 20 2A 2A 00 E7 10 95 01 99 22 93 |TIONS **......".|
000008C0: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
000008D0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 |03).0..53281,0:.|
000008E0: 35 33 32 38 30 2C 30 00 08 11 9A 01 55 50 B2 30 |53280,0.....UP.0|
000008F0: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
00000900: 53 54 22 3A 8D 38 35 30 00 36 11 9C 01 99 22 11 |ST":.850.6....".|
00000910: 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 | .HIS PROGRAM WI|
00000920: 4C 4C 20 53 48 4F 57 20 59 4F 55 20 57 48 41 54 |LL SHOW YOU WHAT|
00000930: 20 C3 36 34 20 22 00 66 11 9E 01 99 22 11 20 4D | .64 ".f....". M|
00000940: 45 41 4E 53 20 42 59 20 27 41 20 53 54 52 49 4E |EANS BY 'A STRIN|
00000950: 47 27 2E 20 20 D9 4F 55 20 57 49 4C 4C 20 41 4C |G'. .OU WILL AL|
00000960: 53 4F 20 53 45 45 00 92 11 A0 01 99 22 20 53 4F |SO SEE......" SO|
00000970: 4D 45 20 4F 46 20 54 48 45 20 4F 50 45 52 41 54 |ME OF THE OPERAT|
00000980: 49 4F 4E 53 20 57 48 49 43 48 20 43 41 4E 20 42 |IONS WHICH CAN B|
00000990: 45 22 00 98 11 A2 01 8F 00 B7 11 A4 01 99 22 11 |E"............".|
000009A0: 20 50 45 52 46 4F 52 4D 45 44 20 4F 4E 20 53 54 | PERFORMED ON ST|
000009B0: 52 49 4E 47 53 2E 22 00 C1 11 A6 01 8D 20 38 33 |RINGS."...... 83|
000009C0: 35 00 CB 11 A8 01 8D 20 38 35 30 00 FB 11 AA 01 |5...... 850.....|
000009D0: 99 22 11 12 20 D0 4C 45 41 53 45 20 CE 4F 54 45 |.".. .LEASE .OTE|
000009E0: 3A 92 20 D9 4F 55 20 57 49 4C 4C 20 4F 4E 4C 59 |:. .OU WILL ONLY|
000009F0: 20 42 45 20 41 42 4C 45 20 54 4F 00 29 12 AC 01 | BE ABLE TO.)...|
00000A00: 99 22 11 20 52 45 54 55 52 4E 20 54 4F 20 54 48 |.". RETURN TO TH|
00000A10: 45 20 4D 45 4E 55 20 57 48 45 4E 20 59 4F 55 20 |E MENU WHEN YOU |
00000A20: 41 52 45 20 41 53 4B 45 44 00 47 12 AE 01 99 22 |ARE ASKED.G...."|
00000A30: 11 20 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F |. IF YOU WISH TO|
00000A40: 20 44 4F 20 53 4F 2E 00 50 12 B0 01 99 22 11 22 | DO SO..P...."."|
00000A50: 00 7F 12 E0 01 99 22 11 11 20 CE 4F 54 45 3A 11 |......".. .OTE:.|
00000A60: 11 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 52 4F |...O ADVANCE FRO|
00000A70: 4D 20 4F 4E 45 20 49 54 45 4D 20 54 4F 20 22 00 |M ONE ITEM TO ".|
00000A80: A5 12 E1 01 99 22 11 20 54 48 45 20 4E 45 58 54 |.....". THE NEXT|
00000A90: 20 50 52 45 53 53 20 54 48 45 20 D3 D0 C1 C3 C5 | PRESS THE .....|
00000AA0: 20 42 41 52 22 00 AE 12 E5 01 8D 38 33 35 00 C2 | BAR"......835..|
00000AB0: 12 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000AC0: 31 37 00 C8 12 F3 01 8E 00 E9 12 F4 01 8F 20 2A |17............ *|
00000AD0: 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 |* TEACHER INSTRU|
00000AE0: 43 54 49 4F 4E 53 20 2A 2A 00 19 13 F5 01 99 22 |CTIONS **......"|
00000AF0: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00000B00: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A |003).0..53281,2:|
00000B10: 97 35 33 32 38 30 2C 31 30 00 3A 13 F6 01 55 50 |.53280,10.:...UP|
00000B20: B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 |.0:UG$.".EACHER |
00000B30: C9 4E 53 54 22 3A 8D 38 35 30 00 68 13 F7 01 99 |.NST":.850.h....|
00000B40: 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 |".. .O THE |
00000B50: 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 |BEST OF OUR KNOW|
00000B60: 4C 45 44 47 45 2C 11 22 00 91 13 F8 01 99 22 20 |LEDGE,."......" |
00000B70: 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 | THIS PROGRAM I|
00000B80: 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 |S IN THE PUBLIC.|
00000B90: 22 00 BD 13 F9 01 99 22 20 20 20 44 4F 4D 41 49 |"......" DOMAI|
00000BA0: 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E |N. .F THIS IS N|
00000BB0: 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 DA 13 |OT THE CASE."...|
00000BC0: FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F |..." PLEASE CO|
00000BD0: 4E 54 41 43 54 3A 11 11 11 22 00 04 14 FB 01 99 |NTACT:..."......|
00000BE0: 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 |" .OMMODORE|
00000BF0: 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E | .USINESS .ACHIN|
00000C00: 45 53 11 22 00 27 14 FC 01 99 22 20 20 20 20 20 |ES.".'...." |
00000C10: 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 | 3370 .HARMA|
00000C20: 43 59 20 C1 56 45 2E 00 4B 14 FD 01 99 22 20 20 |CY .VE..K...." |
00000C30: 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 | .GINCOUR|
00000C40: 54 2C 20 CF 4E 54 41 52 49 4F 22 00 6D 14 FE 01 |T, .NTARIO".m...|
00000C50: 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 |." .ANA|
00000C60: 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 8D 14 |DA .1. 2.4"...|
00000C70: FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 |..." (4|
00000C80: 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 A3 14 |16) 499-4292"...|
00000C90: 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 |..UP.1:. 835:. 8|
00000CA0: 35 30 3A 00 CD 14 01 02 99 22 20 20 20 20 20 11 |50:......" .|
00000CB0: 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 D3 |..ROGRAM .AME: .|
00000CC0: 54 52 49 4E 47 53 20 20 20 20 20 20 11 00 F6 14 |TRINGS ....|
00000CD0: 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E |..." .RITTEN|
00000CE0: 20 C2 59 20 20 3A 20 C1 52 54 48 55 52 20 C6 52 | .Y : .RTHUR .R|
00000CF0: 45 4E 43 48 20 11 00 1A 15 03 02 99 22 20 20 20 |ENCH ......." |
00000D00: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00000D10: 20 20 20 20 20 20 20 20 20 11 00 45 15 04 02 99 | ..E....|
00000D20: 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 |" ..HIS PROG|
00000D30: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON |
00000D40: 41 4E 59 11 11 00 64 15 07 02 99 22 20 20 20 20 |ANY...d...." |
00000D50: 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 | ... 64 ....|
00000D60: D5 D4 C5 D2 00 89 15 08 02 99 22 20 20 20 20 20 |.........." |
00000D70: 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 | ......... 64|
00000D80: 20 C3 CF CD D0 D5 D4 C5 D2 00 97 15 09 02 8D 38 | ..............8|
00000D90: 33 35 3A 8D 38 35 30 00 C7 15 12 02 99 22 11 20 |35:.850......". |
00000DA0: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 4C 4C |.HIS PROGRAM ILL|
00000DB0: 55 53 54 52 41 54 45 53 20 54 48 45 20 43 4F 4E |USTRATES THE CON|
00000DC0: 43 45 50 54 20 4F 46 00 EA 15 13 02 99 22 20 41 |CEPT OF......" A|
00000DD0: 20 27 53 54 52 49 4E 47 27 20 54 4F 20 54 48 45 | 'STRING' TO THE|
00000DE0: 20 53 54 55 44 45 4E 54 2E 22 00 1C 16 14 02 99 | STUDENT."......|
00000DF0: 22 11 11 20 12 CE 4F 54 45 3A 92 20 D4 48 45 20 |".. ..OTE:. .HE |
00000E00: 53 54 55 44 45 4E 54 27 53 20 52 4F 4C 45 20 49 |STUDENT'S ROLE I|
00000E10: 53 20 4C 41 52 47 45 4C 59 20 41 22 00 48 16 15 |S LARGELY A".H..|
00000E20: 02 99 22 11 20 50 41 53 53 49 56 45 20 4F 4E 45 |..". PASSIVE ONE|
00000E30: 2D 20 46 4F 52 20 54 48 45 20 4D 4F 53 54 20 50 |- FOR THE MOST P|
00000E40: 41 52 54 2C 20 41 4C 4C 00 78 16 16 02 99 22 11 |ART, ALL.x....".|
00000E50: 20 54 48 45 52 45 20 49 53 20 54 4F 20 44 4F 20 | THERE IS TO DO |
00000E60: 49 53 20 50 52 45 53 53 20 54 48 45 20 53 50 41 |IS PRESS THE SPA|
00000E70: 43 45 20 42 41 52 2E 22 00 7E 16 17 02 99 00 87 |CE BAR.".~......|
00000E80: 16 44 02 8D 38 33 35 00 9B 16 4E 02 8B 55 5A B2 |.D..835...N..UZ.|
00000E90: 31 A7 9E 55 50 25 3A 89 32 31 37 00 A1 16 57 02 |1..UP%:.217...W.|
00000EA0: 8E 00 C7 16 58 02 8F 20 2A 2A 20 50 52 4F 47 52 |....X.. ** PROGR|
00000EB0: 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 |AM MODIFICATION |
00000EC0: 49 4E 53 54 20 2A 2A 00 D8 16 59 02 99 22 93 22 |INST **...Y.."."|
00000ED0: 3A 97 55 54 2C 55 4C 25 00 F8 16 5D 02 55 50 B2 |:.UT,UL%...].UP.|
00000EE0: 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD |0:UG$.".ROGRAM .|
00000EF0: 4F 44 22 3A 8D 38 35 30 00 01 17 94 02 8D 38 33 |OD":.850......83|
00000F00: 35 00 15 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%|
00000F10: 3A 89 32 31 37 00 1B 17 BB 02 8E 00 40 17 BC 02 |:.217.......@...|
00000F20: 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 |. ** TO USE 8032|
00000F30: 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A | LOAD CBM4032 **|
00000F40: 00 76 17 C6 02 99 22 93 11 11 11 05 42 45 46 4F |.v....".....BEFO|
00000F50: 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 |RE RUNNING THIS |
00000F60: 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 |PROGRAM ON AN 80|
00000F70: 33 32 20 20 11 11 00 AC 17 D0 02 99 22 20 20 20 |32 ........" |
00000F80: 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D | LOAD THE 'CBM|
00000F90: 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 | 4032' PROGRAM..|
00000FA0: 11 11 11 11 11 11 11 11 11 11 11 22 00 B7 17 DA |..........."....|
00000FB0: 02 9E 55 55 AA 37 31 00 BD 17 E4 02 80 00 DD 17 |..UU.71.........|
00000FC0: 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 | .. ** T I T L E|
00000FD0: 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 11 18 | P A G E **...|
00000FE0: 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 |".."....";:.UT,U|
00000FF0: 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |U%:..(50003).0..|
00001000: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00001010: 36 00 27 18 24 03 81 49 B2 31 A4 33 38 3A 99 22 |6.'.$..I.1.38:."|
00001020: 12 A6 92 22 3B 3A 82 00 3F 18 26 03 81 49 B2 31 |...";:..?.&..I.1|
00001030: A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 |.22:.".....";:..|
00001040: 57 18 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D |W.(..I.1.37:."..|
00001050: 12 A6 92 22 3B 3A 82 00 6F 18 2A 03 81 49 B2 31 |...";:..o.*..I.1|
00001060: A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 |.22:.".....";:..|
00001070: 94 18 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D |..,.."..........|
00001080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00001090: A9 20 20 92 00 B6 18 2E 03 99 22 1D 1D 1D 1D 1D |. .......".....|
000010A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .|
000010B0: 20 20 12 20 92 A9 00 D7 18 30 03 99 22 1D 1D 1D | . .....0.."...|
000010C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000010D0: 20 92 20 20 12 A3 DF 00 F5 18 32 03 99 22 1D 1D | . ......2.."..|
000010E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000010F0: DF 12 20 20 92 00 1D 19 34 03 99 22 11 11 1D 1D |.. ....4.."....|
00001100: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 |..........C O M |
00001110: 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 40 19 |M O D O R E...@.|
00001120: 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |6.."............|
00001130: 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 |...EDUCATIONAL..|
00001140: 00 5F 19 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |._.8..".........|
00001150: 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 |.......SOFTWARE.|
00001160: 7A 19 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F |z.:.. ** COMMODO|
00001170: 52 45 20 4C 4F 47 4F 20 2A 2A 00 B2 19 3B 03 99 |RE LOGO **...;..|
00001180: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
00001190: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
000011A0: 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 | BAR OR WAIT.":I|
000011B0: B2 30 00 D4 19 3C 03 A1 41 24 3A 8B 41 24 B3 B1 |.0...<..A$:.A$..|
000011C0: 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 |" ".I.I.1:.I.250|
000011D0: A7 38 32 38 00 F8 19 3E 03 54 31 24 B2 22 22 3A |.828...>.T1$."":|
000011E0: 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 |T2$."":T3$."":T4|
000011F0: 24 B2 22 22 3A 49 B2 30 00 01 1A 40 03 89 33 30 |$."":I.0...@..30|
00001200: 30 00 1D 1A 43 03 8F 20 2A 2A 20 53 50 41 43 45 |0...C.. ** SPACE|
00001210: 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 59 1A | BAR PRESS **.Y.|
00001220: 48 03 97 20 55 4F 2C 30 3A 99 C8 28 55 44 24 2C |H.. UO,0:..(UD$,|
00001230: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |24);".......PRES|
00001240: 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 |S SPACE BAR TO C|
00001250: 4F 4E 54 49 4E 55 45 92 22 00 70 1A 4C 03 A1 55 |ONTINUE.".p.L..U|
00001260: 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 |I$:.UI$.." ".844|
00001270: 00 76 1A 4E 03 8E 00 96 1A 52 03 8F 20 2A 2A 20 |.v.N.....R.. ** |
00001280: 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 |PAGE DESIGN ROUT|
00001290: 49 4E 45 20 2A 2A 00 A2 1A 54 03 55 50 B2 55 50 |INE **...T.UP.UP|
000012A0: AA 31 00 CC 1A 57 03 99 22 93 22 C8 28 55 54 24 |.1...W..".".(UT$|
000012B0: AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 |.UP$,21);.(UP$.U|
000012C0: 47 24 AA C4 28 55 50 29 2C 31 38 29 00 FB 1A 5C |G$..(UP),18)...\|
000012D0: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
000012E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 0A 1B 60 03 |----------"...`.|
00001300: 8B 55 48 B3 B1 30 A7 38 37 30 00 58 1B 61 03 8F |.UH..0.870.X.a..|
00001310: 20 48 45 4C 50 20 21 21 21 21 3F 3F 3F 3F 3F 3F | HELP !!!!??????|
00001320: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F |????????????????|
00001330: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F |????????????????|
00001340: 3F 3F 3F 3F 3F 3F 21 21 21 21 21 21 21 21 21 3F |??????!!!!!!!!!?|
00001350: 3F 3F 3F 3F 3F 3F 3F 3F 00 69 1B 66 03 55 48 B2 |????????.i.f.UH.|
00001360: 30 3A 99 22 13 11 22 3A 8E 00 88 1B 6B 03 8F 20 |0:."..":....k.. |
00001370: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R|
00001380: 45 4D 41 52 4B 20 2A 2A 00 BE 1B 70 03 99 C8 28 |EMARK **...p...(|
00001390: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
000013A0: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P|
000013B0: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 C4 |LEASE... "..|
000013C0: 1B 75 03 8E 00 E1 1B 84 03 8F 20 2A 2A 20 53 45 |.u........ ** SE|
000013D0: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *|
000013E0: 2A 00 2D 1C 85 03 55 58 24 B2 C7 28 30 29 3A 86 |*.-...UX$..(0):.|
000013F0: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327|
00001400: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197|
00001410: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U|
00001420: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 6B 1C |C.167:UU.1024.k.|
00001430: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1|
00001440: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114|
00001450: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15|
00001460: 38 3A 97 20 35 30 30 30 33 2C 30 00 AE 1C 87 03 |8:. 50003,0.....|
00001470: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1|
00001480: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21|
00001490: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:|
000014A0: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 ED |UC.204:UU.2048..|
000014B0: 1C 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U|
000014C0: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U|
000014D0: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U|
000014E0: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 11 1D |M.1024:UO.198...|
000014F0: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........|
00001500: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001510: 22 00 43 1D 8A 03 55 50 24 B2 22 20 20 20 20 20 |".C...UP$." |
00001520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001540: 20 20 22 00 91 1D 8B 03 55 54 24 B2 22 20 D3 D4 | ".....UT$." ..|
00001550: D2 C9 CE C7 D3 20 20 20 20 20 A0 A0 A0 A0 A0 A0 |..... ......|
00001560: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA|
00001570: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!|
00001580: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**|
00001590: 2A 00 97 1D 8C 03 8E 00 B1 1D 8E 03 8F 20 2A 2A |*............ **|
000015A0: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *|
000015B0: 2A 00 BA 1D 93 03 8D 39 30 30 00 C8 1D 94 03 86 |*......900......|
000015C0: 20 44 41 24 28 32 30 29 00 E3 1D 98 03 8F 20 2A | DA$(20)...... *|
000015D0: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
000015E0: 20 2A 2A 00 01 1E 9D 03 99 22 93 22 3A 99 22 A0 | **......".":.".|
000015F0: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
00001600: 45 00 18 1E A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E.......(UB.40).|
00001610: B1 39 36 A7 8D 37 30 30 00 31 1E A3 03 8F 20 2A |.96..700.1.... *|
00001620: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
00001630: 2A 00 45 1E A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*.E.... .(0).200|
00001640: 30 A7 39 33 37 00 73 1E A5 03 99 22 93 11 11 05 |0.937.s...."....|
00001650: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001660: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
00001670: 48 11 22 00 97 1E A6 03 99 22 4D 45 4D 4F 52 59 |H."......"MEMORY|
00001680: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
00001690: 47 52 41 4D 20 21 22 00 A2 1E A7 03 9E 55 55 AA |GRAM !"......UU.|
000016A0: 37 31 00 A8 1E A8 03 80 00 C2 1E A9 03 99 22 93 |71............".|
000016B0: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
000016C0: 36 32 00 F1 1E AC 03 8F 20 2A 2A 20 42 41 53 49 |62...... ** BASI|
000016D0: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
000016E0: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
000016F0: 2A 00 2F 1F AD 03 97 31 30 37 35 2C 31 33 33 3A |*./....1075,133:|
00001700: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
00001710: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
00001720: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
00001730: 65 1F AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |e....1091,155:.1|
00001740: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001750: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001760: 33 2C 31 33 33 00 87 1F AF 03 97 31 31 30 34 2C |3,133......1104,|
00001770: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001780: 30 38 32 2C 32 33 34 00 9E 1F B1 03 8B C2 28 35 |082,234.......(5|
00001790: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 CD |0003)..160.955..|
000017A0: 1F B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |....1093,88:.109|
000017B0: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
000017C0: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 E2 1F |1102,228:.965...|
000017D0: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
000017E0: 39 30 00 11 20 C0 03 97 31 30 39 33 2C 34 39 3A |90.. ...1093,49:|
000017F0: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
00001800: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
00001810: 35 00 4B 20 C2 03 97 32 30 39 39 2C 31 34 31 3A |5.K ...2099,141:|
00001820: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
00001830: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
00001840: 34 31 3A 97 32 31 30 35 2C 32 31 00 87 20 C3 03 |41:.2105,21.. ..|
00001850: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001860: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001870: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001880: 31 32 32 2C 31 34 31 00 C1 20 C4 03 97 32 31 32 |122,141.. ...212|
00001890: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
000018A0: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
000018B0: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
000018C0: 33 00 DF 20 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3.. ...UU.48:. D|
000018D0: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
000018E0: F0 20 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |. ...800:. TITLE|
000018F0: 00 00 21 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |..!...300:. MENU|
00001900: 00 31 21 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |.1!...".THE PGM |
00001910: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
00001920: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
00001930: 80 00 66 21 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |..f!...UZ.1..UP%|
00001940: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001950: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001960: 45 52 45 20 2A 2A 00 91 21 E9 03 99 22 93 05 22 |ERE **..!...".."|
00001970: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001980: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001990: 36 00 9E 21 ED 03 55 47 24 B2 C7 28 30 29 00 A8 |6..!..UG$..(0)..|
000019A0: 21 F2 03 89 32 36 33 30 00 B5 21 FC 03 8D 20 36 |!...2630..!... 6|
000019B0: 30 30 30 3A 8E 00 CB 21 06 04 A1 53 24 3A 8B 53 |000:...!...S$:.S|
000019C0: 24 B3 B1 22 20 22 A7 31 30 33 30 00 D1 21 10 04 |$.." ".1030..!..|
000019D0: 8E 00 D7 21 1A 04 8E 00 15 22 24 04 8D 36 30 30 |...!....."$..600|
000019E0: 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |0:..(UD$,24);"..|
000019F0: 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A10: 20 20 22 3A 8E 00 52 22 2E 04 44 24 B2 22 13 22 | ":..R"..D$."."|
00001A20: 3A 81 49 B2 30 A4 32 33 3A 44 24 B2 44 24 AA 22 |:.I.0.23:D$.D$."|
00001A30: 11 22 3A 82 3A 53 50 24 B2 22 20 22 3A 81 49 B2 |.":.:SP$." ":.I.|
00001A40: 30 A4 33 38 3A 53 50 24 B2 53 50 24 AA 22 20 22 |0.38:SP$.SP$." "|
00001A50: 3A 82 00 63 22 42 04 8D 20 38 33 35 20 3A 8D 31 |:..c"B.. 835 :.1|
00001A60: 30 35 30 00 85 22 4C 04 99 22 93 22 3A 97 20 55 |050.."L..".":. U|
00001A70: 54 2C 55 4C 25 3A 99 A3 31 35 29 22 12 D3 D4 D2 |T,UL%:..15)"....|
00001A80: C9 CE C7 D3 22 00 B7 22 56 04 99 22 11 11 C1 4E |....".."V.."...N|
00001A90: 59 20 53 45 52 49 45 53 20 4F 46 20 43 48 41 52 |Y SERIES OF CHAR|
00001AA0: 41 43 54 45 52 53 20 57 48 49 43 48 20 49 53 20 |ACTERS WHICH IS |
00001AB0: 54 4F 20 42 45 11 22 00 DB 22 60 04 99 22 50 52 |TO BE.".."`.."PR|
00001AC0: 49 4E 54 45 44 20 4F 52 20 4D 41 4E 49 50 55 4C |INTED OR MANIPUL|
00001AD0: 41 54 45 44 20 42 59 20 C3 36 34 00 F9 22 6A 04 |ATED BY .64.."j.|
00001AE0: 99 22 11 49 53 20 43 41 4C 4C 45 44 20 41 20 53 |.".IS CALLED A S|
00001AF0: 54 52 49 4E 47 20 2E 2E 2E 00 08 23 74 04 99 22 |TRING .....#t.."|
00001B00: 11 11 C5 D8 C3 C5 D0 D4 00 3F 23 7E 04 99 22 11 |.........?#~..".|
00001B10: 41 20 4E 55 4D 42 45 52 20 57 48 49 43 48 20 49 |A NUMBER WHICH I|
00001B20: 53 20 50 41 52 54 20 4F 46 20 41 20 43 41 4C 43 |S PART OF A CALC|
00001B30: 55 4C 41 54 49 4F 4E 2E 22 3A 8D 31 30 32 30 00 |ULATION.":.1020.|
00001B40: 5A 23 88 04 99 22 93 D4 48 45 53 45 20 41 52 45 |Z#..."..HESE ARE|
00001B50: 20 53 54 52 49 4E 47 53 3A 22 00 6F 23 92 04 41 | STRINGS:".o#..A|
00001B60: 24 B2 22 C1 C2 D2 C1 C3 C1 C4 C1 C2 D2 C1 22 00 |$."...........".|
00001B70: 83 23 9C 04 54 59 24 B2 22 51 57 45 52 54 59 55 |.#..TY$."QWERTYU|
00001B80: 49 4F 50 00 A9 23 A6 04 44 41 24 28 32 30 29 B2 |IOP..#..DA$(20).|
00001B90: 22 D4 55 45 53 44 41 59 2C 20 CA 41 4E 55 41 52 |".UESDAY, .ANUAR|
00001BA0: 59 20 32 30 2C 31 39 38 31 00 BF 23 B0 04 47 31 |Y 20,1981..#..G1|
00001BB0: 24 B2 22 A6 A8 A8 A9 DF A9 DF 20 DB DB DB DB 00 |$."....... .....|
00001BC0: D2 23 BA 04 99 C8 28 44 24 2C 35 29 A3 31 30 29 |.#....(D$,5).10)|
00001BD0: 41 24 00 E7 23 C4 04 99 C8 28 44 24 2C 31 30 29 |A$..#....(D$,10)|
00001BE0: A3 31 30 29 54 59 24 00 00 24 CE 04 99 C8 28 44 |.10)TY$..$....(D|
00001BF0: 24 2C 31 35 29 A3 31 30 29 44 41 24 28 32 30 29 |$,15).10)DA$(20)|
00001C00: 00 15 24 D8 04 99 C8 28 44 24 2C 32 30 29 A3 31 |..$....(D$,20).1|
00001C10: 30 29 47 31 24 00 1F 24 E2 04 8D 31 30 32 30 00 |0)G1$..$...1020.|
00001C20: 51 24 EC 04 99 22 13 D7 45 20 43 41 4E 20 55 53 |Q$..."..E CAN US|
00001C30: 45 20 D3 D4 D2 C9 CE C7 A0 D6 C1 D2 C9 C1 C2 CC |E ..............|
00001C40: C5 D3 20 41 53 20 53 48 4F 52 54 48 41 4E 44 22 |.. AS SHORTHAND"|
00001C50: 3B 00 A2 24 F6 04 99 22 46 4F 52 20 53 54 52 49 |;..$..."FOR STRI|
00001C60: 4E 47 53 2C 20 4A 55 53 54 20 41 53 20 57 45 20 |NGS, JUST AS WE |
00001C70: 55 53 45 20 56 41 52 49 41 42 4C 45 53 20 41 53 |USE VARIABLES AS|
00001C80: 53 48 4F 52 54 48 41 4E 44 20 46 4F 52 20 4E 55 |SHORTHAND FOR NU|
00001C90: 4D 42 45 52 53 3B 20 4C 49 4B 45 20 54 48 49 53 |MBERS; LIKE THIS|
00001CA0: 3A 22 00 AF 24 00 05 50 24 B2 C7 28 33 34 29 00 |:"..$..P$..(34).|
00001CB0: CA 24 0A 05 99 C8 28 44 24 2C 35 29 A3 36 29 22 |.$....(D$,5).6)"|
00001CC0: 41 24 3D 22 50 24 41 24 50 24 00 E8 24 14 05 99 |A$="P$A$P$..$...|
00001CD0: C8 28 44 24 2C 31 30 29 A3 35 29 22 54 59 24 3D |.(D$,10).5)"TY$=|
00001CE0: 22 50 24 54 59 24 50 24 00 0C 25 1E 05 99 C8 28 |"P$TY$P$..%....(|
00001CF0: 44 24 2C 31 35 29 22 20 44 41 24 28 32 30 29 3D |D$,15)" DA$(20)=|
00001D00: 22 50 24 44 41 24 28 32 30 29 50 24 00 30 25 28 |"P$DA$(20)P$.0%(|
00001D10: 05 99 C8 28 44 24 2C 32 30 29 A3 35 29 22 47 31 |...(D$,20).5)"G1|
00001D20: 24 3D 22 50 24 47 31 24 50 24 3A 8D 20 38 33 35 |$="P$G1$P$:. 835|
00001D30: 00 3B 25 32 05 8D 20 35 30 30 30 00 59 25 3C 05 |.;%2.. 5000.Y%<.|
00001D40: 99 22 93 22 A3 31 30 29 22 12 C3 CF CE C3 C1 D4 |.".".10)".......|
00001D50: C5 CE C1 D4 C9 CF CE 92 22 00 A2 25 46 05 99 22 |........"..%F.."|
00001D60: 11 11 D4 48 45 20 4C 4F 4E 47 45 53 54 20 53 54 |...HE LONGEST ST|
00001D70: 52 49 4E 47 20 C9 20 43 41 4E 20 54 59 50 45 20 |RING . CAN TYPE |
00001D80: 41 54 20 4F 4E 45 20 47 4F 20 49 53 20 41 42 4F |AT ONE GO IS ABO|
00001D90: 55 54 20 37 35 20 43 48 41 52 41 43 54 45 52 53 |UT 75 CHARACTERS|
00001DA0: 3A 22 00 D7 25 50 05 99 22 42 55 54 20 53 54 52 |:"..%P.."BUT STR|
00001DB0: 49 4E 47 53 20 43 41 4E 20 42 45 20 55 50 20 54 |INGS CAN BE UP T|
00001DC0: 4F 20 32 35 35 20 43 48 41 52 41 43 54 45 52 53 |O 255 CHARACTERS|
00001DD0: 20 4C 4F 4E 47 2E 22 00 26 26 5A 05 99 22 11 D7 | LONG.".&&Z.."..|
00001DE0: 45 20 43 41 4E 20 4D 41 4B 45 20 4C 4F 4E 47 20 |E CAN MAKE LONG |
00001DF0: 53 54 52 49 4E 47 53 20 42 59 20 4A 4F 49 4E 49 |STRINGS BY JOINI|
00001E00: 4E 47 20 20 20 20 20 53 48 4F 52 54 45 52 20 53 |NG SHORTER S|
00001E10: 54 52 49 4E 47 53 20 57 49 54 48 20 41 20 2B 20 |TRINGS WITH A + |
00001E20: 53 49 47 4E 2E 22 00 4B 26 64 05 99 22 D4 48 49 |SIGN.".K&d..".HI|
00001E30: 53 20 49 53 20 43 41 4C 4C 45 44 20 C3 CF CE C3 |S IS CALLED ....|
00001E40: C1 D4 C5 CE C1 D4 C9 CF CE 2E 22 00 55 26 6E 05 |..........".U&n.|
00001E50: 8D 31 30 32 30 00 7B 26 78 05 99 C8 28 44 24 2C |.1020.{&x...(D$,|
00001E60: 31 35 29 22 42 49 24 3D 41 24 2B 54 59 24 2B 44 |15)"BI$=A$+TY$+D|
00001E70: 41 24 28 32 30 29 2B 47 31 24 22 00 96 26 82 05 |A$(20)+G1$"..&..|
00001E80: 42 49 24 B2 41 24 AA 54 59 24 AA 44 41 24 28 32 |BI$.A$.TY$.DA$(2|
00001E90: 30 29 AA 47 31 24 00 AA 26 8C 05 99 22 11 42 49 |0).G1$..&...".BI|
00001EA0: 24 3D 22 50 24 42 49 24 50 24 00 BE 26 96 05 8D |$="P$BI$P$..&...|
00001EB0: 31 30 32 30 3A 99 C8 28 44 24 2C 31 39 29 00 D6 |1020:..(D$,19)..|
00001EC0: 26 A0 05 42 49 24 B2 42 49 24 AA 42 49 24 AA 42 |&..BI$.BI$.BI$.B|
00001ED0: 49 24 AA 42 49 24 00 F2 26 AA 05 99 22 11 42 49 |I$.BI$..&...".BI|
00001EE0: 24 3D 42 49 24 2B 42 49 24 2B 42 49 24 2B 42 49 |$=BI$+BI$+BI$+BI|
00001EF0: 24 22 00 0A 27 B4 05 99 22 50 52 49 4E 54 42 49 |$"..'..."PRINTBI|
00001F00: 24 42 49 24 42 49 24 42 49 24 00 14 27 BE 05 8D |$BI$BI$BI$..'...|
00001F10: 31 30 32 30 00 29 27 C8 05 99 22 93 22 42 49 24 |1020.)'..."."BI$|
00001F20: 42 49 24 42 49 24 42 49 24 00 33 27 D2 05 8D 31 |BI$BI$BI$.3'...1|
00001F30: 30 32 30 00 3D 27 DC 05 8D 32 35 30 30 00 47 27 |020.='...2500.G'|
00001F40: E6 05 8D 31 30 35 30 00 52 27 EB 05 8D 20 35 30 |...1050.R'... 50|
00001F50: 30 30 00 72 27 F0 05 99 22 93 22 A3 31 30 29 22 |00.r'...".".10)"|
00001F60: 12 C3 D5 D4 D4 C9 CE C7 A0 D3 D4 D2 C9 CE C7 D3 |................|
00001F70: 92 22 00 A3 27 FA 05 99 22 11 C6 4F 55 52 20 46 |."..'..."..OUR F|
00001F80: 55 4E 43 54 49 4F 4E 53 20 46 4F 52 20 4D 41 4B |UNCTIONS FOR MAK|
00001F90: 49 4E 47 20 42 49 54 53 20 4F 46 20 53 54 52 49 |ING BITS OF STRI|
00001FA0: 4E 47 22 00 BE 27 04 06 99 20 C8 28 44 24 2C 35 |NG"..'... .(D$,5|
00001FB0: 29 22 4C 45 46 54 24 28 58 24 2C 33 29 22 00 D9 |)"LEFT$(X$,3)"..|
00001FC0: 27 0E 06 99 C8 28 44 24 2C 39 29 22 4D 49 44 24 |'....(D$,9)"MID$|
00001FD0: 28 58 24 2C 32 2C 34 29 22 00 F5 27 18 06 99 C8 |(X$,2,4)"..'....|
00001FE0: 28 44 24 2C 31 33 29 22 52 49 47 48 54 24 28 58 |(D$,13)"RIGHT$(X|
00001FF0: 24 2C 31 29 22 00 0C 28 22 06 99 C8 28 44 24 2C |$,1)"..("...(D$,|
00002000: 31 37 29 22 4C 45 4E 28 58 24 29 22 00 16 28 2C |17)"LEN(X$)"..(,|
00002010: 06 8D 31 30 36 30 00 24 28 36 06 99 22 13 11 11 |..1060.$(6.."...|
00002020: 22 53 50 24 00 3A 28 40 06 99 44 24 A3 31 30 29 |"SP$.:(@..D$.10)|
00002030: C8 28 53 50 24 2C 32 35 29 3B 00 6F 28 4A 06 99 |.(SP$,25);.o(J..|
00002040: 22 13 11 11 C9 4E 50 55 54 20 41 20 53 54 52 49 |"....NPUT A STRI|
00002050: 4E 47 20 3A 22 3B 3A 55 53 24 B2 22 22 3A 55 4C |NG :";:US$."":UL|
00002060: B2 32 30 3A 8D 20 33 35 3A 58 24 B2 55 52 24 00 |.20:. 35:X$.UR$.|
00002070: 87 28 54 06 99 C8 28 44 24 2C 35 29 A3 31 38 29 |.(T...(D$,5).18)|
00002080: C8 28 58 24 2C 33 29 00 A1 28 5E 06 99 C8 28 44 |.(X$,3)..(^...(D|
00002090: 24 2C 39 29 A3 31 38 29 CA 28 58 24 2C 32 2C 34 |$,9).18).(X$,2,4|
000020A0: 29 00 BA 28 68 06 99 C8 28 44 24 2C 31 33 29 A3 |)..(h...(D$,13).|
000020B0: 31 38 29 C9 28 58 24 2C 31 29 00 E7 28 72 06 8B |18).(X$,1)..(r..|
000020C0: 58 58 24 B2 22 58 22 A7 99 C8 28 44 24 2C 31 37 |XX$."X"...(D$,17|
000020D0: 29 A3 31 38 29 22 20 20 20 22 3A 58 58 24 B2 22 |).18)" ":XX$."|
000020E0: 22 3A 89 31 36 31 30 00 FE 28 7C 06 99 C8 28 44 |":.1610..(|...(D|
000020F0: 24 2C 31 37 29 A3 31 38 29 C3 28 58 24 29 00 36 |$,17).18).(X$).6|
00002100: 29 86 06 8D 20 36 30 30 30 3A 8F 20 20 50 52 49 |)... 6000:. PRI|
00002110: 4E 54 20 22 D7 4F 55 4C 44 20 59 4F 55 20 4C 49 |NT ".OULD YOU LI|
00002120: 4B 45 20 41 4E 4F 54 48 45 52 20 45 58 41 4D 50 |KE ANOTHER EXAMP|
00002130: 4C 45 3F 20 22 3B 00 54 29 88 06 8F 20 20 55 53 |LE? ";.T)... US|
00002140: 24 3D 22 59 4E 22 3A 55 4C 3D 31 3A 47 4F 53 55 |$="YN":UL=1:GOSU|
00002150: 42 20 33 35 00 6F 29 8A 06 8F 20 49 46 20 55 52 |B 35.o)... IF UR|
00002160: 24 3D 22 4E 22 20 54 48 45 4E 20 31 37 30 30 00 |$="N" THEN 1700.|
00002170: 7F 29 8B 06 8F 20 47 4F 53 55 42 20 38 33 35 00 |.)... GOSUB 835.|
00002180: A4 29 90 06 8F 20 50 52 49 4E 54 20 22 13 11 11 |.)... PRINT "...|
00002190: 22 53 50 24 3A 58 24 3D 53 50 24 3A 47 4F 54 4F |"SP$:X$=SP$:GOTO|
000021A0: 31 36 32 30 00 AA 29 9A 06 3A 00 B4 29 A4 06 8D |1620..)..:..)...|
000021B0: 31 30 35 30 00 EE 29 AE 06 99 22 93 22 3A 97 55 |1050..)...".":.U|
000021C0: 54 2C 55 55 25 3A 99 22 93 12 41 50 50 4C 49 43 |T,UU%:."..APPLIC|
000021D0: 41 54 49 4F 4E 3A 20 54 4F 20 52 45 56 45 52 53 |ATION: TO REVERS|
000021E0: 45 20 41 20 53 54 52 49 4E 47 2E 2E 2E 2E 00 16 |E A STRING......|
000021F0: 2A B8 06 48 24 B2 22 A3 C5 C4 C3 C0 C6 D2 A4 22 |*..H$."........"|
00002200: 3A 99 22 11 48 24 3D 22 50 24 22 A3 C5 C4 C3 C0 |:.".H$="P$".....|
00002210: C6 D2 A4 22 50 24 00 57 2A C2 06 99 22 11 46 4F |..."P$.W*...".FO|
00002220: 52 20 49 3D 4C 45 4E 28 48 24 29 20 54 4F 20 31 |R I=LEN(H$) TO 1|
00002230: 20 53 54 45 50 20 2D 31 3A 20 48 52 24 3D 48 52 | STEP -1: HR$=HR|
00002240: 24 2B 4D 49 44 24 28 48 24 2C 49 2C 31 29 3A 20 |$+MID$(H$,I,1): |
00002250: 4E 45 58 54 22 3A 99 00 86 2A CC 06 48 52 24 B2 |NEXT":...*..HR$.|
00002260: 22 22 3A 81 49 B2 C3 28 48 24 29 A4 31 A9 AB 31 |"":.I..(H$).1..1|
00002270: 3A 48 52 24 B2 48 52 24 AA CA 28 48 24 2C 49 2C |:HR$.HR$..(H$,I,|
00002280: 31 29 3A 82 3A 99 00 95 2A D6 06 99 48 52 24 3A |1):.:...*...HR$:|
00002290: 8D 31 30 32 30 00 B4 2A E0 06 99 C8 28 44 24 2C |.1020..*....(D$,|
000022A0: 31 33 29 22 4E 4F 57 20 54 52 59 20 54 48 49 53 |13)"NOW TRY THIS|
000022B0: 3A 22 3A 99 00 CA 2A EA 06 99 22 20 37 30 30 20 |:":...*..." 700 |
000022C0: 48 24 3D 48 24 2B 48 52 24 22 00 16 2B F4 06 99 |H$=H$+HR$"..+...|
000022D0: 22 20 37 31 30 20 50 52 49 4E 54 20 12 52 92 20 |" 710 PRINT .R. |
000022E0: 3B 3A 46 4F 52 20 49 3D 31 20 54 4F 20 4C 45 4E |;:FOR I=1 TO LEN|
000022F0: 28 48 24 29 3A 50 52 49 4E 54 20 4D 49 44 24 28 |(H$):PRINT MID$(|
00002300: 48 24 2C 49 2C 31 29 22 50 24 22 9D 22 50 24 22 |H$,I,1)"P$"."P$"|
00002310: 3B 3A 4E 45 58 54 00 26 2B FE 06 99 22 91 91 22 |;:NEXT.&+...".."|
00002320: A3 31 32 29 50 24 00 3A 2B 08 07 99 C8 28 44 24 |.12)P$.:+....(D$|
00002330: 2C 31 36 29 A3 31 30 29 50 24 00 4F 2B 12 07 99 |,16).10)P$.O+...|
00002340: 22 20 37 32 30 20 47 4F 54 4F 20 37 31 30 22 00 |" 720 GOTO 710".|
00002350: 59 2B 1C 07 8D 20 38 33 35 00 67 2B 26 07 48 24 |Y+... 835.g+&.H$|
00002360: B2 48 24 AA 48 52 24 00 99 2B 30 07 99 C8 28 44 |.H$.HR$..+0...(D|
00002370: 24 2C 32 30 29 22 12 22 3B 3A 81 20 49 B2 31 20 |$,20)".";:. I.1 |
00002380: A4 20 C3 28 48 24 29 3A 99 20 CA 28 48 24 2C 49 |. .(H$):. .(H$,I|
00002390: 2C 31 29 22 9D 22 3B 3A 82 00 AD 2B 3A 07 A1 41 |,1)".";:...+:..A|
000023A0: 24 3A 8B 41 24 B2 22 22 A7 31 38 34 30 00 B7 2B |$:.A$."".1840..+|
000023B0: 44 07 89 31 38 38 30 00 C2 2B 4E 07 89 20 31 38 |D..1880..+N.. 18|
000023C0: 34 30 00 D4 2B 58 07 99 22 93 22 3A 97 20 55 54 |40..+X..".":. UT|
000023D0: 2C 55 4C 25 00 00 2C 62 07 99 22 93 12 D3 54 52 |,UL%..,b.."...TR|
000023E0: 49 4E 47 53 20 46 4F 52 20 43 4F 4E 54 52 4F 4C |INGS FOR CONTROL|
000023F0: 4C 49 4E 47 20 54 48 45 20 43 55 52 53 4F 52 22 |LING THE CURSOR"|
00002400: 00 2D 2C 6C 07 99 22 11 11 4C 45 54 20 44 24 3D |.-,l.."..LET D$=|
00002410: 20 12 53 51 51 51 51 51 51 51 51 51 51 51 51 51 | .SQQQQQQQQQQQQQ|
00002420: 51 51 51 51 51 51 51 51 51 51 51 92 22 00 46 2C |QQQQQQQQQQQ.".F,|
00002430: 76 07 99 22 91 22 A3 33 33 29 50 24 3A 99 22 91 |v..".".33)P$:.".|
00002440: 22 A3 37 29 50 24 00 78 2C 80 07 99 22 4F 52 20 |".7)P$.x,..."OR |
00002450: 44 24 3D 20 12 53 92 20 3A 46 4F 52 20 49 3D 30 |D$= .S. :FOR I=0|
00002460: 20 54 4F 20 32 33 3A 44 24 3D 44 24 2B 20 12 51 | TO 23:D$=D$+ .Q|
00002470: 92 20 3A 4E 45 58 54 22 00 A6 2C 8A 07 99 22 91 |. :NEXT"..,...".|
00002480: 22 A3 33 32 29 50 24 3A 99 22 91 22 A3 33 30 29 |".32)P$:.".".30)|
00002490: 50 24 3A 99 22 91 22 A3 38 29 50 24 3A 99 22 91 |P$:.".".8)P$:.".|
000024A0: 22 A3 36 29 50 24 00 DB 2C 94 07 99 22 11 4C 45 |".6)P$..,...".LE|
000024B0: 46 54 28 44 24 2C 4E 29 20 42 52 49 4E 47 53 20 |FT(D$,N) BRINGS |
000024C0: 54 48 45 20 43 55 52 53 4F 52 20 54 4F 20 54 48 |THE CURSOR TO TH|
000024D0: 45 20 4E 54 48 20 52 4F 57 2E 22 00 E5 2C 9E 07 |E NTH ROW."..,..|
000024E0: 8D 31 30 32 30 00 06 2D A8 07 99 C8 28 44 24 2C |.1020..-....(D$,|
000024F0: 31 35 29 22 12 52 4F 57 20 31 35 22 3A 8D 31 30 |15)".ROW 15":.10|
00002500: 32 30 41 44 59 2E 00 23 2D B2 07 99 C8 28 44 24 |20ADY..#-....(D$|
00002510: 2C 32 30 29 22 12 52 4F 57 20 32 30 22 3A 8D 31 |,20)".ROW 20":.1|
00002520: 30 32 30 00 41 2D BC 07 99 C8 28 44 24 2C 32 35 |020.A-....(D$,25|
00002530: 29 22 12 52 4F 57 20 32 35 22 3B 3A 8D 31 30 32 |)".ROW 25";:.102|
00002540: 30 00 61 2D C6 07 99 22 93 12 C4 4F 57 4E 57 41 |0.a-..."...OWNWA|
00002550: 52 44 53 20 41 4E 44 20 53 49 44 45 57 41 59 53 |RDS AND SIDEWAYS|
00002560: 22 00 7E 2D D0 07 99 22 11 11 57 45 20 43 41 4E |".~-..."..WE CAN|
00002570: 20 43 48 4F 4F 53 45 20 46 52 4F 4D 3A 22 00 9D | CHOOSE FROM:"..|
00002580: 2D DA 07 99 22 11 54 41 42 28 48 29 20 20 20 20 |-...".TAB(H) |
00002590: 53 50 43 28 48 29 20 20 20 20 4F 52 22 00 C9 2D |SPC(H) OR"..-|
000025A0: E4 07 99 22 46 4F 52 20 49 3D 30 20 54 4F 20 33 |..."FOR I=0 TO 3|
000025B0: 39 3A 53 50 24 3D 53 50 24 2B 22 50 24 22 20 22 |9:SP$=SP$+"P$" "|
000025C0: 50 24 22 3A 4E 45 58 54 22 00 00 2E EE 07 99 22 |P$":NEXT"......"|
000025D0: 11 11 4C 45 46 54 24 28 53 50 24 2C 48 29 20 49 |..LEFT$(SP$,H) I|
000025E0: 53 20 55 53 45 46 55 4C 20 46 4F 52 20 27 43 52 |S USEFUL FOR 'CR|
000025F0: 4F 53 53 49 4E 47 20 20 20 20 4F 55 54 27 2E 22 |OSSING OUT'."|
00002600: 00 18 2E F8 07 99 22 CC 49 4B 45 20 54 48 49 53 |......".IKE THIS|
00002610: 3A 22 3A 8D 31 30 32 30 00 2A 2E 02 08 99 22 13 |:":.1020.*....".|
00002620: 22 53 50 24 3A 8D 31 30 32 30 00 3C 2E 0C 08 99 |"SP$:.1020.<....|
00002630: C8 28 44 24 2C 31 30 29 53 50 24 3B 00 51 2E 16 |.(D$,10)SP$;.Q..|
00002640: 08 99 C8 28 53 50 24 2C 31 30 29 3A 8D 31 30 32 |...(SP$,10):.102|
00002650: 30 00 6C 2E 20 08 99 C8 28 44 24 2C 34 29 C8 28 |0.l. ...(D$,4).(|
00002660: 53 50 24 2C 36 29 3A 8D 31 30 32 30 00 9C 2E 2A |SP$,6):.1020...*|
00002670: 08 99 22 93 50 52 49 4E 54 20 4C 45 46 54 24 28 |..".PRINT LEFT$(|
00002680: 44 24 2C 31 30 29 54 41 42 28 32 30 2D 28 4C 45 |D$,10)TAB(20-(LE|
00002690: 4E 28 57 24 29 2F 32 29 29 57 24 22 00 D7 2E 34 |N(W$)/2))W$"...4|
000026A0: 08 57 24 B2 22 12 C3 52 4F 4F 4B 45 44 20 53 54 |.W$."..ROOKED ST|
000026B0: 52 49 4E 47 53 92 22 3A 99 C8 28 44 24 2C 31 30 |RINGS.":..(D$,10|
000026C0: 29 A3 32 30 AB 28 C3 28 57 24 29 AD 32 29 29 57 |).20.(.(W$).2))W|
000026D0: 24 3A 8D 31 30 32 30 00 E4 2E 39 08 97 20 55 54 |$:.1020...9.. UT|
000026E0: 2C 55 4C 25 00 26 2F 3E 08 8D 31 30 35 30 3A 99 |,UL%.&/>..1050:.|
000026F0: 22 93 D3 54 52 49 4E 47 53 20 44 4F 4E 27 54 20 |"..TRINGS DON'T |
00002700: 48 41 56 45 20 54 4F 20 42 45 20 4F 4E 20 41 20 |HAVE TO BE ON A |
00002710: 53 49 4E 47 4C 45 20 20 20 20 4C 49 4E 45 2E 22 |SINGLE LINE."|
00002720: 3A 8D 31 30 32 30 00 4B 2F 48 08 99 3A 99 A3 31 |:.1020.K/H..:..1|
00002730: 37 29 22 A6 A6 A6 11 9D 9D 9D A6 11 9D A6 A6 A6 |7)".............|
00002740: 11 9D 9D 9D A6 11 9D A6 A6 A6 22 00 79 2F 52 08 |..........".y/R.|
00002750: 99 3A 8D 31 30 32 30 3A 99 22 D4 48 49 53 20 49 |.:.1020:.".HIS I|
00002760: 53 20 50 52 49 4E 54 45 44 20 41 53 20 4F 4E 45 |S PRINTED AS ONE|
00002770: 20 53 54 52 49 4E 47 3A 22 00 A8 2F 5C 08 99 3A | STRING:"../\..:|
00002780: 8D 31 30 32 30 3A 99 22 A6 A6 A6 12 51 DD DD DD |.1020:."....Q...|
00002790: A6 51 DD A6 A6 A6 51 DD DD DD A6 51 DD A6 A6 A6 |.Q....Q....Q....|
000027A0: 92 22 3A 8D 31 30 32 30 00 DE 2F 66 08 99 C8 28 |.":.1020../f...(|
000027B0: 44 24 2C 31 34 29 22 D0 55 54 54 49 4E 47 20 41 |D$,14)".UTTING A|
000027C0: 43 43 45 4E 54 53 20 49 4E 20 C6 52 45 4E 43 48 |CCENTS IN .RENCH|
000027D0: 20 57 4F 52 44 53 3A 22 3A 8D 31 30 32 30 00 FB | WORDS:":.1020..|
000027E0: 2F 70 08 99 22 11 20 20 20 20 20 5A 45 91 9D 2C |/p..". ZE..,|
000027F0: 11 52 4F 20 22 3A 8D 31 30 32 30 00 22 30 7A 08 |.RO ":.1020."0z.|
00002800: 99 C8 28 44 24 2C 31 38 29 22 20 20 20 20 20 5A |..(D$,18)" Z|
00002810: 45 12 D1 DD 92 2C 12 51 92 52 4F 22 3A 8D 31 30 |E....,.Q.RO":.10|
00002820: 32 30 00 2D 30 7F 08 8D 20 35 30 30 30 00 57 30 |20.-0... 5000.W0|
00002830: 84 08 8D 31 30 35 30 3A 99 22 93 22 3A 97 20 55 |...1050:.".":. U|
00002840: 54 2C 55 55 25 3A 99 22 93 4F 4E 45 20 53 54 52 |T,UU%:.".ONE STR|
00002850: 49 4E 47 21 22 3A 99 00 A1 30 8E 08 99 22 27 20 |ING!":...0..."' |
00002860: 20 12 52 92 A9 12 D2 92 D0 D0 CD 12 51 DD DD DD | .R.........Q...|
00002870: DD DD DD 92 20 12 52 92 A9 20 CC BA 20 B7 B8 12 |.... .R.. .. ...|
00002880: D2 92 BB 12 51 DD DD DD DD DD DD DD DD DD 92 20 |....Q.......... |
00002890: 12 52 92 A2 12 D2 92 D1 12 52 92 A2 A2 A2 A2 22 |.R.......R....."|
000028A0: 3B 00 B8 30 98 08 99 22 D1 BE 12 D1 D1 DD DD DD |;..0..."........|
000028B0: DD DD DD DD DD 92 27 22 00 FD 30 A2 08 43 24 B2 |......'"..0..C$.|
000028C0: 22 20 20 12 A9 92 D0 D0 CD 11 9D 9D 9D 9D 9D 9D |" .............|
000028D0: 20 12 A9 20 CC BA 20 B7 B8 92 BB 11 9D 9D 9D 9D | .. .. .........|
000028E0: 9D 9D 9D 9D 9D 20 12 A2 92 D1 12 A2 A2 A2 A2 92 |..... ..........|
000028F0: D1 BE 91 91 9D 9D 9D 9D 9D 9D 9D 9D 22 00 07 31 |............"..1|
00002900: AC 08 8D 31 30 32 30 00 29 31 B1 08 99 20 22 11 |...1020.)1... ".|
00002910: 20 20 43 52 45 41 54 45 53 20 41 20 53 4D 41 4C | CREATES A SMAL|
00002920: 4C 20 43 41 52 20 21 21 22 00 43 31 B6 08 99 C8 |L CAR !!".C1....|
00002930: 28 44 24 2C 31 30 29 A3 31 35 29 43 24 3A 8D 31 |(D$,10).15)C$:.1|
00002940: 30 32 30 00 75 31 C0 08 99 C8 28 44 24 2C 31 35 |020.u1....(D$,15|
00002950: 29 22 54 4F 20 41 4E 49 4D 41 54 45 2C 20 49 4E |)"TO ANIMATE, IN|
00002960: 43 4C 55 44 45 20 41 20 53 50 41 43 45 20 49 4E |CLUDE A SPACE IN|
00002970: 20 54 48 45 22 00 9E 31 CA 08 99 22 53 54 52 49 | THE"..1..."STRI|
00002980: 4E 47 2C 20 41 54 20 54 48 45 20 4C 45 46 54 20 |NG, AT THE LEFT |
00002990: 4F 46 20 45 41 43 48 20 4C 49 4E 45 2E 22 00 BE |OF EACH LINE."..|
000029A0: 31 D4 08 99 C8 28 44 24 2C 39 29 A3 31 36 29 22 |1....(D$,9).16)"|
000029B0: A4 A4 11 9D 9D 9D BA 11 9D A5 11 9D CC 22 00 CE |............."..|
000029C0: 31 DE 08 8D 31 30 32 30 3A 99 22 93 22 3B 00 D4 |1...1020:.".";..|
000029D0: 31 E8 08 8F 00 03 32 F2 08 81 4B B2 31 A4 37 3A |1.....2...K.1.7:|
000029E0: 81 49 B2 30 A4 33 30 3A 99 43 24 3B 3A 81 4A B2 |.I.0.30:.C$;:.J.|
000029F0: 30 A4 31 30 3A 82 4A 3A 82 49 3A 99 22 11 11 22 |0.10:.J:.I:.".."|
00002A00: 3A 82 4B 00 0D 32 FC 08 8D 31 30 32 30 00 13 32 |:.K..2...1020..2|
00002A10: 06 09 8F 00 1D 32 10 09 8D 31 30 35 30 00 27 32 |.....2...1050.'2|
00002A20: 1A 09 8D 32 38 37 30 00 31 32 24 09 8D 31 30 35 |...2870.12$..105|
00002A30: 30 00 4A 32 29 09 8D 20 38 33 35 20 3A 99 22 93 |0.J2).. 835 :.".|
00002A40: 22 3A 97 20 55 54 2C 55 55 25 00 86 32 2E 09 54 |":. UT,UU%..2..T|
00002A50: 24 28 30 29 B2 22 9D 9D 12 20 20 20 20 20 92 20 |$(0)."... . |
00002A60: 11 9D 9D 9D 9D 12 20 92 20 11 9D 9D 12 20 92 20 |...... . .... . |
00002A70: 11 9D 9D 12 20 92 20 11 9D 9D 12 20 92 20 11 9D |.... . .... . ..|
00002A80: 9D 12 20 92 20 22 00 CE 32 38 09 54 24 28 31 29 |.. . "..28.T$(1)|
00002A90: B2 22 12 20 92 20 11 9D 9D 12 20 92 20 11 9D 9D |.". . .... . ...|
00002AA0: 12 20 A9 DF 92 20 11 9D 9D 9D 9D 12 20 92 20 12 |. ... ...... . .|
00002AB0: 20 92 20 11 9D 9D 9D 9D 12 20 92 20 12 20 92 20 | . ...... . . . |
00002AC0: 11 9D 9D 9D 9D 12 20 92 20 12 20 92 20 22 00 00 |...... . . . "..|
00002AD0: 33 42 09 54 24 28 32 29 B2 22 11 11 12 A9 A2 DF |3B.T$(2)."......|
00002AE0: 92 20 11 9D 9D 9D 9D 12 20 92 A2 12 20 92 20 11 |. ...... ... . .|
00002AF0: 9D 9D 9D 9D 12 20 92 20 11 9D 9D DF A2 A9 20 22 |..... . ...... "|
00002B00: 00 3E 33 4C 09 54 24 28 34 29 B2 22 12 20 20 20 |.>3L.T$(4).". |
00002B10: 92 20 11 9D 9D 9D 9D 12 20 92 20 11 9D 9D 12 20 |. ...... . .... |
00002B20: 20 20 92 20 11 9D 9D 9D 9D 12 20 92 20 11 9D 9D | . ...... . ...|
00002B30: 12 20 92 20 11 9D 9D 12 20 20 20 92 20 22 00 7A |. . .... . ".z|
00002B40: 33 56 09 54 24 28 35 29 B2 22 11 11 12 20 A9 DF |3V.T$(5)."... ..|
00002B50: 92 20 11 9D 9D 9D 9D 12 20 92 20 12 20 92 20 11 |. ...... . . . .|
00002B60: 9D 9D 9D 9D 12 20 92 20 12 20 92 20 11 9D 9D 9D |..... . . . ....|
00002B70: 9D 12 20 92 20 12 20 92 20 22 00 C6 33 60 09 54 |.. . . . "..3`.T|
00002B80: 24 28 36 29 B2 22 20 20 12 20 92 20 11 9D 9D 12 |$(6)." . . ....|
00002B90: 20 92 20 11 9D 9D 9D 9D 12 A9 92 A9 12 20 92 20 | . .......... . |
00002BA0: 11 9D 9D 9D 9D 12 20 92 20 12 20 92 20 11 9D 9D |...... . . . ...|
00002BB0: 9D 9D 12 20 92 20 12 20 92 20 11 9D 9D 9D 9D DF |... . . . ......|
00002BC0: A9 12 20 92 20 22 00 D6 33 6A 09 54 24 28 33 29 |.. . "..3j.T$(3)|
00002BD0: B2 22 20 20 20 22 00 DC 33 74 09 8F 00 E6 33 7E |." "..3t....3~|
00002BE0: 09 99 22 93 22 3B 00 1A 34 88 09 81 49 B2 30 A4 |..".";..4...I.0.|
00002BF0: 36 3A 81 4A B2 33 36 A4 28 34 AC 49 AA 32 29 A9 |6:.J.36.(4.I.2).|
00002C00: AB 31 3A 99 C8 28 44 24 2C 31 30 29 A3 4A 29 54 |.1:..(D$,10).J)T|
00002C10: 24 28 49 29 3A 82 4A 3A 82 49 00 20 34 92 09 8F |$(I):.J:.I. 4...|
00002C20: 00 39 34 A6 09 99 22 11 11 11 11 11 22 3A 8D 20 |.94...".....":. |
00002C30: 38 33 35 3A 89 20 33 30 30 00 3F 34 B0 09 90 00 |835:. 300.?4....|
00002C40: 49 34 BA 09 8D 31 30 32 30 00 53 34 C4 09 8D 31 |I4...1020.S4...1|
00002C50: 30 35 30 00 7F 34 CE 09 99 22 93 12 CC 4F 4E 47 |050..4..."...ONG|
00002C60: 20 53 54 52 49 4E 47 53 20 46 4F 52 20 51 55 49 | STRINGS FOR QUI|
00002C70: 43 4B 45 52 20 50 52 49 4E 54 49 4E 47 2E 22 00 |CKER PRINTING.".|
00002C80: 97 34 D8 09 99 22 11 11 C3 4F 4D 50 41 52 45 20 |.4..."...OMPARE |
00002C90: 54 48 45 53 45 3A 22 00 C9 34 E2 09 99 A3 38 29 |THESE:"..4....8)|
00002CA0: 22 11 46 4F 52 20 49 3D 30 20 54 4F 20 37 31 39 |".FOR I=0 TO 719|
00002CB0: 3A 20 50 52 49 4E 54 20 22 50 24 22 A6 22 50 24 |: PRINT "P$"."P$|
00002CC0: 22 3B 3A 20 4E 45 58 54 22 00 08 35 EC 09 99 A3 |";: NEXT"..5....|
00002CD0: 38 29 22 11 46 4F 52 20 49 3D 30 20 54 4F 20 32 |8)".FOR I=0 TO 2|
00002CE0: 33 39 3A 20 5A 24 3D 5A 24 2B 22 50 24 22 A6 22 |39: Z$=Z$+"P$"."|
00002CF0: 50 24 22 3A 20 4E 45 58 54 3A 20 50 52 49 4E 54 |P$": NEXT: PRINT|
00002D00: 20 5A 24 5A 24 5A 24 22 00 12 35 F6 09 8D 31 30 | Z$Z$Z$"..5...10|
00002D10: 32 30 00 39 35 00 0A 99 22 93 D0 52 49 4E 54 49 |20.95..."..RINTI|
00002D20: 4E 47 20 37 32 30 20 53 54 52 49 4E 47 53 20 4C |NG 720 STRINGS L|
00002D30: 45 4E 47 54 48 20 31 3A 22 00 55 35 0A 0A 54 B2 |ENGTH 1:".U5..T.|
00002D40: 54 49 3A 81 49 B2 30 A4 37 31 39 3A 99 22 A6 22 |TI:.I.0.719:."."|
00002D50: 3B 3A 82 3A 99 00 6E 35 14 0A 99 54 49 AB 54 22 |;:.:..n5...TI.T"|
00002D60: 4A 49 46 46 49 45 53 22 3A 8D 20 38 33 35 00 78 |JIFFIES":. 835.x|
00002D70: 35 19 0A 8D 20 38 37 35 00 9C 35 1E 0A 54 B2 54 |5... 875..5..T.T|
00002D80: 49 3A 5A 24 B2 22 22 3A 81 49 B2 30 A4 32 33 39 |I:Z$."":.I.0.239|
00002D90: 3A 5A 24 B2 5A 24 AA 22 A6 22 3A 82 00 C3 35 28 |:Z$.Z$.".":...5(|
00002DA0: 0A 99 22 93 D0 52 49 4E 54 49 4E 47 20 33 20 53 |.."..RINTING 3 S|
00002DB0: 54 52 49 4E 47 53 20 4C 45 4E 47 54 48 20 32 34 |TRINGS LENGTH 24|
00002DC0: 30 3A 22 00 E9 35 32 0A 54 B2 54 49 3A 99 5A 24 |0:"..52.T.TI:.Z$|
00002DD0: 5A 24 5A 24 3A 99 54 49 AB 54 22 4A 49 46 46 49 |Z$Z$:.TI.T"JIFFI|
00002DE0: 45 53 22 3A 8D 31 30 32 30 00 EF 35 3C 0A 8E 00 |ES":.1020..5<...|
00002DF0: F8 35 46 0A 8F 20 2A 2A 00 2C 36 50 0A 99 22 93 |.5F.. **.,6P..".|
00002E00: 12 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |.$$$$$$$$$$$$$$$|
00002E10: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00002E20: 24 24 24 24 24 24 24 24 24 92 22 3B 00 3F 36 5A |$$$$$$$$$.";.?6Z|
00002E30: 0A 99 22 12 24 22 A6 33 38 29 22 24 92 22 3B 00 |..".$".38)"$.";.|
00002E40: 52 36 64 0A 99 22 12 24 22 A6 33 38 29 22 24 92 |R6d..".$".38)"$.|
00002E50: 22 3B 00 65 36 6E 0A 99 22 12 24 22 A6 33 38 29 |";.e6n..".$".38)|
00002E60: 22 24 92 22 3B 00 83 36 78 0A 99 22 12 24 92 20 |"$.";..6x..".$. |
00002E70: 20 20 D5 C0 C0 C9 20 DD 22 A6 32 39 29 22 12 24 | .... .".29)".$|
00002E80: 92 22 3B 00 A5 36 82 0A 99 22 12 24 92 20 20 20 |.";..6...".$. |
00002E90: DD 20 20 20 20 DB C0 20 20 D1 22 A6 32 35 29 22 |. .. .".25)"|
00002EA0: 12 24 92 22 3B 00 D2 36 8C 0A 99 22 12 24 92 20 |.$.";..6...".$. |
00002EB0: 20 20 CA C0 C0 C9 20 DD 20 D5 C0 AE 20 B0 C0 C9 | .... . ... ...|
00002EC0: 20 D5 C0 AE D5 C0 C9 22 A6 31 34 29 22 12 24 92 | ......".14)".$.|
00002ED0: 22 3B 00 FF 36 96 0A 99 22 12 24 92 20 20 20 D5 |";..6...".$. .|
00002EE0: C0 C0 DB C0 CB 20 DD 20 DD 20 DD 20 DD 20 DD 20 |..... . . . . . |
00002EF0: DD CA C0 C9 22 A6 31 34 29 22 12 24 92 22 3B 00 |....".14)".$.";.|
00002F00: 2C 37 A0 0A 99 22 12 24 92 20 20 20 CA C0 C0 CB |,7...".$. ....|
00002F10: 20 CA C0 CB 20 CA C0 BD 20 CA C0 CA C0 DD CA C0 | ... ... .......|
00002F20: CB 22 A6 31 34 29 22 12 24 92 22 3B 00 49 37 AA |.".14)".$.";.I7.|
00002F30: 0A 99 22 12 24 22 A6 31 39 29 22 92 D5 DB 22 A6 |..".$".19)"...".|
00002F40: 31 37 29 22 12 24 92 22 3B 00 66 37 B4 0A 99 22 |17)".$.";.f7..."|
00002F50: 12 24 22 A6 31 39 29 22 92 CA CB 22 A6 31 37 29 |.$".19)"...".17)|
00002F60: 22 12 24 92 22 3B 00 79 37 BE 0A 99 22 12 24 22 |".$.";.y7...".$"|
00002F70: A6 33 38 29 22 24 92 22 3B 00 8C 37 C8 0A 99 22 |.38)"$.";..7..."|
00002F80: 12 24 22 A6 33 38 29 22 24 92 22 3B 00 9F 37 D2 |.$".38)"$.";..7.|
00002F90: 0A 99 22 12 24 22 A6 33 38 29 22 24 92 22 3B 00 |..".$".38)"$.";.|
00002FA0: CA 37 DC 0A 99 22 12 24 22 A6 31 32 29 22 92 42 |.7...".$".12)".B|
00002FB0: 59 20 41 52 54 48 55 52 20 46 52 45 4E 43 48 22 |Y ARTHUR FRENCH"|
00002FC0: A6 31 30 29 22 12 24 92 22 3B 00 DD 37 E6 0A 99 |.10)".$.";..7...|
00002FD0: 22 12 24 22 A6 33 38 29 22 24 92 22 3B 00 F0 37 |".$".38)"$.";..7|
00002FE0: F0 0A 99 22 12 24 22 A6 33 38 29 22 24 92 22 3B |...".$".38)"$.";|
00002FF0: 00 12 38 FA 0A 99 22 12 24 22 A6 32 35 29 22 92 |..8...".$".25)".|
00003000: 4D 43 4D 4C 58 58 58 49 20 20 20 20 20 12 24 92 |MCMLXXXI .$.|
00003010: 22 3B 00 25 38 04 0B 99 22 12 24 22 A6 33 38 29 |";.%8...".$".38)|
00003020: 22 24 92 22 3B 00 38 38 0E 0B 99 22 12 24 22 A6 |"$.";.88...".$".|
00003030: 33 38 29 22 24 92 22 3B 00 4B 38 18 0B 99 22 12 |38)"$.";.K8...".|
00003040: 24 22 A6 33 38 29 22 24 92 22 3B 00 7E 38 22 0B |$".38)"$.";.~8".|
00003050: 99 22 12 24 24 24 24 24 24 24 24 24 24 24 24 24 |.".$$$$$$$$$$$$$|
00003060: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
00003070: 24 24 24 24 24 24 24 24 24 24 24 92 22 3B 00 89 |$$$$$$$$$$$.";..|
00003080: 38 2C 0B 89 20 31 30 37 30 00 BE 38 36 0B 99 22 |8,.. 1070..86.."|
00003090: 93 22 3A 97 20 55 54 2C 55 4C 25 3A 99 22 93 20 |.":. UT,UL%:.". |
000030A0: 20 20 20 20 12 C1 20 4E 4F 54 45 20 4F 4E 20 CE | .. NOTE ON .|
000030B0: 55 4D 42 45 52 20 D3 54 52 49 4E 47 53 92 00 C5 |UMBER .TRINGS...|
000030C0: 38 40 0B 99 22 00 EE 38 4A 0B 99 22 D3 D4 D2 24 |8@.."..8J.."...$|
000030D0: 28 CE 29 20 54 55 52 4E 53 20 41 20 4E 55 4D 42 |(.) TURNS A NUMB|
000030E0: 45 52 20 28 41 53 20 55 53 45 44 20 49 4E 00 11 |ER (AS USED IN..|
000030F0: 39 54 0B 99 22 43 41 4C 43 55 4C 41 54 49 4F 4E |9T.."CALCULATION|
00003100: 53 29 20 49 4E 54 4F 20 41 20 D3 D4 D2 C9 CE C7 |S) INTO A ......|
00003110: 3A 00 18 39 5E 0B 99 22 00 22 39 68 0B 99 22 C2 |:..9^.."."9h..".|
00003120: D5 D4 00 29 39 72 0B 99 22 00 54 39 7C 0B 99 22 |...)9r..".T9|.."|
00003130: 50 4F 53 49 54 49 56 45 20 4E 55 4D 42 45 52 53 |POSITIVE NUMBERS|
00003140: 20 49 4E 20 D0 C5 D4 20 C2 C1 D3 C9 C3 20 48 41 | IN ... ..... HA|
00003150: 56 45 20 41 00 81 39 86 0B 99 22 4C 45 41 44 49 |VE A..9..."LEADI|
00003160: 4E 47 20 C2 CC C1 CE CB 2E 20 20 D3 4F 20 CC C5 |NG ...... .O ..|
00003170: C6 D4 24 28 D3 D4 D2 24 28 CE 29 2C 31 29 20 49 |..$(...$(.),1) I|
00003180: 53 00 A7 39 90 0B 99 22 45 49 54 48 45 52 20 41 |S..9..."EITHER A|
00003190: 20 42 4C 41 4E 4B 20 4F 52 20 41 20 4D 49 4E 55 | BLANK OR A MINU|
000031A0: 53 20 53 49 47 4E 2E 00 AE 39 9A 0B 99 22 00 DB |S SIGN...9..."..|
000031B0: 39 A4 0B 99 22 CD C9 C4 24 28 D3 D4 D2 24 28 CE |9..."...$(...$(.|
000031C0: 29 2C 32 29 20 57 49 4C 4C 20 52 45 4D 4F 56 45 |),2) WILL REMOVE|
000031D0: 20 54 48 45 20 42 4C 41 4E 4B 2E 00 E2 39 AE 0B | THE BLANK...9..|
000031E0: 99 22 00 0D 3A B8 0B 99 22 D6 C1 CC 28 CE 24 29 |."..:..."...(.$)|
000031F0: 20 54 55 52 4E 53 20 41 20 27 53 54 52 49 4E 47 | TURNS A 'STRING|
00003200: 27 20 4E 55 4D 42 45 52 20 42 41 43 4B 00 39 3A |' NUMBER BACK.9:|
00003210: C2 0B 99 22 49 4E 54 4F 20 41 20 4E 55 4D 42 45 |..."INTO A NUMBE|
00003220: 52 20 59 4F 55 20 43 41 4E 20 43 41 4C 43 55 4C |R YOU CAN CALCUL|
00003230: 41 54 45 20 57 49 54 48 2E 00 43 3A CC 0B 8D 31 |ATE WITH..C:...1|
00003240: 30 36 30 00 55 3A D6 0B 99 44 24 C8 28 53 50 24 |060.U:...D$.(SP$|
00003250: 2C 33 35 29 3B 00 64 3A E0 0B 99 C8 28 44 24 2C |,35);.d:....(D$,|
00003260: 31 37 29 3B 00 A1 3A EA 0B 99 22 49 4E 50 55 54 |17);..:..."INPUT|
00003270: 20 41 20 4E 55 4D 42 45 52 20 20 22 3B 3A 55 53 | A NUMBER ";:US|
00003280: 24 B2 22 30 31 32 33 34 35 36 37 38 39 22 3A 55 |$."0123456789":U|
00003290: 4C B2 38 3A 8D 20 33 35 3A 4E B2 C5 28 55 52 24 |L.8:. 35:N..(UR$|
000032A0: 29 00 E2 3A F4 0B 99 22 D3 D4 D2 24 28 CE 29 20 |)..:..."...$(.) |
000032B0: 49 53 20 5B 22 C4 28 4E 29 22 5D 3B 22 3A 99 22 |IS [".(N)"];":."|
000032C0: CD C9 C4 24 28 D3 D4 D2 24 28 CE 29 2C 32 29 20 |...$(...$(.),2) |
000032D0: 49 53 20 5B 22 CA 28 C4 28 4E 29 2C 32 29 22 5D |IS [".(.(N),2)"]|
000032E0: 2E 22 00 E8 3A 08 0C 8E 00 F0 3A 12 0C 99 22 24 |."..:.....:..."$|
000032F0: 00 FA 3A 1C 0C 99 22 20 20 24 00 00 3B 26 0C 8E |..:..." $..;&..|
00003300: 00 09 3B 88 13 99 22 93 22 00 18 3B 92 13 55 50 |..;..."."..;..UP|
00003310: B2 30 3A 8D 20 38 35 30 00 46 3B 9C 13 99 22 11 |.0:. 850.F;...".|
00003320: 20 20 20 20 20 20 D7 4F 55 4C 44 20 59 4F 55 20 | .OULD YOU |
00003330: 4C 49 4B 45 20 54 4F 20 52 45 54 55 52 4E 20 54 |LIKE TO RETURN T|
00003340: 4F 20 54 48 45 22 00 71 3B A6 13 99 22 11 20 4D |O THE".q;...". M|
00003350: 45 4E 55 20 4E 4F 57 20 28 54 48 45 52 45 27 53 |ENU NOW (THERE'S|
00003360: 20 53 54 49 4C 4C 20 53 4F 4D 45 20 4D 4F 52 45 | STILL SOME MORE|
00003370: 22 00 99 3B B0 13 99 22 11 20 49 4E 54 45 52 45 |"..;...". INTERE|
00003380: 53 54 49 4E 47 20 49 44 45 41 53 20 41 42 4F 55 |STING IDEAS ABOU|
00003390: 54 20 53 54 52 49 4E 47 53 00 B1 3B BA 13 99 22 |T STRINGS..;..."|
000033A0: 11 20 43 4F 4D 49 4E 47 20 55 50 21 29 3F 20 22 |. COMING UP!)? "|
000033B0: 3B 00 C8 3B CE 13 55 53 24 B2 22 59 4E 22 3A 55 |;..;..US$."YN":U|
000033C0: 4C B2 31 3A 8D 20 33 35 00 DE 3B D8 13 8B 20 55 |L.1:. 35..;... U|
000033D0: 52 24 B2 22 59 22 20 A7 20 89 20 33 30 30 00 E4 |R$."Y" . . 300..|
000033E0: 3B E2 13 8E 00 08 3C 70 17 8F 20 50 52 45 53 53 |;.....<p.. PRESS|
000033F0: 20 53 50 41 43 45 20 57 49 54 48 20 43 55 52 53 | SPACE WITH CURS|
00003400: 4F 52 20 53 41 56 45 44 00 34 3C 7A 17 55 31 25 |OR SAVED.4<z.U1%|
00003410: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
00003420: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
00003430: 28 55 34 29 00 3E 3C 84 17 8D 20 38 33 35 00 65 |(U4).><... 835.e|
00003440: 3C 98 17 97 20 55 31 2C 55 31 25 3A 97 55 32 2C |<... U1,U1%:.U2,|
00003450: 55 32 25 3A 97 20 55 34 2C 55 34 25 3A 97 20 55 |U2%:. U4,U4%:. U|
00003460: 33 2C 55 33 25 00 6B 3C A2 17 8E 00 00 00 |3,U3%.k<...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.K.... *** GENERAL INPUT ROUTINE
***.Q...:.W...:...#.. +++ INPUT SECTION
+++...(.UR$."":UI$."":. UO,0...*..UL.0.U
L.80./.-.." ..";:.UC,0.C.2..UI$:.UI$.""
.50.M.7..UI$.G(13).C(UR$)..1..UC,1:." ."
;:.85...<..UI$.G(20).105...>.. C(UR$)..U
L.50...A..120:. CHECK FOR VALID CHARACTE
R.I.F.UR$.UR$.UI$.S.K..UI$;...P..50...U.
. +++ CHECK FOR HELP REQUEST +++.(.Z..UR
$.UX$.195:. EXIT TO HELP ROUTINE.7._..UF
.1..240.D.D.UF.0:.:..].F.. ++ CHECK DELE
TE ++.N.I..C(UR$).1.50...N.UR$.H(UR$,C(U
R$).1)...S..". ..";:.50...X.. ++ CHECK
FOR VALID CHARACTERS ++.Q.}..C(US$).0.15
0......US.1.C(US$)......UI$.J(US$,US,1).
............UI$."":..'.... ** STANDARD I
NPUT **.8....F(UI$).46...I....UI$.G(32).
..F. ..F(UI$).48.F(UI$).57.170.L........
..F(UI$).65.F(UI$).90.180............F(U
I$).193.F(UI$).218.UI$."":..V....B(UT).U
U%.UI$.G(F(UI$).128):............UI$."":
....C.UF.1:. +++ HELP ROUTINE EXIT +++..
.E..250. .H..245.?.M..UQ.UB.(U2%.256.U1%
.U3%.2).[.R.UQ%(UQ.UB).B(UQ):.:.".".N.W.
UZ.1:UV%.B(UT).W.X..300...Y.UZ.0:US$.UJ$
:UG$.UK$:UP.UJ:UL.UK.S.Z..B(50003).0..53
281,1:.".";:.53281,6:.53280,14:.220.....
.".";.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.25
6.U1%.U3%.3).!....UQ,UQ%(UQ.UB):..-....U
1,U1%.9....U2,U2%.E....U4,U4%.S....U3,U3
%.1.[....35.....UD%.((U2%.256.U1%.U3%).U
B).40:.H(UD$,UD%.1):..H....H(UD$,24);"
. HELP COMING . ":.
.....U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B
(U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:U
K.UL.".....3.,.. ** MENU **.9.-.:.H...."
.":.UT,UU%:.B(50003).0..53281,9:.53280,8
.N./.:...1..". MENU"...6.
." -------------------------------------
-"...;..".. 1. BEGIN STRINGS"...
@..".. 2. STUDENT INSTRUCTIONS".
1.E..".. 3. TEACHER INSTRUCTIONS
".M.O..".. 4. QUIT..".|.T.." ---
-----------------------------------"...Y
..".. PRESS A NUMBER KEY (1-4) ";.
O.^.UL.1:US$."1234":.35:. INPUT ROUTINE.
Z.`.US$.""...C..E(UR$).1000,400,500,396.
..H..300.'.... ** RE-ENABLE STOP KEY AND
END **.V....B(50003)..1.B(50003)..160.B
(50003)..0.399......UU.71:.B(50003).0..5
3281,6:.53280,14......"..":.......875:..
..... ** STUDENT INSTRUCTIONS **......".
":.UT,UL%:.B(50003).0..53281,0:.53280,0.
....UP.0:UG$."STUDENT INST":.850.6....".
THIS PROGRAM WILL SHOW YOU WHAT C64 ".F
....". MEANS BY 'A STRING'. YOU WILL AL
SO SEE... .." SOME OF THE OPERATIONS WHI
CH CAN BE"............". PERFORMED ON ST
RINGS.".A.... 835.K.... 850......".. PLE
ASE NOTE:. YOU WILL ONLY BE ABLE TO.)...
.". RETURN TO THE MENU WHEN YOU ARE ASKE
D.G....". IF YOU WISH TO DO SO..P...."."
.....".. NOTE:...TO ADVANCE FROM ONE IT
EM TO "......". THE NEXT PRESS THE SPACE
BAR"......835.B....UZ.1..UP%:.217.H....
...... ** TEACHER INSTRUCTIONS **......"
.":.UT,UL%:.B(50003).0..53281,2:.53280,1
0.:...UP.0:UG$."TEACHER INST":.850.H....
".. TO THE BEST OF OUR KNOWLEDGE,."
......" THIS PROGRAM IS IN THE PUBLIC.
"......" DOMAIN. IF THIS IS NOT THE C
ASE.".Z...." PLEASE CONTACT:..."......
" COMMODORE BUSINESS MACHINES.".'..
.." 3370 PHARMACY AVE..K...."
AGINCOURT, ONTARIO".M...."
CANADA M1W 2K4"......" (4
16) 499-4292".....UP.1:. 835:. 850:.M...
." ..PROGRAM NAME: STRINGS ....
..." WRITTEN BY : ARTHUR FRENCH ...
...." UPGRADED BY : ..E....
" .THIS PROGRAM WILL RUN ON ANY...D.
..." PET 64 COMPUTER......"
COMMODORE 64 COMPUTER......835:.850.
G....". THIS PROGRAM ILLUSTRATES THE CON
CEPT OF......" A 'STRING' TO THE STUDENT
."......".. .NOTE:. THE STUDENT'S ROLE I
S LARGELY A".H....". PASSIVE ONE- FOR TH
E MOST PART, ALL.X....". THERE IS TO DO
IS PRESS THE SPACE BAR.".~.......D..835.
..N..UZ.1..UP%:.217...W...G.X.. ** PROGR
AM MODIFICATION INST **.X.Y..".":.UT,UL%
...].UP.0:UG$."PROGRAM MOD":.850......83
5......UZ.1..UP%:.217.......@.... ** TO
USE 8032 LOAD CBM4032 **.V.F..".....BEFO
RE RUNNING THIS PROGRAM ON AN 8032 ....
.P.." LOAD THE 'CBM 4032' PROGRAM..
..........."...Z..UU.71......... .. ** T
I T L E P A G E **...".."....";:.UT,U
U%:.B(50003).0..53280,14:.53281,6.'.$..I
.1.38:."...";:..?.&..I.1.22:.".....";:..
W.(..I.1.37:.".....";:..O.*..I.1.22:."..
...";:....,.."..........................
. ......."................... . . ...W
.0.."................... . ......2.."..
.................. ....4.."............
..C O M M O D O R E...@.6.."............
...EDUCATIONAL..._.8.."................S
OFTWARE.Z.:.. ** COMMODORE LOGO **...;..
H(UD$,24);"..........PRESS SPACE BAR OR
WAIT.":I.0.T.<..A$:.A$.." ".I.I.1:.I.250
.828...>.T1$."":T2$."":T3$."":T4$."":I.0
...@..300...C.. ** SPACE BAR PRESS **.Y.
H.. UO,0:.H(UD$,24);".......PRESS SPACE
BAR TO CONTINUE.".P.L..UI$:.UI$.." ".844
.V.N.....R.. ** PAGE DESIGN ROUTINE **..
.T.UP.UP.1.L.W.."."H(UT$.UP$,21);I(UP$.U
G$.D(UP),18)...\.." --------------------
------------------"...`..UH..0.870.X.A..
HELP !!!!??????????????????????????????
??????????????!!!!!!!!!?????????.I.F.UH.
0:."..":....K.. ** PLEASE WAIT REMARK **
...P..H(UD$,24);" ONE MOMENT P
LEASE... ".D.U........ ** SET UP VAR
IABLES **.-...UX$.G(0):.UQ%(1000):UB.327
68:U1.196:U2.197:U3.198:U4.216:UC.167:UU
.1024.K...UT.59468:UU%.12:UL%.14:UP%.114
6:UM.32768:UO.158:. 50003,0......B(50003
).0.UB.1024:U1.209:U2.210:U3.211:U4.214:
UC.204:UU.2048......B(50003).0.UT.53272:
UU%.21:UL%.23:UP%.2139:UM.1024:UO.198...
..UD$.".........................".C...UP
$."
".....UT$." STRINGS ":. PLAC
E PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!**
*............ ** SET VARIABLES **......9
00.H.... DA$(20)...... ** CHECK FOR 8032
**......".":." ":. SHIFTED SPACE......B
(UB.40)..96..700.1.... ** MEMORY CHECK *
*.E.... .(0).2000.937.S...."....THIS MAC
HINE DOES NOT HAVE ENOUGH."......"MEMORY
TO RUN THIS PROGRAM !"......UU.71......
.B...."..":.B(50003).0.962...... ** BASI
C 2.0 OR 4.0 OR C-64 SETUP **./....1
075,133:.1076,144:.1077,234:.1079,4:.108
0,133:.1081,145.E....1091,155:.1098,133:
.1099,144:.1100,234:.1103,133......1104,
145:.1105,234:.1082,234......B(50003)..1
60.955.M....1093,88:.1094,228:.1097,85:.
1102,228:.965......B(50003)..1.990.. ...
1093,49:.1094,230:.1097,46:.1102,230:.96
5.K B..2099,141:.2100,20:.2101,3:.2103,8
:.2104,141:.2105,21.. C..2106,3:.2115,14
5:.2117,52:.2118,234:.2121,49:.2122,141.
A D..2123,20:.2124,3:.2126,234:.2127,141
:.2128,21:.2129,3.. E..UU.48:. DISABLE S
TOP KEY.. J..800:. TITLE..!T..300:. MENU
.1!...".THE PGM WILL NOT WORK ON THIS MA
CHINE!":..F!...UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **..!..."..";:.:.B(5
0003).0..53281,6:.53280,6..!..UG$.G(0)..
!...2630..!... 6000:..K!...S$:.S$.." ".1
030.Q!....W!....."$..6000:.H(UD$,24);"..
... ":..R"
..D$.".":.I.0.23:D$.D$.".":.:SP$." ":.I.
0.38:SP$.SP$." ":..C"B.. 835 :.1050.."L.
.".":. UT,UL%:..15)".STRINGS".."V.."..AN
Y SERIES OF CHARACTERS WHICH IS TO BE.".
."`.."PRINTED OR MANIPULATED BY C64.."J.
.".IS CALLED A STRING .....#T.."..EXCEPT
.?#~..".A NUMBER WHICH IS PART OF A CALC
ULATION.":.1020.Z#...".THESE ARE STRINGS
:".O#..A$."ABRACADABRA"..#..TY$."QWERTYU
IOP..#..DA$(20)."TUESDAY, JANUARY 20,198
1..#..G1$."....... .....R#...H(D$,5).10)
A$..#D..H(D$,10).10)TY$..$N..H(D$,15).10
)DA$(20)..$X..H(D$,20).10)G1$..$...1020.
Q$...".WE CAN USE STRING VARIABLES AS SH
ORTHAND";..$..."FOR STRINGS, JUST AS WE
USE VARIABLES ASSHORTHAND FOR NUMBERS; L
IKE THIS:"..$..P$.G(34).J$...H(D$,5).6)"
A$="P$A$P$..$...H(D$,10).5)"TY$="P$TY$P$
..%...H(D$,15)" DA$(20)="P$DA$(20)P$.0%(
..H(D$,20).5)"G1$="P$G1$P$:. 835.;%2.. 5
000.Y%<..".".10)".CONCATENATION."..%F.."
..THE LONGEST STRING I CAN TYPE AT ONE G
O IS ABOUT 75 CHARACTERS:".W%P.."BUT STR
INGS CAN BE UP TO 255 CHARACTERS LONG.".
&&Z..".WE CAN MAKE LONG STRINGS BY JOINI
NG SHORTER STRINGS WITH A + SIGN.".K
&D.."THIS IS CALLED CONCATENATION.".U&N.
.1020.{&X..H(D$,15)"BI$=A$+TY$+DA$(20)+G
1$"..&..BI$.A$.TY$.DA$(20).G1$..&...".BI
$="P$BI$P$..&...1020:.H(D$,19).V& .BI$.B
I$.BI$.BI$.BI$..&...".BI$=BI$+BI$+BI$+BI
$"..'..."PRINTBI$BI$BI$BI$..'...1020.)'H
.."."BI$BI$BI$BI$.3'R..1020.='...2500.G'
...1050.R'... 5000.R'...".".10)".CUTTING
STRINGS."..'...".FOUR FUNCTIONS FOR MAK
ING BITS OF STRING"..'... H(D$,5)"LEFT$(
X$,3)".Y'...H(D$,9)"MID$(X$,2,4)"..'...H
(D$,13)"RIGHT$(X$,1)"..("..H(D$,17)"LEN(
X$)"..(,..1060.$(6.."..."SP$.:(@..D$.10)
H(SP$,25);.O(J.."...INPUT A STRING :";:U
S$."":UL.20:. 35:X$.UR$..(T..H(D$,5).18)
H(X$,3)..(^..H(D$,9).18)J(X$,2,4)..(H..H
(D$,13).18)I(X$,1)..(R..XX$."X"..H(D$,17
).18)" ":XX$."":.1610..(|..H(D$,17).18
)C(X$).6)... 6000:. PRINT "WOULD YOU LI
KE ANOTHER EXAMPLE? ";.T)... US$="YN":U
L=1:GOSUB 35.O)... IF UR$="N" THEN 1700.
)... GOSUB 835..)... PRINT "..."SP$:X$=
SP$:GOTO1620..)..:..)...1050..)...".":.U
T,UU%:."..APPLICATION: TO REVERSE A STRI
NG......*..H$.".EDC.FR.":.".H$="P$".EDC.
FR."P$.W*B..".FOR I=LEN(H$) TO 1 STEP -1
: HR$=HR$+MID$(H$,I,1): NEXT":...*L.HR$.
"":.I.C(H$).1..1:HR$.HR$.J(H$,I,1):.:...
*V..HR$:.1020..*...H(D$,13)"NOW TRY THIS
:":..J*..." 700 H$=H$+HR$"..+..." 710 PR
INT .R. ;:FOR I=1 TO LEN(H$):PRINT MID$(
H$,I,1)"P$"."P$";:NEXT.&+..."..".12)P$.:
+...H(D$,16).10)P$.O+..." 720 GOTO 710".
Y+... 835.G+&.H$.H$.HR$..+0..H(D$,20)"."
;:. I.1 . C(H$):. J(H$,I,1)".";:...+:..A
$:.A$."".1840..+D..1880.B+N.. 1840.T+X..
".":. UT,UL%..,B.."..STRINGS FOR CONTROL
LING THE CURSOR".-,L.."..LET D$= .SQQQQQ
QQQQQQQQQQQQQQQQQQQ.".F,V..".".33)P$:.".
".7)P$.X,..."OR D$= .S. :FOR I=0 TO 23:D
$=D$+ .Q. :NEXT"..,...".".32)P$:.".".30)
P$:.".".8)P$:.".".6)P$..,...".LEFT(D$,N)
BRINGS THE CURSOR TO THE NTH ROW."..,..
.1020..-...H(D$,15)".ROW 15":.1020ADY..#
-...H(D$,20)".ROW 20":.1020.A-...H(D$,25
)".ROW 25";:.1020.A-F.."..DOWNWARDS AND
SIDEWAYS".~-P.."..WE CAN CHOOSE FROM:"..
-Z..".TAB(H) SPC(H) OR".I-..."FOR
I=0 TO 39:SP$=SP$+"P$" "P$":NEXT"......"
..LEFT$(SP$,H) IS USEFUL FOR 'CROSSING
OUT'."......"LIKE THIS:":.1020.*....".
"SP$:.1020.<....H(D$,10)SP$;.Q....H(SP$,
10):.1020.L. ..H(D$,4)H(SP$,6):.1020...*
..".PRINT LEFT$(D$,10)TAB(20-(LEN(W$)/2)
)W$".W.4.W$.".CROOKED STRINGS.":.H(D$,10
).20.(C(W$).2))W$:.1020...9.. UT,UL%.&/>
..1050:.".STRINGS DON'T HAVE TO BE ON A
SINGLE LINE.":.1020.K/H..:..17)".....
..................".Y/R..:.1020:."THIS I
S PRINTED AS ONE STRING:"../\..:.1020:."
....Q....Q....Q....Q.....":.1020../F..H(
D$,14)"PUTTING ACCENTS IN FRENCH WORDS:"
:.1020../P..". ZE..,.RO ":.1020."0Z.
.H(D$,18)" ZE.Q..,.Q.RO":.1020.-0..
5000.W0...1050:.".":. UT,UU%:.".ONE STR
ING!":...0..."' .R...R.PPM.Q....... .R.
. L. ...R...Q.......... .R...R.Q.R....."
;..0..."Q..QQ.........'"..0..C$." ...PP
M....... .. L. .............. ...Q......
Q..........."..1...1020.)1... ". CREATE
S A SMALL CAR !!".C1...H(D$,10).15)C$:.1
020.U1...H(D$,15)"TO ANIMATE, INCLUDE A
SPACE IN THE"..1J.."STRING, AT THE LEFT
OF EACH LINE."..1T..H(D$,9).16)"........
....L".N1...1020:.".";.T1.....2...K.1.7:
.I.0.30:.C$;:.J.0.10:.J:.I:."..":.K..2..
.1020..2.....2...1050.'2...2870.12$..105
0.J2).. 835 :.".":. UT,UU%..2..T$(0)."..
. . ...... . .... . .... . .... . ..
.. . ".N28.T$(1).". . .... . .... ... ..
.... . . . ...... . . . ...... . . . "..
3B.T$(2)."....... ...... ... . ...... .
...... ".>3L.T$(4).". . ...... . ....
. ...... . .... . .... . ".Z3V.T$(5)
."... ... ...... . . . ...... . . . ....
.. . . . ".F3`.T$(6)." . . .... . .....
..... . ...... . . . ...... . . . ......
.. . ".V3J.T$(3)." "..3T....3~..".";..
4...I.0.6:.J.36.(4.I.2)..1:.H(D$,10).J)T
$(I):.J:.I. 4....94...".....":. 835:. 30
0.?4....I4...1020.S4D..1050.4N.."..LONG
STRINGS FOR QUICKER PRINTING."..4X.."..
COMPARE THESE:".I4....8)".FOR I=0 TO 719
: PRINT "P$"."P$";: NEXT"..5....8)".FOR
I=0 TO 239: Z$=Z$+"P$"."P$": NEXT: PRINT
Z$Z$Z$"..5...1020.95...".PRINTING 720 S
TRINGS LENGTH 1:".U5..T.TI:.I.0.719:."."
;:.:..N5...TI.T"JIFFIES":. 835.X5... 875
..5..T.TI:Z$."":.I.0.239:Z$.Z$.".":..C5(
..".PRINTING 3 STRINGS LENGTH 240:"..52.
T.TI:.Z$Z$Z$:.TI.T"JIFFIES":.1020..5<...
.5F.. **.,6P.."..$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$.";.?6Z..".$".38)"$.";.
R6D..".$".38)"$.";.E6N..".$".38)"$.";..6
X..".$. U..I .".29)".$.";..6...".$.
. .. Q".25)".$.";.R6...".$. J..I .
U.. ..I U..U.I".14)".$.";..6...".$. U
....K . . . . . .J.I".14)".$.";.,7 ..".$
. J..K J.K J.. J.J..J.K".14)".$.";.I7.
..".$".19)".U.".17)".$.";.F7...".$".19)"
.JK".17)".$.";.Y7...".$".38)"$.";..7H.."
.$".38)"$.";..7R..".$".38)"$.";.J7...".$
".12)".BY ARTHUR FRENCH".10)".$.";..7...
".$".38)"$.";..7...".$".38)"$.";..8...".
$".25)".MCMLXXXI .$.";.%8...".$".38)
"$.";.88...".$".38)"$.";.K8...".$".38)"$
.";.~8"..".$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$.";..8,.. 1070..86..".":. UT,
UL%:.". .A NOTE ON NUMBER STRINGS..E
8@.."..8J.."STR$(N) TURNS A NUMBER (AS U
SED IN..9T.."CALCULATIONS) INTO A STRING
:..9^.."."9H.."BUT.)9R..".T9|.."POSITIVE
NUMBERS IN PET BASIC HAVE A..9..."LEADI
NG BLANK. SO LEFT$(STR$(N),1) IS..9..."
EITHER A BLANK OR A MINUS SIGN...9..."..
9..."MID$(STR$(N),2) WILL REMOVE THE BLA
NK...9..."..:..."VAL(N$) TURNS A 'STRING
' NUMBER BACK.9:B.."INTO A NUMBER YOU CA
N CALCULATE WITH..C:L..1060.U:V..D$H(SP$
,35);.D:...H(D$,17);..:..."INPUT A NUMBE
R ";:US$."0123456789":UL.8:. 35:N.E(UR$
)..:..."STR$(N) IS ["D(N)"];":."MID$(STR
$(N),2) IS ["J(D(N),2)"]."..:.....:..."$
..:..." $..;&....;..."."..;..UP.0:. 850
.F;...". WOULD YOU LIKE TO RETURN T
O THE".Q;...". MENU NOW (THERE'S STILL S
OME MORE"..;...". INTERESTING IDEAS ABOU
T STRINGS..;...". COMING UP!)? ";.H;N.US
$."YN":UL.1:. 35..;X.. UR$."Y" . . 300..
;.....<P.. PRESS SPACE WITH CURSOR SAVED
.4<Z.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B
(U4).><... 835.E<... U1,U1%:.U2,U2%:. U4
,U4%:. U3,U3%.K<......
> CLICK IMAGE PREVIEW FOR FULL MODAL