PONZO TUTOR-2.64
FILE INFORMATION
FILENAME(S): PONZO TUTOR-2.64
FILE TYPE(S): PRG
FILE SIZE: 16.4K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 2 disk(s)
FILE HASH
6a04e5d5f50efd065063dccd5127d13d6f5338085ce9a257b7232a32d410dd0d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | PONZO TUTOR-2.64 | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 2 | DOWNLOAD FILE |
| FREESOFT DISK NR | PONZO TUTOR-2.64 | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 8A 30 30 31 30 30 00 19 08 01 |.......00100....|
00000010: 00 8F 22 14 14 14 14 14 14 00 39 08 02 00 8F 22 |..".......9...."|
00000020: 14 14 14 14 14 14 50 4F 4E 5A 4F 2A 31 39 38 33 |......PONZO*1983|
00000030: 2A 57 41 54 45 52 4C 4F 4F 00 46 08 03 00 8F 22 |*WATERLOO.F...."|
00000040: 14 14 14 14 14 14 00 82 08 64 00 97 35 33 32 38 |.........d..5328|
00000050: 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 32 3A 99 |1,15:.53280,12:.|
00000060: 22 90 22 3A 99 22 93 20 20 20 20 20 20 20 20 20 |".":.". |
00000070: 20 20 20 20 20 12 1F 43 36 34 20 54 55 54 4F 52 | ..C64 TUTOR|
00000080: 2D 32 00 B2 08 65 00 99 22 1C B0 C0 C0 C0 C0 C0 |-2...e..".......|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000B0: AE 22 00 F6 08 66 00 99 22 DD 20 12 1F 20 20 20 |."...f..". .. |
000000C0: 20 20 20 20 20 20 20 4D 4F 52 45 20 43 36 34 20 | MORE C64 |
000000D0: 42 41 53 49 43 20 20 20 20 20 20 20 20 20 20 20 |BASIC |
000000E0: 1C 92 20 DD 22 3A 4D 53 24 B2 22 20 57 45 4C 43 |.. .":MS$." WELC|
000000F0: 4F 4D 45 21 20 22 00 27 09 67 00 99 22 1C AD C0 |OME! ".'.g.."...|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000120: C0 C0 C0 C0 BD 90 22 00 44 09 68 00 53 4E 24 B2 |......".D.h.SN$.|
00000130: 22 31 30 30 30 22 3A 8D 36 33 32 30 30 3A 8D 36 |"1000":.63200:.6|
00000140: 33 36 30 30 00 56 09 69 00 8D 36 30 30 30 30 3A |3600.V.i..60000:|
00000150: 8D 35 39 30 30 30 00 68 09 E8 03 8D 36 30 30 30 |.59000.h....6000|
00000160: 30 3A 8D 32 30 30 30 30 00 9A 09 ED 03 99 22 93 |0:.20000......".|
00000170: 49 4E 20 54 48 49 53 2C 54 48 45 20 32 4E 44 20 |IN THIS,THE 2ND |
00000180: 50 41 52 54 20 4F 46 20 22 C7 28 33 34 29 22 54 |PART OF ".(34)"T|
00000190: 55 54 4F 52 22 C7 28 33 34 29 00 C6 09 F2 03 99 |UTOR".(34)......|
000001A0: 22 57 45 27 4C 4C 20 54 41 4C 4B 20 41 42 4F 55 |"WE'LL TALK ABOU|
000001B0: 54 20 54 48 45 20 4D 41 4E 49 50 55 4C 41 54 49 |T THE MANIPULATI|
000001C0: 4F 4E 20 4F 46 22 00 D8 09 FC 03 99 22 20 20 53 |ON OF"......" S|
000001D0: 54 52 49 4E 47 53 2E 22 00 E9 09 06 04 99 22 20 |TRINGS."......" |
000001E0: 20 B7 B7 B7 B7 B7 B7 B7 22 00 17 0A 10 04 99 22 | ......."......"|
000001F0: 12 52 45 43 41 4C 4C 92 3A 20 41 4E 59 20 56 41 |.RECALL.: ANY VA|
00000200: 52 49 41 42 4C 45 20 57 48 4F 53 45 20 4E 41 4D |RIABLE WHOSE NAM|
00000210: 45 20 45 4E 44 53 22 00 42 0A 1A 04 99 22 57 49 |E ENDS".B...."WI|
00000220: 54 48 20 41 20 24 20 49 53 20 49 4E 54 45 52 50 |TH A $ IS INTERP|
00000230: 52 45 54 45 44 20 41 53 20 41 20 53 54 52 49 4E |RETED AS A STRIN|
00000240: 47 22 00 6C 0A 24 04 99 22 4F 46 20 53 59 4D 42 |G".l.$.."OF SYMB|
00000250: 4F 4C 53 2C 20 41 4E 44 20 4E 4F 54 20 41 20 4E |OLS, AND NOT A N|
00000260: 55 4D 42 45 52 20 4F 52 20 41 4E 22 00 80 0A 2E |UMBER OR AN"....|
00000270: 04 99 22 49 4E 53 54 52 55 43 54 49 4F 4E 2E 22 |.."INSTRUCTION."|
00000280: 00 9B 0A 38 04 99 22 11 53 4F 2E 2E 54 48 45 20 |...8..".SO..THE |
00000290: 53 54 41 54 45 4D 45 4E 54 3A 22 00 BF 0A 42 04 |STATEMENT:"...B.|
000002A0: 99 22 11 12 41 24 3D 22 C7 28 33 34 29 22 31 32 |."..A$=".(34)"12|
000002B0: 33 2A 34 35 36 2F 37 38 39 22 C7 28 33 34 29 00 |3*456/789".(34).|
000002C0: ED 0A 4C 04 99 22 11 4D 45 41 4E 53 20 54 48 41 |..L..".MEANS THA|
000002D0: 54 20 41 24 20 49 53 20 54 48 41 54 20 53 45 54 |T A$ IS THAT SET|
000002E0: 20 4F 46 20 53 59 4D 42 4F 4C 53 21 22 00 05 0B | OF SYMBOLS!"...|
000002F0: 56 04 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |V.." |
00000300: 20 20 B7 B7 22 00 32 0B 60 04 99 22 28 2E 2E 41 | ..".2.`.."(..A|
00000310: 4E 44 20 49 20 43 45 52 54 41 49 4E 4C 59 20 57 |ND I CERTAINLY W|
00000320: 4F 4E 27 54 20 45 56 41 4C 55 41 54 45 20 41 24 |ON'T EVALUATE A$|
00000330: 29 22 00 5B 0B 6A 04 99 22 20 20 20 20 20 20 20 |)".[.j.." |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 22 00 88 0B 74 04 | ........"...t.|
00000360: 99 22 4E 4F 57 2C 20 4F 4E 45 20 56 45 52 59 20 |."NOW, ONE VERY |
00000370: 4E 49 43 45 20 53 45 54 20 4F 46 20 53 59 4D 42 |NICE SET OF SYMB|
00000380: 4F 4C 53 20 49 53 3A 22 00 A8 0B 7E 04 99 22 11 |OLS IS:"...~..".|
00000390: A5 20 B4 20 B5 20 A1 20 12 B6 92 20 12 B6 92 20 |. . . . ... ... |
000003A0: 12 AA 92 20 12 20 92 22 00 AE 0B 83 04 99 00 DB |... . ."........|
000003B0: 0B 88 04 99 22 57 45 27 4C 4C 20 43 41 4C 4C 20 |...."WE'LL CALL |
000003C0: 54 48 45 4D 20 53 24 28 31 29 2C 20 53 24 28 32 |THEM S$(1), S$(2|
000003D0: 29 2C 2E 2E 2C 53 24 28 38 29 22 00 E6 0B 92 04 |),..,S$(8)".....|
000003E0: 8D 36 33 30 30 30 00 FC 0B A6 04 99 22 93 57 45 |.63000......".WE|
000003F0: 27 4C 4C 20 54 59 50 45 3A 22 3A 99 00 15 0C B0 |'LL TYPE:":.....|
00000400: 04 99 22 31 30 20 53 24 28 31 29 3D 22 C7 28 33 |.."10 S$(1)=".(3|
00000410: 34 29 22 A5 22 00 2E 0C BA 04 99 22 32 30 20 53 |4)"."......"20 S|
00000420: 24 28 32 29 3D 22 C7 28 33 34 29 22 B4 22 00 47 |$(2)=".(34)".".G|
00000430: 0C C4 04 99 22 33 30 20 53 24 28 33 29 3D 22 C7 |...."30 S$(3)=".|
00000440: 28 33 34 29 22 B5 22 00 60 0C CE 04 99 22 34 30 |(34)".".`...."40|
00000450: 20 53 24 28 34 29 3D 22 C7 28 33 34 29 22 A1 22 | S$(4)=".(34)"."|
00000460: 00 7B 0C D3 04 99 22 35 30 20 53 24 28 35 29 3D |.{...."50 S$(5)=|
00000470: 22 C7 28 33 34 29 22 12 B6 92 22 00 96 0C D8 04 |".(34)"...".....|
00000480: 99 22 36 30 20 53 24 28 36 29 3D 22 C7 28 33 34 |."60 S$(6)=".(34|
00000490: 29 22 12 AA 92 22 00 B1 0C E2 04 99 22 37 30 20 |)"..."......"70 |
000004A0: 53 24 28 37 29 3D 22 C7 28 33 34 29 22 12 A7 92 |S$(7)=".(34)"...|
000004B0: 22 00 CC 0C EC 04 99 22 38 30 20 53 24 28 38 29 |"......"80 S$(8)|
000004C0: 3D 22 C7 28 33 34 29 22 12 20 92 22 00 EF 0C ED |=".(34)". ."....|
000004D0: 04 99 22 20 20 20 20 20 20 20 20 20 20 20 20 5E |.." ^|
000004E0: 54 48 41 54 27 53 20 52 56 53 2D 4F 46 46 22 00 |THAT'S RVS-OFF".|
000004F0: FF 0C F6 04 99 22 53 54 52 41 4E 47 45 3F 22 00 |....."STRANGE?".|
00000500: 2B 0D 00 05 99 22 57 45 4C 4C 2C 20 54 48 45 20 |+...."WELL, THE |
00000510: 31 53 54 20 34 20 41 52 45 20 4F 4E 20 54 48 45 |1ST 4 ARE ON THE|
00000520: 20 4B 45 59 42 4F 41 52 44 2E 22 00 56 0D 0A 05 | KEYBOARD.".V...|
00000530: 99 22 54 48 45 20 4C 41 53 54 20 34 20 41 52 45 |."THE LAST 4 ARE|
00000540: 20 4F 42 54 41 49 4E 45 44 20 42 59 20 12 52 56 | OBTAINED BY .RV|
00000550: 53 92 49 4E 47 22 00 7F 0D 14 05 99 22 54 48 45 |S.ING"......"THE|
00000560: 20 43 48 41 52 41 43 54 45 52 53 C0 C0 C0 C0 C0 | CHARACTERS.....|
00000570: 3E 20 20 B6 2C AA 2C A7 2C 41 4E 44 20 20 22 00 |> .,.,.,AND ".|
00000580: 8C 0D 1E 05 99 A6 33 32 29 22 5E 22 00 A1 0D 28 |......32)"^"...(|
00000590: 05 99 A6 33 31 29 22 12 54 48 41 54 27 53 20 41 |...31)".THAT'S A|
000005A0: 22 00 B6 0D 32 05 99 A6 33 31 29 22 12 53 50 41 |"...2...31)".SPA|
000005B0: 43 45 2E 20 20 22 00 D1 0D 3C 05 99 22 91 91 4E |CE. "...<.."..N|
000005C0: 4F 54 45 20 54 48 41 54 20 57 45 20 54 55 52 4E |OTE THAT WE TURN|
000005D0: 22 00 E9 0D 46 05 99 22 54 48 45 20 52 56 53 20 |"...F.."THE RVS |
000005E0: 4F 46 46 20 54 4F 4F 21 22 00 FC 0D 50 05 99 22 |OFF TOO!"...P.."|
000005F0: 20 20 20 20 20 20 20 20 A3 A3 A3 22 00 28 0E 5A | ...".(.Z|
00000600: 05 99 22 41 4C 53 4F 2E 2E 57 45 20 44 4F 4E 27 |.."ALSO..WE DON'|
00000610: 54 20 4E 45 45 44 20 54 48 45 20 4C 41 53 54 20 |T NEED THE LAST |
00000620: 51 55 4F 54 45 53 2E 22 00 56 0E 64 05 99 22 49 |QUOTES.".V.d.."I|
00000630: 27 4C 4C 20 55 4E 44 45 52 53 54 41 4E 44 20 54 |'LL UNDERSTAND T|
00000640: 48 45 20 22 C7 28 33 34 29 22 52 45 54 55 52 4E |HE ".(34)"RETURN|
00000650: 22 C7 28 33 34 29 00 7F 0E 6E 05 99 22 54 4F 20 |".(34)...n.."TO |
00000660: 4D 45 41 4E 20 54 48 45 20 45 4E 44 20 4F 46 20 |MEAN THE END OF |
00000670: 54 48 45 20 53 54 41 54 45 4D 45 4E 54 2E 22 00 |THE STATEMENT.".|
00000680: 8C 0E 78 05 99 3A 8D 36 33 30 30 30 00 B9 0E 8C |..x..:.63000....|
00000690: 05 99 22 93 4E 4F 57 20 49 27 4C 4C 20 50 52 49 |..".NOW I'LL PRI|
000006A0: 4E 54 20 54 48 45 20 53 54 41 54 45 4D 45 4E 54 |NT THE STATEMENT|
000006B0: 53 20 23 31 30 2D 38 30 22 00 E5 0E 96 05 99 22 |S #10-80"......"|
000006C0: 41 47 41 49 4E 2C 20 41 4E 44 20 59 4F 55 20 43 |AGAIN, AND YOU C|
000006D0: 41 4E 20 4D 4F 56 45 20 54 48 45 20 43 27 53 4F |AN MOVE THE C'SO|
000006E0: 52 20 54 4F 22 00 0F 0F A0 05 99 22 54 4F 20 23 |R TO"......"TO #|
000006F0: 31 30 2C 20 54 48 45 4E 20 4B 45 45 50 20 50 52 |10, THEN KEEP PR|
00000700: 45 53 53 49 4E 47 20 52 45 54 55 52 4E 2C 22 00 |ESSING RETURN,".|
00000710: 3C 0F AA 05 99 22 53 4F 20 49 27 4C 4C 20 54 48 |<...."SO I'LL TH|
00000720: 49 4E 4B 20 59 4F 55 20 54 59 50 45 44 20 54 48 |INK YOU TYPED TH|
00000730: 45 4D 2C 41 4E 44 20 49 27 4C 4C 22 00 55 0F B4 |EM,AND I'LL".U..|
00000740: 05 99 22 52 45 4D 45 4D 42 45 52 20 54 48 45 4D |.."REMEMBER THEM|
00000750: 2E A3 A3 A3 22 00 65 0F BE 05 99 22 A3 A3 A3 A3 |....".e...."....|
00000760: A3 A3 A3 A3 22 00 7E 0F DC 05 99 22 31 30 20 53 |....".~...."10 S|
00000770: 24 28 31 29 3D 22 C7 28 33 34 29 22 A5 22 00 97 |$(1)=".(34)"."..|
00000780: 0F E6 05 99 22 32 30 20 53 24 28 32 29 3D 22 C7 |...."20 S$(2)=".|
00000790: 28 33 34 29 22 B4 22 00 B0 0F F0 05 99 22 33 30 |(34)"."......"30|
000007A0: 20 53 24 28 33 29 3D 22 C7 28 33 34 29 22 B5 22 | S$(3)=".(34)"."|
000007B0: 00 C9 0F FA 05 99 22 34 30 20 53 24 28 34 29 3D |......"40 S$(4)=|
000007C0: 22 C7 28 33 34 29 22 A1 22 00 E4 0F FF 05 99 22 |".(34)"."......"|
000007D0: 35 30 20 53 24 28 35 29 3D 22 C7 28 33 34 29 22 |50 S$(5)=".(34)"|
000007E0: 12 B6 92 22 00 FF 0F 04 06 99 22 36 30 20 53 24 |..."......"60 S$|
000007F0: 28 36 29 3D 22 C7 28 33 34 29 22 12 AA 92 22 00 |(6)=".(34)"...".|
00000800: 1A 10 0E 06 99 22 37 30 20 53 24 28 37 29 3D 22 |....."70 S$(7)="|
00000810: C7 28 33 34 29 22 12 A7 92 22 00 35 10 18 06 99 |.(34)"...".5....|
00000820: 22 38 30 20 53 24 28 38 29 3D 22 C7 28 33 34 29 |"80 S$(8)=".(34)|
00000830: 22 12 20 92 22 00 5B 10 22 06 99 3A 99 22 57 48 |". .".[."..:."WH|
00000840: 45 4E 20 59 4F 55 27 56 45 20 44 4F 4E 45 20 54 |EN YOU'VE DONE T|
00000850: 48 41 54 2C 20 54 59 50 45 3A 22 00 6E 10 2C 06 |HAT, TYPE:".n.,.|
00000860: 99 3A 99 22 4C 49 53 54 31 30 2D 38 30 22 00 97 |.:."LIST10-80"..|
00000870: 10 36 06 99 3A 99 22 2E 2E 53 4F 20 59 4F 55 27 |.6..:."..SO YOU'|
00000880: 4C 4C 20 42 45 20 53 55 52 45 20 49 20 47 4F 54 |LL BE SURE I GOT|
00000890: 20 54 48 45 4D 21 22 00 BE 10 40 06 99 3A 99 22 | THEM!"...@..:."|
000008A0: 20 20 20 20 20 28 54 4F 20 43 4F 4E 54 49 4E 55 | (TO CONTINU|
000008B0: 45 2E 2E 2E 12 54 59 50 45 20 40 92 29 22 00 D5 |E....TYPE @.)"..|
000008C0: 10 A4 06 53 4E 24 B2 22 30 32 30 30 30 22 3A 89 |...SN$."02000":.|
000008D0: 36 33 34 30 30 00 E0 10 D0 07 8D 36 30 30 30 30 |63400......60000|
000008E0: 00 F2 10 D1 07 86 44 24 28 31 32 29 2C 56 28 31 |......D$(12),V(1|
000008F0: 32 29 00 26 11 D6 07 44 24 28 31 29 B2 22 4A 41 |2).&...D$(1)."JA|
00000900: 4E 22 3A 44 24 28 32 29 B2 22 46 45 42 22 3A 44 |N":D$(2)."FEB":D|
00000910: 24 28 33 29 B2 22 4D 41 52 22 3A 44 24 28 34 29 |$(3)."MAR":D$(4)|
00000920: B2 22 41 50 52 22 00 5A 11 D7 07 44 24 28 35 29 |."APR".Z...D$(5)|
00000930: B2 22 4D 41 59 22 3A 44 24 28 36 29 B2 22 4A 55 |."MAY":D$(6)."JU|
00000940: 4E 22 3A 44 24 28 37 29 B2 22 4A 55 4C 22 3A 44 |N":D$(7)."JUL":D|
00000950: 24 28 38 29 B2 22 41 55 47 22 00 91 11 D8 07 44 |$(8)."AUG".....D|
00000960: 24 28 39 29 B2 22 53 45 50 22 3A 44 24 28 31 30 |$(9)."SEP":D$(10|
00000970: 29 B2 22 4F 43 54 22 3A 44 24 28 31 31 29 B2 22 |)."OCT":D$(11)."|
00000980: 4E 4F 56 22 3A 44 24 28 31 32 29 B2 22 44 45 43 |NOV":D$(12)."DEC|
00000990: 22 00 C5 11 3E 08 56 28 31 29 B2 31 30 3A 56 28 |"...>.V(1).10:V(|
000009A0: 32 29 B2 31 35 3A 56 28 33 29 B2 32 30 3A 56 28 |2).15:V(3).20:V(|
000009B0: 34 29 B2 32 35 3A 56 28 35 29 B2 33 30 3A 56 28 |4).25:V(5).30:V(|
000009C0: 36 29 B2 33 31 00 FC 11 48 08 56 28 37 29 B2 32 |6).31...H.V(7).2|
000009D0: 35 3A 56 28 38 29 B2 32 30 3A 56 28 39 29 B2 31 |5:V(8).20:V(9).1|
000009E0: 35 3A 56 28 31 30 29 B2 31 32 3A 56 28 31 31 29 |5:V(10).12:V(11)|
000009F0: B2 31 31 3A 56 28 31 32 29 B2 31 30 00 20 12 52 |.11:V(12).10. .R|
00000A00: 08 81 49 B2 31 A4 31 32 3A 99 22 12 22 44 24 28 |..I.1.12:."."D$(|
00000A10: 49 29 22 2D 22 C4 28 56 28 49 29 29 22 A7 22 3B |I)"-".(V(I))".";|
00000A20: 00 37 12 5C 08 81 4A B2 31 A4 56 28 49 29 3A 99 |.7.\..J.1.V(I):.|
00000A30: 22 12 20 22 3B 3A 82 00 53 12 66 08 99 53 24 28 |". ";:..S.f..S$(|
00000A40: 38 AC 28 56 28 49 29 AB B5 28 56 28 49 29 29 29 |8.(V(I)..(V(I)))|
00000A50: 29 3A 82 00 62 12 70 08 81 49 B2 31 A4 35 30 30 |):..b.p..I.1.500|
00000A60: 3A 82 00 75 12 7A 08 99 3A 99 22 20 20 20 20 4E |:..u.z..:." N|
00000A70: 49 43 45 3F 22 00 84 12 7F 08 81 49 B2 31 A4 35 |ICE?"......I.1.5|
00000A80: 30 30 3A 82 00 9D 12 84 08 99 3A 99 22 20 20 4C |00:.......:." L|
00000A90: 45 54 27 53 20 54 52 59 20 49 54 21 22 00 AC 12 |ET'S TRY IT!"...|
00000AA0: 8E 08 81 49 B2 31 A4 35 30 30 3A 82 00 D4 12 98 |...I.1.500:.....|
00000AB0: 08 99 22 46 49 52 53 54 2C 20 57 45 27 4C 4C 20 |.."FIRST, WE'LL |
00000AC0: 44 45 46 49 4E 45 20 54 48 45 20 53 54 52 49 4E |DEFINE THE STRIN|
00000AD0: 47 53 3A 22 00 DA 12 99 08 99 00 F7 12 A2 08 99 |GS:"............|
00000AE0: 22 4D 24 28 31 29 3D 22 C7 28 33 34 29 22 4A 41 |"M$(1)=".(34)"JA|
00000AF0: 4E 22 C7 28 33 34 29 00 14 13 AC 08 99 22 4D 24 |N".(34)......"M$|
00000B00: 28 32 29 3D 22 C7 28 33 34 29 22 46 45 42 22 C7 |(2)=".(34)"FEB".|
00000B10: 28 33 34 29 00 1A 13 B5 08 99 00 28 13 B6 08 99 |(34).......(....|
00000B20: 22 2E 2E 45 54 43 2E 22 00 33 13 C0 08 8D 36 33 |"..ETC.".3....63|
00000B30: 30 30 30 00 3C 13 CA 08 99 22 93 22 00 6B 13 D4 |000.<....".".k..|
00000B40: 08 99 22 2E 2E 41 43 54 55 41 4C 4C 59 2C 20 4A |.."..ACTUALLY, J|
00000B50: 55 53 54 20 54 4F 20 44 45 4D 4F 4E 53 54 52 41 |UST TO DEMONSTRA|
00000B60: 54 45 20 41 4E 4F 54 48 45 52 22 00 98 13 DE 08 |TE ANOTHER".....|
00000B70: 99 22 54 41 4C 45 4E 54 20 4F 46 20 4D 49 4E 45 |."TALENT OF MINE|
00000B80: 2C 20 57 45 27 4C 4C 20 44 4F 20 49 54 20 54 48 |, WE'LL DO IT TH|
00000B90: 49 53 20 57 41 59 3A 22 00 D0 13 E8 08 99 3A 99 |IS WAY:"......:.|
00000BA0: 22 31 30 30 20 44 41 54 41 20 22 C7 28 33 34 29 |"100 DATA ".(34)|
00000BB0: 22 4A 41 4E 22 C7 28 33 34 29 22 2C 22 C7 28 33 |"JAN".(34)",".(3|
00000BC0: 34 29 22 46 45 42 22 C7 28 33 34 29 22 2C 22 3B |4)"FEB".(34)",";|
00000BD0: 00 09 14 F2 08 99 C7 28 33 34 29 22 4D 41 52 22 |.......(34)"MAR"|
00000BE0: C7 28 33 34 29 22 2C 22 C7 28 33 34 29 22 41 50 |.(34)",".(34)"AP|
00000BF0: 52 22 C7 28 33 34 29 22 2C 22 C7 28 33 34 29 22 |R".(34)",".(34)"|
00000C00: 4D 41 59 22 C7 28 33 34 29 00 3F 14 F7 08 99 22 |MAY".(34).?...."|
00000C10: 31 30 31 20 44 41 54 41 20 22 C7 28 33 34 29 22 |101 DATA ".(34)"|
00000C20: 4A 55 4E 22 C7 28 33 34 29 22 2C 22 C7 28 33 34 |JUN".(34)",".(34|
00000C30: 29 22 4A 55 4C 22 C7 28 33 34 29 22 2C 22 3B 00 |)"JUL".(34)",";.|
00000C40: 78 14 F8 08 99 C7 28 33 34 29 22 41 55 47 22 C7 |x.....(34)"AUG".|
00000C50: 28 33 34 29 22 2C 22 C7 28 33 34 29 22 53 45 50 |(34)",".(34)"SEP|
00000C60: 22 C7 28 33 34 29 22 2C 22 C7 28 33 34 29 22 4F |".(34)",".(34)"O|
00000C70: 43 54 22 C7 28 33 34 29 00 AA 14 F9 08 99 22 31 |CT".(34)......"1|
00000C80: 30 32 20 44 41 54 41 20 22 C7 28 33 34 29 22 4E |02 DATA ".(34)"N|
00000C90: 4F 56 22 C7 28 33 34 29 22 2C 22 C7 28 33 34 29 |OV".(34)",".(34)|
00000CA0: 22 44 45 43 22 C7 28 33 34 29 00 D7 14 2E 09 99 |"DEC".(34)......|
00000CB0: 3A 99 22 54 48 45 53 45 20 22 C7 28 33 34 29 22 |:."THESE ".(34)"|
00000CC0: 44 41 54 41 22 C7 28 33 34 29 22 20 53 54 41 54 |DATA".(34)" STAT|
00000CD0: 45 4D 45 4E 54 53 22 00 01 15 38 09 99 22 44 45 |EMENTS"...8.."DE|
00000CE0: 46 49 4E 45 20 41 20 4E 55 4D 42 45 52 20 4F 46 |FINE A NUMBER OF|
00000CF0: 20 53 54 52 49 4E 47 53 2C 20 43 41 4C 4C 45 44 | STRINGS, CALLED|
00000D00: 22 00 1A 15 42 09 99 22 4A 41 4E 2C 46 45 42 2C |"...B.."JAN,FEB,|
00000D10: 4D 41 52 2C 45 54 43 2E 2E 22 00 2B 15 4C 09 99 |MAR,ETC..".+.L..|
00000D20: 22 4E 4F 57 20 54 59 50 45 3A 22 00 54 15 56 09 |"NOW TYPE:".T.V.|
00000D30: 99 3A 99 22 12 31 30 33 20 46 4F 52 49 3D 31 54 |.:.".103 FORI=1T|
00000D40: 4F 31 32 3A 52 45 41 44 20 4D 24 28 49 29 3A 4E |O12:READ M$(I):N|
00000D50: 45 58 54 22 00 8E 15 60 09 99 3A 99 22 54 48 49 |EXT"...`..:."THI|
00000D60: 53 20 22 C7 28 33 34 29 22 52 45 41 44 53 22 C7 |S ".(34)"READS".|
00000D70: 28 33 34 29 22 20 54 48 45 20 44 41 54 41 20 53 |(34)" THE DATA S|
00000D80: 54 41 54 45 4D 45 4E 54 53 20 41 4E 44 22 00 C4 |TATEMENTS AND"..|
00000D90: 15 6A 09 99 22 41 53 53 49 47 4E 53 20 54 48 45 |.j.."ASSIGNS THE|
00000DA0: 20 53 54 52 49 4E 47 20 22 C7 28 33 34 29 22 4A | STRING ".(34)"J|
00000DB0: 41 4E 22 C7 28 33 34 29 22 20 54 4F 20 4D 24 28 |AN".(34)" TO M$(|
00000DC0: 31 29 2C 22 00 FB 15 74 09 99 22 41 4E 44 20 54 |1),"...t.."AND T|
00000DD0: 48 45 20 53 54 52 49 4E 47 20 22 C7 28 33 34 29 |HE STRING ".(34)|
00000DE0: 22 46 45 42 22 C7 28 33 34 29 22 20 54 4F 20 4D |"FEB".(34)" TO M|
00000DF0: 24 28 32 29 2E 2E 45 54 43 2E 22 00 06 16 79 09 |$(2)..ETC."...y.|
00000E00: 8D 36 33 30 30 30 00 35 16 7E 09 99 22 93 59 4F |.63000.5.~..".YO|
00000E10: 55 27 4C 4C 20 48 41 56 45 20 54 4F 20 54 45 4C |U'LL HAVE TO TEL|
00000E20: 4C 20 4D 45 20 48 4F 57 20 4D 41 4E 59 20 4F 46 |L ME HOW MANY OF|
00000E30: 20 54 48 45 22 00 61 16 88 09 99 22 11 4D 24 28 | THE".a....".M$(|
00000E40: 31 29 2C 4D 24 28 32 29 2C 45 54 43 2E 20 59 4F |1),M$(2),ETC. YO|
00000E50: 55 20 48 41 56 45 2C 20 53 4F 20 49 20 43 41 4E |U HAVE, SO I CAN|
00000E60: 22 00 8B 16 92 09 99 22 11 4C 45 41 56 45 20 52 |"......".LEAVE R|
00000E70: 4F 4F 4D 20 46 4F 52 20 54 48 45 4D 20 49 4E 20 |OOM FOR THEM IN |
00000E80: 4D 59 20 4D 45 4D 4F 52 59 2C 22 00 AF 16 9C 09 |MY MEMORY,".....|
00000E90: 99 22 11 53 4F 20 59 4F 55 27 4C 4C 20 4E 45 45 |.".SO YOU'LL NEE|
00000EA0: 44 20 41 20 53 54 41 54 45 4D 45 4E 54 3A 22 00 |D A STATEMENT:".|
00000EB0: C6 16 A6 09 99 22 11 12 39 30 20 44 49 4D 20 4D |....."..90 DIM M|
00000EC0: 24 28 31 32 29 22 00 F4 16 B0 09 99 22 11 54 48 |$(12)"......".TH|
00000ED0: 49 53 20 53 41 59 53 3A 20 54 48 45 20 44 49 4D |IS SAYS: THE DIM|
00000EE0: 45 4E 53 49 4F 4E 20 4F 46 20 54 48 45 20 41 52 |ENSION OF THE AR|
00000EF0: 52 41 59 22 00 1A 17 BA 09 99 22 11 4F 46 20 53 |RAY"......".OF S|
00000F00: 54 52 49 4E 47 53 20 43 41 4C 4C 45 44 20 4D 24 |TRINGS CALLED M$|
00000F10: 28 49 29 20 49 53 20 31 32 22 00 25 17 C4 09 8D |(I) IS 12".%....|
00000F20: 36 33 30 30 30 00 42 17 D7 09 99 22 93 2E 2E 2E |63000.B...."....|
00000F30: 41 4C 54 4F 47 45 54 48 45 52 20 4E 4F 57 21 22 |ALTOGETHER NOW!"|
00000F40: 3A 99 00 51 17 EC 09 81 49 B2 31 A4 35 30 30 3A |:..Q....I.1.500:|
00000F50: 82 00 7A 17 0A 0A 99 22 12 39 30 20 44 49 4D 20 |..z....".90 DIM |
00000F60: 4D 24 28 31 32 29 20 20 20 20 20 20 20 20 20 20 |M$(12) |
00000F70: 20 20 20 20 20 20 20 20 20 22 00 A3 17 14 0A 99 | "......|
00000F80: 22 12 31 30 30 20 44 41 54 41 20 4A 41 4E 2C 46 |".100 DATA JAN,F|
00000F90: 45 42 2C 4D 41 52 2C 41 50 52 2C 4D 41 59 2C 4A |EB,MAR,APR,MAY,J|
00000FA0: 55 4E 22 00 CC 17 28 0A 99 22 12 31 30 31 20 44 |UN"...(..".101 D|
00000FB0: 41 54 41 20 4A 55 4C 2C 41 55 47 2C 53 45 50 2C |ATA JUL,AUG,SEP,|
00000FC0: 4F 43 54 2C 4E 4F 56 2C 44 45 43 22 00 F5 17 32 |OCT,NOV,DEC"...2|
00000FD0: 0A 99 22 12 31 30 32 20 46 4F 52 49 3D 31 54 4F |..".102 FORI=1TO|
00000FE0: 31 32 3A 52 45 41 44 20 4D 24 28 49 29 3A 4E 45 |12:READ M$(I):NE|
00000FF0: 58 54 20 20 22 00 2B 18 3C 0A 99 22 11 11 4E 4F |XT ".+.<.."..NO|
00001000: 54 45 11 9D 9D 9D 9D B8 B8 B8 B8 91 3A 49 46 20 |TE..........:IF |
00001010: 12 41 4C 4C 92 20 54 48 45 20 44 41 54 41 20 41 |.ALL. THE DATA A|
00001020: 52 45 20 53 54 52 49 4E 47 53 22 00 51 18 41 0A |RE STRINGS".Q.A.|
00001030: 99 22 11 54 48 45 4E 20 59 4F 55 20 43 41 4E 20 |.".THEN YOU CAN |
00001040: 4F 4D 49 54 20 54 48 45 20 51 55 4F 54 45 53 21 |OMIT THE QUOTES!|
00001050: 22 00 81 18 46 0A 99 3A 99 22 28 44 4F 4E 27 54 |"...F..:."(DON'T|
00001060: 20 45 4E 54 45 52 20 54 48 45 20 53 54 41 54 45 | ENTER THE STATE|
00001070: 4D 45 4E 54 53 20 4A 55 53 54 20 59 45 54 29 2E |MENTS JUST YET).|
00001080: 22 00 8C 18 50 0A 8D 36 33 30 30 30 00 BB 18 5A |"...P..63000...Z|
00001090: 0A 99 22 93 4E 4F 57 20 59 4F 55 27 4C 4C 20 57 |..".NOW YOU'LL W|
000010A0: 41 4E 54 20 54 4F 20 49 4E 50 55 54 20 54 48 45 |ANT TO INPUT THE|
000010B0: 20 31 32 20 56 41 4C 55 45 53 22 00 E5 18 64 0A | 12 VALUES"...d.|
000010C0: 99 22 57 48 49 43 48 20 47 49 56 45 20 54 48 45 |."WHICH GIVE THE|
000010D0: 20 4C 45 4E 47 54 48 20 4F 46 20 54 48 45 20 42 | LENGTH OF THE B|
000010E0: 41 52 53 2E 22 00 F2 18 6E 0A 99 22 54 59 50 45 |ARS."...n.."TYPE|
000010F0: 3A 22 00 0D 19 78 0A 99 22 11 31 30 35 20 46 4F |:"...x..".105 FO|
00001100: 52 20 49 3D 31 54 4F 31 32 20 20 20 22 00 31 19 |R I=1TO12 ".1.|
00001110: 82 0A 99 22 31 31 30 3F 4D 24 28 49 29 22 C7 28 |..."110?M$(I)".(|
00001120: 33 34 29 22 20 56 41 4C 55 45 3D 22 C7 28 33 34 |34)" VALUE=".(34|
00001130: 29 00 4B 19 8C 0A 99 22 31 32 30 20 49 4E 50 55 |).K...."120 INPU|
00001140: 54 20 56 28 49 29 20 20 20 20 22 00 79 19 91 0A |T V(I) ".y...|
00001150: 99 3A 99 22 4E 4F 54 45 20 54 48 41 54 23 31 31 |.:."NOTE THAT#11|
00001160: 30 20 57 49 4C 4C 20 50 52 49 4E 54 20 41 20 50 |0 WILL PRINT A P|
00001170: 52 4F 4D 50 54 49 4E 47 22 00 93 19 92 0A 99 22 |ROMPTING"......"|
00001180: 20 20 52 45 4D 41 52 4B 2C 20 53 55 43 48 20 41 | REMARK, SUCH A|
00001190: 53 3A 22 00 A8 19 93 0A 99 3A 99 22 4A 41 4E 20 |S:"......:."JAN |
000011A0: 56 41 4C 55 45 3D 3F 22 00 B5 19 94 0A 99 3A 8D |VALUE=?"......:.|
000011B0: 36 33 30 30 30 00 E3 19 96 0A 99 22 93 11 D1 53 |63000......"...S|
000011C0: 49 4E 43 45 20 59 4F 55 27 4C 4C 20 50 52 49 4E |INCE YOU'LL PRIN|
000011D0: 54 20 31 35 30 20 4F 46 20 53 24 28 38 29 3D 12 |T 150 OF S$(8)=.|
000011E0: 20 92 22 00 0D 1A A0 0A 99 22 28 49 46 20 41 4E | ."......"(IF AN|
000011F0: 20 49 4E 50 55 54 20 56 41 4C 55 45 20 49 53 20 | INPUT VALUE IS |
00001200: 31 35 30 29 41 4E 44 20 49 27 56 45 22 00 3A 1A |150)AND I'VE".:.|
00001210: AA 0A 99 22 47 4F 54 20 4F 4E 4C 59 22 57 44 22 |..."GOT ONLY"WD"|
00001220: 20 43 4F 4C 55 4D 4E 53 20 4F 4E 20 4D 59 20 53 | COLUMNS ON MY S|
00001230: 43 52 45 45 4E 28 21 29 2C 22 00 64 1A B4 0A 99 |CREEN(!),".d....|
00001240: 22 59 4F 55 27 44 20 42 45 54 54 45 52 20 52 45 |"YOU'D BETTER RE|
00001250: 44 55 43 45 20 41 4C 4C 20 54 48 45 20 56 41 4C |DUCE ALL THE VAL|
00001260: 55 45 53 22 00 85 1A BE 0A 99 22 53 4F 20 54 48 |UES"......"SO TH|
00001270: 45 20 4C 41 52 47 45 53 54 20 49 53 2C 53 41 59 |E LARGEST IS,SAY|
00001280: 2C 33 30 2E 22 00 B1 1A C8 0A 99 22 53 4F 2E 2E |,30."......"SO..|
00001290: 59 4F 55 27 4C 4C 20 48 41 56 45 20 54 4F 20 46 |YOU'LL HAVE TO F|
000012A0: 49 4E 44 20 54 48 45 20 4C 41 52 47 45 53 54 2E |IND THE LARGEST.|
000012B0: 22 00 D0 1A C9 0A 99 22 20 20 20 20 20 20 20 20 |"......" |
000012C0: 20 20 20 20 20 20 20 20 20 20 20 B7 B7 B7 B7 22 | ...."|
000012D0: 00 08 1B D2 0A 99 22 11 D1 59 4F 55 20 53 45 45 |......"..YOU SEE|
000012E0: 2C 57 45 27 52 45 20 47 4F 49 4E 47 20 54 4F 20 |,WE'RE GOING TO |
000012F0: 50 52 49 4E 54 20 41 20 22 C7 28 33 34 29 22 42 |PRINT A ".(34)"B|
00001300: 41 52 22 C7 28 33 34 29 00 35 1B DC 0A 99 22 57 |AR".(34).5...."W|
00001310: 49 54 48 20 41 20 4C 45 4E 47 54 48 20 50 52 4F |ITH A LENGTH PRO|
00001320: 50 4F 52 54 49 4F 4E 41 4C 20 54 4F 20 45 41 43 |PORTIONAL TO EAC|
00001330: 48 20 56 2D 22 00 62 1B E6 0A 99 22 49 4E 50 55 |H V-".b...."INPU|
00001340: 54 2C 41 4E 44 20 57 45 27 4C 4C 20 44 4F 20 54 |T,AND WE'LL DO T|
00001350: 48 49 53 20 42 59 20 50 52 49 4E 54 49 4E 47 20 |HIS BY PRINTING |
00001360: 41 22 00 8F 1B F0 0A 99 22 4E 55 4D 42 45 52 20 |A"......"NUMBER |
00001370: 4F 46 20 12 20 92 5F 54 48 45 53 45 2C 41 4E 44 |OF . ._THESE,AND|
00001380: 20 54 48 45 59 27 52 45 20 53 24 28 38 29 22 00 | THEY'RE S$(8)".|
00001390: A3 1B FA 0A 99 22 2E 2E 2E 52 45 4D 45 4D 42 45 |....."...REMEMBE|
000013A0: 52 3F 22 00 B0 1B 04 0B 8D 36 33 30 30 30 3A 99 |R?"......63000:.|
000013B0: 00 C4 1B 0E 0B 99 22 11 57 45 27 4C 4C 20 54 59 |......".WE'LL TY|
000013C0: 50 45 3A 22 00 D7 1B 18 0B 99 22 11 31 30 34 20 |PE:"......".104 |
000013D0: 4D 41 58 56 3D 30 22 00 FE 1B 22 0B 99 22 31 33 |MAXV=0"...".."13|
000013E0: 30 20 49 46 20 4D 41 58 56 3C 56 28 49 29 20 54 |0 IF MAXV<V(I) T|
000013F0: 48 45 4E 20 4D 41 58 56 3D 56 28 49 29 22 00 0E |HEN MAXV=V(I)"..|
00001400: 1C 2C 0B 81 49 B2 31 A4 31 30 30 30 3A 82 00 27 |.,..I.1.1000:..'|
00001410: 1C 36 0B 99 22 11 54 48 45 4E 20 57 45 27 4C 4C |.6..".THEN WE'LL|
00001420: 20 48 41 56 45 3A 22 00 3A 1C 3B 0B 99 22 11 31 | HAVE:".:.;..".1|
00001430: 30 34 20 4D 41 58 56 3D 30 22 00 51 1C 40 0B 99 |04 MAXV=0".Q.@..|
00001440: 22 31 30 35 20 46 4F 52 20 49 3D 31 54 4F 31 32 |"105 FOR I=1TO12|
00001450: 22 00 76 1C 4A 0B 99 22 31 31 30 20 3F 4D 24 28 |".v.J.."110 ?M$(|
00001460: 49 29 22 C7 28 33 34 29 22 20 56 41 4C 55 45 3D |I)".(34)" VALUE=|
00001470: 22 C7 28 33 34 29 00 8C 1C 54 0B 99 22 31 32 30 |".(34)...T.."120|
00001480: 20 49 4E 50 55 54 20 56 28 49 29 22 00 B3 1C 86 | INPUT V(I)"....|
00001490: 0B 99 22 31 33 30 20 49 46 20 4D 41 58 56 3C 56 |.."130 IF MAXV<V|
000014A0: 28 49 29 20 54 48 45 4E 20 4D 41 58 56 3D 56 28 |(I) THEN MAXV=V(|
000014B0: 49 29 22 00 C9 1C 90 0B 99 3A 99 22 11 11 12 48 |I)"......:."...H|
000014C0: 49 54 20 41 20 4B 45 59 22 00 DD 1C 91 0B A1 41 |IT A KEY"......A|
000014D0: 24 3A 8B 41 24 B2 22 22 A7 32 39 36 31 00 0E 1D |$:.A$."".2961...|
000014E0: 9A 0B 99 3A 99 22 49 4E 20 23 31 33 30 20 57 45 |...:."IN #130 WE|
000014F0: 20 43 48 45 43 4B 20 49 46 20 4D 41 58 56 20 28 | CHECK IF MAXV (|
00001500: 4F 52 49 47 49 4E 41 4C 4C 59 20 30 29 22 00 34 |ORIGINALLY 0)".4|
00001510: 1D A4 0B 99 22 49 53 20 4C 45 53 53 20 54 48 41 |...."IS LESS THA|
00001520: 4E 2E 2E 20 3C 20 2E 2E 54 48 45 20 56 2D 56 41 |N.. < ..THE V-VA|
00001530: 4C 55 45 22 00 61 1D AE 0B 99 22 49 4E 50 55 54 |LUE".a...."INPUT|
00001540: 2E 20 49 46 20 53 4F 2C 57 45 20 53 45 54 20 4D |. IF SO,WE SET M|
00001550: 41 58 56 3D 54 48 45 20 56 2D 56 41 4C 55 45 2E |AXV=THE V-VALUE.|
00001560: 22 00 8D 1D B8 0B 99 22 57 48 45 4E 20 54 48 45 |"......"WHEN THE|
00001570: 20 22 C7 28 33 34 29 22 46 4F 52 2D 4E 45 58 54 | ".(34)"FOR-NEXT|
00001580: 22 C7 28 33 34 29 22 20 4C 4F 4F 50 22 00 BA 1D |".(34)" LOOP"...|
00001590: C2 0B 99 22 49 53 20 46 49 4E 49 53 48 45 44 2C |..."IS FINISHED,|
000015A0: 20 4D 41 58 56 20 57 49 4C 4C 20 45 51 55 41 4C | MAXV WILL EQUAL|
000015B0: 20 54 48 45 20 4D 41 58 2E 22 00 D2 1D CC 0B 99 | THE MAX."......|
000015C0: 22 4F 46 20 54 48 45 20 56 2D 56 41 4C 55 45 53 |"OF THE V-VALUES|
000015D0: 21 22 00 DD 1D D1 0B 8D 36 33 30 30 30 00 01 1E |!"......63000...|
000015E0: D6 0B 99 22 93 49 46 20 41 20 56 41 4C 55 45 20 |...".IF A VALUE |
000015F0: 49 53 2C 20 53 41 59 2C 31 32 33 34 35 36 2E 37 |IS, SAY,123456.7|
00001600: 22 00 2E 1E E0 0B 99 22 11 54 48 45 4E 20 49 54 |"......".THEN IT|
00001610: 27 4C 4C 20 54 41 4B 45 20 55 50 20 38 20 53 50 |'LL TAKE UP 8 SP|
00001620: 41 43 45 53 20 54 4F 20 50 52 49 4E 54 22 00 57 |ACES TO PRINT".W|
00001630: 1E EA 0B 99 22 11 41 4E 44 20 57 45 27 4C 4C 20 |....".AND WE'LL |
00001640: 48 41 56 45 20 54 4F 20 4B 4E 4F 57 20 54 48 49 |HAVE TO KNOW THI|
00001650: 53 2C 53 4F 2E 2E 22 00 81 1E F4 0B 99 22 11 57 |S,SO.."......".W|
00001660: 48 49 4C 45 20 49 4E 50 55 54 54 49 4E 47 20 54 |HILE INPUTTING T|
00001670: 48 45 20 56 27 53 20 26 20 46 49 4E 44 49 4E 47 |HE V'S & FINDING|
00001680: 22 00 AE 1E FE 0B 99 22 11 54 48 45 49 52 20 4D |"......".THEIR M|
00001690: 41 58 27 4D 20 56 41 4C 55 45 2C 20 59 4F 55 20 |AX'M VALUE, YOU |
000016A0: 43 41 4E 20 41 4C 53 4F 20 46 49 4E 44 22 00 DC |CAN ALSO FIND"..|
000016B0: 1E 08 0C 99 22 11 54 48 45 20 4D 41 58 27 4D 20 |....".THE MAX'M |
000016C0: 4C 45 4E 47 54 48 20 4F 46 20 54 48 45 20 4E 55 |LENGTH OF THE NU|
000016D0: 4D 42 45 52 53 20 56 28 49 29 2E 22 00 F4 1E 12 |MBERS V(I)."....|
000016E0: 0C 99 22 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 |.." ...|
000016F0: A3 A3 A3 22 00 FF 1E 1C 0C 8D 36 33 30 30 30 00 |..."......63000.|
00001700: 2B 1F 26 0C 99 22 93 11 46 49 52 53 54 20 57 45 |+.&.."..FIRST WE|
00001710: 27 4C 4C 20 43 48 41 4E 47 45 20 54 48 45 20 4E |'LL CHANGE THE N|
00001720: 55 4D 42 45 52 20 56 28 49 29 22 00 50 1F 30 0C |UMBER V(I)".P.0.|
00001730: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00001740: 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 22 | ......"|
00001750: 00 6F 1F 3A 0C 99 22 54 4F 20 41 20 53 54 52 49 |.o.:.."TO A STRI|
00001760: 4E 47 20 4F 46 20 53 59 4D 42 4F 4C 53 2C 22 00 |NG OF SYMBOLS,".|
00001770: 82 1F 44 0C 99 22 20 20 20 20 20 A3 A3 A3 A3 A3 |..D.." .....|
00001780: A3 22 00 A3 1F 4E 0C 99 22 42 59 20 53 45 54 54 |."...N.."BY SETT|
00001790: 49 4E 47 3A 20 58 24 3D 53 54 52 24 28 56 28 49 |ING: X$=STR$(V(I|
000017A0: 29 29 22 00 CC 1F 62 0C 99 22 11 54 48 45 4E 20 |))"...b..".THEN |
000017B0: 57 45 27 4C 4C 20 46 49 4E 44 20 54 48 45 20 4C |WE'LL FIND THE L|
000017C0: 45 4E 47 54 48 20 4F 46 20 58 24 22 00 D2 1F 63 |ENGTH OF X$"...c|
000017D0: 0C 99 00 E3 1F 6C 0C 99 22 4C 3D 4C 45 4E 28 58 |.....l.."L=LEN(X|
000017E0: 24 29 22 00 EE 1F 71 0C 8D 36 33 30 30 30 00 00 |$)"...q..63000..|
000017F0: 20 76 0C 99 22 93 11 57 45 20 54 59 50 45 3A 22 | v.."..WE TYPE:"|
00001800: 00 23 20 80 0C 99 22 31 34 30 20 58 24 3D 53 54 |.# ..."140 X$=ST|
00001810: 52 24 28 56 28 49 29 29 3A 4C 3D 4C 45 4E 28 58 |R$(V(I)):L=LEN(X|
00001820: 24 29 22 00 33 20 8A 0C 81 49 B2 31 A4 31 30 30 |$)".3 ...I.1.100|
00001830: 30 3A 82 00 4B 20 94 0C 99 22 11 2E 2E 4F 52 2C |0:..K ..."...OR,|
00001840: 57 48 59 20 4E 4F 54 3F 2E 2E 22 00 69 20 9E 0C |WHY NOT?..".i ..|
00001850: 99 22 11 31 34 30 20 4C 3D 4C 45 4E 28 53 54 52 |.".140 L=LEN(STR|
00001860: 24 28 56 28 49 29 29 29 22 00 97 20 A3 0C 99 22 |$(V(I)))".. ..."|
00001870: 11 11 4E 4F 54 45 20 54 48 41 54 20 12 53 54 52 |..NOTE THAT .STR|
00001880: 24 28 56 29 92 20 43 48 41 4E 47 45 53 20 41 20 |$(V). CHANGES A |
00001890: 4E 55 4D 42 45 52 22 00 BB 20 A4 0C 99 22 56 20 |NUMBER".. ..."V |
000018A0: 54 4F 20 41 20 53 54 52 49 4E 47 20 4F 46 20 43 |TO A STRING OF C|
000018B0: 48 41 52 41 43 54 45 52 53 21 22 00 E8 20 A5 0C |HARACTERS!".. ..|
000018C0: 99 22 11 2E 2E 41 4E 44 20 12 4C 45 4E 28 56 24 |."...AND .LEN(V$|
000018D0: 29 92 20 47 49 56 45 53 20 54 48 45 20 4C 45 4E |). GIVES THE LEN|
000018E0: 47 54 48 20 4F 46 20 22 00 FC 20 A6 0C 99 22 41 |GTH OF ".. ..."A|
000018F0: 20 53 54 52 49 4E 47 20 56 24 21 22 00 07 21 A8 | STRING V$!"..!.|
00001900: 0C 8D 36 33 30 30 30 00 42 21 B2 0C 99 22 11 54 |..63000.B!...".T|
00001910: 4F 20 46 49 4E 44 20 54 48 45 20 4D 41 58 27 4D |O FIND THE MAX'M|
00001920: 20 22 C7 28 33 34 29 22 4C 45 4E 47 54 48 22 C7 | ".(34)"LENGTH".|
00001930: 28 33 34 29 22 20 4F 46 20 54 48 45 20 56 27 53 |(34)" OF THE V'S|
00001940: 2C 22 00 4F 21 BC 0C 99 22 54 59 50 45 3A 22 00 |,".O!..."TYPE:".|
00001950: 6D 21 C6 0C 99 22 11 31 35 30 20 49 46 20 4D 4C |m!...".150 IF ML|
00001960: 3C 4C 20 54 48 45 4E 20 4D 4C 3D 4C 22 00 9F 21 |<L THEN ML=L"..!|
00001970: D0 0C 99 22 11 11 28 4A 55 53 54 20 41 53 20 57 |..."..(JUST AS W|
00001980: 45 20 44 49 44 20 54 4F 20 46 49 4E 44 20 54 48 |E DID TO FIND TH|
00001990: 45 20 4D 41 58 27 4D 20 56 41 4C 55 45 29 22 00 |E MAX'M VALUE)".|
000019A0: AA 21 DA 0C 8D 36 33 30 30 30 00 D0 21 E4 0C 99 |.!...63000..!...|
000019B0: 22 93 4E 4F 57 20 57 45 20 45 4E 44 20 54 48 45 |".NOW WE END THE|
000019C0: 20 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F 50 21 22 | FOR-NEXT LOOP!"|
000019D0: 00 EF 21 EE 0C 99 22 B7 B7 B7 20 20 20 20 20 20 |..!..."... |
000019E0: 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 22 00 | ........".|
000019F0: 00 22 F8 0C 99 22 11 31 36 30 20 4E 45 58 54 22 |."...".160 NEXT"|
00001A00: 00 0B 22 02 0D 8D 36 33 30 30 30 00 2E 22 0C 0D |.."...63000.."..|
00001A10: 99 22 93 20 20 57 48 41 54 20 48 41 56 45 20 57 |.". WHAT HAVE W|
00001A20: 45 20 47 4F 54 20 53 4F 20 46 41 52 3F 22 00 3D |E GOT SO FAR?".=|
00001A30: 22 16 0D 81 49 B2 31 A4 35 30 30 3A 82 00 58 22 |"...I.1.500:..X"|
00001A40: AA 19 99 22 39 30 20 44 49 4D 20 4D 24 28 31 32 |..."90 DIM M$(12|
00001A50: 29 2C 56 28 31 32 29 22 00 80 22 B4 19 99 22 31 |),V(12)".."..."1|
00001A60: 30 30 20 44 41 54 41 20 4A 41 4E 2C 46 45 42 2C |00 DATA JAN,FEB,|
00001A70: 4D 41 52 2C 41 50 52 2C 4D 41 59 2C 4A 55 4E 22 |MAR,APR,MAY,JUN"|
00001A80: 00 A8 22 C8 19 99 22 31 30 31 20 44 41 54 41 20 |.."..."101 DATA |
00001A90: 4A 55 4C 2C 41 55 47 2C 53 45 50 2C 4F 43 54 2C |JUL,AUG,SEP,OCT,|
00001AA0: 4E 4F 56 2C 44 45 43 22 00 C8 22 E6 19 99 22 31 |NOV,DEC".."..."1|
00001AB0: 30 32 20 46 4F 52 49 3D 31 54 4F 31 32 3A 52 45 |02 FORI=1TO12:RE|
00001AC0: 41 44 20 4D 24 28 49 29 00 DF 22 F0 19 99 22 31 |AD M$(I).."..."1|
00001AD0: 30 34 20 4D 41 58 56 3D 30 3A 4D 4C 3D 30 22 00 |04 MAXV=0:ML=0".|
00001AE0: F6 22 18 1A 99 22 31 30 35 20 46 4F 52 20 49 3D |."..."105 FOR I=|
00001AF0: 31 54 4F 31 32 22 00 1B 23 22 1A 99 22 31 31 30 |1TO12"..#".."110|
00001B00: 20 3F 4D 24 28 49 29 22 C7 28 33 34 29 22 20 56 | ?M$(I)".(34)" V|
00001B10: 41 4C 55 45 3D 22 C7 28 33 34 29 00 31 23 2C 1A |ALUE=".(34).1#,.|
00001B20: 99 22 31 32 30 20 49 4E 50 55 54 20 56 28 49 29 |."120 INPUT V(I)|
00001B30: 22 00 58 23 C2 1A 99 22 31 33 30 20 49 46 20 4D |".X#..."130 IF M|
00001B40: 41 58 56 3C 56 28 49 29 20 54 48 45 4E 20 4D 41 |AXV<V(I) THEN MA|
00001B50: 58 56 3D 56 28 49 29 22 00 75 23 3E 1C 99 22 31 |XV=V(I)".u#>.."1|
00001B60: 34 30 20 4C 3D 4C 45 4E 28 53 54 52 24 28 56 28 |40 L=LEN(STR$(V(|
00001B70: 49 29 29 29 22 00 92 23 48 1C 99 22 31 35 30 20 |I)))"..#H.."150 |
00001B80: 49 46 20 4D 4C 3C 4C 20 54 48 45 4E 20 4D 4C 3D |IF ML<L THEN ML=|
00001B90: 4C 22 00 A2 23 98 1C 99 22 31 36 30 20 4E 45 58 |L"..#..."160 NEX|
00001BA0: 54 22 00 CF 23 A2 1C 99 3A 99 22 4E 4F 54 45 20 |T"..#...:."NOTE |
00001BB0: 54 48 41 54 20 57 45 27 56 45 20 41 44 44 45 44 |THAT WE'VE ADDED|
00001BC0: 20 54 48 45 20 44 49 4D 45 4E 53 49 4F 4E 22 00 | THE DIMENSION".|
00001BD0: EA 23 AC 1C 99 22 4F 46 20 54 48 45 20 56 27 53 |.#..."OF THE V'S|
00001BE0: 2C 20 49 4E 20 23 39 30 2E 22 00 19 24 B6 1C 99 |, IN #90."..$...|
00001BF0: 22 57 45 27 56 45 20 41 4C 53 4F 20 53 54 41 52 |"WE'VE ALSO STAR|
00001C00: 54 45 44 20 4D 4C 2C 28 54 48 45 20 4D 41 58 27 |TED ML,(THE MAX'|
00001C10: 4D 20 4C 45 4E 47 54 48 22 00 46 24 C0 1C 99 22 |M LENGTH".F$..."|
00001C20: 4F 46 20 54 48 45 20 56 27 53 29 2C 57 49 54 48 |OF THE V'S),WITH|
00001C30: 20 54 48 45 20 56 41 4C 55 45 20 30 2E 2E 49 4E | THE VALUE 0..IN|
00001C40: 23 31 30 34 2E 22 00 51 24 CA 1C 8D 36 33 30 30 |#104.".Q$...6300|
00001C50: 30 00 79 24 D4 1C 99 22 11 4F 4B 2E 2E 59 4F 55 |0.y$...".OK..YOU|
00001C60: 20 45 4E 54 45 52 20 54 48 45 53 45 20 53 54 41 | ENTER THESE STA|
00001C70: 54 45 4D 45 4E 54 53 2E 22 00 88 24 DE 1C 99 22 |TEMENTS."..$..."|
00001C80: 20 20 20 20 A3 A3 A3 22 00 B1 24 E8 1C 99 22 54 | ..."..$..."T|
00001C90: 59 50 45 20 12 52 55 4E 92 20 54 4F 20 53 54 41 |YPE .RUN. TO STA|
00001CA0: 52 54 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 2C |RT YOUR PROGRAM,|
00001CB0: 22 00 D4 24 F2 1C 99 22 41 4E 44 20 53 45 45 20 |"..$..."AND SEE |
00001CC0: 49 46 20 49 54 20 57 4F 52 4B 53 20 53 4F 20 46 |IF IT WORKS SO F|
00001CD0: 41 52 21 22 00 02 25 FC 1C 99 22 11 41 46 54 45 |AR!"..%...".AFTE|
00001CE0: 52 20 45 4E 54 45 52 49 4E 47 20 31 32 20 4E 55 |R ENTERING 12 NU|
00001CF0: 4D 42 45 52 53 2C 57 48 45 4E 20 41 53 4B 45 44 |MBERS,WHEN ASKED|
00001D00: 2C 22 00 18 25 06 1D 99 22 59 4F 55 20 43 41 4E |,"..%..."YOU CAN|
00001D10: 20 54 59 50 45 3A 20 22 00 26 25 10 1D 99 22 11 | TYPE: ".&%...".|
00001D20: 3F 56 28 33 29 22 00 56 25 1A 1D 99 22 11 41 4E |?V(3)".V%...".AN|
00001D30: 44 20 49 27 4C 4C 20 50 52 49 4E 54 20 54 48 45 |D I'LL PRINT THE|
00001D40: 20 4D 41 52 43 48 20 56 41 4C 55 45 20 45 4E 54 | MARCH VALUE ENT|
00001D50: 45 52 45 44 2E 22 00 80 25 24 1D 99 22 57 48 45 |ERED."..%$.."WHE|
00001D60: 4E 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 4F |N YOU WANT TO CO|
00001D70: 4E 54 49 4E 55 45 2C 20 54 59 50 45 20 12 40 22 |NTINUE, TYPE .@"|
00001D80: 00 A1 25 2E 1D 99 22 48 45 52 45 27 53 20 54 48 |..%..."HERE'S TH|
00001D90: 45 20 50 52 4F 47 52 41 4D 20 41 47 41 49 4E 3A |E PROGRAM AGAIN:|
00001DA0: 22 00 AC 25 42 1D 8D 36 33 30 30 30 00 DA 25 56 |"..%B..63000..%V|
00001DB0: 1D 99 22 93 52 45 4D 45 4D 42 45 52 2C 59 4F 55 |..".REMEMBER,YOU|
00001DC0: 20 4E 45 45 44 4E 27 54 20 52 45 54 59 50 45 20 | NEEDN'T RETYPE |
00001DD0: 41 4C 4C 20 54 48 49 53 21 22 00 09 26 60 1D 99 |ALL THIS!"..&`..|
00001DE0: 22 4A 55 53 54 20 50 52 45 53 53 20 48 4F 4D 45 |"JUST PRESS HOME|
00001DF0: 20 41 4E 44 20 41 20 42 55 4E 43 48 20 4F 46 20 | AND A BUNCH OF |
00001E00: 52 45 54 55 52 4E 53 2E 22 00 36 26 6A 1D 99 22 |RETURNS.".6&j.."|
00001E10: 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 20 | .... |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A3 | .|
00001E30: A3 A3 A3 A3 A3 22 00 61 26 6F 1D 99 3A 99 22 28 |.....".a&o..:."(|
00001E40: 2E 2E 41 4E 44 20 49 27 4C 4C 20 54 48 49 4E 4B |..AND I'LL THINK|
00001E50: 20 59 4F 55 20 54 59 50 45 44 20 54 48 45 4D 29 | YOU TYPED THEM)|
00001E60: 22 00 6C 26 74 1D 8D 36 33 30 30 30 00 76 26 7E |".l&t..63000.v&~|
00001E70: 1D 99 22 93 22 3B 00 91 26 7A 21 99 22 39 30 20 |..".";..&z!."90 |
00001E80: 44 49 4D 20 4D 24 28 31 32 29 2C 56 28 31 32 29 |DIM M$(12),V(12)|
00001E90: 22 00 B9 26 84 21 99 22 31 30 30 20 44 41 54 41 |"..&.!."100 DATA|
00001EA0: 20 4A 41 4E 2C 46 45 42 2C 4D 41 52 2C 41 50 52 | JAN,FEB,MAR,APR|
00001EB0: 2C 4D 41 59 2C 4A 55 4E 22 00 E1 26 98 21 99 22 |,MAY,JUN"..&.!."|
00001EC0: 31 30 31 20 44 41 54 41 20 4A 55 4C 2C 41 55 47 |101 DATA JUL,AUG|
00001ED0: 2C 53 45 50 2C 4F 43 54 2C 4E 4F 56 2C 44 45 43 |,SEP,OCT,NOV,DEC|
00001EE0: 22 00 08 27 B6 21 3A 99 22 31 30 32 20 46 4F 52 |"..'.!:."102 FOR|
00001EF0: 49 3D 31 54 4F 31 32 3A 52 45 41 44 20 4D 24 28 |I=1TO12:READ M$(|
00001F00: 49 29 3A 4E 45 58 54 22 00 1F 27 C0 21 99 22 31 |I):NEXT"..'.!."1|
00001F10: 30 34 20 4D 41 58 56 3D 30 3A 4D 4C 3D 30 22 00 |04 MAXV=0:ML=0".|
00001F20: 36 27 E8 21 99 22 31 30 35 20 46 4F 52 20 49 3D |6'.!."105 FOR I=|
00001F30: 31 54 4F 31 32 22 00 5B 27 F2 21 99 22 31 31 30 |1TO12".['.!."110|
00001F40: 20 3F 4D 24 28 49 29 22 C7 28 33 34 29 22 20 56 | ?M$(I)".(34)" V|
00001F50: 41 4C 55 45 3D 22 C7 28 33 34 29 00 71 27 FC 21 |ALUE=".(34).q'.!|
00001F60: 99 22 31 32 30 20 49 4E 50 55 54 20 56 28 49 29 |."120 INPUT V(I)|
00001F70: 22 00 98 27 92 22 99 22 31 33 30 20 49 46 20 4D |"..'."."130 IF M|
00001F80: 41 58 56 3C 56 28 49 29 20 54 48 45 4E 20 4D 41 |AXV<V(I) THEN MA|
00001F90: 58 56 3D 56 28 49 29 22 00 B5 27 0E 24 99 22 31 |XV=V(I)"..'.$."1|
00001FA0: 34 30 20 4C 3D 4C 45 4E 28 53 54 52 24 28 56 28 |40 L=LEN(STR$(V(|
00001FB0: 49 29 29 29 22 00 D2 27 18 24 99 22 31 35 30 20 |I)))"..'.$."150 |
00001FC0: 49 46 20 4D 4C 3C 4C 20 54 48 45 4E 20 4D 4C 3D |IF ML<L THEN ML=|
00001FD0: 4C 22 00 E2 27 68 24 99 22 31 36 30 20 4E 45 58 |L"..'h$."160 NEX|
00001FE0: 54 22 00 08 28 72 24 99 22 11 28 52 45 4D 45 4D |T"..(r$.".(REMEM|
00001FF0: 42 45 52 2E 2E 12 54 59 50 45 20 40 92 20 54 4F |BER...TYPE @. TO|
00002000: 20 43 4F 4E 54 2E 29 22 00 1F 28 7C 24 53 4E 24 | CONT.)"..(|$SN$|
00002010: B2 22 31 30 30 30 30 22 3A 89 36 33 34 30 30 00 |."10000":.63400.|
00002020: 45 28 10 27 8D 36 30 30 30 30 3A 99 22 93 4F 4B |E(.'.60000:.".OK|
00002030: 2E 2E 4C 45 54 27 53 20 46 4F 52 47 45 20 41 48 |..LET'S FORGE AH|
00002040: 45 41 44 21 22 00 60 28 11 27 4D 53 24 B2 22 47 |EAD!".`(.'MS$."G|
00002050: 4F 21 47 4F 21 47 4F 21 22 3A 8D 36 33 31 30 30 |O!GO!GO!":.63100|
00002060: 00 6B 28 12 27 8D 36 33 30 30 30 00 92 28 1A 27 |.k(.'.63000..(.'|
00002070: 99 22 93 57 45 27 4C 4C 20 53 54 41 52 54 20 50 |.".WE'LL START P|
00002080: 52 49 4E 54 49 4E 47 20 54 48 45 20 42 41 52 53 |RINTING THE BARS|
00002090: 2E 22 00 9F 28 24 27 99 22 54 59 50 45 3A 22 00 |."..($'."TYPE:".|
000020A0: B6 28 2E 27 99 3A 99 22 31 37 30 20 46 4F 52 49 |.(.'.:."170 FORI|
000020B0: 3D 31 54 4F 31 32 00 E6 28 38 27 99 22 31 38 30 |=1TO12..(8'."180|
000020C0: 20 3F 22 C7 28 33 34 29 22 12 22 C7 28 33 34 29 | ?".(34)".".(34)|
000020D0: 22 4D 24 28 49 29 22 C7 28 33 34 29 22 2D 22 C7 |"M$(I)".(34)"-".|
000020E0: 28 33 34 29 22 3B 00 FE 28 42 27 99 22 31 39 30 |(34)";..(B'."190|
000020F0: 20 4C 24 3D 53 54 52 24 28 56 28 49 29 29 00 12 | L$=STR$(V(I))..|
00002100: 29 4C 27 99 22 32 30 30 20 4C 3D 4C 45 4E 28 4C |)L'."200 L=LEN(L|
00002110: 24 29 00 40 29 6A 27 99 22 32 33 30 20 3F 22 C7 |$).@)j'."230 ?".|
00002120: 28 33 34 29 22 12 22 C7 28 33 34 29 22 4C 24 22 |(34)".".(34)"L$"|
00002130: C7 28 33 34 29 22 A7 22 C7 28 33 34 29 22 3B 22 |.(34)".".(34)";"|
00002140: 00 5A 29 74 27 99 22 32 34 30 20 53 3D 56 28 49 |.Z)t'."240 S=V(I|
00002150: 29 2A 33 30 2F 4D 41 58 56 22 00 77 29 7E 27 99 |)*30/MAXV".w)~'.|
00002160: 22 32 35 30 20 49 53 3D 49 4E 54 28 53 29 3A 46 |"250 IS=INT(S):F|
00002170: 53 3D 53 2D 49 53 22 00 9A 29 88 27 99 22 32 36 |S=S-IS"..).'."26|
00002180: 30 20 46 4F 52 4A 3D 31 54 4F 49 53 3A 3F 53 24 |0 FORJ=1TOIS:?S$|
00002190: 28 38 29 3B 3A 4E 45 58 54 22 00 AF 29 92 27 99 |(8);:NEXT"..).'.|
000021A0: 22 32 37 30 20 3F 53 24 28 38 2A 46 53 29 22 00 |"270 ?S$(8*FS)".|
000021B0: BF 29 9C 27 99 22 32 38 30 20 4E 45 58 54 22 00 |.).'."280 NEXT".|
000021C0: EE 29 A6 27 99 3A 99 22 23 31 38 30 20 50 52 49 |.).'.:."#180 PRI|
000021D0: 4E 54 53 28 49 4E 20 52 56 53 29 54 48 45 20 4D |NTS(IN RVS)THE M|
000021E0: 4F 4E 54 48 2C 41 4E 44 20 41 20 2D 2E 22 00 1B |ONTH,AND A -."..|
000021F0: 2A B0 27 99 22 23 31 39 30 2F 32 30 30 20 43 4F |*.'."#190/200 CO|
00002200: 4E 56 45 52 54 53 20 54 48 45 20 56 41 4C 55 45 |NVERTS THE VALUE|
00002210: 20 56 28 49 29 20 54 4F 20 41 22 00 43 2A BA 27 | V(I) TO A".C*.'|
00002220: 99 22 20 20 53 54 52 49 4E 47 20 28 4C 24 29 2C |." STRING (L$),|
00002230: 41 4E 44 20 44 45 54 45 52 4D 49 4E 45 53 20 54 |AND DETERMINES T|
00002240: 48 45 22 00 66 2A C4 27 99 22 20 20 4C 45 4E 47 |HE".f*.'." LENG|
00002250: 54 48 20 4F 46 20 54 48 45 20 53 54 52 49 4E 47 |TH OF THE STRING|
00002260: 20 28 4C 29 2E 22 00 86 2A C9 27 99 22 23 32 33 | (L)."..*.'."#23|
00002270: 30 20 50 52 49 4E 54 53 20 4C 24 20 41 4E 44 20 |0 PRINTS L$ AND |
00002280: 41 20 12 A7 92 22 00 B2 2A CE 27 99 22 23 32 34 |A ..."..*.'."#24|
00002290: 30 20 52 45 44 55 43 45 53 20 54 48 45 20 56 41 |0 REDUCES THE VA|
000022A0: 4C 55 45 20 4F 46 20 54 48 45 20 56 27 53 20 53 |LUE OF THE V'S S|
000022B0: 4F 22 00 E0 2A D8 27 99 22 20 20 54 48 45 20 4C |O"..*.'." THE L|
000022C0: 41 52 47 45 53 54 20 49 53 20 33 30 2E 20 54 48 |ARGEST IS 30. TH|
000022D0: 45 20 52 45 44 55 43 45 44 20 56 41 4C 55 45 22 |E REDUCED VALUE"|
000022E0: 00 F6 2A E2 27 99 22 20 20 49 53 20 43 41 4C 4C |..*.'." IS CALL|
000022F0: 45 44 20 53 2E 22 00 09 2B EC 27 99 22 12 48 49 |ED S."..+.'.".HI|
00002300: 54 20 41 20 4B 45 59 92 22 00 1E 2B F6 27 A1 41 |T A KEY."..+.'.A|
00002310: 24 3A 8B 41 24 B2 22 22 A7 31 30 32 33 30 00 4D |$:.A$."".10230.M|
00002320: 2B 00 28 99 3A 99 22 23 32 35 30 20 47 45 54 53 |+.(.:."#250 GETS|
00002330: 20 54 48 45 20 49 4E 54 45 47 45 52 20 50 41 52 | THE INTEGER PAR|
00002340: 54 20 4F 46 20 53 2E 2E 28 49 53 29 22 00 79 2B |T OF S..(IS)".y+|
00002350: 0A 28 99 22 20 20 41 4E 44 20 54 48 45 20 46 52 |.(." AND THE FR|
00002360: 41 43 54 49 4F 4E 41 4C 20 50 41 52 54 20 4F 46 |ACTIONAL PART OF|
00002370: 20 53 2E 2E 28 46 53 29 22 00 9D 2B 14 28 99 22 | S..(FS)"..+.(."|
00002380: 23 32 36 30 20 50 52 49 4E 54 53 20 41 20 42 55 |#260 PRINTS A BU|
00002390: 4E 43 48 20 4F 46 20 12 20 92 27 53 22 00 CB 2B |NCH OF . .'S"..+|
000023A0: 1E 28 99 22 23 32 37 30 20 50 52 49 4E 54 53 20 |.(."#270 PRINTS |
000023B0: 54 48 45 20 46 49 4E 41 4C 20 46 52 41 43 54 49 |THE FINAL FRACTI|
000023C0: 4F 4E 41 4C 20 50 49 45 43 45 22 00 F9 2B 28 28 |ONAL PIECE"..+((|
000023D0: 99 22 20 20 4F 46 20 53 24 28 38 29 2C 4E 41 4D |." OF S$(8),NAM|
000023E0: 45 4C 59 20 53 24 28 31 29 20 4F 52 20 53 24 28 |ELY S$(1) OR S$(|
000023F0: 32 29 2E 2E 45 54 43 2E 22 00 27 2C 32 28 99 22 |2)..ETC.".',2(."|
00002400: 20 20 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 54 | ACCORDING TO T|
00002410: 48 45 20 53 49 5A 45 20 4F 46 20 54 48 45 20 46 |HE SIZE OF THE F|
00002420: 52 41 43 54 27 4C 22 00 46 2C 3C 28 99 22 20 20 |RACT'L".F,<(." |
00002430: 50 41 52 54 20 4F 46 20 53 2C 20 4E 41 4D 45 4C |PART OF S, NAMEL|
00002440: 59 20 46 53 2E 22 00 51 2C A0 28 8D 36 33 30 30 |Y FS.".Q,.(.6300|
00002450: 30 00 73 2C B4 28 99 22 93 50 4C 45 41 53 45 20 |0.s,.(.".PLEASE |
00002460: 45 4E 54 45 52 20 54 48 45 20 50 52 4F 47 52 41 |ENTER THE PROGRA|
00002470: 4D 2E 22 00 A2 2C BE 28 99 22 11 49 27 4C 4C 20 |M."..,.(.".I'LL |
00002480: 50 55 54 20 49 54 20 52 49 47 48 54 20 41 46 54 |PUT IT RIGHT AFT|
00002490: 45 52 20 54 48 45 20 53 54 41 54 45 4D 45 4E 54 |ER THE STATEMENT|
000024A0: 53 22 00 D1 2C C8 28 99 22 11 23 39 39 2D 23 31 |S"..,.(.".#99-#1|
000024B0: 36 30 2E 20 20 41 46 54 45 52 20 59 4F 55 20 48 |60. AFTER YOU H|
000024C0: 41 56 45 20 45 4E 54 45 52 45 44 20 49 54 2E 2E |AVE ENTERED IT..|
000024D0: 22 00 E3 2C D2 28 99 22 11 12 54 52 59 20 49 54 |"..,.(."..TRY IT|
000024E0: 92 21 22 00 07 2D DC 28 99 22 11 49 4E 20 50 41 |.!"..-.(.".IN PA|
000024F0: 52 54 49 43 55 4C 41 52 2C 20 45 4E 54 45 52 20 |RTICULAR, ENTER |
00002500: 56 41 4C 55 45 53 22 00 32 2D E6 28 99 22 11 57 |VALUES".2-.(.".W|
00002510: 48 49 43 48 20 48 41 56 45 20 44 49 46 46 45 52 |HICH HAVE DIFFER|
00002520: 45 4E 54 20 4C 45 4E 47 54 48 53 2C 4C 49 4B 45 |ENT LENGTHS,LIKE|
00002530: 3A 22 00 48 2D F0 28 99 22 11 31 32 33 20 41 4E |:".H-.(.".123 AN|
00002540: 44 20 31 32 33 34 2E 22 00 78 2D FA 28 99 22 11 |D 1234.".x-.(.".|
00002550: 28 54 48 45 4E 20 59 4F 55 27 4C 4C 20 53 45 45 |(THEN YOU'LL SEE|
00002560: 20 57 45 27 56 45 20 47 4F 54 20 53 4F 4D 45 20 | WE'VE GOT SOME |
00002570: 57 4F 52 4B 20 54 4F 22 00 93 2D 04 29 99 22 44 |WORK TO"..-.)."D|
00002580: 4F 20 4F 4E 20 54 48 45 20 50 52 4F 47 52 41 4D |O ON THE PROGRAM|
00002590: 21 29 22 00 B4 2D 68 29 99 22 11 12 53 45 45 20 |!)"..-h)."..SEE |
000025A0: 49 46 20 59 4F 55 20 43 41 4E 20 46 49 58 20 49 |IF YOU CAN FIX I|
000025B0: 54 92 21 22 00 D8 2D 72 29 99 22 11 28 54 48 45 |T.!"..-r).".(THE|
000025C0: 4E 20 54 59 50 45 20 12 40 92 20 54 4F 20 43 4F |N TYPE .@. TO CO|
000025D0: 4E 54 49 4E 55 45 29 22 00 FD 2D 86 29 99 22 11 |NTINUE)"..-.).".|
000025E0: 11 12 52 45 54 55 52 4E 92 20 54 4F 20 47 45 54 |..RETURN. TO GET|
000025F0: 20 54 48 45 20 50 52 4F 47 52 41 4D 22 00 08 2E | THE PROGRAM"...|
00002600: 8F 29 8D 36 33 30 30 31 00 22 2E 9A 29 99 22 93 |.).63001."..).".|
00002610: 48 45 52 45 20 49 54 20 49 53 20 41 47 41 49 4E |HERE IT IS AGAIN|
00002620: 2E 22 00 31 2E A4 29 81 49 B2 31 A4 35 30 30 3A |.".1..).I.1.500:|
00002630: 82 00 3A 2E F8 2A 99 22 93 22 00 51 2E 16 2B 99 |..:..*.".".Q..+.|
00002640: 3A 99 22 31 37 30 20 46 4F 52 49 3D 31 54 4F 31 |:."170 FORI=1TO1|
00002650: 32 00 81 2E 20 2B 99 22 31 38 30 20 3F 22 C7 28 |2... +."180 ?".(|
00002660: 33 34 29 22 12 22 C7 28 33 34 29 22 4D 24 28 49 |34)".".(34)"M$(I|
00002670: 29 22 C7 28 33 34 29 22 2D 22 C7 28 33 34 29 22 |)".(34)"-".(34)"|
00002680: 3B 00 99 2E 2A 2B 99 22 31 39 30 20 4C 24 3D 53 |;...*+."190 L$=S|
00002690: 54 52 24 28 56 28 49 29 29 00 AD 2E 34 2B 99 22 |TR$(V(I))...4+."|
000026A0: 32 30 30 20 4C 3D 4C 45 4E 28 4C 24 29 00 DB 2E |200 L=LEN(L$)...|
000026B0: 52 2B 99 22 32 33 30 20 3F 22 C7 28 33 34 29 22 |R+."230 ?".(34)"|
000026C0: 12 22 C7 28 33 34 29 22 4C 24 22 C7 28 33 34 29 |.".(34)"L$".(34)|
000026D0: 22 A7 22 C7 28 33 34 29 22 3B 22 00 F5 2E 5C 2B |".".(34)";"...\+|
000026E0: 99 22 32 34 30 20 53 3D 56 28 49 29 2A 33 30 2F |."240 S=V(I)*30/|
000026F0: 4D 41 58 56 22 00 12 2F 66 2B 99 22 32 35 30 20 |MAXV"../f+."250 |
00002700: 49 53 3D 49 4E 54 28 53 29 3A 46 53 3D 53 2D 49 |IS=INT(S):FS=S-I|
00002710: 53 22 00 35 2F 70 2B 99 22 32 36 30 20 46 4F 52 |S".5/p+."260 FOR|
00002720: 4A 3D 31 54 4F 49 53 3A 3F 53 24 28 38 29 3B 3A |J=1TOIS:?S$(8);:|
00002730: 4E 45 58 54 22 00 4A 2F 7A 2B 99 22 32 37 30 20 |NEXT".J/z+."270 |
00002740: 3F 53 24 28 38 2A 46 53 29 22 00 5A 2F 84 2B 99 |?S$(8*FS)".Z/.+.|
00002750: 22 32 38 30 20 4E 45 58 54 22 00 77 2F 8E 2B 99 |"280 NEXT".w/.+.|
00002760: 3A 99 22 28 54 59 50 45 20 12 40 92 20 54 4F 20 |:."(TYPE .@. TO |
00002770: 43 4F 4E 54 2E 29 22 00 8E 2F 98 2B 53 4E 24 B2 |CONT.)"../.+SN$.|
00002780: 22 31 32 30 30 30 22 3A 89 36 33 34 30 30 00 B8 |"12000":.63400..|
00002790: 2F E0 2E 8D 36 30 30 30 30 3A 99 22 93 22 3A 20 |/...60000:.".": |
000027A0: 20 4D 53 24 B2 22 57 4F 52 4B 20 54 4F 20 44 4F | MS$."WORK TO DO|
000027B0: 22 3A 8D 36 33 31 30 30 00 E5 2F E5 2E 99 22 93 |":.63100../...".|
000027C0: 59 4F 55 20 43 41 4E 20 53 45 45 20 48 4F 57 20 |YOU CAN SEE HOW |
000027D0: 49 4D 50 4F 52 54 41 4E 54 20 54 48 45 20 4C 45 |IMPORTANT THE LE|
000027E0: 4E 47 54 48 22 00 13 30 EA 2E 99 22 4F 46 20 54 |NGTH"..0..."OF T|
000027F0: 48 45 20 56 41 4C 55 45 53 20 49 53 21 20 49 4E |HE VALUES IS! IN|
00002800: 20 46 41 43 54 20 54 48 41 54 27 53 20 57 48 59 | FACT THAT'S WHY|
00002810: 20 49 22 00 3F 30 F4 2E 99 22 41 53 4B 45 44 20 | I".?0..."ASKED |
00002820: 59 4F 55 20 54 4F 20 49 4E 43 4C 55 44 45 20 54 |YOU TO INCLUDE T|
00002830: 48 45 20 53 54 41 54 45 4D 45 4E 54 53 3A 22 00 |HE STATEMENTS:".|
00002840: 58 30 FE 2E 99 22 11 31 39 30 4C 24 3D 53 54 52 |X0...".190L$=STR|
00002850: 24 28 56 28 49 29 29 22 00 6C 30 08 2F 99 22 32 |$(V(I))".l0./."2|
00002860: 30 30 4C 3D 4C 45 4E 28 4C 24 29 22 00 98 30 12 |00L=LEN(L$)"..0.|
00002870: 2F 99 22 11 12 54 48 45 20 50 52 4F 47 52 41 4D |/."..THE PROGRAM|
00002880: 20 44 49 44 4E 27 54 20 45 56 45 4E 20 55 53 45 | DIDN'T EVEN USE|
00002890: 20 54 48 45 4D 21 92 22 00 A8 30 1C 2F 99 22 11 | THEM!."..0./.".|
000028A0: 4E 4F 57 20 2E 2E 2E 22 00 CB 30 21 2F 99 22 57 |NOW ..."..0!/."W|
000028B0: 45 27 4C 4C 20 49 4E 53 45 52 54 20 23 32 31 30 |E'LL INSERT #210|
000028C0: 20 26 20 23 32 32 30 3A 22 3A 99 00 E6 30 26 2F | & #220:":...0&/|
000028D0: 99 22 11 32 31 30 20 49 46 20 4C 3D 4D 4C 20 47 |.".210 IF L=ML G|
000028E0: 4F 54 4F 32 33 30 00 0A 31 30 2F 99 22 32 32 30 |OTO230..10/."220|
000028F0: 20 46 4F 52 4A 3D 31 54 4F 4D 4C 2D 4C 3A 3F 53 | FORJ=1TOML-L:?S|
00002900: 24 28 38 29 3B 3A 4E 45 58 54 00 38 31 3A 2F 99 |$(8);:NEXT.81:/.|
00002910: 22 32 33 30 20 3F 22 C7 28 33 34 29 22 12 22 C7 |"230 ?".(34)".".|
00002920: 28 33 34 29 22 4C 24 22 C7 28 33 34 29 22 A7 22 |(34)"L$".(34)"."|
00002930: C7 28 33 34 29 22 3B 22 00 52 31 44 2F 99 22 32 |.(34)";".R1D/."2|
00002940: 34 30 20 53 3D 56 28 49 29 2A 33 30 2F 4D 41 58 |40 S=V(I)*30/MAX|
00002950: 56 22 00 60 31 4E 2F 99 22 45 54 43 2E 22 3A 99 |V".`1N/."ETC.":.|
00002960: 00 73 31 58 2F 99 22 12 48 49 54 20 41 20 4B 45 |.s1X/.".HIT A KE|
00002970: 59 92 22 00 88 31 62 2F A1 41 24 3A 8B 41 24 B2 |Y."..1b/.A$:.A$.|
00002980: 22 22 A7 31 32 31 33 30 00 B2 31 6C 2F 99 3A 99 |"".12130..1l/.:.|
00002990: 22 49 46 20 54 48 45 20 56 41 4C 55 45 20 41 42 |"IF THE VALUE AB|
000029A0: 4F 55 54 20 54 4F 20 42 45 20 50 52 49 4E 54 45 |OUT TO BE PRINTE|
000029B0: 44 22 00 E5 31 76 2F 99 22 49 53 20 22 C7 28 33 |D"..1v/."IS ".(3|
000029C0: 34 29 22 53 48 4F 52 54 22 C7 28 33 34 29 22 2C |4)"SHORT".(34)",|
000029D0: 57 45 20 49 4E 53 45 52 54 20 53 4F 4D 45 20 12 |WE INSERT SOME .|
000029E0: 20 92 27 53 22 00 11 32 80 2F 99 22 53 4F 20 45 | .'S"..2./."SO E|
000029F0: 56 45 52 59 20 50 52 49 4E 54 49 4E 47 20 4F 46 |VERY PRINTING OF|
00002A00: 20 54 48 45 20 56 27 53 20 48 41 53 20 54 48 45 | THE V'S HAS THE|
00002A10: 22 00 2C 32 8A 2F 99 22 53 41 4D 45 20 4E 4F 2E |".,2./."SAME NO.|
00002A20: 20 4F 46 20 53 50 41 43 45 53 2E 22 00 5C 32 94 | OF SPACES.".\2.|
00002A30: 2F 99 22 23 32 32 30 20 49 4E 53 45 52 54 53 20 |/."#220 INSERTS |
00002A40: 54 48 45 53 45 20 12 20 92 27 53 20 42 45 46 4F |THESE . .'S BEFO|
00002A50: 52 45 20 50 52 49 4E 54 49 4E 47 22 00 81 32 9E |RE PRINTING"..2.|
00002A60: 2F 99 22 54 48 45 20 56 41 4C 55 45 2C 49 4E 20 |/."THE VALUE,IN |
00002A70: 23 32 33 30 28 43 41 4C 4C 45 44 20 4C 24 29 2E |#230(CALLED L$).|
00002A80: 22 00 AD 32 A8 2F 99 22 49 46 20 54 48 45 20 56 |"..2./."IF THE V|
00002A90: 41 4C 55 45 20 41 42 4F 55 54 20 54 4F 20 42 45 |ALUE ABOUT TO BE|
00002AA0: 20 50 52 49 4E 54 45 44 20 48 41 53 22 00 DB 32 | PRINTED HAS"..2|
00002AB0: B2 2F 99 22 4D 41 58 27 4D 20 4C 45 4E 47 54 48 |./."MAX'M LENGTH|
00002AC0: 20 28 4C 3D 4D 4C 29 20 57 45 20 4F 4D 49 54 20 | (L=ML) WE OMIT |
00002AD0: 54 48 45 20 12 20 92 27 53 2E 22 00 EA 32 B3 2F |THE . .'S."..2./|
00002AE0: 99 22 20 20 A3 A3 A3 A3 A3 22 00 F5 32 BC 2F 8D |." ....."..2./.|
00002AF0: 36 33 30 30 30 00 1A 33 C6 2F 99 22 93 12 46 49 |63000..3./."..FI|
00002B00: 4E 41 4C 4C 59 92 2C 49 4E 20 41 20 46 4F 52 2D |NALLY.,IN A FOR-|
00002B10: 4E 45 58 54 20 4C 4F 4F 50 22 00 43 33 D0 2F 99 |NEXT LOOP".C3./.|
00002B20: 22 49 20 41 4C 57 41 59 53 20 4F 42 45 59 20 54 |"I ALWAYS OBEY T|
00002B30: 48 45 20 49 4E 53 54 27 4E 53 20 42 45 54 57 45 |HE INST'NS BETWE|
00002B40: 45 4E 22 00 6E 33 DA 2F 99 22 20 20 22 C7 28 33 |EN".n3./." ".(3|
00002B50: 34 29 22 46 4F 52 22 C7 28 33 34 29 22 20 41 4E |4)"FOR".(34)" AN|
00002B60: 44 20 22 C7 28 33 34 29 22 4E 45 58 54 22 00 9B |D ".(34)"NEXT"..|
00002B70: 33 E4 2F 99 22 41 54 20 4C 45 41 53 54 20 4F 4E |3./."AT LEAST ON|
00002B80: 43 45 20 42 45 46 4F 52 45 20 43 48 45 43 4B 49 |CE BEFORE CHECKI|
00002B90: 4E 47 20 49 46 20 49 27 56 45 22 00 BA 33 EE 2F |NG IF I'VE"..3./|
00002BA0: 99 22 44 4F 4E 45 20 54 48 45 4D 20 4F 46 54 45 |."DONE THEM OFTE|
00002BB0: 4E 20 45 4E 4F 55 47 48 21 22 00 E5 33 F8 2F 99 |N ENOUGH!"..3./.|
00002BC0: 22 11 54 48 41 54 20 4D 45 41 4E 53 20 54 48 41 |".THAT MEANS THA|
00002BD0: 54 2C 49 4E 20 41 20 4C 4F 4F 50 20 53 55 43 48 |T,IN A LOOP SUCH|
00002BE0: 20 41 53 3A 22 00 FF 33 02 30 99 22 11 32 36 30 | AS:"..3.0.".260|
00002BF0: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 49 53 22 00 | FOR J=1 TO IS".|
00002C00: 27 34 0C 30 99 3A 99 22 49 27 4C 4C 20 4F 42 45 |'4.0.:."I'LL OBE|
00002C10: 59 20 54 48 45 20 4E 45 58 54 20 49 4E 53 54 27 |Y THE NEXT INST'|
00002C20: 4E 20 4F 4E 43 45 22 00 52 34 16 30 99 22 45 56 |N ONCE".R4.0."EV|
00002C30: 45 4E 20 49 46 20 22 C7 28 33 34 29 22 49 53 22 |EN IF ".(34)"IS"|
00002C40: C7 28 33 34 29 22 20 49 53 20 5A 45 52 4F 28 21 |.(34)" IS ZERO(!|
00002C50: 29 22 00 7E 34 20 30 99 22 53 4F 20 59 4F 55 20 |)".~4 0."SO YOU |
00002C60: 4D 55 53 54 20 43 48 45 43 4B 20 46 4F 52 3A 20 |MUST CHECK FOR: |
00002C70: 49 53 3D 30 20 4C 49 4B 45 20 53 4F 3A 22 00 9C |IS=0 LIKE SO:"..|
00002C80: 34 2A 30 99 22 11 32 35 35 20 49 46 20 49 53 3D |4*0.".255 IF IS=|
00002C90: 30 20 47 4F 20 54 4F 20 32 37 30 22 00 CD 34 34 |0 GO TO 270"..44|
00002CA0: 30 99 22 11 54 48 45 4E 2C 49 4E 20 23 32 37 30 |0.".THEN,IN #270|
00002CB0: 2C 59 4F 55 20 50 52 49 4E 54 20 54 48 45 20 46 |,YOU PRINT THE F|
00002CC0: 52 41 43 54 27 4C 20 50 49 45 43 45 22 00 E3 34 |RACT'L PIECE"..4|
00002CD0: 3E 30 99 22 4F 46 20 53 24 28 38 29 20 4F 4E 4C |>0."OF S$(8) ONL|
00002CE0: 59 2E 22 00 EE 34 48 30 8D 36 33 30 30 30 00 1C |Y."..4H0.63000..|
00002CF0: 35 52 30 99 22 54 48 45 20 22 C7 28 33 34 29 22 |5R0."THE ".(34)"|
00002D00: 46 49 4E 49 53 48 45 44 22 C7 28 33 34 29 22 20 |FINISHED".(34)" |
00002D10: 50 52 4F 44 55 43 54 20 49 53 3A 22 00 33 35 E6 |PRODUCT IS:".35.|
00002D20: 32 99 3A 99 22 31 37 30 20 46 4F 52 49 3D 31 54 |2.:."170 FORI=1T|
00002D30: 4F 31 32 00 63 35 F0 32 99 22 31 38 30 20 3F 22 |O12.c5.2."180 ?"|
00002D40: C7 28 33 34 29 22 12 22 C7 28 33 34 29 22 4D 24 |.(34)".".(34)"M$|
00002D50: 28 49 29 22 C7 28 33 34 29 22 2D 22 C7 28 33 34 |(I)".(34)"-".(34|
00002D60: 29 22 3B 00 7B 35 FA 32 99 22 31 39 30 20 4C 24 |)";.{5.2."190 L$|
00002D70: 3D 53 54 52 24 28 56 28 49 29 29 00 8F 35 04 33 |=STR$(V(I))..5.3|
00002D80: 99 22 32 30 30 20 4C 3D 4C 45 4E 28 4C 24 29 00 |."200 L=LEN(L$).|
00002D90: A9 35 05 33 99 22 32 31 30 20 49 46 20 4C 3D 4D |.5.3."210 IF L=M|
00002DA0: 4C 20 47 4F 54 4F 32 33 30 00 CD 35 06 33 99 22 |L GOTO230..5.3."|
00002DB0: 32 32 30 20 46 4F 52 4A 3D 31 54 4F 4D 4C 2D 4C |220 FORJ=1TOML-L|
00002DC0: 3A 3F 53 24 28 38 29 3B 3A 4E 45 58 54 00 FC 35 |:?S$(8);:NEXT..5|
00002DD0: 22 33 99 22 32 33 30 20 3F 22 C7 28 33 34 29 22 |"3."230 ?".(34)"|
00002DE0: 12 22 C7 28 33 34 29 22 4C 24 22 C7 28 33 34 29 |.".(34)"L$".(34)|
00002DF0: 22 A7 22 C7 28 33 34 29 22 3B 22 3B 00 12 36 23 |".".(34)";";..6#|
00002E00: 33 99 C7 28 33 34 29 22 92 22 C7 28 33 34 29 22 |3..(34)".".(34)"|
00002E10: 3B 22 00 2C 36 2C 33 99 22 32 34 30 20 53 3D 56 |;".,6,3."240 S=V|
00002E20: 28 49 29 2A 33 30 2F 4D 41 58 56 22 00 49 36 36 |(I)*30/MAXV".I66|
00002E30: 33 99 22 32 35 30 20 49 53 3D 49 4E 54 28 53 29 |3."250 IS=INT(S)|
00002E40: 3A 46 53 3D 53 2D 49 53 22 00 62 36 3B 33 99 22 |:FS=S-IS".b6;3."|
00002E50: 32 35 35 20 49 46 49 53 3D 30 47 4F 54 4F 32 37 |255 IFIS=0GOTO27|
00002E60: 30 22 00 85 36 40 33 99 22 32 36 30 20 46 4F 52 |0"..6@3."260 FOR|
00002E70: 4A 3D 31 54 4F 49 53 3A 3F 53 24 28 38 29 3B 3A |J=1TOIS:?S$(8);:|
00002E80: 4E 45 58 54 22 00 9A 36 4A 33 99 22 32 37 30 20 |NEXT"..6J3."270 |
00002E90: 3F 53 24 28 38 2A 46 53 29 22 00 AA 36 54 33 99 |?S$(8*FS)"..6T3.|
00002EA0: 22 32 38 30 20 4E 45 58 54 22 00 D7 36 59 33 99 |"280 NEXT"..6Y3.|
00002EB0: 3A 99 22 28 4E 4F 54 45 20 54 48 41 54 20 23 32 |:."(NOTE THAT #2|
00002EC0: 33 30 20 49 4E 43 4C 55 44 45 53 20 41 20 52 56 |30 INCLUDES A RV|
00002ED0: 53 2D 4F 46 46 29 22 00 03 37 5E 33 99 3A 99 22 |S-OFF)"..7^3.:."|
00002EE0: 45 4E 54 45 52 20 54 48 45 53 45 20 53 54 41 54 |ENTER THESE STAT|
00002EF0: 45 4D 45 4E 54 53 20 41 4E 44 20 12 54 52 59 20 |EMENTS AND .TRY |
00002F00: 49 54 22 00 22 37 68 33 99 22 11 11 54 59 50 45 |IT"."7h3."..TYPE|
00002F10: 20 12 40 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | .@. TO CONTINUE|
00002F20: 2E 22 00 39 37 72 33 53 4E 24 B2 22 31 35 30 30 |.".97r3SN$."1500|
00002F30: 30 22 3A 89 36 33 34 30 30 00 60 37 98 3A 8D 36 |0":.63400.`7.:.6|
00002F40: 30 30 30 30 3A 99 22 93 22 3A 4D 53 24 B2 22 49 |0000:.".":MS$."I|
00002F50: 54 20 57 4F 52 4B 53 21 22 3A 8D 36 33 31 30 30 |T WORKS!":.63100|
00002F60: 00 92 37 99 3A 99 22 93 11 11 4C 45 54 20 4D 45 |..7.:."...LET ME|
00002F70: 20 53 41 59 20 4F 4E 45 20 4C 41 53 54 20 54 48 | SAY ONE LAST TH|
00002F80: 49 4E 47 2E 2E 41 42 4F 55 54 20 12 47 45 54 92 |ING..ABOUT .GET.|
00002F90: 2E 22 00 BF 37 9D 3A 99 3A 99 22 59 4F 55 20 4D |."..7.:.:."YOU M|
00002FA0: 41 59 20 54 59 50 45 20 54 48 49 4E 47 53 20 4F |AY TYPE THINGS O|
00002FB0: 4E 20 54 48 45 20 4B 45 59 42 4F 41 52 44 22 00 |N THE KEYBOARD".|
00002FC0: EA 37 A2 3A 99 3A 99 22 57 48 49 4C 45 20 49 27 |.7.:.:."WHILE I'|
00002FD0: 4D 20 42 55 53 59 20 44 4F 49 4E 47 20 53 4F 4D |M BUSY DOING SOM|
00002FE0: 45 54 48 49 4E 47 2E 2E 2E 22 00 1A 38 A7 3A 99 |ETHING..."..8.:.|
00002FF0: 3A 99 22 41 4E 44 20 49 27 4C 4C 20 4B 45 45 50 |:."AND I'LL KEEP|
00003000: 20 55 50 20 54 4F 20 31 30 20 4B 45 59 50 55 4E | UP TO 10 KEYPUN|
00003010: 43 48 45 53 20 49 4E 20 41 22 00 36 38 AC 3A 99 |CHES IN A".68.:.|
00003020: 3A 99 22 27 4B 45 59 42 4F 41 52 44 20 42 55 46 |:."'KEYBOARD BUF|
00003030: 46 45 52 27 2E 22 00 67 38 B1 3A 99 3A 99 22 57 |FER'.".g8.:.:."W|
00003040: 48 45 4E 20 49 20 52 45 54 55 52 4E 20 54 4F 20 |HEN I RETURN TO |
00003050: 27 47 45 54 27 20 54 48 45 20 4E 45 58 54 20 49 |'GET' THE NEXT I|
00003060: 4E 53 54 27 4E 20 22 00 98 38 B6 3A 99 3A 99 22 |NST'N "..8.:.:."|
00003070: 46 52 4F 4D 20 54 48 45 20 4B 45 59 42 4F 41 52 |FROM THE KEYBOAR|
00003080: 44 20 49 27 4C 4C 20 43 48 45 43 4B 20 54 48 45 |D I'LL CHECK THE|
00003090: 20 42 55 46 46 45 52 22 00 C2 38 BB 3A 99 3A 99 | BUFFER"..8.:.:.|
000030A0: 22 41 4E 44 20 54 41 4B 45 20 54 48 45 20 45 4E |"AND TAKE THE EN|
000030B0: 54 52 49 45 53 20 46 52 4F 4D 20 54 48 45 52 45 |TRIES FROM THERE|
000030C0: 2E 22 00 F1 38 BC 3A 99 3A 99 22 28 49 4E 20 46 |."..8.:.:."(IN F|
000030D0: 41 43 54 20 49 20 41 4C 57 41 59 53 20 54 41 4B |ACT I ALWAYS TAK|
000030E0: 45 20 4B 45 59 42 4F 41 52 44 20 49 4E 50 55 54 |E KEYBOARD INPUT|
000030F0: 22 00 15 39 BD 3A 99 3A 99 22 46 52 4F 4D 20 54 |"..9.:.:."FROM T|
00003100: 48 45 20 4B 45 59 42 4F 41 52 44 20 42 55 46 46 |HE KEYBOARD BUFF|
00003110: 45 52 29 2E 22 00 22 39 BE 3A 99 3A 8D 36 33 30 |ER)."."9.:.:.630|
00003120: 30 30 00 51 39 C0 3A 99 22 93 57 48 45 4E 20 57 |00.Q9.:.".WHEN W|
00003130: 52 49 54 49 4E 47 20 41 20 50 52 4F 47 52 41 4D |RITING A PROGRAM|
00003140: 20 59 4F 55 20 43 41 4E 20 49 4E 43 4C 55 44 45 | YOU CAN INCLUDE|
00003150: 22 00 6C 39 C5 3A 99 3A 99 22 41 20 53 54 41 54 |".l9.:.:."A STAT|
00003160: 45 4D 45 4E 54 20 4C 49 4B 45 3A 22 00 9A 39 CA |EMENT LIKE:"..9.|
00003170: 3A 99 3A 99 22 12 31 30 30 20 47 45 54 41 24 3A |:.:.".100 GETA$:|
00003180: 49 46 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 |IFA$=".(34).(34)|
00003190: 20 22 47 4F 54 4F 31 30 30 22 00 C9 39 D4 3A 99 | "GOTO100"..9.:.|
000031A0: 3A 99 22 54 48 41 54 20 53 41 59 53 3A 27 47 45 |:."THAT SAYS:'GE|
000031B0: 54 27 20 41 20 43 48 41 52 41 43 54 45 52 20 46 |T' A CHARACTER F|
000031C0: 52 4F 4D 20 54 48 45 20 22 00 F7 39 D9 3A 99 22 |ROM THE "..9.:."|
000031D0: 11 4B 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 |.KEYBOARD BUFFER|
000031E0: 2C 49 46 20 54 48 45 20 43 48 27 52 20 49 53 20 |,IF THE CH'R IS |
000031F0: 12 4E 55 4C 4C 92 22 00 25 3A DE 3A 99 3A 99 22 |.NULL.".%:.:.:."|
00003200: 28 53 45 45 2E 2E 27 4E 4F 54 48 49 4E 47 27 20 |(SEE..'NOTHING' |
00003210: 42 45 54 57 45 45 4E 20 54 48 45 20 51 55 4F 54 |BETWEEN THE QUOT|
00003220: 45 53 21 29 22 00 41 3A E3 3A 99 3A 99 22 54 48 |ES!)".A:.:.:."TH|
00003230: 45 4E 20 4B 45 45 50 20 54 52 59 49 4E 47 21 21 |EN KEEP TRYING!!|
00003240: 22 00 50 3A E4 3A 99 3A 99 3A 8D 36 33 30 30 30 |".P:.:.:.:.63000|
00003250: 00 6D 3A E8 3A 99 22 93 54 4F 20 45 4D 50 54 59 |.m:.:.".TO EMPTY|
00003260: 20 54 48 45 20 42 55 46 46 45 52 3A 22 00 91 3A | THE BUFFER:"..:|
00003270: ED 3A 99 3A 99 22 12 31 30 30 20 46 4F 52 49 3D |.:.:.".100 FORI=|
00003280: 31 54 4F 31 30 3A 47 45 54 41 24 3A 4E 45 58 54 |1TO10:GETA$:NEXT|
00003290: 22 00 C2 3A F2 3A 99 3A 99 22 2E 2E 54 41 4B 49 |"..:.:.:."..TAKI|
000032A0: 4E 47 20 31 30 20 43 48 41 52 41 43 54 45 52 53 |NG 10 CHARACTERS|
000032B0: 20 46 52 4F 4D 20 54 48 45 20 42 55 46 46 45 52 | FROM THE BUFFER|
000032C0: 2E 22 00 E6 3A F7 3A 99 3A 99 22 54 48 41 54 27 |."..:.:.:."THAT'|
000032D0: 53 20 45 4E 4F 55 47 48 20 54 4F 20 45 4D 50 54 |S ENOUGH TO EMPT|
000032E0: 59 20 49 54 21 22 00 02 3B FC 3A 99 3A 99 22 2E |Y IT!"..;.:.:.".|
000032F0: 2E 4F 52 20 59 4F 55 20 43 41 4E 20 48 41 56 45 |.OR YOU CAN HAVE|
00003300: 3A 22 00 30 3B 06 3B 99 3A 99 22 12 31 30 30 20 |:".0;.;.:.".100 |
00003310: 47 45 54 41 24 3A 49 46 41 24 3C 3E 22 C7 28 33 |GETA$:IFA$<>".(3|
00003320: 34 29 C7 28 33 34 29 22 54 48 45 4E 31 30 30 22 |4).(34)"THEN100"|
00003330: 00 5F 3B 0B 3B 99 22 11 54 48 49 53 20 57 49 4C |._;.;.".THIS WIL|
00003340: 4C 20 27 47 45 54 27 20 41 20 43 48 41 52 41 43 |L 'GET' A CHARAC|
00003350: 54 45 52 20 55 4E 54 49 4C 20 54 48 45 20 22 00 |TER UNTIL THE ".|
00003360: 78 3B 10 3B 99 22 11 42 55 46 46 45 52 20 49 53 |x;.;.".BUFFER IS|
00003370: 20 45 4D 50 54 59 2E 22 00 85 3B 15 3B 99 3A 8D | EMPTY."..;.;.:.|
00003380: 36 33 30 30 30 00 B3 3B 1A 3B 99 22 93 11 44 55 |63000..;.;."..DU|
00003390: 52 49 4E 47 20 12 54 55 54 4F 52 92 20 59 4F 55 |RING .TUTOR. YOU|
000033A0: 20 4D 41 59 20 48 41 56 45 20 4E 4F 54 49 43 45 | MAY HAVE NOTICE|
000033B0: 44 3A 22 00 D8 3B 1F 3B 99 22 11 27 48 49 54 20 |D:"..;.;.".'HIT |
000033C0: 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 |.RETURN. TO CONT|
000033D0: 49 4E 55 45 92 27 2E 22 00 03 3C 24 3B 99 22 11 |INUE.'."..<$;.".|
000033E0: 54 48 45 20 4C 49 54 54 4C 45 20 53 55 42 52 4F |THE LITTLE SUBRO|
000033F0: 55 54 49 4E 45 20 57 48 49 43 48 20 50 52 49 4E |UTINE WHICH PRIN|
00003400: 54 53 22 00 2E 3C 29 3B 99 22 11 54 48 49 53 20 |TS"..<);.".THIS |
00003410: 41 54 20 54 48 45 20 42 4F 54 54 4F 4D 20 4F 46 |AT THE BOTTOM OF|
00003420: 20 54 48 45 20 53 43 52 45 45 4E 2E 2E 22 00 49 | THE SCREEN..".I|
00003430: 3C 2A 3B 99 22 11 54 48 45 4E 20 57 41 49 54 53 |<*;.".THEN WAITS|
00003440: 21 2E 2E 49 53 3A 11 11 22 00 54 3C 2E 3B 8D 36 |!..IS:..".T<.;.6|
00003450: 33 30 30 30 00 83 3C 3D 3B 99 22 93 22 3A 4D 53 |3000..<=;.".":MS|
00003460: 24 B2 22 12 41 55 20 52 45 56 4F 49 52 21 92 22 |$.".AU REVOIR!."|
00003470: 3A 8D 36 33 31 30 30 3A 8D 36 33 35 30 30 3A 99 |:.63100:.63500:.|
00003480: 22 13 22 00 94 3C 42 3B 9B 36 33 30 30 30 AB 36 |"."..<B;.63000.6|
00003490: 33 30 30 33 00 9D 3C 20 4E 99 22 93 22 00 CA 3C |3003..< N."."..<|
000034A0: 25 4E 99 22 93 20 42 45 46 4F 52 45 20 49 20 46 |%N.". BEFORE I F|
000034B0: 4F 52 47 45 54 2C 20 49 20 53 48 4F 55 4C 44 20 |ORGET, I SHOULD |
000034C0: 49 4E 54 52 4F 44 55 43 45 22 00 F1 3C 2A 4E 99 |INTRODUCE"..<*N.|
000034D0: 22 11 4D 59 20 46 52 49 45 4E 44 22 C7 28 33 34 |".MY FRIEND".(34|
000034E0: 29 22 43 55 52 53 4F 52 22 C7 28 33 34 29 22 2E |)"CURSOR".(34)".|
000034F0: 22 00 01 3D 2F 4E 81 49 B2 31 A4 31 30 30 30 3A |"..=/N.I.1.1000:|
00003500: 82 00 2D 3D 30 4E 57 44 B2 38 30 3A 97 33 32 37 |..-=0NWD.80:.327|
00003510: 36 38 AA 31 30 32 34 2C 39 36 3A 8B C2 28 33 32 |68.1024,96:..(32|
00003520: 37 36 38 29 B2 39 36 A7 57 44 B2 34 30 00 51 3D |768).96.WD.40.Q=|
00003530: 34 4E 99 22 49 20 43 41 4C 4C 20 48 49 4D 20 12 |4N."I CALL HIM .|
00003540: 43 52 53 52 92 20 46 4F 52 20 53 48 4F 52 54 2E |CRSR. FOR SHORT.|
00003550: 22 00 61 3D 39 4E 81 49 B2 31 A4 31 35 30 30 3A |".a=9N.I.1.1500:|
00003560: 82 00 85 3D 3E 4E 99 22 11 43 4F 4D 45 20 4F 4E |...=>N.".COME ON|
00003570: 20 43 52 53 52 2E 2E 44 4F 4E 27 54 20 42 45 20 | CRSR..DON'T BE |
00003580: 53 48 59 2E 22 00 95 3D 48 4E 81 49 B2 31 A4 32 |SHY."..=HN.I.1.2|
00003590: 30 30 30 3A 82 00 A1 3D 52 4E 81 49 B2 31 A4 31 |000:...=RN.I.1.1|
000035A0: 30 00 AD 3D 5C 4E 99 22 11 22 3B 3A 82 00 B8 3D |0..=\N.".";:...=|
000035B0: 66 4E 99 A6 31 34 29 3B 00 CD 3D 70 4E 81 49 B2 |fN..14);..=pN.I.|
000035C0: 31 A4 38 3A 81 54 B2 31 A4 35 30 3A 82 00 DF 3D |1.8:.T.1.50:...=|
000035D0: 7A 4E 99 22 20 9D 91 12 20 92 9D 22 3B 3A 82 00 |zN." ... ..";:..|
000035E0: EE 3D 84 4E 81 49 B2 31 A4 35 30 30 3A 82 00 03 |.=.N.I.1.500:...|
000035F0: 3E 8E 4E 99 22 1D 20 5F 54 48 41 54 27 53 20 48 |>.N.". _THAT'S H|
00003600: 49 4D 22 00 35 3E 98 4E 43 53 52 B2 33 32 37 36 |IM".5>.NCSR.3276|
00003610: 38 AA 38 AC 57 44 AA 31 34 3A 81 49 B2 31 A4 31 |8.8.WD.14:.I.1.1|
00003620: 30 30 3A 97 43 53 52 2C 33 32 3A 97 43 53 52 2C |00:.CSR,32:.CSR,|
00003630: 31 36 30 3A 82 00 55 3E A2 4E 99 22 11 54 48 45 |160:..U>.N.".THE|
00003640: 4E 20 57 45 20 48 41 56 45 20 43 52 53 52 2D 4C |N WE HAVE CRSR-L|
00003650: 45 46 54 22 3B 00 6D 3E AC 4E 99 22 20 20 20 22 |EFT";.m>.N." "|
00003660: C7 28 33 34 29 22 9D 22 C7 28 33 34 29 00 7E 3E |.(34)".".(34).~>|
00003670: AD 4E 81 49 B2 31 A4 35 30 30 3A 82 3A 99 00 95 |.N.I.1.500:.:...|
00003680: 3E B6 4E 99 22 41 4E 44 20 43 52 53 52 2D 52 49 |>.N."AND CRSR-RI|
00003690: 47 48 54 22 3B 00 AF 3E C0 4E 99 22 20 20 20 20 |GHT";..>.N." |
000036A0: 20 22 C7 28 33 34 29 22 1D 22 C7 28 33 34 29 00 | ".(34)".".(34).|
000036B0: C0 3E C1 4E 81 49 B2 31 A4 35 30 30 3A 82 3A 99 |.>.N.I.1.500:.:.|
000036C0: 00 D4 3E CA 4E 99 22 41 4E 44 20 43 52 53 52 2D |..>.N."AND CRSR-|
000036D0: 55 50 22 3B 00 EE 3E D4 4E 99 22 20 20 20 20 20 |UP";..>.N." |
000036E0: 22 C7 28 33 34 29 22 91 22 C7 28 33 34 29 00 FF |".(34)".".(34)..|
000036F0: 3E D5 4E 81 49 B2 31 A4 35 30 30 3A 82 3A 99 00 |>.N.I.1.500:.:..|
00003700: 15 3F DE 4E 99 22 41 4E 44 20 43 52 53 52 2D 44 |.?.N."AND CRSR-D|
00003710: 4F 57 4E 22 3B 00 2F 3F E8 4E 99 22 20 20 20 20 |OWN";./?.N." |
00003720: 20 22 C7 28 33 34 29 22 11 22 C7 28 33 34 29 00 | ".(34)".".(34).|
00003730: 41 3F E9 4E 81 49 B2 31 A4 31 35 30 30 3A 82 3A |A?.N.I.1.1500:.:|
00003740: 99 00 62 3F F2 4E 99 22 28 41 4C 4C 20 42 52 4F |..b?.N."(ALL BRO|
00003750: 54 48 45 52 53 2C 4F 46 20 43 4F 55 52 53 45 29 |THERS,OF COURSE)|
00003760: 2E 22 00 74 3F F7 4E 81 49 B2 31 A4 31 30 30 30 |.".t?.N.I.1.1000|
00003770: 3A 82 3A 99 00 8E 3F FC 4E 99 22 57 45 20 41 4C |:.:...?.N."WE AL|
00003780: 53 4F 20 48 41 56 45 20 48 4F 4D 45 22 3B 00 A7 |SO HAVE HOME";..|
00003790: 3F 06 4F 99 22 20 20 20 20 22 C7 28 33 34 29 22 |?.O." ".(34)"|
000037A0: 13 22 C7 28 33 34 29 00 B6 3F 07 4F 81 49 B2 31 |.".(34)..?.O.I.1|
000037B0: A4 32 30 30 3A 82 00 CC 3F 10 4F 99 22 2E 2E 41 |.200:...?.O."..A|
000037C0: 4E 44 20 43 4C 45 41 52 20 20 22 3B 00 E5 3F 1A |ND CLEAR ";..?.|
000037D0: 4F 99 22 20 20 20 20 22 C7 28 33 34 29 22 93 22 |O." ".(34)"."|
000037E0: C7 28 33 34 29 00 F4 3F 1B 4F 81 49 B2 31 A4 32 |.(34)..?.O.I.1.2|
000037F0: 30 30 3A 82 00 17 40 24 4F 99 22 2E 2E 41 4E 44 |00:...@$O."..AND|
00003800: 20 52 56 53 20 20 20 20 20 22 C7 28 33 34 29 22 | RVS ".(34)"|
00003810: 12 22 C7 28 33 34 29 00 26 40 25 4F 81 49 B2 31 |.".(34).&@%O.I.1|
00003820: A4 32 30 30 3A 82 00 4C 40 2E 4F 99 22 2E 2E 41 |.200:..L@.O."..A|
00003830: 4E 44 20 52 56 53 2D 4F 46 46 20 20 20 20 22 C7 |ND RVS-OFF ".|
00003840: 28 33 34 29 22 92 22 C7 28 33 34 29 00 5D 40 38 |(34)".".(34).]@8|
00003850: 4F 81 49 B2 31 A4 35 30 30 3A 82 3A 99 00 7B 40 |O.I.1.500:.:..{@|
00003860: 42 4F 99 22 3E 3E 3E 47 45 54 20 54 4F 20 4B 4E |BO.">>>GET TO KN|
00003870: 4F 57 20 54 48 45 4D 3C 3C 3C 22 00 8C 40 47 4F |OW THEM<<<"..@GO|
00003880: 81 49 B2 31 A4 32 30 30 3A 82 3A 99 00 B6 40 4C |.I.1.200:.:...@L|
00003890: 4F 99 22 49 4E 53 49 44 45 20 51 55 4F 54 45 53 |O."INSIDE QUOTES|
000038A0: 2C 54 48 45 59 20 44 4F 20 54 48 45 49 52 20 54 |,THEY DO THEIR T|
000038B0: 48 49 4E 47 2E 22 00 C7 40 B0 4F 81 49 B2 31 A4 |HING."..@.O.I.1.|
000038C0: 35 30 30 3A 82 3A 99 00 D4 40 14 50 8D 36 33 30 |500:.:...@.P.630|
000038D0: 30 30 3A 8E 00 DF 40 40 5B 8D 36 33 30 30 30 00 |00:...@@[.63000.|
000038E0: EF 40 78 E6 99 22 93 22 3A 8D 36 33 31 30 30 00 |.@x..".":.63100.|
000038F0: 18 41 79 E6 99 22 13 44 55 52 49 4E 47 20 54 48 |.Ay..".DURING TH|
00003900: 45 20 54 55 54 4F 52 49 41 4C 20 59 4F 55 20 4D |E TUTORIAL YOU M|
00003910: 41 59 20 57 49 53 48 22 00 40 41 7A E6 99 22 11 |AY WISH".@Az..".|
00003920: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 41 4E 20 |TO RETURN TO AN |
00003930: 45 41 52 4C 49 45 52 20 27 50 41 47 45 27 2E 22 |EARLIER 'PAGE'."|
00003940: 00 6B 41 7B E6 99 22 11 4A 55 53 54 20 12 48 49 |.kA{..".JUST .HI|
00003950: 54 20 54 48 45 20 40 2D 4B 45 59 92 2C 20 41 54 |T THE @-KEY., AT|
00003960: 20 41 4E 59 20 54 49 4D 45 2C 22 00 91 41 7C E6 | ANY TIME,"..A|.|
00003970: 99 22 11 41 4E 44 20 54 48 45 20 54 55 54 4F 52 |.".AND THE TUTOR|
00003980: 49 41 4C 20 57 49 4C 4C 20 42 41 43 4B 20 55 50 |IAL WILL BACK UP|
00003990: 22 00 A8 41 7D E6 99 22 11 41 20 50 41 47 45 20 |"..A}..".A PAGE |
000039A0: 4F 52 20 54 57 4F 2E 22 00 D1 41 7E E6 99 22 11 |OR TWO."..A~..".|
000039B0: 41 4C 53 4F 2C 20 59 4F 55 20 48 41 56 45 20 41 |ALSO, YOU HAVE A|
000039C0: 4E 20 4F 50 50 4F 52 54 55 4E 49 54 59 20 54 4F |N OPPORTUNITY TO|
000039D0: 22 00 F4 41 7F E6 99 22 11 43 4F 4D 50 4F 53 45 |"..A...".COMPOSE|
000039E0: 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 | YOUR OWN PROGRA|
000039F0: 4D 53 2E 22 00 1B 42 80 E6 99 22 11 57 48 45 4E |MS."..B...".WHEN|
00003A00: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 43 4F 4E | YOU WISH TO CON|
00003A10: 54 49 4E 55 45 20 57 49 54 48 22 00 49 42 81 E6 |TINUE WITH".IB..|
00003A20: 99 22 11 54 48 45 20 54 55 54 4F 52 49 41 4C 2C |.".THE TUTORIAL,|
00003A30: 20 12 48 49 54 20 54 48 45 20 40 2D 4B 45 59 92 | .HIT THE @-KEY.|
00003A40: 21 22 3A 8D 36 33 30 30 30 00 67 42 82 E6 4D 53 |!":.63000.gB..MS|
00003A50: 24 B2 22 12 40 92 5F 52 45 4D 45 4D 42 45 52 22 |$.".@._REMEMBER"|
00003A60: 3A 8D 36 33 31 30 30 00 74 42 8C E6 8D 36 33 30 |:.63100.tB...630|
00003A70: 30 30 3A 8E 00 8C 42 60 EA 97 32 30 34 2C 31 3A |00:...B`..204,1:|
00003A80: 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 AE 42 61 |. INITIALIZE..Ba|
00003A90: EA 42 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 |.BT$.".":.I.1.24|
00003AA0: 3A 42 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 F8 |:BT$.BT$.".":...|
00003AB0: 42 62 EA 50 54 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 |Bb.PT$."........|
00003AC0: C0 C0 C0 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003AD0: 9D 9D DD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D |................|
00003AE0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 |................|
00003AF0: C0 C0 C0 C0 C0 B2 BD 22 00 40 43 63 EA 50 54 24 |.......".@Cc.PT$|
00003B00: B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D |.PT$."..........|
00003B10: 9D 9D 9D 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00003B20: A3 CD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003B30: 9D A5 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 |..============."|
00003B40: 00 7C 43 64 EA 50 54 24 B2 50 54 24 AA 22 11 9D |.|Cd.PT$.PT$."..|
00003B50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 |................|
00003B60: A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D |................|
00003B70: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 B3 43 65 |..........."..Ce|
00003B80: EA 50 54 24 B2 42 54 24 AA 22 91 91 91 91 91 91 |.PT$.BT$."......|
00003B90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003BA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 AA |..........".PT$.|
00003BB0: 22 90 22 00 E3 43 67 EA 4D 4C 24 B2 22 13 11 11 |"."..Cg.ML$."...|
00003BC0: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003BD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003BE0: 1D 1D 22 00 FE 43 68 EA 57 44 B2 34 30 3A 43 52 |.."..Ch.WD.40:CR|
00003BF0: 54 B2 31 30 32 34 3A 99 C7 28 31 34 32 29 00 22 |T.1024:..(142)."|
00003C00: 44 69 EA 57 32 B2 57 44 AD 32 3A 57 33 B2 57 44 |Di.W2.WD.2:W3.WD|
00003C10: AB 31 3A 57 31 24 B2 CA 28 C4 28 57 44 29 2C 32 |.1:W1$..(.(WD),2|
00003C20: 29 3A 00 44 44 6A EA 57 32 24 B2 CA 28 C4 28 57 |):.DDj.W2$..(.(W|
00003C30: 32 29 2C 32 29 3A 57 33 24 B2 CA 28 C4 28 57 33 |2),2):W3$..(.(W3|
00003C40: 29 2C 32 29 00 66 44 74 EA 99 22 93 22 3A 97 35 |),2).fDt..".":.5|
00003C50: 33 32 38 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 |3281,15:.53280,1|
00003C60: 32 3A 99 22 90 22 00 94 44 46 EE 8B C2 28 37 38 |2:."."..DF...(78|
00003C70: 39 29 B3 B1 37 AC 31 36 AA 31 35 A7 9E 28 37 AC |9)..7.16.15..(7.|
00003C80: 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 32 AC 31 |4096.15.256.12.1|
00003C90: 36 AA 33 29 00 9A 44 47 EE 8E 00 AE 44 48 EE 8F |6.3)..DG....DH..|
00003CA0: 2A 4E 45 57 20 57 4F 52 4B 53 50 41 43 45 00 C8 |*NEW WORKSPACE..|
00003CB0: 44 49 EE 4D B2 37 AC 34 30 39 36 AA 31 35 AC 32 |DI.M.7.4096.15.2|
00003CC0: 35 36 AA 31 35 AC 31 36 00 CE 44 4A EE 8C 00 E6 |56.15.16..DJ....|
00003CD0: 44 4B EE 81 49 B2 4D A4 4D AA 31 35 3A 87 4B 3A |DK..I.M.M.15:.K:|
00003CE0: 97 49 2C 4B 3A 82 00 00 45 4C EE 83 20 31 2C 39 |.I,K:...EL.. 1,9|
00003CF0: 36 2C 33 2C 39 36 2C 33 2C 39 36 2C 33 2C 39 36 |6,3,96,3,96,3,96|
00003D00: 00 1E 45 4D EE 83 20 31 34 34 2C 31 32 37 2C 30 |..EM.. 144,127,0|
00003D10: 2C 30 2C 31 34 34 2C 31 32 37 2C 30 2C 30 00 3B |,0,144,127,0,0.;|
00003D20: 45 4E EE 4D B2 36 AC 34 30 39 36 3A 81 49 B2 30 |EN.M.6.4096:.I.0|
00003D30: A4 32 3A 97 4D AA 49 2C 30 3A 82 00 41 45 4F EE |.2:.M.I,0:..AEO.|
00003D40: 8E 00 7A 45 18 F6 99 22 13 11 11 11 11 11 11 11 |..zE..."........|
00003D50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003D60: 48 49 54 20 12 52 45 54 55 52 4E 92 20 54 4F 20 |HIT .RETURN. TO |
00003D70: 43 4F 4E 54 49 4E 55 45 22 3B 00 90 45 19 F6 A1 |CONTINUE";..E...|
00003D80: 41 24 3A 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 |A$:.A$.."".63001|
00003D90: 00 A5 45 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 |..E...A$:.A$."".|
00003DA0: 36 33 30 30 32 00 AD 45 1B F6 99 3A 8E 00 C1 45 |63002..E...:...E|
00003DB0: 7C F6 81 54 B2 31 A4 35 3A 99 50 54 24 4D 53 24 ||..T.1.5:.PT$MS$|
00003DC0: 3B 00 D7 45 7D F6 99 50 54 24 22 20 20 20 20 20 |;..E}..PT$" |
00003DD0: 20 20 20 20 20 22 3B 00 E6 45 7E F6 99 50 54 24 | ";..E~..PT$|
00003DE0: 4D 53 24 3B 3A 82 00 EE 45 7F F6 99 3A 8E 00 13 |MS$;:...E...:...|
00003DF0: 46 E0 F6 97 35 36 2C 39 36 3A 97 35 32 2C 39 36 |F...56,96:.52,96|
00003E00: 3A 97 35 35 2C 30 3A 97 35 31 2C 30 3A 8D 36 31 |:.55,0:.51,0:.61|
00003E10: 30 30 30 00 25 46 E1 F6 57 44 B2 34 30 3A 99 C7 |000.%F..WD.40:..|
00003E20: 28 31 34 32 29 00 3E 46 E2 F6 4D B2 37 AC 34 30 |(142).>F..M.7.40|
00003E30: 39 36 AA 31 35 AC 32 35 36 AA 39 AC 31 36 00 56 |96.15.256.9.16.V|
00003E40: 46 E3 F6 81 49 B2 4D A4 4D AA 39 31 3A 87 4B 3A |F...I.M.M.91:.K:|
00003E50: 97 49 2C 4B 3A 82 00 9D 46 E4 F6 83 31 36 35 2C |.I,K:...F...165,|
00003E60: 32 30 33 2C 32 30 31 2C 34 36 2C 32 30 38 2C 38 |203,201,46,208,8|
00003E70: 33 2C 33 32 2C 31 39 35 2C 31 32 37 2C 31 36 35 |3,32,195,127,165|
00003E80: 2C 34 34 2C 32 30 31 2C 38 2C 32 34 30 2C 33 2C |,44,201,8,240,3,|
00003E90: 33 32 2C 31 37 37 2C 31 32 37 2C 33 32 00 E2 46 |32,177,127,32..F|
00003EA0: E5 F6 83 31 34 32 2C 31 36 36 2C 31 36 35 2C 34 |...142,166,165,4|
00003EB0: 34 2C 32 30 31 2C 38 2C 32 34 30 2C 33 2C 37 36 |4,201,8,240,3,76|
00003EC0: 2C 31 32 38 2C 31 36 34 2C 37 36 2C 31 37 34 2C |,128,164,76,174,|
00003ED0: 31 36 37 2C 31 36 32 2C 31 36 2C 31 38 39 2C 32 |167,162,16,189,2|
00003EE0: 33 39 00 2B 47 E6 F6 83 31 32 37 2C 37 32 2C 31 |39.+G...127,72,1|
00003EF0: 38 31 2C 34 32 2C 31 35 37 2C 32 33 39 2C 31 32 |81,42,157,239,12|
00003F00: 37 2C 31 30 34 2C 31 34 39 2C 34 32 2C 32 30 32 |7,104,149,42,202|
00003F10: 2C 32 30 38 2C 32 34 31 2C 39 36 2C 31 32 30 2C |,208,241,96,120,|
00003F20: 31 37 33 2C 32 33 38 2C 31 32 37 00 70 47 E7 F6 |173,238,127.pG..|
00003F30: 83 37 37 2C 32 30 2C 33 2C 31 34 31 2C 32 30 2C |.77,20,3,141,20,|
00003F40: 33 2C 31 37 33 2C 32 33 39 2C 31 32 37 2C 37 37 |3,173,239,127,77|
00003F50: 2C 32 31 2C 33 2C 31 34 31 2C 32 31 2C 33 2C 38 |,21,3,141,21,3,8|
00003F60: 38 2C 39 36 2C 31 37 33 2C 32 30 2C 33 2C 37 33 |8,96,173,20,3,73|
00003F70: 00 AF 47 E8 F6 83 31 34 34 2C 31 34 31 2C 32 33 |..G...144,141,23|
00003F80: 38 2C 31 32 37 2C 31 37 33 2C 32 31 2C 33 2C 37 |8,127,173,21,3,7|
00003F90: 33 2C 31 32 37 2C 31 34 31 2C 32 33 39 2C 31 32 |3,127,141,239,12|
00003FA0: 37 2C 39 36 2C 37 36 2C 32 35 35 2C 32 35 35 00 |7,96,76,255,255.|
00003FB0: CD 47 F0 F6 97 4D AA 39 30 2C C2 28 37 38 38 29 |.G...M.90,.(788)|
00003FC0: 3A 97 4D AA 39 31 2C C2 28 37 38 39 29 00 EB 47 |:.M.91,.(789)..G|
00003FD0: F4 F6 4B 45 59 B2 37 AC 34 30 39 36 AA 31 35 AC |..KEY.7.4096.15.|
00003FE0: 32 35 36 AA 31 33 AC 31 36 AA 38 00 09 48 F5 F6 |256.13.16.8..H..|
00003FF0: 9E 28 4B 45 59 29 3A 8F 20 4B 45 59 20 46 4F 52 |.(KEY):. KEY FOR|
00004000: 20 49 52 51 20 53 57 41 50 00 0F 48 43 F7 8E 00 | IRQ SWAP..HC...|
00004010: 2D 48 44 F7 8F 2A 53 57 49 54 43 48 20 54 4F 20 |-HD..*SWITCH TO |
00004020: 4E 45 57 20 57 4F 52 4B 53 50 41 43 45 00 45 48 |NEW WORKSPACE.EH|
00004030: 45 F7 8D 36 33 36 30 30 3A 8F 20 52 55 4E 20 4E |E..63600:. RUN N|
00004040: 55 4D 42 45 52 00 64 48 46 F7 8D 36 31 30 30 30 |UMBER.dHF..61000|
00004050: 3A 8F 20 4E 45 57 20 54 48 45 20 57 4F 52 4B 53 |:. NEW THE WORKS|
00004060: 50 41 43 45 00 6F 48 47 F7 89 36 33 34 30 33 00 |PACE.oHG..63403.|
00004070: 8D 48 A8 F7 8F 2A 53 57 49 54 43 48 20 54 4F 20 |.H...*SWITCH TO |
00004080: 4F 4C 44 20 57 4F 52 4B 53 50 41 43 45 00 98 48 |OLD WORKSPACE..H|
00004090: A9 F7 8D 36 33 36 30 30 00 B8 48 AB F7 53 57 54 |...63600..H..SWT|
000040A0: 43 48 B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 |CH.7.4096.15.256|
000040B0: AA 39 AC 31 36 AA 31 35 00 D5 48 AC F7 9E 28 53 |.9.16.15..H...(S|
000040C0: 57 54 43 48 29 3A 8F 20 53 57 41 50 20 50 4F 49 |WTCH):. SWAP POI|
000040D0: 4E 54 45 52 53 00 E2 48 AD F7 97 32 30 34 2C 32 |NTERS..H...204,2|
000040E0: 3A 80 00 F4 48 0C F8 8F 2A 52 45 53 54 4F 52 45 |:...H...*RESTORE|
000040F0: 20 50 45 54 00 09 49 0D F8 53 4E 24 B2 22 31 30 | PET..I..SN$."10|
00004100: 30 22 3A 8D 36 33 36 30 30 00 38 49 0E F8 4D B2 |0":.63600.8I..M.|
00004110: 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 32 |7.4096.15.256.12|
00004120: AC 31 36 AA 33 3A 8B C2 28 37 38 39 29 B2 37 AC |.16.3:..(789).7.|
00004130: 31 36 AA 31 35 A7 9E 4D 00 3E 49 0F F8 8E 00 56 |16.15..M.>I....V|
00004140: 49 70 F8 8F 2A 49 4E 53 45 52 54 20 52 55 4E 20 |Ip..*INSERT RUN |
00004150: 4E 55 4D 42 45 52 00 71 49 71 F8 4D B2 32 30 35 |NUMBER.qIq.M.205|
00004160: 39 3A 53 4E 24 B2 22 30 30 30 30 30 22 AA 53 4E |9:SN$."00000".SN|
00004170: 24 00 91 49 72 F8 81 49 B2 31 A4 35 3A 97 4D AB |$..Ir..I.1.5:.M.|
00004180: 49 2C C6 28 C9 28 53 4E 24 2C 49 29 29 3A 82 3A |I,.(.(SN$,I)):.:|
00004190: 8E 00 00 00 |.... |
.......00100......".......9...."......PO
NZO*1983*WATERLOO.F....".........D..5328
1,15:.53280,12:.".":.". ..C
64 TUTOR-2...E..".......................
................."...F..". .. M
ORE C64 BASIC .. .":MS$." WELC
OME! ".'.G.."...........................
..............".D.H.SN$."1000":.63200:.6
3600.V.I..60000:.59000.H....60000:.20000
......".IN THIS,THE 2ND PART OF "G(34)"T
UTOR"G(34).F...."WE'LL TALK ABOUT THE MA
NIPULATION OF".X...." STRINGS."......"
......."......".RECALL.: ANY VARIABLE W
HOSE NAME ENDS".B...."WITH A $ IS INTERP
RETED AS A STRING".L.$.."OF SYMBOLS, AND
NOT A NUMBER OR AN"......"INSTRUCTION."
...8..".SO..THE STATEMENT:"...B.."..A$="
G(34)"123*456/789"G(34)...L..".MEANS THA
T A$ IS THAT SET OF SYMBOLS!"...V.."
..".2.`.."(..AND I CERTAINLY W
ON'T EVALUATE A$)".[.J.."
........"...T.."NOW, ONE VERY
NICE SET OF SYMBOLS IS:"...~..".. . . .
... ... ... . ."............"WE'LL CALL
THEM S$(1), S$(2),..,S$(8)"......63000..
....".WE'LL TYPE:":......."10 S$(1)="G(3
4)"."......"20 S$(2)="G(34)".".G.D.."30
S$(3)="G(34)".".`.N.."40 S$(4)="G(34)"."
.{.S.."50 S$(5)="G(34)"..."...X.."60 S$(
6)="G(34)"..."......"70 S$(7)="G(34)"...
".L...."80 S$(8)="G(34)". ."......"
^THAT'S RVS-OFF"......"STRANGE?".
+...."WELL, THE 1ST 4 ARE ON THE KEYBOAR
D.".V...."THE LAST 4 ARE OBTAINED BY .RV
S.ING"....."THE CHARACTERS.....> .,.,.
,AND ".......32)"^"...(...31)".THAT'S A
"...2...31)".SPACE. ".Q.<.."..NOTE THAT
WE TURN"...F.."THE RVS OFF TOO!"...P.."
...".(.Z.."ALSO..WE DON'T NEED T
HE LAST QUOTES.".V.D.."I'LL UNDERSTAND T
HE "G(34)"RETURN"G(34)..N.."TO MEAN THE
END OF THE STATEMENT."...X..:.63000....
..".NOW I'LL PRINT THE STATEMENTS #10-80
"......"AGAIN, AND YOU CAN MOVE THE C'SO
R TO"... .."TO #10, THEN KEEP PRESSING R
ETURN,".<...."SO I'LL THINK YOU TYPED TH
EM,AND I'LL".U...."REMEMBER THEM....".E.
..."........".~...."10 S$(1)="G(34)"."..
...."20 S$(2)="G(34)"."......"30 S$(3)="
G(34)".".I...."40 S$(4)="G(34)"."......"
50 S$(5)="G(34)"..."......"60 S$(6)="G(3
4)"..."......"70 S$(7)="G(34)"...".5....
"80 S$(8)="G(34)". .".[."..:."WHEN YOU'V
E DONE THAT, TYPE:".N.,..:."LIST10-80"..
.6..:."..SO YOU'LL BE SURE I GOT THEM!".
..@..:." (TO CONTINUE....TYPE @.)".U
...SN$."02000":.63400...P..60000...Q..D$
(12),V(12).&.V.D$(1)."JAN":D$(2)."FEB":D
$(3)."MAR":D$(4)."APR".Z.W.D$(5)."MAY":D
$(6)."JUN":D$(7)."JUL":D$(8)."AUG"...X.D
$(9)."SEP":D$(10)."OCT":D$(11)."NOV":D$(
12)."DEC".E.>.V(1).10:V(2).15:V(3).20:V(
4).25:V(5).30:V(6).31...H.V(7).25:V(8).2
0:V(9).15:V(10).12:V(11).11:V(12).10. .R
..I.1.12:."."D$(I)"-"D(V(I))".";.7.\..J.
1.V(I):.". ";:..S.F..S$(8.(V(I)..(V(I)))
):..B.P..I.1.500:..U.Z..:." NICE?"...
..I.1.500:.......:." LET'S TRY IT!"...
...I.1.500:..T...."FIRST, WE'LL DEFINE T
HE STRINGS:".Z.........."M$(1)="G(34)"JA
N"G(34)......"M$(2)="G(34)"FEB"G(34)....
...(...."..ETC.".3....63000.<.J..".".K.T
.."..ACTUALLY, JUST TO DEMONSTRATE ANOTH
ER"......"TALENT OF MINE, WE'LL DO IT TH
IS WAY:".P....:."100 DATA "G(34)"JAN"G(3
4)","G(34)"FEB"G(34)",";......G(34)"MAR"
G(34)","G(34)"APR"G(34)","G(34)"MAY"G(34
).?...."101 DATA "G(34)"JUN"G(34)","G(34
)"JUL"G(34)",";.X....G(34)"AUG"G(34)","G
(34)"SEP"G(34)","G(34)"OCT"G(34)......"1
02 DATA "G(34)"NOV"G(34)","G(34)"DEC"G(3
4).W....:."THESE "G(34)"DATA"G(34)" STAT
EMENTS"...8.."DEFINE A NUMBER OF STRINGS
, CALLED"...B.."JAN,FEB,MAR,ETC..".+.L..
"NOW TYPE:".T.V..:.".103 FORI=1TO12:READ
M$(I):NEXT"...`..:."THIS "G(34)"READS"G
(34)" THE DATA STATEMENTS AND".D.J.."ASS
IGNS THE STRING "G(34)"JAN"G(34)" TO M$(
1),"...T.."AND THE STRING "G(34)"FEB"G(3
4)" TO M$(2)..ETC."...Y..63000.5.~..".YO
U'LL HAVE TO TELL ME HOW MANY OF THE".A.
...".M$(1),M$(2),ETC. YOU HAVE, SO I CAN
"......".LEAVE ROOM FOR THEM IN MY MEMOR
Y,"......".SO YOU'LL NEED A STATEMENT:".
F...."..90 DIM M$(12)"......".THIS SAYS:
THE DIMENSION OF THE ARRAY"......".OF S
TRINGS CALLED M$(I) IS 12".%.D..63000.B.
W.."....ALTOGETHER NOW!":..Q....I.1.500:
..Z....".90 DIM M$(12)
"......".100 DATA JAN,FEB,MAR,APR,MAY,J
UN".L.(..".101 DATA JUL,AUG,SEP,OCT,NOV,
DEC"...2..".102 FORI=1TO12:READ M$(I):NE
XT ".+.<.."..NOTE..........:IF .ALL. TH
E DATA ARE STRINGS".Q.A..".THEN YOU CAN
OMIT THE QUOTES!"...F..:."(DON'T ENTER T
HE STATEMENTS JUST YET)."...P..63000...Z
..".NOW YOU'LL WANT TO INPUT THE 12 VALU
ES"...D.."WHICH GIVE THE LENGTH OF THE B
ARS."...N.."TYPE:"...X..".105 FOR I=1TO1
2 ".1...."110?M$(I)"G(34)" VALUE="G(34
).K...."120 INPUT V(I) ".Y....:."NOTE
THAT#110 WILL PRINT A PROMPTING"......"
REMARK, SUCH AS:"......:."JAN VALUE=?"
......:.63000......"..QSINCE YOU'LL PRIN
T 150 OF S$(8)=. ."... .."(IF AN INPUT V
ALUE IS 150)AND I'VE".:...."GOT ONLY"WD"
COLUMNS ON MY SCREEN(!),".D...."YOU'D B
ETTER REDUCE ALL THE VALUES"......"SO TH
E LARGEST IS,SAY,30."...H.."SO..YOU'LL H
AVE TO FIND THE LARGEST.".P.I.."
...."...R..".QYOU SEE,WE'RE G
OING TO PRINT A "G(34)"BAR"G(34).5...."W
ITH A LENGTH PROPORTIONAL TO EACH V-".B.
..."INPUT,AND WE'LL DO THIS BY PRINTING
A"......"NUMBER OF . ._THESE,AND THEY'RE
S$(8)"......"...REMEMBER?"......63000:.
.D....".WE'LL TYPE:".W....".104 MAXV=0".
..".."130 IF MAXV<V(I) THEN MAXV=V(I)"..
.,..I.1.1000:..'.6..".THEN WE'LL HAVE:".
:.;..".104 MAXV=0".Q.@.."105 FOR I=1TO12
".V.J.."110 ?M$(I)"G(34)" VALUE="G(34)..
.T.."120 INPUT V(I)"......"130 IF MAXV<V
(I) THEN MAXV=V(I)".I....:."...HIT A KEY
"......A$:.A$."".2961......:."IN #130 WE
CHECK IF MAXV (ORIGINALLY 0)".4...."IS
LESS THAN.. < ..THE V-VALUE".A...."INPUT
. IF SO,WE SET MAXV=THE V-VALUE."......"
WHEN THE "G(34)"FOR-NEXT"G(34)" LOOP"...
B.."IS FINISHED, MAXV WILL EQUAL THE MAX
.".R.L.."OF THE V-VALUES!"...Q..63000...
V..".IF A VALUE IS, SAY,123456.7"......"
.THEN IT'LL TAKE UP 8 SPACES TO PRINT".W
....".AND WE'LL HAVE TO KNOW THIS,SO..".
.....".WHILE INPUTTING THE V'S & FINDING
"......".THEIR MAX'M VALUE, YOU CAN ALSO
FIND"......".THE MAX'M LENGTH OF THE NU
MBERS V(I)."......" ......"....
..63000.+.&.."..FIRST WE'LL CHANGE THE N
UMBER V(I)".P.0.."
......".O.:.."TO A STRING OF SYMBOLS,".
..D.." ......"...N.."BY SETTING: X$=
STR$(V(I))".L.B..".THEN WE'LL FIND THE L
ENGTH OF X$".R.C.....L.."L=LEN(X$)"...Q.
.63000.. V.."..WE TYPE:".# ..."140 X$=ST
R$(V(I)):L=LEN(X$)".3 ...I.1.1000:..K ..
."...OR,WHY NOT?..".I ...".140 L=LEN(STR
$(V(I)))".. ..."..NOTE THAT .STR$(V). CH
ANGES A NUMBER".. ..."V TO A STRING OF C
HARACTERS!".. ..."...AND .LEN(V$). GIVES
THE LENGTH OF ".. ..."A STRING V$!"..!.
..63000.B!...".TO FIND THE MAX'M "G(34)"
LENGTH"G(34)" OF THE V'S,".O!..."TYPE:".
M!F..".150 IF ML<L THEN ML=L"..!P.."..(J
UST AS WE DID TO FIND THE MAX'M VALUE)".
.!Z..63000.P!...".NOW WE END THE FOR-NEX
T LOOP!"..!..."... ........".
."...".160 NEXT".."...63000.."...". WHA
T HAVE WE GOT SO FAR?".="...I.1.500:..X"
..."90 DIM M$(12),V(12)".."..."100 DATA
JAN,FEB,MAR,APR,MAY,JUN".."H.."101 DATA
JUL,AUG,SEP,OCT,NOV,DEC".H"..."102 FORI=
1TO12:READ M$(I).."..."104 MAXV=0:ML=0".
."..."105 FOR I=1TO12"..#".."110 ?M$(I)"
G(34)" VALUE="G(34).1#,.."120 INPUT V(I)
".X#B.."130 IF MAXV<V(I) THEN MAXV=V(I)"
.U#>.."140 L=LEN(STR$(V(I)))"..#H.."150
IF ML<L THEN ML=L"..#..."160 NEXT".O#...
:."NOTE THAT WE'VE ADDED THE DIMENSION".
.#..."OF THE V'S, IN #90."..$..."WE'VE A
LSO STARTED ML,(THE MAX'M LENGTH".F$..."
OF THE V'S),WITH THE VALUE 0..IN#104.".Q
$J..63000.Y$T..".OK..YOU ENTER THESE STA
TEMENTS."..$..." ..."..$..."TYPE .RUN
. TO START YOUR PROGRAM,".T$..."AND SEE
IF IT WORKS SO FAR!"..%...".AFTER ENTERI
NG 12 NUMBERS,WHEN ASKED,"..%..."YOU CAN
TYPE: ".&%...".?V(3)".V%...".AND I'LL P
RINT THE MARCH VALUE ENTERED."..%$.."WHE
N YOU WANT TO CONTINUE, TYPE .@"..%..."H
ERE'S THE PROGRAM AGAIN:"..%B..63000.Z%V
..".REMEMBER,YOU NEEDN'T RETYPE ALL THIS
!"..&`.."JUST PRESS HOME AND A BUNCH OF
RETURNS.".6&J.." ....
......".A&O..:."(..AND I'LL THINK
YOU TYPED THEM)".L&T..63000.V&~..".";..
&Z!."90 DIM M$(12),V(12)"..&.!."100 DATA
JAN,FEB,MAR,APR,MAY,JUN"..&.!."101 DATA
JUL,AUG,SEP,OCT,NOV,DEC"..'.!:."102 FOR
I=1TO12:READ M$(I):NEXT"..'.!."104 MAXV=
0:ML=0".6'.!."105 FOR I=1TO12".['.!."110
?M$(I)"G(34)" VALUE="G(34).Q'.!."120 IN
PUT V(I)"..'."."130 IF MAXV<V(I) THEN MA
XV=V(I)"..'.$."140 L=LEN(STR$(V(I)))".R'
.$."150 IF ML<L THEN ML=L"..'H$."160 NEX
T"..(R$.".(REMEMBER...TYPE @. TO CONT.)"
..(|$SN$."10000":.63400.E(.'.60000:.".OK
..LET'S FORGE AHEAD!".`(.'MS$."GO!GO!GO!
":.63100.K(.'.63000..(.'.".WE'LL START P
RINTING THE BARS."..($'."TYPE:"..(.'.:."
170 FORI=1TO12..(8'."180 ?"G(34)"."G(34)
"M$(I)"G(34)"-"G(34)";..(B'."190 L$=STR$
(V(I))..)L'."200 L=LEN(L$).@)J'."230 ?"G
(34)"."G(34)"L$"G(34)"."G(34)";".Z)T'."2
40 S=V(I)*30/MAXV".W)~'."250 IS=INT(S):F
S=S-IS"..).'."260 FORJ=1TOIS:?S$(8);:NEX
T"..).'."270 ?S$(8*FS)"..).'."280 NEXT".
.).'.:."#180 PRINTS(IN RVS)THE MONTH,AND
A -."..*.'."#190/200 CONVERTS THE VALUE
V(I) TO A".C*.'." STRING (L$),AND DETE
RMINES THE".F*D'." LENGTH OF THE STRING
(L)."..*I'."#230 PRINTS L$ AND A ..."..
*N'."#240 REDUCES THE VALUE OF THE V'S S
O"..*X'." THE LARGEST IS 30. THE REDUCE
D VALUE"..*.'." IS CALLED S."..+.'.".HI
T A KEY."..+.'.A$:.A$."".10230.M+.(.:."#
250 GETS THE INTEGER PART OF S..(IS)".Y+
.(." AND THE FRACTIONAL PART OF S..(FS)
"..+.(."#260 PRINTS A BUNCH OF . .'S".K+
.(."#270 PRINTS THE FINAL FRACTIONAL PIE
CE"..+((." OF S$(8),NAMELY S$(1) OR S$(
2)..ETC.".',2(." ACCORDING TO THE SIZE
OF THE FRACT'L".F,<(." PART OF S, NAMEL
Y FS.".Q, (.63000.S,.(.".PLEASE ENTER TH
E PROGRAM."..,.(.".I'LL PUT IT RIGHT AFT
ER THE STATEMENTS".Q,H(.".#99-#160. AFT
ER YOU HAVE ENTERED IT.."..,R(."..TRY IT
.!"..-.(.".IN PARTICULAR, ENTER VALUES".
2-.(.".WHICH HAVE DIFFERENT LENGTHS,LIKE
:".H-.(.".123 AND 1234.".X-.(.".(THEN YO
U'LL SEE WE'VE GOT SOME WORK TO"..-.)."D
O ON THE PROGRAM!)"..-H)."..SEE IF YOU C
AN FIX IT.!".X-R).".(THEN TYPE .@. TO CO
NTINUE)"..-.)."...RETURN. TO GET THE PRO
GRAM"....).63001."..).".HERE IT IS AGAIN
.".1..).I.1.500:..:..*.".".Q..+.:."170 F
ORI=1TO12... +."180 ?"G(34)"."G(34)"M$(I
)"G(34)"-"G(34)";...*+."190 L$=STR$(V(I)
)...4+."200 L=LEN(L$)...R+."230 ?"G(34)"
."G(34)"L$"G(34)"."G(34)";"...\+."240 S=
V(I)*30/MAXV"../F+."250 IS=INT(S):FS=S-I
S".5/P+."260 FORJ=1TOIS:?S$(8);:NEXT".J/
Z+."270 ?S$(8*FS)".Z/.+."280 NEXT".W/.+.
:."(TYPE .@. TO CONT.)"../.+SN$."12000":
.63400../...60000:.".": MS$."WORK TO DO
":.63100../...".YOU CAN SEE HOW IMPORTAN
T THE LENGTH"..0..."OF THE VALUES IS! IN
FACT THAT'S WHY I".?0..."ASKED YOU TO I
NCLUDE THE STATEMENTS:".X0...".190L$=STR
$(V(I))".L0./."200L=LEN(L$)"..0./."..THE
PROGRAM DIDN'T EVEN USE THEM!."..0./.".
NOW ...".K0!/."WE'LL INSERT #210 & #220:
":...0&/.".210 IF L=ML GOTO230..10/."220
FORJ=1TOML-L:?S$(8);:NEXT.81:/."230 ?"G
(34)"."G(34)"L$"G(34)"."G(34)";".R1D/."2
40 S=V(I)*30/MAXV".`1N/."ETC.":..S1X/.".
HIT A KEY."..1B/.A$:.A$."".12130..1L/.:.
"IF THE VALUE ABOUT TO BE PRINTED"..1V/.
"IS "G(34)"SHORT"G(34)",WE INSERT SOME .
.'S"..2./."SO EVERY PRINTING OF THE V'S
HAS THE".,2./."SAME NO. OF SPACES.".\2.
/."#220 INSERTS THESE . .'S BEFORE PRINT
ING"..2./."THE VALUE,IN #230(CALLED L$).
"..2./."IF THE VALUE ABOUT TO BE PRINTED
HAS"..2./."MAX'M LENGTH (L=ML) WE OMIT
THE . .'S."..2./." ....."..2./.63000..3
F/."..FINALLY.,IN A FOR-NEXT LOOP".C3P/.
"I ALWAYS OBEY THE INST'NS BETWEEN".N3Z/
." "G(34)"FOR"G(34)" AND "G(34)"NEXT"..
3./."AT LEAST ONCE BEFORE CHECKING IF I'
VE"..3./."DONE THEM OFTEN ENOUGH!"..3./.
".THAT MEANS THAT,IN A LOOP SUCH AS:"..3
.0.".260 FOR J=1 TO IS".'4.0.:."I'LL OBE
Y THE NEXT INST'N ONCE".R4.0."EVEN IF "G
(34)"IS"G(34)" IS ZERO(!)".~4 0."SO YOU
MUST CHECK FOR: IS=0 LIKE SO:"..4*0.".25
5 IF IS=0 GO TO 270".M440.".THEN,IN #270
,YOU PRINT THE FRACT'L PIECE"..4>0."OF S
$(8) ONLY."..4H0.63000..5R0."THE "G(34)"
FINISHED"G(34)" PRODUCT IS:".35.2.:."170
FORI=1TO12.C5.2."180 ?"G(34)"."G(34)"M$
(I)"G(34)"-"G(34)";.{5.2."190 L$=STR$(V(
I))..5.3."200 L=LEN(L$)..5.3."210 IF L=M
L GOTO230.M5.3."220 FORJ=1TOML-L:?S$(8);
:NEXT..5"3."230 ?"G(34)"."G(34)"L$"G(34)
"."G(34)";";..6#3.G(34)"."G(34)";".,6,3.
"240 S=V(I)*30/MAXV".I663."250 IS=INT(S)
:FS=S-IS".B6;3."255 IFIS=0GOTO270"..6@3.
"260 FORJ=1TOIS:?S$(8);:NEXT"..6J3."270
?S$(8*FS)"..6T3."280 NEXT".W6Y3.:."(NOTE
THAT #230 INCLUDES A RVS-OFF)"..7^3.:."
ENTER THESE STATEMENTS AND .TRY IT"."7H3
."..TYPE .@. TO CONTINUE.".97R3SN$."1500
0":.63400.`7.:.60000:.".":MS$."IT WORKS!
":.63100..7.:."...LET ME SAY ONE LAST TH
ING..ABOUT .GET.."..7.:.:."YOU MAY TYPE
THINGS ON THE KEYBOARD"..7.:.:."WHILE I'
M BUSY DOING SOMETHING..."..8.:.:."AND I
'LL KEEP UP TO 10 KEYPUNCHES IN A".68.:.
:."'KEYBOARD BUFFER'.".G8.:.:."WHEN I RE
TURN TO 'GET' THE NEXT INST'N "..8.:.:."
FROM THE KEYBOARD I'LL CHECK THE BUFFER"
.B8.:.:."AND TAKE THE ENTRIES FROM THERE
."..8.:.:."(IN FACT I ALWAYS TAKE KEYBOA
RD INPUT"..9.:.:."FROM THE KEYBOARD BUFF
ER)."."9.:.:.63000.Q9.:.".WHEN WRITING A
PROGRAM YOU CAN INCLUDE".L9E:.:."A STAT
EMENT LIKE:"..9J:.:.".100 GETA$:IFA$="G(
34)G(34) "GOTO100".I9T:.:."THAT SAYS:'GE
T' A CHARACTER FROM THE "..9Y:.".KEYBOAR
D BUFFER,IF THE CH'R IS .NULL.".%:.:.:."
(SEE..'NOTHING' BETWEEN THE QUOTES!)".A:
.:.:."THEN KEEP TRYING!!".P:.:.:.:.63000
.M:.:.".TO EMPTY THE BUFFER:"..:.:.:.".1
00 FORI=1TO10:GETA$:NEXT".B:.:.:."..TAKI
NG 10 CHARACTERS FROM THE BUFFER."..:.:.
:."THAT'S ENOUGH TO EMPTY IT!"..;.:.:.".
.OR YOU CAN HAVE:".0;.;.:.".100 GETA$:IF
A$<>"G(34)G(34)"THEN100"._;.;.".THIS WIL
L 'GET' A CHARACTER UNTIL THE ".X;.;.".B
UFFER IS EMPTY."..;.;.:.63000..;.;."..DU
RING .TUTOR. YOU MAY HAVE NOTICED:".X;.;
.".'HIT .RETURN. TO CONTINUE.'."..<$;.".
THE LITTLE SUBROUTINE WHICH PRINTS"..<);
.".THIS AT THE BOTTOM OF THE SCREEN..".I
<*;.".THEN WAITS!..IS:..".T<.;.63000..<=
;.".":MS$.".AU REVOIR!.":.63100:.63500:.
"."..<B;.63000.63003..< N.".".J<%N.". BE
FORE I FORGET, I SHOULD INTRODUCE"..<*N.
".MY FRIEND"G(34)"CURSOR"G(34)"."..=/N.I
.1.1000:..-=0NWD.80:.32768.1024,96:.B(32
768).96.WD.40.Q=4N."I CALL HIM .CRSR. FO
R SHORT.".A=9N.I.1.1500:...=>N.".COME ON
CRSR..DON'T BE SHY."..=HN.I.1.2000:...=
RN.I.1.10..=\N.".";:...=FN..14);.M=PN.I.
1.8:.T.1.50:...=ZN." ... ..";:...=.N.I.1
.500:...>.N.". _THAT'S HIM".5>.NCSR.3276
8.8.WD.14:.I.1.100:.CSR,32:.CSR,160:..U>
.N.".THEN WE HAVE CRSR-LEFT";.M>.N." "
G(34)"."G(34).~>.N.I.1.500:.:...>.N."AND
CRSR-RIGHT";..>.N." "G(34)"."G(34).
.>AN.I.1.500:.:..T>JN."AND CRSR-UP";..>T
N." "G(34)"."G(34)..>UN.I.1.500:.:..
.?.N."AND CRSR-DOWN";./?.N." "G(34)"
."G(34).A?.N.I.1.1500:.:..B?.N."(ALL BRO
THERS,OF COURSE).".T?.N.I.1.1000:.:...?.
N."WE ALSO HAVE HOME";..?.O." "G(34)"
."G(34)..?.O.I.1.200:..L?.O."..AND CLEAR
";..?.O." "G(34)"."G(34)..?.O.I.1.2
00:...@$O."..AND RVS "G(34)"."G(34).
&@%O.I.1.200:..L@.O."..AND RVS-OFF "G
(34)"."G(34).]@8O.I.1.500:.:..{@BO.">>>G
ET TO KNOW THEM<<<"..@GO.I.1.200:.:...@L
O."INSIDE QUOTES,THEY DO THEIR THING.".G
@.O.I.1.500:.:..T@.P.63000:...@@[.63000.
.@X..".":.63100..AY..".DURING THE TUTORI
AL YOU MAY WISH".@AZ..".TO RETURN TO AN
EARLIER 'PAGE'.".KA{..".JUST .HIT THE @-
KEY., AT ANY TIME,"..A|..".AND THE TUTOR
IAL WILL BACK UP"..A}..".A PAGE OR TWO."
.QA~..".ALSO, YOU HAVE AN OPPORTUNITY TO
"..A..".COMPOSE YOUR OWN PROGRAMS."..B.
..".WHEN YOU WISH TO CONTINUE WITH".IB..
.".THE TUTORIAL, .HIT THE @-KEY.!":.6300
0.GB..MS$.".@._REMEMBER":.63100.TB...630
00:...B`..204,1:. INITIALIZE..BA.BT$."."
:.I.1.24:BT$.BT$.".":...BB.PT$."........
........................................
...............".@CC.PT$.PT$."..........
....N............M................======
======.".|CD.PT$.PT$."...............PO.
.........PO................"..CE.PT$.BT$
."................................".PT$.
"."..CG.ML$."...........................
.........."..CH.WD.40:CRT.1024:.G(142)."
DI.W2.WD.2:W3.WD.1:W1$.J(D(WD),2):.DDJ.W
2$.J(D(W2),2):W3$.J(D(W3),2).FDT..".":.5
3281,15:.53280,12:."."..DF..B(789)..7.16
.15..(7.4096.15.256.12.16.3)..DG....DH..
*NEW WORKSPACE.HDI.M.7.4096.15.256.15.16
.NDJ....DK..I.M.M.15:.K:.I,K:...EL.. 1,9
6,3,96,3,96,3,96..EM.. 144,127,0,0,144,1
27,0,0.;EN.M.6.4096:.I.0.2:.M.I,0:..AEO.
..ZE..."........................HIT .RET
URN. TO CONTINUE";..E...A$:.A$.."".63001
..E...A$:.A$."".63002..E...:..AE|..T.1.5
:.PT$MS$;.WE}..PT$" ";..E~..PT$
MS$;:...E..:...F...56,96:.52,96:.55,0:.
51,0:.61000.%F..WD.40:.G(142).>F..M.7.40
96.15.256.9.16.VF...I.M.M.91:.K:.I,K:...
F...165,203,201,46,208,83,32,195,127,165
,44,201,8,240,3,32,177,127,32..F...142,1
66,165,44,201,8,240,3,76,128,164,76,174,
167,162,16,189,239.+G...127,72,181,42,15
7,239,127,104,149,42,202,208,241,96,120,
173,238,127.PG...77,20,3,141,20,3,173,23
9,127,77,21,3,141,21,3,88,96,173,20,3,73
..G...144,141,238,127,173,21,3,73,127,14
1,239,127,96,76,255,255.MG...M.90,B(788)
:.M.91,B(789)..G..KEY.7.4096.15.256.13.1
6.8..H...(KEY):. KEY FOR IRQ SWAP..HC...
-HD..*SWITCH TO NEW WORKSPACE.EHE..63600
:. RUN NUMBER.DHF..61000:. NEW THE WORKS
PACE.OHG..63403..H...*SWITCH TO OLD WORK
SPACE..H...63600..H..SWTCH.7.4096.15.256
.9.16.15.UH...(SWTCH):. SWAP POINTERS..H
...204,2:...H...*RESTORE PET..I..SN$."10
0":.63600.8I..M.7.4096.15.256.12.16.3:.B
(789).7.16.15..M.>I....VIP..*INSERT RUN
NUMBER.QIQ.M.2059:SN$."00000".SN$..IR..I
.1.5:.M.I,F(I(SN$,I)):.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL