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 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
4d6ccf070ac4ea0e598279f7939611f15aaa8c41f2580dbc931784898a280719
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TUTORIALS C | PONZO TUTOR-2.64 | PRG | DuncanTwain | 19 | 0 | 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 CE 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 3A 20 4E 45 58 54 00 E5 |AD M$(I): NEXT..|
00001AD0: 22 F0 19 99 22 31 30 34 20 4D 41 58 56 3D 30 3A |"..."104 MAXV=0:|
00001AE0: 4D 4C 3D 30 22 00 FC 22 18 1A 99 22 31 30 35 20 |ML=0".."..."105 |
00001AF0: 46 4F 52 20 49 3D 31 54 4F 31 32 22 00 21 23 22 |FOR I=1TO12".!#"|
00001B00: 1A 99 22 31 31 30 20 3F 4D 24 28 49 29 22 C7 28 |.."110 ?M$(I)".(|
00001B10: 33 34 29 22 20 56 41 4C 55 45 3D 22 C7 28 33 34 |34)" VALUE=".(34|
00001B20: 29 00 37 23 2C 1A 99 22 31 32 30 20 49 4E 50 55 |).7#,.."120 INPU|
00001B30: 54 20 56 28 49 29 22 00 5E 23 C2 1A 99 22 31 33 |T V(I)".^#..."13|
00001B40: 30 20 49 46 20 4D 41 58 56 3C 56 28 49 29 20 54 |0 IF MAXV<V(I) T|
00001B50: 48 45 4E 20 4D 41 58 56 3D 56 28 49 29 22 00 7B |HEN MAXV=V(I)".{|
00001B60: 23 3E 1C 99 22 31 34 30 20 4C 3D 4C 45 4E 28 53 |#>.."140 L=LEN(S|
00001B70: 54 52 24 28 56 28 49 29 29 29 22 00 98 23 48 1C |TR$(V(I)))"..#H.|
00001B80: 99 22 31 35 30 20 49 46 20 4D 4C 3C 4C 20 54 48 |."150 IF ML<L TH|
00001B90: 45 4E 20 4D 4C 3D 4C 22 00 A8 23 98 1C 99 22 31 |EN ML=L"..#..."1|
00001BA0: 36 30 20 4E 45 58 54 22 00 D5 23 A2 1C 99 3A 99 |60 NEXT"..#...:.|
00001BB0: 22 4E 4F 54 45 20 54 48 41 54 20 57 45 27 56 45 |"NOTE THAT WE'VE|
00001BC0: 20 41 44 44 45 44 20 54 48 45 20 44 49 4D 45 4E | ADDED THE DIMEN|
00001BD0: 53 49 4F 4E 22 00 F0 23 AC 1C 99 22 4F 46 20 54 |SION"..#..."OF T|
00001BE0: 48 45 20 56 27 53 2C 20 49 4E 20 23 39 30 2E 22 |HE V'S, IN #90."|
00001BF0: 00 1F 24 B6 1C 99 22 57 45 27 56 45 20 41 4C 53 |..$..."WE'VE ALS|
00001C00: 4F 20 53 54 41 52 54 45 44 20 4D 4C 2C 28 54 48 |O STARTED ML,(TH|
00001C10: 45 20 4D 41 58 27 4D 20 4C 45 4E 47 54 48 22 00 |E MAX'M LENGTH".|
00001C20: 4C 24 C0 1C 99 22 4F 46 20 54 48 45 20 56 27 53 |L$..."OF THE V'S|
00001C30: 29 2C 57 49 54 48 20 54 48 45 20 56 41 4C 55 45 |),WITH THE VALUE|
00001C40: 20 30 2E 2E 49 4E 23 31 30 34 2E 22 00 57 24 CA | 0..IN#104.".W$.|
00001C50: 1C 8D 36 33 30 30 30 00 7F 24 D4 1C 99 22 11 4F |..63000..$...".O|
00001C60: 4B 2E 2E 59 4F 55 20 45 4E 54 45 52 20 54 48 45 |K..YOU ENTER THE|
00001C70: 53 45 20 53 54 41 54 45 4D 45 4E 54 53 2E 22 00 |SE STATEMENTS.".|
00001C80: 8E 24 DE 1C 99 22 20 20 20 20 A3 A3 A3 22 00 B7 |.$..." ..."..|
00001C90: 24 E8 1C 99 22 54 59 50 45 20 12 52 55 4E 92 20 |$..."TYPE .RUN. |
00001CA0: 54 4F 20 53 54 41 52 54 20 59 4F 55 52 20 50 52 |TO START YOUR PR|
00001CB0: 4F 47 52 41 4D 2C 22 00 DA 24 F2 1C 99 22 41 4E |OGRAM,"..$..."AN|
00001CC0: 44 20 53 45 45 20 49 46 20 49 54 20 57 4F 52 4B |D SEE IF IT WORK|
00001CD0: 53 20 53 4F 20 46 41 52 21 22 00 08 25 FC 1C 99 |S SO FAR!"..%...|
00001CE0: 22 11 41 46 54 45 52 20 45 4E 54 45 52 49 4E 47 |".AFTER ENTERING|
00001CF0: 20 31 32 20 4E 55 4D 42 45 52 53 2C 57 48 45 4E | 12 NUMBERS,WHEN|
00001D00: 20 41 53 4B 45 44 2C 22 00 1E 25 06 1D 99 22 59 | ASKED,"..%..."Y|
00001D10: 4F 55 20 43 41 4E 20 54 59 50 45 3A 20 22 00 2C |OU CAN TYPE: ".,|
00001D20: 25 10 1D 99 22 11 3F 56 28 33 29 22 00 5C 25 1A |%...".?V(3)".\%.|
00001D30: 1D 99 22 11 41 4E 44 20 49 27 4C 4C 20 50 52 49 |..".AND I'LL PRI|
00001D40: 4E 54 20 54 48 45 20 4D 41 52 43 48 20 56 41 4C |NT THE MARCH VAL|
00001D50: 55 45 20 45 4E 54 45 52 45 44 2E 22 00 86 25 24 |UE ENTERED."..%$|
00001D60: 1D 99 22 57 48 45 4E 20 59 4F 55 20 57 41 4E 54 |.."WHEN YOU WANT|
00001D70: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 54 59 | TO CONTINUE, TY|
00001D80: 50 45 20 12 40 22 00 8E 25 29 1D 99 3A 99 00 99 |PE .@"..%)..:...|
00001D90: 25 2E 1D 8D 36 33 30 30 30 00 BB 25 42 1D 99 22 |%...63000..%B.."|
00001DA0: 93 48 45 52 45 27 53 20 54 48 45 20 50 52 4F 47 |.HERE'S THE PROG|
00001DB0: 52 41 4D 20 41 47 41 49 4E 3A 22 00 E8 25 56 1D |RAM AGAIN:"..%V.|
00001DC0: 99 22 52 45 4D 45 4D 42 45 52 2C 59 4F 55 20 4E |."REMEMBER,YOU N|
00001DD0: 45 45 44 4E 27 54 20 52 45 54 59 50 45 20 41 4C |EEDN'T RETYPE AL|
00001DE0: 4C 20 54 48 49 53 21 22 00 17 26 60 1D 99 22 4A |L THIS!"..&`.."J|
00001DF0: 55 53 54 20 50 52 45 53 53 20 48 4F 4D 45 20 41 |UST PRESS HOME A|
00001E00: 4E 44 20 41 20 42 55 4E 43 48 20 4F 46 20 52 45 |ND A BUNCH OF RE|
00001E10: 54 55 52 4E 53 2E 22 00 44 26 6A 1D 99 22 20 20 |TURNS.".D&j.." |
00001E20: 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 20 20 20 | .... |
00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 | ...|
00001E40: A3 A3 A3 22 00 6F 26 6F 1D 99 3A 99 22 28 2E 2E |...".o&o..:."(..|
00001E50: 41 4E 44 20 49 27 4C 4C 20 54 48 49 4E 4B 20 59 |AND I'LL THINK Y|
00001E60: 4F 55 20 54 59 50 45 44 20 54 48 45 4D 29 22 00 |OU TYPED THEM)".|
00001E70: 7A 26 74 1D 8D 36 33 30 30 30 00 84 26 7E 1D 99 |z&t..63000..&~..|
00001E80: 22 93 22 3B 00 9F 26 7A 21 99 22 39 30 20 44 49 |".";..&z!."90 DI|
00001E90: 4D 20 4D 24 28 31 32 29 2C 56 28 31 32 29 22 00 |M M$(12),V(12)".|
00001EA0: C7 26 84 21 99 22 31 30 30 20 44 41 54 41 20 4A |.&.!."100 DATA J|
00001EB0: 41 4E 2C 46 45 42 2C 4D 41 52 2C 41 50 52 2C 4D |AN,FEB,MAR,APR,M|
00001EC0: 41 59 2C 4A 55 4E 22 00 EF 26 98 21 99 22 31 30 |AY,JUN"..&.!."10|
00001ED0: 31 20 44 41 54 41 20 4A 55 4C 2C 41 55 47 2C 53 |1 DATA JUL,AUG,S|
00001EE0: 45 50 2C 4F 43 54 2C 4E 4F 56 2C 44 45 43 22 00 |EP,OCT,NOV,DEC".|
00001EF0: 16 27 B6 21 3A 99 22 31 30 32 20 46 4F 52 49 3D |.'.!:."102 FORI=|
00001F00: 31 54 4F 31 32 3A 52 45 41 44 20 4D 24 28 49 29 |1TO12:READ M$(I)|
00001F10: 3A 4E 45 58 54 22 00 2D 27 C0 21 99 22 31 30 34 |:NEXT".-'.!."104|
00001F20: 20 4D 41 58 56 3D 30 3A 4D 4C 3D 30 22 00 44 27 | MAXV=0:ML=0".D'|
00001F30: E8 21 99 22 31 30 35 20 46 4F 52 20 49 3D 31 54 |.!."105 FOR I=1T|
00001F40: 4F 31 32 22 00 69 27 F2 21 99 22 31 31 30 20 3F |O12".i'.!."110 ?|
00001F50: 4D 24 28 49 29 22 C7 28 33 34 29 22 20 56 41 4C |M$(I)".(34)" VAL|
00001F60: 55 45 3D 22 C7 28 33 34 29 00 7F 27 FC 21 99 22 |UE=".(34)..'.!."|
00001F70: 31 32 30 20 49 4E 50 55 54 20 56 28 49 29 22 00 |120 INPUT V(I)".|
00001F80: A6 27 92 22 99 22 31 33 30 20 49 46 20 4D 41 58 |.'."."130 IF MAX|
00001F90: 56 3C 56 28 49 29 20 54 48 45 4E 20 4D 41 58 56 |V<V(I) THEN MAXV|
00001FA0: 3D 56 28 49 29 22 00 C3 27 0E 24 99 22 31 34 30 |=V(I)"..'.$."140|
00001FB0: 20 4C 3D 4C 45 4E 28 53 54 52 24 28 56 28 49 29 | L=LEN(STR$(V(I)|
00001FC0: 29 29 22 00 E0 27 18 24 99 22 31 35 30 20 49 46 |))"..'.$."150 IF|
00001FD0: 20 4D 4C 3C 4C 20 54 48 45 4E 20 4D 4C 3D 4C 22 | ML<L THEN ML=L"|
00001FE0: 00 F0 27 68 24 99 22 31 36 30 20 4E 45 58 54 22 |..'h$."160 NEXT"|
00001FF0: 00 16 28 72 24 99 22 11 28 52 45 4D 45 4D 42 45 |..(r$.".(REMEMBE|
00002000: 52 2E 2E 12 54 59 50 45 20 40 92 20 54 4F 20 43 |R...TYPE @. TO C|
00002010: 4F 4E 54 2E 29 22 00 2D 28 7C 24 53 4E 24 B2 22 |ONT.)".-(|$SN$."|
00002020: 31 30 30 30 30 22 3A 89 36 33 34 30 30 00 53 28 |10000":.63400.S(|
00002030: 10 27 8D 36 30 30 30 30 3A 99 22 93 4F 4B 2E 2E |.'.60000:.".OK..|
00002040: 4C 45 54 27 53 20 46 4F 52 47 45 20 41 48 45 41 |LET'S FORGE AHEA|
00002050: 44 21 22 00 6E 28 11 27 4D 53 24 B2 22 47 4F 21 |D!".n(.'MS$."GO!|
00002060: 47 4F 21 47 4F 21 22 3A 8D 36 33 31 30 30 00 79 |GO!GO!":.63100.y|
00002070: 28 12 27 8D 36 33 30 30 30 00 A0 28 1A 27 99 22 |(.'.63000..(.'."|
00002080: 93 57 45 27 4C 4C 20 53 54 41 52 54 20 50 52 49 |.WE'LL START PRI|
00002090: 4E 54 49 4E 47 20 54 48 45 20 42 41 52 53 2E 22 |NTING THE BARS."|
000020A0: 00 AD 28 24 27 99 22 54 59 50 45 3A 22 00 C4 28 |..($'."TYPE:"..(|
000020B0: 2E 27 99 3A 99 22 31 37 30 20 46 4F 52 49 3D 31 |.'.:."170 FORI=1|
000020C0: 54 4F 31 32 00 F4 28 38 27 99 22 31 38 30 20 3F |TO12..(8'."180 ?|
000020D0: 22 C7 28 33 34 29 22 12 22 C7 28 33 34 29 22 4D |".(34)".".(34)"M|
000020E0: 24 28 49 29 22 C7 28 33 34 29 22 2D 22 C7 28 33 |$(I)".(34)"-".(3|
000020F0: 34 29 22 3B 00 0C 29 42 27 99 22 31 39 30 20 4C |4)";..)B'."190 L|
00002100: 24 3D 53 54 52 24 28 56 28 49 29 29 00 20 29 4C |$=STR$(V(I)). )L|
00002110: 27 99 22 32 30 30 20 4C 3D 4C 45 4E 28 4C 24 29 |'."200 L=LEN(L$)|
00002120: 00 4E 29 6A 27 99 22 32 33 30 20 3F 22 C7 28 33 |.N)j'."230 ?".(3|
00002130: 34 29 22 12 22 C7 28 33 34 29 22 4C 24 22 C7 28 |4)".".(34)"L$".(|
00002140: 33 34 29 22 A7 22 C7 28 33 34 29 22 3B 22 00 68 |34)".".(34)";".h|
00002150: 29 74 27 99 22 32 34 30 20 53 3D 56 28 49 29 2A |)t'."240 S=V(I)*|
00002160: 33 30 2F 4D 41 58 56 22 00 85 29 7E 27 99 22 32 |30/MAXV"..)~'."2|
00002170: 35 30 20 49 53 3D 49 4E 54 28 53 29 3A 46 53 3D |50 IS=INT(S):FS=|
00002180: 53 2D 49 53 22 00 A8 29 88 27 99 22 32 36 30 20 |S-IS"..).'."260 |
00002190: 46 4F 52 4A 3D 31 54 4F 49 53 3A 3F 53 24 28 38 |FORJ=1TOIS:?S$(8|
000021A0: 29 3B 3A 4E 45 58 54 22 00 BD 29 92 27 99 22 32 |);:NEXT"..).'."2|
000021B0: 37 30 20 3F 53 24 28 38 2A 46 53 29 22 00 CD 29 |70 ?S$(8*FS)"..)|
000021C0: 9C 27 99 22 32 38 30 20 4E 45 58 54 22 00 FC 29 |.'."280 NEXT"..)|
000021D0: A6 27 99 3A 99 22 23 31 38 30 20 50 52 49 4E 54 |.'.:."#180 PRINT|
000021E0: 53 28 49 4E 20 52 56 53 29 54 48 45 20 4D 4F 4E |S(IN RVS)THE MON|
000021F0: 54 48 2C 41 4E 44 20 41 20 2D 2E 22 00 29 2A B0 |TH,AND A -.".)*.|
00002200: 27 99 22 23 31 39 30 2F 32 30 30 20 43 4F 4E 56 |'."#190/200 CONV|
00002210: 45 52 54 53 20 54 48 45 20 56 41 4C 55 45 20 56 |ERTS THE VALUE V|
00002220: 28 49 29 20 54 4F 20 41 22 00 51 2A BA 27 99 22 |(I) TO A".Q*.'."|
00002230: 20 20 53 54 52 49 4E 47 20 28 4C 24 29 2C 41 4E | STRING (L$),AN|
00002240: 44 20 44 45 54 45 52 4D 49 4E 45 53 20 54 48 45 |D DETERMINES THE|
00002250: 22 00 74 2A C4 27 99 22 20 20 4C 45 4E 47 54 48 |".t*.'." LENGTH|
00002260: 20 4F 46 20 54 48 45 20 53 54 52 49 4E 47 20 28 | OF THE STRING (|
00002270: 4C 29 2E 22 00 94 2A C9 27 99 22 23 32 33 30 20 |L)."..*.'."#230 |
00002280: 50 52 49 4E 54 53 20 4C 24 20 41 4E 44 20 41 20 |PRINTS L$ AND A |
00002290: 12 A7 92 22 00 C0 2A CE 27 99 22 23 32 34 30 20 |..."..*.'."#240 |
000022A0: 52 45 44 55 43 45 53 20 54 48 45 20 56 41 4C 55 |REDUCES THE VALU|
000022B0: 45 20 4F 46 20 54 48 45 20 56 27 53 20 53 4F 22 |E OF THE V'S SO"|
000022C0: 00 EE 2A D8 27 99 22 20 20 54 48 45 20 4C 41 52 |..*.'." THE LAR|
000022D0: 47 45 53 54 20 49 53 20 33 30 2E 20 54 48 45 20 |GEST IS 30. THE |
000022E0: 52 45 44 55 43 45 44 20 56 41 4C 55 45 22 00 04 |REDUCED VALUE"..|
000022F0: 2B E2 27 99 22 20 20 49 53 20 43 41 4C 4C 45 44 |+.'." IS CALLED|
00002300: 20 53 2E 22 00 17 2B EC 27 99 22 12 48 49 54 20 | S."..+.'.".HIT |
00002310: 41 20 4B 45 59 92 22 00 2C 2B F6 27 A1 41 24 3A |A KEY.".,+.'.A$:|
00002320: 8B 41 24 B2 22 22 A7 31 30 32 33 30 00 5B 2B 00 |.A$."".10230.[+.|
00002330: 28 99 3A 99 22 23 32 35 30 20 47 45 54 53 20 54 |(.:."#250 GETS T|
00002340: 48 45 20 49 4E 54 45 47 45 52 20 50 41 52 54 20 |HE INTEGER PART |
00002350: 4F 46 20 53 2E 2E 28 49 53 29 22 00 87 2B 0A 28 |OF S..(IS)"..+.(|
00002360: 99 22 20 20 41 4E 44 20 54 48 45 20 46 52 41 43 |." AND THE FRAC|
00002370: 54 49 4F 4E 41 4C 20 50 41 52 54 20 4F 46 20 53 |TIONAL PART OF S|
00002380: 2E 2E 28 46 53 29 22 00 AB 2B 14 28 99 22 23 32 |..(FS)"..+.(."#2|
00002390: 36 30 20 50 52 49 4E 54 53 20 41 20 42 55 4E 43 |60 PRINTS A BUNC|
000023A0: 48 20 4F 46 20 12 20 92 27 53 22 00 D9 2B 1E 28 |H OF . .'S"..+.(|
000023B0: 99 22 23 32 37 30 20 50 52 49 4E 54 53 20 54 48 |."#270 PRINTS TH|
000023C0: 45 20 46 49 4E 41 4C 20 46 52 41 43 54 49 4F 4E |E FINAL FRACTION|
000023D0: 41 4C 20 50 49 45 43 45 22 00 07 2C 28 28 99 22 |AL PIECE"..,((."|
000023E0: 20 20 4F 46 20 53 24 28 38 29 2C 4E 41 4D 45 4C | OF S$(8),NAMEL|
000023F0: 59 20 53 24 28 31 29 20 4F 52 20 53 24 28 32 29 |Y S$(1) OR S$(2)|
00002400: 2E 2E 45 54 43 2E 22 00 35 2C 32 28 99 22 20 20 |..ETC.".5,2(." |
00002410: 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 54 48 45 |ACCORDING TO THE|
00002420: 20 53 49 5A 45 20 4F 46 20 54 48 45 20 46 52 41 | SIZE OF THE FRA|
00002430: 43 54 27 4C 22 00 54 2C 3C 28 99 22 20 20 50 41 |CT'L".T,<(." PA|
00002440: 52 54 20 4F 46 20 53 2C 20 4E 41 4D 45 4C 59 20 |RT OF S, NAMELY |
00002450: 46 53 2E 22 00 5F 2C A0 28 8D 36 33 30 30 30 00 |FS."._,.(.63000.|
00002460: 81 2C B4 28 99 22 93 50 4C 45 41 53 45 20 45 4E |.,.(.".PLEASE EN|
00002470: 54 45 52 20 54 48 45 20 50 52 4F 47 52 41 4D 2E |TER THE PROGRAM.|
00002480: 22 00 B0 2C BE 28 99 22 11 49 27 4C 4C 20 50 55 |"..,.(.".I'LL PU|
00002490: 54 20 49 54 20 52 49 47 48 54 20 41 46 54 45 52 |T IT RIGHT AFTER|
000024A0: 20 54 48 45 20 53 54 41 54 45 4D 45 4E 54 53 22 | THE STATEMENTS"|
000024B0: 00 DF 2C C8 28 99 22 11 23 39 39 2D 23 31 36 30 |..,.(.".#99-#160|
000024C0: 2E 20 20 41 46 54 45 52 20 59 4F 55 20 48 41 56 |. AFTER YOU HAV|
000024D0: 45 20 45 4E 54 45 52 45 44 20 49 54 2E 2E 22 00 |E ENTERED IT..".|
000024E0: F1 2C D2 28 99 22 11 12 54 52 59 20 49 54 92 21 |.,.(."..TRY IT.!|
000024F0: 22 00 15 2D DC 28 99 22 11 49 4E 20 50 41 52 54 |"..-.(.".IN PART|
00002500: 49 43 55 4C 41 52 2C 20 45 4E 54 45 52 20 56 41 |ICULAR, ENTER VA|
00002510: 4C 55 45 53 22 00 40 2D E6 28 99 22 11 57 48 49 |LUES".@-.(.".WHI|
00002520: 43 48 20 48 41 56 45 20 44 49 46 46 45 52 45 4E |CH HAVE DIFFEREN|
00002530: 54 20 4C 45 4E 47 54 48 53 2C 4C 49 4B 45 3A 22 |T LENGTHS,LIKE:"|
00002540: 00 56 2D F0 28 99 22 11 31 32 33 20 41 4E 44 20 |.V-.(.".123 AND |
00002550: 31 32 33 34 2E 22 00 86 2D FA 28 99 22 11 28 54 |1234."..-.(.".(T|
00002560: 48 45 4E 20 59 4F 55 27 4C 4C 20 53 45 45 20 57 |HEN YOU'LL SEE W|
00002570: 45 27 56 45 20 47 4F 54 20 53 4F 4D 45 20 57 4F |E'VE GOT SOME WO|
00002580: 52 4B 20 54 4F 22 00 A1 2D 04 29 99 22 44 4F 20 |RK TO"..-.)."DO |
00002590: 4F 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 21 29 |ON THE PROGRAM!)|
000025A0: 22 00 C2 2D 68 29 99 22 11 12 53 45 45 20 49 46 |"..-h)."..SEE IF|
000025B0: 20 59 4F 55 20 43 41 4E 20 46 49 58 20 49 54 92 | YOU CAN FIX IT.|
000025C0: 21 22 00 E6 2D 72 29 99 22 11 28 54 48 45 4E 20 |!"..-r).".(THEN |
000025D0: 54 59 50 45 20 12 40 92 20 54 4F 20 43 4F 4E 54 |TYPE .@. TO CONT|
000025E0: 49 4E 55 45 29 22 00 0B 2E 86 29 99 22 11 11 12 |INUE)"....)."...|
000025F0: 52 45 54 55 52 4E 92 20 54 4F 20 47 45 54 20 54 |RETURN. TO GET T|
00002600: 48 45 20 50 52 4F 47 52 41 4D 22 00 16 2E 8F 29 |HE PROGRAM"....)|
00002610: 8D 36 33 30 30 31 00 30 2E 9A 29 99 22 93 48 45 |.63001.0..).".HE|
00002620: 52 45 20 49 54 20 49 53 20 41 47 41 49 4E 2E 22 |RE IT IS AGAIN."|
00002630: 00 3F 2E A4 29 81 49 B2 31 A4 35 30 30 3A 82 00 |.?..).I.1.500:..|
00002640: 48 2E F8 2A 99 22 93 22 00 5F 2E 16 2B 99 3A 99 |H..*."."._..+.:.|
00002650: 22 31 37 30 20 46 4F 52 49 3D 31 54 4F 31 32 00 |"170 FORI=1TO12.|
00002660: 8F 2E 20 2B 99 22 31 38 30 20 3F 22 C7 28 33 34 |.. +."180 ?".(34|
00002670: 29 22 12 22 C7 28 33 34 29 22 4D 24 28 49 29 22 |)".".(34)"M$(I)"|
00002680: C7 28 33 34 29 22 2D 22 C7 28 33 34 29 22 3B 00 |.(34)"-".(34)";.|
00002690: A7 2E 2A 2B 99 22 31 39 30 20 4C 24 3D 53 54 52 |..*+."190 L$=STR|
000026A0: 24 28 56 28 49 29 29 00 BB 2E 34 2B 99 22 32 30 |$(V(I))...4+."20|
000026B0: 30 20 4C 3D 4C 45 4E 28 4C 24 29 00 E9 2E 52 2B |0 L=LEN(L$)...R+|
000026C0: 99 22 32 33 30 20 3F 22 C7 28 33 34 29 22 12 22 |."230 ?".(34)"."|
000026D0: C7 28 33 34 29 22 4C 24 22 C7 28 33 34 29 22 A7 |.(34)"L$".(34)".|
000026E0: 22 C7 28 33 34 29 22 3B 22 00 03 2F 5C 2B 99 22 |".(34)";"../\+."|
000026F0: 32 34 30 20 53 3D 56 28 49 29 2A 33 30 2F 4D 41 |240 S=V(I)*30/MA|
00002700: 58 56 22 00 20 2F 66 2B 99 22 32 35 30 20 49 53 |XV". /f+."250 IS|
00002710: 3D 49 4E 54 28 53 29 3A 46 53 3D 53 2D 49 53 22 |=INT(S):FS=S-IS"|
00002720: 00 43 2F 70 2B 99 22 32 36 30 20 46 4F 52 4A 3D |.C/p+."260 FORJ=|
00002730: 31 54 4F 49 53 3A 3F 53 24 28 38 29 3B 3A 4E 45 |1TOIS:?S$(8);:NE|
00002740: 58 54 22 00 58 2F 7A 2B 99 22 32 37 30 20 3F 53 |XT".X/z+."270 ?S|
00002750: 24 28 38 2A 46 53 29 22 00 68 2F 84 2B 99 22 32 |$(8*FS)".h/.+."2|
00002760: 38 30 20 4E 45 58 54 22 00 85 2F 8E 2B 99 3A 99 |80 NEXT"../.+.:.|
00002770: 22 28 54 59 50 45 20 12 40 92 20 54 4F 20 43 4F |"(TYPE .@. TO CO|
00002780: 4E 54 2E 29 22 00 9C 2F 98 2B 53 4E 24 B2 22 31 |NT.)"../.+SN$."1|
00002790: 32 30 30 30 22 3A 89 36 33 34 30 30 00 C6 2F E0 |2000":.63400../.|
000027A0: 2E 8D 36 30 30 30 30 3A 99 22 93 22 3A 20 20 4D |..60000:.".": M|
000027B0: 53 24 B2 22 57 4F 52 4B 20 54 4F 20 44 4F 22 3A |S$."WORK TO DO":|
000027C0: 8D 36 33 31 30 30 00 F3 2F E5 2E 99 22 93 59 4F |.63100../...".YO|
000027D0: 55 20 43 41 4E 20 53 45 45 20 48 4F 57 20 49 4D |U CAN SEE HOW IM|
000027E0: 50 4F 52 54 41 4E 54 20 54 48 45 20 4C 45 4E 47 |PORTANT THE LENG|
000027F0: 54 48 22 00 21 30 EA 2E 99 22 4F 46 20 54 48 45 |TH".!0..."OF THE|
00002800: 20 56 41 4C 55 45 53 20 49 53 21 20 49 4E 20 46 | VALUES IS! IN F|
00002810: 41 43 54 20 54 48 41 54 27 53 20 57 48 59 20 49 |ACT THAT'S WHY I|
00002820: 22 00 4D 30 F4 2E 99 22 41 53 4B 45 44 20 59 4F |".M0..."ASKED YO|
00002830: 55 20 54 4F 20 49 4E 43 4C 55 44 45 20 54 48 45 |U TO INCLUDE THE|
00002840: 20 53 54 41 54 45 4D 45 4E 54 53 3A 22 00 66 30 | STATEMENTS:".f0|
00002850: FE 2E 99 22 11 31 39 30 4C 24 3D 53 54 52 24 28 |...".190L$=STR$(|
00002860: 56 28 49 29 29 22 00 7A 30 08 2F 99 22 32 30 30 |V(I))".z0./."200|
00002870: 4C 3D 4C 45 4E 28 4C 24 29 22 00 A6 30 12 2F 99 |L=LEN(L$)"..0./.|
00002880: 22 11 12 54 48 45 20 50 52 4F 47 52 41 4D 20 44 |"..THE PROGRAM D|
00002890: 49 44 4E 27 54 20 45 56 45 4E 20 55 53 45 20 54 |IDN'T EVEN USE T|
000028A0: 48 45 4D 21 92 22 00 B6 30 1C 2F 99 22 11 4E 4F |HEM!."..0./.".NO|
000028B0: 57 20 2E 2E 2E 22 00 D9 30 21 2F 99 22 57 45 27 |W ..."..0!/."WE'|
000028C0: 4C 4C 20 49 4E 53 45 52 54 20 23 32 31 30 20 26 |LL INSERT #210 &|
000028D0: 20 23 32 32 30 3A 22 3A 99 00 F4 30 26 2F 99 22 | #220:":...0&/."|
000028E0: 11 32 31 30 20 49 46 20 4C 3D 4D 4C 20 47 4F 54 |.210 IF L=ML GOT|
000028F0: 4F 32 33 30 00 18 31 30 2F 99 22 32 32 30 20 46 |O230..10/."220 F|
00002900: 4F 52 4A 3D 31 54 4F 4D 4C 2D 4C 3A 3F 53 24 28 |ORJ=1TOML-L:?S$(|
00002910: 38 29 3B 3A 4E 45 58 54 00 46 31 3A 2F 99 22 32 |8);:NEXT.F1:/."2|
00002920: 33 30 20 3F 22 C7 28 33 34 29 22 12 22 C7 28 33 |30 ?".(34)".".(3|
00002930: 34 29 22 4C 24 22 C7 28 33 34 29 22 A7 22 C7 28 |4)"L$".(34)".".(|
00002940: 33 34 29 22 3B 22 00 60 31 44 2F 99 22 32 34 30 |34)";".`1D/."240|
00002950: 20 53 3D 56 28 49 29 2A 33 30 2F 4D 41 58 56 22 | S=V(I)*30/MAXV"|
00002960: 00 6E 31 4E 2F 99 22 45 54 43 2E 22 3A 99 00 81 |.n1N/."ETC.":...|
00002970: 31 58 2F 99 22 12 48 49 54 20 41 20 4B 45 59 92 |1X/.".HIT A KEY.|
00002980: 22 00 96 31 62 2F A1 41 24 3A 8B 41 24 B2 22 22 |"..1b/.A$:.A$.""|
00002990: A7 31 32 31 33 30 00 C0 31 6C 2F 99 3A 99 22 49 |.12130..1l/.:."I|
000029A0: 46 20 54 48 45 20 56 41 4C 55 45 20 41 42 4F 55 |F THE VALUE ABOU|
000029B0: 54 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 22 |T TO BE PRINTED"|
000029C0: 00 F3 31 76 2F 99 22 49 53 20 22 C7 28 33 34 29 |..1v/."IS ".(34)|
000029D0: 22 53 48 4F 52 54 22 C7 28 33 34 29 22 2C 57 45 |"SHORT".(34)",WE|
000029E0: 20 49 4E 53 45 52 54 20 53 4F 4D 45 20 12 20 92 | INSERT SOME . .|
000029F0: 27 53 22 00 1F 32 80 2F 99 22 53 4F 20 45 56 45 |'S"..2./."SO EVE|
00002A00: 52 59 20 50 52 49 4E 54 49 4E 47 20 4F 46 20 54 |RY PRINTING OF T|
00002A10: 48 45 20 56 27 53 20 48 41 53 20 54 48 45 22 00 |HE V'S HAS THE".|
00002A20: 3A 32 8A 2F 99 22 53 41 4D 45 20 4E 4F 2E 20 4F |:2./."SAME NO. O|
00002A30: 46 20 53 50 41 43 45 53 2E 22 00 6A 32 94 2F 99 |F SPACES.".j2./.|
00002A40: 22 23 32 32 30 20 49 4E 53 45 52 54 53 20 54 48 |"#220 INSERTS TH|
00002A50: 45 53 45 20 12 20 92 27 53 20 42 45 46 4F 52 45 |ESE . .'S BEFORE|
00002A60: 20 50 52 49 4E 54 49 4E 47 22 00 8F 32 9E 2F 99 | PRINTING"..2./.|
00002A70: 22 54 48 45 20 56 41 4C 55 45 2C 49 4E 20 23 32 |"THE VALUE,IN #2|
00002A80: 33 30 28 43 41 4C 4C 45 44 20 4C 24 29 2E 22 00 |30(CALLED L$).".|
00002A90: BB 32 A8 2F 99 22 49 46 20 54 48 45 20 56 41 4C |.2./."IF THE VAL|
00002AA0: 55 45 20 41 42 4F 55 54 20 54 4F 20 42 45 20 50 |UE ABOUT TO BE P|
00002AB0: 52 49 4E 54 45 44 20 48 41 53 22 00 E9 32 B2 2F |RINTED HAS"..2./|
00002AC0: 99 22 4D 41 58 27 4D 20 4C 45 4E 47 54 48 20 28 |."MAX'M LENGTH (|
00002AD0: 4C 3D 4D 4C 29 20 57 45 20 4F 4D 49 54 20 54 48 |L=ML) WE OMIT TH|
00002AE0: 45 20 12 20 92 27 53 2E 22 00 F8 32 B3 2F 99 22 |E . .'S."..2./."|
00002AF0: 20 20 A3 A3 A3 A3 A3 22 00 03 33 BC 2F 8D 36 33 | ....."..3./.63|
00002B00: 30 30 30 00 28 33 C6 2F 99 22 93 12 46 49 4E 41 |000.(3./."..FINA|
00002B10: 4C 4C 59 92 2C 49 4E 20 41 20 46 4F 52 2D 4E 45 |LLY.,IN A FOR-NE|
00002B20: 58 54 20 4C 4F 4F 50 22 00 51 33 D0 2F 99 22 49 |XT LOOP".Q3./."I|
00002B30: 20 41 4C 57 41 59 53 20 4F 42 45 59 20 54 48 45 | ALWAYS OBEY THE|
00002B40: 20 49 4E 53 54 27 4E 53 20 42 45 54 57 45 45 4E | INST'NS BETWEEN|
00002B50: 22 00 7C 33 DA 2F 99 22 20 20 22 C7 28 33 34 29 |".|3./." ".(34)|
00002B60: 22 46 4F 52 22 C7 28 33 34 29 22 20 41 4E 44 20 |"FOR".(34)" AND |
00002B70: 22 C7 28 33 34 29 22 4E 45 58 54 22 00 A9 33 E4 |".(34)"NEXT"..3.|
00002B80: 2F 99 22 41 54 20 4C 45 41 53 54 20 4F 4E 43 45 |/."AT LEAST ONCE|
00002B90: 20 42 45 46 4F 52 45 20 43 48 45 43 4B 49 4E 47 | BEFORE CHECKING|
00002BA0: 20 49 46 20 49 27 56 45 22 00 C8 33 EE 2F 99 22 | IF I'VE"..3./."|
00002BB0: 44 4F 4E 45 20 54 48 45 4D 20 4F 46 54 45 4E 20 |DONE THEM OFTEN |
00002BC0: 45 4E 4F 55 47 48 21 22 00 F3 33 F8 2F 99 22 11 |ENOUGH!"..3./.".|
00002BD0: 54 48 41 54 20 4D 45 41 4E 53 20 54 48 41 54 2C |THAT MEANS THAT,|
00002BE0: 49 4E 20 41 20 4C 4F 4F 50 20 53 55 43 48 20 41 |IN A LOOP SUCH A|
00002BF0: 53 3A 22 00 0D 34 02 30 99 22 11 32 36 30 20 46 |S:"..4.0.".260 F|
00002C00: 4F 52 20 4A 3D 31 20 54 4F 20 49 53 22 00 35 34 |OR J=1 TO IS".54|
00002C10: 0C 30 99 3A 99 22 49 27 4C 4C 20 4F 42 45 59 20 |.0.:."I'LL OBEY |
00002C20: 54 48 45 20 4E 45 58 54 20 49 4E 53 54 27 4E 20 |THE NEXT INST'N |
00002C30: 4F 4E 43 45 22 00 60 34 16 30 99 22 45 56 45 4E |ONCE".`4.0."EVEN|
00002C40: 20 49 46 20 22 C7 28 33 34 29 22 49 53 22 C7 28 | IF ".(34)"IS".(|
00002C50: 33 34 29 22 20 49 53 20 5A 45 52 4F 28 21 29 22 |34)" IS ZERO(!)"|
00002C60: 00 8C 34 20 30 99 22 53 4F 20 59 4F 55 20 4D 55 |..4 0."SO YOU MU|
00002C70: 53 54 20 43 48 45 43 4B 20 46 4F 52 3A 20 49 53 |ST CHECK FOR: IS|
00002C80: 3D 30 20 4C 49 4B 45 20 53 4F 3A 22 00 AA 34 2A |=0 LIKE SO:"..4*|
00002C90: 30 99 22 11 32 35 35 20 49 46 20 49 53 3D 30 20 |0.".255 IF IS=0 |
00002CA0: 47 4F 20 54 4F 20 32 37 30 22 00 DB 34 34 30 99 |GO TO 270"..440.|
00002CB0: 22 11 54 48 45 4E 2C 49 4E 20 23 32 37 30 2C 59 |".THEN,IN #270,Y|
00002CC0: 4F 55 20 50 52 49 4E 54 20 54 48 45 20 46 52 41 |OU PRINT THE FRA|
00002CD0: 43 54 27 4C 20 50 49 45 43 45 22 00 F1 34 3E 30 |CT'L PIECE"..4>0|
00002CE0: 99 22 4F 46 20 53 24 28 38 29 20 4F 4E 4C 59 2E |."OF S$(8) ONLY.|
00002CF0: 22 00 FC 34 48 30 8D 36 33 30 30 30 00 2A 35 52 |"..4H0.63000.*5R|
00002D00: 30 99 22 54 48 45 20 22 C7 28 33 34 29 22 46 49 |0."THE ".(34)"FI|
00002D10: 4E 49 53 48 45 44 22 C7 28 33 34 29 22 20 50 52 |NISHED".(34)" PR|
00002D20: 4F 44 55 43 54 20 49 53 3A 22 00 41 35 E6 32 99 |ODUCT IS:".A5.2.|
00002D30: 3A 99 22 31 37 30 20 46 4F 52 49 3D 31 54 4F 31 |:."170 FORI=1TO1|
00002D40: 32 00 71 35 F0 32 99 22 31 38 30 20 3F 22 C7 28 |2.q5.2."180 ?".(|
00002D50: 33 34 29 22 12 22 C7 28 33 34 29 22 4D 24 28 49 |34)".".(34)"M$(I|
00002D60: 29 22 C7 28 33 34 29 22 2D 22 C7 28 33 34 29 22 |)".(34)"-".(34)"|
00002D70: 3B 00 89 35 FA 32 99 22 31 39 30 20 4C 24 3D 53 |;..5.2."190 L$=S|
00002D80: 54 52 24 28 56 28 49 29 29 00 9D 35 04 33 99 22 |TR$(V(I))..5.3."|
00002D90: 32 30 30 20 4C 3D 4C 45 4E 28 4C 24 29 00 B7 35 |200 L=LEN(L$)..5|
00002DA0: 05 33 99 22 32 31 30 20 49 46 20 4C 3D 4D 4C 20 |.3."210 IF L=ML |
00002DB0: 47 4F 54 4F 32 33 30 00 DB 35 06 33 99 22 32 32 |GOTO230..5.3."22|
00002DC0: 30 20 46 4F 52 4A 3D 31 54 4F 4D 4C 2D 4C 3A 3F |0 FORJ=1TOML-L:?|
00002DD0: 53 24 28 38 29 3B 3A 4E 45 58 54 00 0A 36 22 33 |S$(8);:NEXT..6"3|
00002DE0: 99 22 32 33 30 20 3F 22 C7 28 33 34 29 22 12 22 |."230 ?".(34)"."|
00002DF0: C7 28 33 34 29 22 4C 24 22 C7 28 33 34 29 22 A7 |.(34)"L$".(34)".|
00002E00: 22 C7 28 33 34 29 22 3B 22 3B 00 20 36 23 33 99 |".(34)";";. 6#3.|
00002E10: C7 28 33 34 29 22 92 22 C7 28 33 34 29 22 3B 22 |.(34)".".(34)";"|
00002E20: 00 3A 36 2C 33 99 22 32 34 30 20 53 3D 56 28 49 |.:6,3."240 S=V(I|
00002E30: 29 2A 33 30 2F 4D 41 58 56 22 00 57 36 36 33 99 |)*30/MAXV".W663.|
00002E40: 22 32 35 30 20 49 53 3D 49 4E 54 28 53 29 3A 46 |"250 IS=INT(S):F|
00002E50: 53 3D 53 2D 49 53 22 00 70 36 3B 33 99 22 32 35 |S=S-IS".p6;3."25|
00002E60: 35 20 49 46 49 53 3D 30 47 4F 54 4F 32 37 30 22 |5 IFIS=0GOTO270"|
00002E70: 00 93 36 40 33 99 22 32 36 30 20 46 4F 52 4A 3D |..6@3."260 FORJ=|
00002E80: 31 54 4F 49 53 3A 3F 53 24 28 38 29 3B 3A 4E 45 |1TOIS:?S$(8);:NE|
00002E90: 58 54 22 00 A8 36 4A 33 99 22 32 37 30 20 3F 53 |XT"..6J3."270 ?S|
00002EA0: 24 28 38 2A 46 53 29 22 00 B8 36 54 33 99 22 32 |$(8*FS)"..6T3."2|
00002EB0: 38 30 20 4E 45 58 54 22 00 E5 36 59 33 99 3A 99 |80 NEXT"..6Y3.:.|
00002EC0: 22 28 4E 4F 54 45 20 54 48 41 54 20 23 32 33 30 |"(NOTE THAT #230|
00002ED0: 20 49 4E 43 4C 55 44 45 53 20 41 20 52 56 53 2D | INCLUDES A RVS-|
00002EE0: 4F 46 46 29 22 00 11 37 5E 33 99 3A 99 22 45 4E |OFF)"..7^3.:."EN|
00002EF0: 54 45 52 20 54 48 45 53 45 20 53 54 41 54 45 4D |TER THESE STATEM|
00002F00: 45 4E 54 53 20 41 4E 44 20 12 54 52 59 20 49 54 |ENTS AND .TRY IT|
00002F10: 22 00 30 37 68 33 99 22 11 11 54 59 50 45 20 12 |".07h3."..TYPE .|
00002F20: 40 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 |@. TO CONTINUE."|
00002F30: 00 47 37 72 33 53 4E 24 B2 22 31 35 30 30 30 22 |.G7r3SN$."15000"|
00002F40: 3A 89 36 33 34 30 30 00 6E 37 98 3A 8D 36 30 30 |:.63400.n7.:.600|
00002F50: 30 30 3A 99 22 93 22 3A 4D 53 24 B2 22 49 54 20 |00:.".":MS$."IT |
00002F60: 57 4F 52 4B 53 21 22 3A 8D 36 33 31 30 30 00 A0 |WORKS!":.63100..|
00002F70: 37 99 3A 99 22 93 11 11 4C 45 54 20 4D 45 20 53 |7.:."...LET ME S|
00002F80: 41 59 20 4F 4E 45 20 4C 41 53 54 20 54 48 49 4E |AY ONE LAST THIN|
00002F90: 47 2E 2E 41 42 4F 55 54 20 12 47 45 54 92 2E 22 |G..ABOUT .GET.."|
00002FA0: 00 CD 37 9D 3A 99 3A 99 22 59 4F 55 20 4D 41 59 |..7.:.:."YOU MAY|
00002FB0: 20 54 59 50 45 20 54 48 49 4E 47 53 20 4F 4E 20 | TYPE THINGS ON |
00002FC0: 54 48 45 20 4B 45 59 42 4F 41 52 44 22 00 F8 37 |THE KEYBOARD"..7|
00002FD0: A2 3A 99 3A 99 22 57 48 49 4C 45 20 49 27 4D 20 |.:.:."WHILE I'M |
00002FE0: 42 55 53 59 20 44 4F 49 4E 47 20 53 4F 4D 45 54 |BUSY DOING SOMET|
00002FF0: 48 49 4E 47 2E 2E 2E 22 00 28 38 A7 3A 99 3A 99 |HING...".(8.:.:.|
00003000: 22 41 4E 44 20 49 27 4C 4C 20 4B 45 45 50 20 55 |"AND I'LL KEEP U|
00003010: 50 20 54 4F 20 31 30 20 4B 45 59 50 55 4E 43 48 |P TO 10 KEYPUNCH|
00003020: 45 53 20 49 4E 20 41 22 00 44 38 AC 3A 99 3A 99 |ES IN A".D8.:.:.|
00003030: 22 27 4B 45 59 42 4F 41 52 44 20 42 55 46 46 45 |"'KEYBOARD BUFFE|
00003040: 52 27 2E 22 00 75 38 B1 3A 99 3A 99 22 57 48 45 |R'.".u8.:.:."WHE|
00003050: 4E 20 49 20 52 45 54 55 52 4E 20 54 4F 20 27 47 |N I RETURN TO 'G|
00003060: 45 54 27 20 54 48 45 20 4E 45 58 54 20 49 4E 53 |ET' THE NEXT INS|
00003070: 54 27 4E 20 22 00 A6 38 B6 3A 99 3A 99 22 46 52 |T'N "..8.:.:."FR|
00003080: 4F 4D 20 54 48 45 20 4B 45 59 42 4F 41 52 44 20 |OM THE KEYBOARD |
00003090: 49 27 4C 4C 20 43 48 45 43 4B 20 54 48 45 20 42 |I'LL CHECK THE B|
000030A0: 55 46 46 45 52 22 00 D0 38 BB 3A 99 3A 99 22 41 |UFFER"..8.:.:."A|
000030B0: 4E 44 20 54 41 4B 45 20 54 48 45 20 45 4E 54 52 |ND TAKE THE ENTR|
000030C0: 49 45 53 20 46 52 4F 4D 20 54 48 45 52 45 2E 22 |IES FROM THERE."|
000030D0: 00 FF 38 BC 3A 99 3A 99 22 28 49 4E 20 46 41 43 |..8.:.:."(IN FAC|
000030E0: 54 20 49 20 41 4C 57 41 59 53 20 54 41 4B 45 20 |T I ALWAYS TAKE |
000030F0: 4B 45 59 42 4F 41 52 44 20 49 4E 50 55 54 22 00 |KEYBOARD INPUT".|
00003100: 23 39 BD 3A 99 3A 99 22 46 52 4F 4D 20 54 48 45 |#9.:.:."FROM THE|
00003110: 20 4B 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 | KEYBOARD BUFFER|
00003120: 29 2E 22 00 30 39 BE 3A 99 3A 8D 36 33 30 30 30 |).".09.:.:.63000|
00003130: 00 5F 39 C0 3A 99 22 93 57 48 45 4E 20 57 52 49 |._9.:.".WHEN WRI|
00003140: 54 49 4E 47 20 41 20 50 52 4F 47 52 41 4D 20 59 |TING A PROGRAM Y|
00003150: 4F 55 20 43 41 4E 20 49 4E 43 4C 55 44 45 22 00 |OU CAN INCLUDE".|
00003160: 7A 39 C5 3A 99 3A 99 22 41 20 53 54 41 54 45 4D |z9.:.:."A STATEM|
00003170: 45 4E 54 20 4C 49 4B 45 3A 22 00 A8 39 CA 3A 99 |ENT LIKE:"..9.:.|
00003180: 3A 99 22 12 31 30 30 20 47 45 54 41 24 3A 49 46 |:.".100 GETA$:IF|
00003190: 41 24 3D 22 C7 28 33 34 29 C7 28 33 34 29 20 22 |A$=".(34).(34) "|
000031A0: 47 4F 54 4F 31 30 30 22 00 D7 39 D4 3A 99 3A 99 |GOTO100"..9.:.:.|
000031B0: 22 54 48 41 54 20 53 41 59 53 3A 27 47 45 54 27 |"THAT SAYS:'GET'|
000031C0: 20 41 20 43 48 41 52 41 43 54 45 52 20 46 52 4F | A CHARACTER FRO|
000031D0: 4D 20 54 48 45 20 22 00 05 3A D9 3A 99 22 11 4B |M THE "..:.:.".K|
000031E0: 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 2C 49 |EYBOARD BUFFER,I|
000031F0: 46 20 54 48 45 20 43 48 27 52 20 49 53 20 12 4E |F THE CH'R IS .N|
00003200: 55 4C 4C 92 22 00 33 3A DE 3A 99 3A 99 22 28 53 |ULL.".3:.:.:."(S|
00003210: 45 45 2E 2E 27 4E 4F 54 48 49 4E 47 27 20 42 45 |EE..'NOTHING' BE|
00003220: 54 57 45 45 4E 20 54 48 45 20 51 55 4F 54 45 53 |TWEEN THE QUOTES|
00003230: 21 29 22 00 4F 3A E3 3A 99 3A 99 22 54 48 45 4E |!)".O:.:.:."THEN|
00003240: 20 4B 45 45 50 20 54 52 59 49 4E 47 21 21 22 00 | KEEP TRYING!!".|
00003250: 5E 3A E4 3A 99 3A 99 3A 8D 36 33 30 30 30 00 7B |^:.:.:.:.63000.{|
00003260: 3A E8 3A 99 22 93 54 4F 20 45 4D 50 54 59 20 54 |:.:.".TO EMPTY T|
00003270: 48 45 20 42 55 46 46 45 52 3A 22 00 9F 3A ED 3A |HE BUFFER:"..:.:|
00003280: 99 3A 99 22 12 31 30 30 20 46 4F 52 49 3D 31 54 |.:.".100 FORI=1T|
00003290: 4F 31 30 3A 47 45 54 41 24 3A 4E 45 58 54 22 00 |O10:GETA$:NEXT".|
000032A0: D0 3A F2 3A 99 3A 99 22 2E 2E 54 41 4B 49 4E 47 |.:.:.:."..TAKING|
000032B0: 20 31 30 20 43 48 41 52 41 43 54 45 52 53 20 46 | 10 CHARACTERS F|
000032C0: 52 4F 4D 20 54 48 45 20 42 55 46 46 45 52 2E 22 |ROM THE BUFFER."|
000032D0: 00 F4 3A F7 3A 99 3A 99 22 54 48 41 54 27 53 20 |..:.:.:."THAT'S |
000032E0: 45 4E 4F 55 47 48 20 54 4F 20 45 4D 50 54 59 20 |ENOUGH TO EMPTY |
000032F0: 49 54 21 22 00 10 3B FC 3A 99 3A 99 22 2E 2E 4F |IT!"..;.:.:."..O|
00003300: 52 20 59 4F 55 20 43 41 4E 20 48 41 56 45 3A 22 |R YOU CAN HAVE:"|
00003310: 00 3E 3B 06 3B 99 3A 99 22 12 31 30 30 20 47 45 |.>;.;.:.".100 GE|
00003320: 54 41 24 3A 49 46 41 24 3C 3E 22 C7 28 33 34 29 |TA$:IFA$<>".(34)|
00003330: C7 28 33 34 29 22 54 48 45 4E 31 30 30 22 00 6D |.(34)"THEN100".m|
00003340: 3B 0B 3B 99 22 11 54 48 49 53 20 57 49 4C 4C 20 |;.;.".THIS WILL |
00003350: 27 47 45 54 27 20 41 20 43 48 41 52 41 43 54 45 |'GET' A CHARACTE|
00003360: 52 20 55 4E 54 49 4C 20 54 48 45 20 22 00 86 3B |R UNTIL THE "..;|
00003370: 10 3B 99 22 11 42 55 46 46 45 52 20 49 53 20 45 |.;.".BUFFER IS E|
00003380: 4D 50 54 59 2E 22 00 93 3B 15 3B 99 3A 8D 36 33 |MPTY."..;.;.:.63|
00003390: 30 30 30 00 C1 3B 1A 3B 99 22 93 11 44 55 52 49 |000..;.;."..DURI|
000033A0: 4E 47 20 12 54 55 54 4F 52 92 20 59 4F 55 20 4D |NG .TUTOR. YOU M|
000033B0: 41 59 20 48 41 56 45 20 4E 4F 54 49 43 45 44 3A |AY HAVE NOTICED:|
000033C0: 22 00 E6 3B 1F 3B 99 22 11 27 48 49 54 20 12 52 |"..;.;.".'HIT .R|
000033D0: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
000033E0: 55 45 92 27 2E 22 00 11 3C 24 3B 99 22 11 54 48 |UE.'."..<$;.".TH|
000033F0: 45 20 4C 49 54 54 4C 45 20 53 55 42 52 4F 55 54 |E LITTLE SUBROUT|
00003400: 49 4E 45 20 57 48 49 43 48 20 50 52 49 4E 54 53 |INE WHICH PRINTS|
00003410: 22 00 3C 3C 29 3B 99 22 11 54 48 49 53 20 41 54 |".<<);.".THIS AT|
00003420: 20 54 48 45 20 42 4F 54 54 4F 4D 20 4F 46 20 54 | THE BOTTOM OF T|
00003430: 48 45 20 53 43 52 45 45 4E 2E 2E 22 00 57 3C 2A |HE SCREEN..".W<*|
00003440: 3B 99 22 11 54 48 45 4E 20 57 41 49 54 53 21 2E |;.".THEN WAITS!.|
00003450: 2E 49 53 3A 11 11 22 00 62 3C 2E 3B 8D 36 33 30 |.IS:..".b<.;.630|
00003460: 30 30 00 91 3C 3D 3B 99 22 93 22 3A 4D 53 24 B2 |00..<=;.".":MS$.|
00003470: 22 12 41 55 20 52 45 56 4F 49 52 21 92 22 3A 8D |".AU REVOIR!.":.|
00003480: 36 33 31 30 30 3A 8D 36 33 35 30 30 3A 99 22 13 |63100:.63500:.".|
00003490: 22 00 A2 3C 42 3B 9B 36 33 30 30 30 AB 36 33 30 |"..<B;.63000.630|
000034A0: 30 33 00 AB 3C 20 4E 99 22 93 22 00 D8 3C 25 4E |03..< N."."..<%N|
000034B0: 99 22 93 20 42 45 46 4F 52 45 20 49 20 46 4F 52 |.". BEFORE I FOR|
000034C0: 47 45 54 2C 20 49 20 53 48 4F 55 4C 44 20 49 4E |GET, I SHOULD IN|
000034D0: 54 52 4F 44 55 43 45 22 00 FF 3C 2A 4E 99 22 11 |TRODUCE"..<*N.".|
000034E0: 4D 59 20 46 52 49 45 4E 44 22 C7 28 33 34 29 22 |MY FRIEND".(34)"|
000034F0: 43 55 52 53 4F 52 22 C7 28 33 34 29 22 2E 22 00 |CURSOR".(34)".".|
00003500: 0F 3D 2F 4E 81 49 B2 31 A4 31 30 30 30 3A 82 00 |.=/N.I.1.1000:..|
00003510: 3B 3D 30 4E 57 44 B2 38 30 3A 97 33 32 37 36 38 |;=0NWD.80:.32768|
00003520: AA 31 30 32 34 2C 39 36 3A 8B C2 28 33 32 37 36 |.1024,96:..(3276|
00003530: 38 29 B2 39 36 A7 57 44 B2 34 30 00 5F 3D 34 4E |8).96.WD.40._=4N|
00003540: 99 22 49 20 43 41 4C 4C 20 48 49 4D 20 12 43 52 |."I CALL HIM .CR|
00003550: 53 52 92 20 46 4F 52 20 53 48 4F 52 54 2E 22 00 |SR. FOR SHORT.".|
00003560: 6F 3D 39 4E 81 49 B2 31 A4 31 35 30 30 3A 82 00 |o=9N.I.1.1500:..|
00003570: 93 3D 3E 4E 99 22 11 43 4F 4D 45 20 4F 4E 20 43 |.=>N.".COME ON C|
00003580: 52 53 52 2E 2E 44 4F 4E 27 54 20 42 45 20 53 48 |RSR..DON'T BE SH|
00003590: 59 2E 22 00 A3 3D 48 4E 81 49 B2 31 A4 32 30 30 |Y."..=HN.I.1.200|
000035A0: 30 3A 82 00 AF 3D 52 4E 81 49 B2 31 A4 31 30 00 |0:...=RN.I.1.10.|
000035B0: BB 3D 5C 4E 99 22 11 22 3B 3A 82 00 C6 3D 66 4E |.=\N.".";:...=fN|
000035C0: 99 A6 31 34 29 3B 00 DB 3D 70 4E 81 49 B2 31 A4 |..14);..=pN.I.1.|
000035D0: 38 3A 81 54 B2 31 A4 35 30 3A 82 00 ED 3D 7A 4E |8:.T.1.50:...=zN|
000035E0: 99 22 20 9D 91 12 20 92 9D 22 3B 3A 82 00 FC 3D |." ... ..";:...=|
000035F0: 84 4E 81 49 B2 31 A4 35 30 30 3A 82 00 11 3E 8E |.N.I.1.500:...>.|
00003600: 4E 99 22 1D 20 5F 54 48 41 54 27 53 20 48 49 4D |N.". _THAT'S HIM|
00003610: 22 00 43 3E 98 4E 43 53 52 B2 33 32 37 36 38 AA |".C>.NCSR.32768.|
00003620: 38 AC 57 44 AA 31 34 3A 81 49 B2 31 A4 31 30 30 |8.WD.14:.I.1.100|
00003630: 3A 97 43 53 52 2C 33 32 3A 97 43 53 52 2C 31 36 |:.CSR,32:.CSR,16|
00003640: 30 3A 82 00 63 3E A2 4E 99 22 11 54 48 45 4E 20 |0:..c>.N.".THEN |
00003650: 57 45 20 48 41 56 45 20 43 52 53 52 2D 4C 45 46 |WE HAVE CRSR-LEF|
00003660: 54 22 3B 00 7B 3E AC 4E 99 22 20 20 20 22 C7 28 |T";.{>.N." ".(|
00003670: 33 34 29 22 9D 22 C7 28 33 34 29 00 8C 3E AD 4E |34)".".(34)..>.N|
00003680: 81 49 B2 31 A4 35 30 30 3A 82 3A 99 00 A3 3E B6 |.I.1.500:.:...>.|
00003690: 4E 99 22 41 4E 44 20 43 52 53 52 2D 52 49 47 48 |N."AND CRSR-RIGH|
000036A0: 54 22 3B 00 BD 3E C0 4E 99 22 20 20 20 20 20 22 |T";..>.N." "|
000036B0: C7 28 33 34 29 22 1D 22 C7 28 33 34 29 00 CE 3E |.(34)".".(34)..>|
000036C0: C1 4E 81 49 B2 31 A4 35 30 30 3A 82 3A 99 00 E2 |.N.I.1.500:.:...|
000036D0: 3E CA 4E 99 22 41 4E 44 20 43 52 53 52 2D 55 50 |>.N."AND CRSR-UP|
000036E0: 22 3B 00 FC 3E D4 4E 99 22 20 20 20 20 20 22 C7 |";..>.N." ".|
000036F0: 28 33 34 29 22 91 22 C7 28 33 34 29 00 0D 3F D5 |(34)".".(34)..?.|
00003700: 4E 81 49 B2 31 A4 35 30 30 3A 82 3A 99 00 23 3F |N.I.1.500:.:..#?|
00003710: DE 4E 99 22 41 4E 44 20 43 52 53 52 2D 44 4F 57 |.N."AND CRSR-DOW|
00003720: 4E 22 3B 00 3D 3F E8 4E 99 22 20 20 20 20 20 22 |N";.=?.N." "|
00003730: C7 28 33 34 29 22 11 22 C7 28 33 34 29 00 4F 3F |.(34)".".(34).O?|
00003740: E9 4E 81 49 B2 31 A4 31 35 30 30 3A 82 3A 99 00 |.N.I.1.1500:.:..|
00003750: 70 3F F2 4E 99 22 28 41 4C 4C 20 42 52 4F 54 48 |p?.N."(ALL BROTH|
00003760: 45 52 53 2C 4F 46 20 43 4F 55 52 53 45 29 2E 22 |ERS,OF COURSE)."|
00003770: 00 82 3F F7 4E 81 49 B2 31 A4 31 30 30 30 3A 82 |..?.N.I.1.1000:.|
00003780: 3A 99 00 9C 3F FC 4E 99 22 57 45 20 41 4C 53 4F |:...?.N."WE ALSO|
00003790: 20 48 41 56 45 20 48 4F 4D 45 22 3B 00 B5 3F 06 | HAVE HOME";..?.|
000037A0: 4F 99 22 20 20 20 20 22 C7 28 33 34 29 22 13 22 |O." ".(34)"."|
000037B0: C7 28 33 34 29 00 C4 3F 07 4F 81 49 B2 31 A4 32 |.(34)..?.O.I.1.2|
000037C0: 30 30 3A 82 00 DA 3F 10 4F 99 22 2E 2E 41 4E 44 |00:...?.O."..AND|
000037D0: 20 43 4C 45 41 52 20 20 22 3B 00 F3 3F 1A 4F 99 | CLEAR ";..?.O.|
000037E0: 22 20 20 20 20 22 C7 28 33 34 29 22 93 22 C7 28 |" ".(34)".".(|
000037F0: 33 34 29 00 02 40 1B 4F 81 49 B2 31 A4 32 30 30 |34)..@.O.I.1.200|
00003800: 3A 82 00 25 40 24 4F 99 22 2E 2E 41 4E 44 20 52 |:..%@$O."..AND R|
00003810: 56 53 20 20 20 20 20 22 C7 28 33 34 29 22 12 22 |VS ".(34)"."|
00003820: C7 28 33 34 29 00 34 40 25 4F 81 49 B2 31 A4 32 |.(34).4@%O.I.1.2|
00003830: 30 30 3A 82 00 5A 40 2E 4F 99 22 2E 2E 41 4E 44 |00:..Z@.O."..AND|
00003840: 20 52 56 53 2D 4F 46 46 20 20 20 20 22 C7 28 33 | RVS-OFF ".(3|
00003850: 34 29 22 92 22 C7 28 33 34 29 00 6B 40 38 4F 81 |4)".".(34).k@8O.|
00003860: 49 B2 31 A4 35 30 30 3A 82 3A 99 00 89 40 42 4F |I.1.500:.:...@BO|
00003870: 99 22 3E 3E 3E 47 45 54 20 54 4F 20 4B 4E 4F 57 |.">>>GET TO KNOW|
00003880: 20 54 48 45 4D 3C 3C 3C 22 00 9A 40 47 4F 81 49 | THEM<<<"..@GO.I|
00003890: B2 31 A4 32 30 30 3A 82 3A 99 00 C4 40 4C 4F 99 |.1.200:.:...@LO.|
000038A0: 22 49 4E 53 49 44 45 20 51 55 4F 54 45 53 2C 54 |"INSIDE QUOTES,T|
000038B0: 48 45 59 20 44 4F 20 54 48 45 49 52 20 54 48 49 |HEY DO THEIR THI|
000038C0: 4E 47 2E 22 00 D5 40 B0 4F 81 49 B2 31 A4 35 30 |NG."..@.O.I.1.50|
000038D0: 30 3A 82 3A 99 00 E2 40 14 50 8D 36 33 30 30 30 |0:.:...@.P.63000|
000038E0: 3A 8E 00 ED 40 40 5B 8D 36 33 30 30 30 00 FD 40 |:...@@[.63000..@|
000038F0: 78 E6 99 22 93 22 3A 8D 36 33 31 30 30 00 26 41 |x..".":.63100.&A|
00003900: 79 E6 99 22 13 44 55 52 49 4E 47 20 54 48 45 20 |y..".DURING THE |
00003910: 54 55 54 4F 52 49 41 4C 20 59 4F 55 20 4D 41 59 |TUTORIAL YOU MAY|
00003920: 20 57 49 53 48 22 00 4E 41 7A E6 99 22 11 54 4F | WISH".NAz..".TO|
00003930: 20 52 45 54 55 52 4E 20 54 4F 20 41 4E 20 45 41 | RETURN TO AN EA|
00003940: 52 4C 49 45 52 20 27 50 41 47 45 27 2E 22 00 79 |RLIER 'PAGE'.".y|
00003950: 41 7B E6 99 22 11 4A 55 53 54 20 12 48 49 54 20 |A{..".JUST .HIT |
00003960: 54 48 45 20 40 2D 4B 45 59 92 2C 20 41 54 20 41 |THE @-KEY., AT A|
00003970: 4E 59 20 54 49 4D 45 2C 22 00 9F 41 7C E6 99 22 |NY TIME,"..A|.."|
00003980: 11 41 4E 44 20 54 48 45 20 54 55 54 4F 52 49 41 |.AND THE TUTORIA|
00003990: 4C 20 57 49 4C 4C 20 42 41 43 4B 20 55 50 22 00 |L WILL BACK UP".|
000039A0: B6 41 7D E6 99 22 11 41 20 50 41 47 45 20 4F 52 |.A}..".A PAGE OR|
000039B0: 20 54 57 4F 2E 22 00 DF 41 7E E6 99 22 11 41 4C | TWO."..A~..".AL|
000039C0: 53 4F 2C 20 59 4F 55 20 48 41 56 45 20 41 4E 20 |SO, YOU HAVE AN |
000039D0: 4F 50 50 4F 52 54 55 4E 49 54 59 20 54 4F 22 00 |OPPORTUNITY TO".|
000039E0: 02 42 7F E6 99 22 11 43 4F 4D 50 4F 53 45 20 59 |.B...".COMPOSE Y|
000039F0: 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 4D 53 |OUR OWN PROGRAMS|
00003A00: 2E 22 00 29 42 80 E6 99 22 11 57 48 45 4E 20 59 |.".)B...".WHEN Y|
00003A10: 4F 55 20 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 |OU WISH TO CONTI|
00003A20: 4E 55 45 20 57 49 54 48 22 00 57 42 81 E6 99 22 |NUE WITH".WB..."|
00003A30: 11 54 48 45 20 54 55 54 4F 52 49 41 4C 2C 20 12 |.THE TUTORIAL, .|
00003A40: 48 49 54 20 54 48 45 20 40 2D 4B 45 59 92 21 22 |HIT THE @-KEY.!"|
00003A50: 3A 8D 36 33 30 30 30 00 75 42 82 E6 4D 53 24 B2 |:.63000.uB..MS$.|
00003A60: 22 12 40 92 5F 52 45 4D 45 4D 42 45 52 22 3A 8D |".@._REMEMBER":.|
00003A70: 36 33 31 30 30 00 82 42 8C E6 8D 36 33 30 30 30 |63100..B...63000|
00003A80: 3A 8E 00 9A 42 60 EA 97 32 30 34 2C 31 3A 8F 20 |:...B`..204,1:. |
00003A90: 49 4E 49 54 49 41 4C 49 5A 45 00 BC 42 61 EA 42 |INITIALIZE..Ba.B|
00003AA0: 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 3A 42 |T$.".":.I.1.24:B|
00003AB0: 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 06 43 62 |T$.BT$.".":...Cb|
00003AC0: EA 50 54 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 |.PT$."..........|
00003AD0: C0 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003AE0: DD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D |................|
00003AF0: 9D 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 |................|
00003B00: C0 C0 C0 B2 BD 22 00 4E 43 63 EA 50 54 24 B2 50 |.....".NCc.PT$.P|
00003B10: 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |T$."............|
00003B20: 9D 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD |................|
00003B30: 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 |................|
00003B40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 8A |============."..|
00003B50: 43 64 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D |Cd.PT$.PT$."....|
00003B60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 |................|
00003B70: A3 A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D |................|
00003B80: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 C1 43 65 EA 50 |........."..Ce.P|
00003B90: 54 24 B2 42 54 24 AA 22 91 91 91 91 91 91 1D 1D |T$.BT$."........|
00003BA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003BB0: 1D 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 AA 22 90 |........".PT$.".|
00003BC0: 22 00 F1 43 67 EA 4D 4C 24 B2 22 13 11 11 11 11 |"..Cg.ML$.".....|
00003BD0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003BE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003BF0: 22 00 0C 44 68 EA 57 44 B2 34 30 3A 43 52 54 B2 |"..Dh.WD.40:CRT.|
00003C00: 31 30 32 34 3A 99 C7 28 31 34 32 29 00 30 44 69 |1024:..(142).0Di|
00003C10: EA 57 32 B2 57 44 AD 32 3A 57 33 B2 57 44 AB 31 |.W2.WD.2:W3.WD.1|
00003C20: 3A 57 31 24 B2 CA 28 C4 28 57 44 29 2C 32 29 3A |:W1$..(.(WD),2):|
00003C30: 00 52 44 6A EA 57 32 24 B2 CA 28 C4 28 57 32 29 |.RDj.W2$..(.(W2)|
00003C40: 2C 32 29 3A 57 33 24 B2 CA 28 C4 28 57 33 29 2C |,2):W3$..(.(W3),|
00003C50: 32 29 00 74 44 74 EA 99 22 93 22 3A 97 35 33 32 |2).tDt..".":.532|
00003C60: 38 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 32 3A |81,15:.53280,12:|
00003C70: 99 22 90 22 00 A2 44 46 EE 8B C2 28 37 38 39 29 |."."..DF...(789)|
00003C80: B3 B1 37 AC 31 36 AA 31 35 A7 9E 28 37 AC 34 30 |..7.16.15..(7.40|
00003C90: 39 36 AA 31 35 AC 32 35 36 AA 31 32 AC 31 36 AA |96.15.256.12.16.|
00003CA0: 33 29 00 A8 44 47 EE 8E 00 BC 44 48 EE 8F 2A 4E |3)..DG....DH..*N|
00003CB0: 45 57 20 57 4F 52 4B 53 50 41 43 45 00 D6 44 49 |EW WORKSPACE..DI|
00003CC0: EE 4D B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 |.M.7.4096.15.256|
00003CD0: AA 31 35 AC 31 36 00 DC 44 4A EE 8C 00 F4 44 4B |.15.16..DJ....DK|
00003CE0: EE 81 49 B2 4D A4 4D AA 31 35 3A 87 4B 3A 97 49 |..I.M.M.15:.K:.I|
00003CF0: 2C 4B 3A 82 00 0E 45 4C EE 83 20 31 2C 39 36 2C |,K:...EL.. 1,96,|
00003D00: 33 2C 39 36 2C 33 2C 39 36 2C 33 2C 39 36 00 2C |3,96,3,96,3,96.,|
00003D10: 45 4D EE 83 20 31 34 34 2C 31 32 37 2C 30 2C 30 |EM.. 144,127,0,0|
00003D20: 2C 31 34 34 2C 31 32 37 2C 30 2C 30 00 49 45 4E |,144,127,0,0.IEN|
00003D30: EE 4D B2 36 AC 34 30 39 36 3A 81 49 B2 30 A4 32 |.M.6.4096:.I.0.2|
00003D40: 3A 97 4D AA 49 2C 30 3A 82 00 4F 45 4F EE 8E 00 |:.M.I,0:..OEO...|
00003D50: 88 45 18 F6 99 22 13 11 11 11 11 11 11 11 11 11 |.E..."..........|
00003D60: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 48 49 |..............HI|
00003D70: 54 20 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F |T .RETURN. TO CO|
00003D80: 4E 54 49 4E 55 45 22 3B 00 9E 45 19 F6 A1 41 24 |NTINUE";..E...A$|
00003D90: 3A 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 B3 |:.A$.."".63001..|
00003DA0: 45 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 |E...A$:.A$."".63|
00003DB0: 30 30 32 00 BB 45 1B F6 99 3A 8E 00 CF 45 7C F6 |002..E...:...E|.|
00003DC0: 81 54 B2 31 A4 35 3A 99 50 54 24 4D 53 24 3B 00 |.T.1.5:.PT$MS$;.|
00003DD0: E5 45 7D F6 99 50 54 24 22 20 20 20 20 20 20 20 |.E}..PT$" |
00003DE0: 20 20 20 22 3B 00 F4 45 7E F6 99 50 54 24 4D 53 | ";..E~..PT$MS|
00003DF0: 24 3B 3A 82 00 FC 45 7F F6 99 3A 8E 00 21 46 E0 |$;:...E...:..!F.|
00003E00: F6 97 35 36 2C 39 36 3A 97 35 32 2C 39 36 3A 97 |..56,96:.52,96:.|
00003E10: 35 35 2C 30 3A 97 35 31 2C 30 3A 8D 36 31 30 30 |55,0:.51,0:.6100|
00003E20: 30 00 33 46 E1 F6 57 44 B2 34 30 3A 99 C7 28 31 |0.3F..WD.40:..(1|
00003E30: 34 32 29 00 4C 46 E2 F6 4D B2 37 AC 34 30 39 36 |42).LF..M.7.4096|
00003E40: AA 31 35 AC 32 35 36 AA 39 AC 31 36 00 64 46 E3 |.15.256.9.16.dF.|
00003E50: F6 81 49 B2 4D A4 4D AA 39 31 3A 87 4B 3A 97 49 |..I.M.M.91:.K:.I|
00003E60: 2C 4B 3A 82 00 AB 46 E4 F6 83 31 36 35 2C 32 30 |,K:...F...165,20|
00003E70: 33 2C 32 30 31 2C 34 36 2C 32 30 38 2C 38 33 2C |3,201,46,208,83,|
00003E80: 33 32 2C 31 39 35 2C 31 32 37 2C 31 36 35 2C 34 |32,195,127,165,4|
00003E90: 34 2C 32 30 31 2C 38 2C 32 34 30 2C 33 2C 33 32 |4,201,8,240,3,32|
00003EA0: 2C 31 37 37 2C 31 32 37 2C 33 32 00 F0 46 E5 F6 |,177,127,32..F..|
00003EB0: 83 31 34 32 2C 31 36 36 2C 31 36 35 2C 34 34 2C |.142,166,165,44,|
00003EC0: 32 30 31 2C 38 2C 32 34 30 2C 33 2C 37 36 2C 31 |201,8,240,3,76,1|
00003ED0: 32 38 2C 31 36 34 2C 37 36 2C 31 37 34 2C 31 36 |28,164,76,174,16|
00003EE0: 37 2C 31 36 32 2C 31 36 2C 31 38 39 2C 32 33 39 |7,162,16,189,239|
00003EF0: 00 39 47 E6 F6 83 31 32 37 2C 37 32 2C 31 38 31 |.9G...127,72,181|
00003F00: 2C 34 32 2C 31 35 37 2C 32 33 39 2C 31 32 37 2C |,42,157,239,127,|
00003F10: 31 30 34 2C 31 34 39 2C 34 32 2C 32 30 32 2C 32 |104,149,42,202,2|
00003F20: 30 38 2C 32 34 31 2C 39 36 2C 31 32 30 2C 31 37 |08,241,96,120,17|
00003F30: 33 2C 32 33 38 2C 31 32 37 00 7E 47 E7 F6 83 37 |3,238,127.~G...7|
00003F40: 37 2C 32 30 2C 33 2C 31 34 31 2C 32 30 2C 33 2C |7,20,3,141,20,3,|
00003F50: 31 37 33 2C 32 33 39 2C 31 32 37 2C 37 37 2C 32 |173,239,127,77,2|
00003F60: 31 2C 33 2C 31 34 31 2C 32 31 2C 33 2C 38 38 2C |1,3,141,21,3,88,|
00003F70: 39 36 2C 31 37 33 2C 32 30 2C 33 2C 37 33 00 BD |96,173,20,3,73..|
00003F80: 47 E8 F6 83 31 34 34 2C 31 34 31 2C 32 33 38 2C |G...144,141,238,|
00003F90: 31 32 37 2C 31 37 33 2C 32 31 2C 33 2C 37 33 2C |127,173,21,3,73,|
00003FA0: 31 32 37 2C 31 34 31 2C 32 33 39 2C 31 32 37 2C |127,141,239,127,|
00003FB0: 39 36 2C 37 36 2C 32 35 35 2C 32 35 35 00 DB 47 |96,76,255,255..G|
00003FC0: F0 F6 97 4D AA 39 30 2C C2 28 37 38 38 29 3A 97 |...M.90,.(788):.|
00003FD0: 4D AA 39 31 2C C2 28 37 38 39 29 00 F9 47 F4 F6 |M.91,.(789)..G..|
00003FE0: 4B 45 59 B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 |KEY.7.4096.15.25|
00003FF0: 36 AA 31 33 AC 31 36 AA 38 00 17 48 F5 F6 9E 28 |6.13.16.8..H...(|
00004000: 4B 45 59 29 3A 8F 20 4B 45 59 20 46 4F 52 20 49 |KEY):. KEY FOR I|
00004010: 52 51 20 53 57 41 50 00 1D 48 43 F7 8E 00 3B 48 |RQ SWAP..HC...;H|
00004020: 44 F7 8F 2A 53 57 49 54 43 48 20 54 4F 20 4E 45 |D..*SWITCH TO NE|
00004030: 57 20 57 4F 52 4B 53 50 41 43 45 00 53 48 45 F7 |W WORKSPACE.SHE.|
00004040: 8D 36 33 36 30 30 3A 8F 20 52 55 4E 20 4E 55 4D |.63600:. RUN NUM|
00004050: 42 45 52 00 72 48 46 F7 8D 36 31 30 30 30 3A 8F |BER.rHF..61000:.|
00004060: 20 4E 45 57 20 54 48 45 20 57 4F 52 4B 53 50 41 | NEW THE WORKSPA|
00004070: 43 45 00 7D 48 47 F7 89 36 33 34 30 33 00 9B 48 |CE.}HG..63403..H|
00004080: A8 F7 8F 2A 53 57 49 54 43 48 20 54 4F 20 4F 4C |...*SWITCH TO OL|
00004090: 44 20 57 4F 52 4B 53 50 41 43 45 00 A6 48 A9 F7 |D WORKSPACE..H..|
000040A0: 8D 36 33 36 30 30 00 C6 48 AB F7 53 57 54 43 48 |.63600..H..SWTCH|
000040B0: B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 39 |.7.4096.15.256.9|
000040C0: AC 31 36 AA 31 35 00 E3 48 AC F7 9E 28 53 57 54 |.16.15..H...(SWT|
000040D0: 43 48 29 3A 8F 20 53 57 41 50 20 50 4F 49 4E 54 |CH):. SWAP POINT|
000040E0: 45 52 53 00 F0 48 AD F7 97 32 30 34 2C 32 3A 80 |ERS..H...204,2:.|
000040F0: 00 02 49 0C F8 8F 2A 52 45 53 54 4F 52 45 20 50 |..I...*RESTORE P|
00004100: 45 54 00 17 49 0D F8 53 4E 24 B2 22 31 30 30 22 |ET..I..SN$."100"|
00004110: 3A 8D 36 33 36 30 30 00 46 49 0E F8 4D B2 37 AC |:.63600.FI..M.7.|
00004120: 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 32 AC 31 |4096.15.256.12.1|
00004130: 36 AA 33 3A 8B C2 28 37 38 39 29 B2 37 AC 31 36 |6.3:..(789).7.16|
00004140: AA 31 35 A7 9E 4D 00 4C 49 0F F8 8E 00 64 49 70 |.15..M.LI....dIp|
00004150: F8 8F 2A 49 4E 53 45 52 54 20 52 55 4E 20 4E 55 |..*INSERT RUN NU|
00004160: 4D 42 45 52 00 7F 49 71 F8 4D B2 32 30 35 39 3A |MBER..Iq.M.2059:|
00004170: 53 4E 24 B2 22 30 30 30 30 30 22 AA 53 4E 24 00 |SN$."00000".SN$.|
00004180: 9F 49 72 F8 81 49 B2 31 A4 35 3A 97 4D AB 49 2C |.Ir..I.1.5:.M.I,|
00004190: C6 28 C9 28 53 4E 24 2C 49 29 29 3A 82 3A 8E 00 |.(.(SN$,I)):.:..|
000041A0: 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".N"..."102 FORI=
1TO12:READ M$(I): NEXT.."..."104 MAXV=0:
ML=0".."..."105 FOR I=1TO12".!#".."110 ?
M$(I)"G(34)" VALUE="G(34).7#,.."120 INPU
T V(I)".^#B.."130 IF MAXV<V(I) THEN MAXV
=V(I)".{#>.."140 L=LEN(STR$(V(I)))"..#H.
."150 IF ML<L THEN ML=L"..#..."160 NEXT"
.U#...:."NOTE THAT WE'VE ADDED THE DIMEN
SION"..#..."OF THE V'S, IN #90."..$..."W
E'VE ALSO STARTED ML,(THE MAX'M LENGTH".
L$..."OF THE V'S),WITH THE VALUE 0..IN#1
04.".W$J..63000.$T..".OK..YOU ENTER THE
SE STATEMENTS."..$..." ..."..$..."TYP
E .RUN. TO START YOUR PROGRAM,".Z$..."AN
D SEE IF IT WORKS SO FAR!"..%...".AFTER
ENTERING 12 NUMBERS,WHEN ASKED,"..%..."Y
OU CAN TYPE: ".,%...".?V(3)".\%...".AND
I'LL PRINT THE MARCH VALUE ENTERED."..%$
.."WHEN YOU WANT TO CONTINUE, TYPE .@"..
%)..:...%...63000..%B..".HERE'S THE PROG
RAM AGAIN:"..%V.."REMEMBER,YOU NEEDN'T R
ETYPE ALL THIS!"..&`.."JUST PRESS HOME A
ND A BUNCH OF RETURNS.".D&J.."
.... ......".O&O..:."(..
AND I'LL THINK YOU TYPED THEM)".Z&T..630
00..&~..".";..&Z!."90 DIM M$(12),V(12)".
G&.!."100 DATA JAN,FEB,MAR,APR,MAY,JUN".
.&.!."101 DATA JUL,AUG,SEP,OCT,NOV,DEC".
.'.!:."102 FORI=1TO12:READ M$(I):NEXT".-
'.!."104 MAXV=0:ML=0".D'.!."105 FOR I=1T
O12".I'.!."110 ?M$(I)"G(34)" VALUE="G(34
).'.!."120 INPUT V(I)"..'."."130 IF MAX
V<V(I) THEN MAXV=V(I)".C'.$."140 L=LEN(S
TR$(V(I)))"..'.$."150 IF ML<L THEN ML=L"
..'H$."160 NEXT"..(R$.".(REMEMBER...TYPE
@. TO CONT.)".-(|$SN$."10000":.63400.S(
.'.60000:.".OK..LET'S FORGE AHEAD!".N(.'
MS$."GO!GO!GO!":.63100.Y(.'.63000. (.'."
.WE'LL START PRINTING THE BARS."..($'."T
YPE:".D(.'.:."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$)
.N)J'."230 ?"G(34)"."G(34)"L$"G(34)"."G(
34)";".H)T'."240 S=V(I)*30/MAXV"..)~'."2
50 IS=INT(S):FS=S-IS"..).'."260 FORJ=1TO
IS:?S$(8);:NEXT"..).'."270 ?S$(8*FS)".M)
.'."280 NEXT"..).'.:."#180 PRINTS(IN RVS
)THE MONTH,AND A -.".)*.'."#190/200 CONV
ERTS THE VALUE V(I) TO A".Q*.'." STRING
(L$),AND DETERMINES THE".T*D'." LENGTH
OF THE STRING (L)."..*I'."#230 PRINTS L
$ AND A ..."..*N'."#240 REDUCES THE VALU
E OF THE V'S SO"..*X'." THE LARGEST IS
30. THE REDUCED VALUE"..+.'." IS CALLED
S."..+.'.".HIT A KEY.".,+.'.A$:.A$."".1
0230.[+.(.:."#250 GETS THE INTEGER PART
OF S..(IS)"..+.(." AND THE FRACTIONAL P
ART OF S..(FS)"..+.(."#260 PRINTS A BUNC
H OF . .'S".Y+.(."#270 PRINTS THE FINAL
FRACTIONAL PIECE"..,((." OF S$(8),NAMEL
Y S$(1) OR S$(2)..ETC.".5,2(." ACCORDIN
G TO THE SIZE OF THE FRACT'L".T,<(." PA
RT OF S, NAMELY FS."._, (.63000..,.(.".P
LEASE ENTER THE PROGRAM."..,.(.".I'LL PU
T IT RIGHT AFTER THE STATEMENTS"..,H(.".
#99-#160. AFTER YOU HAVE ENTERED IT..".
.,R(."..TRY IT.!"..-.(.".IN PARTICULAR,
ENTER VALUES".@-.(.".WHICH HAVE DIFFEREN
T LENGTHS,LIKE:".V-.(.".123 AND 1234."..
-.(.".(THEN YOU'LL SEE WE'VE GOT SOME WO
RK TO"..-.)."DO ON THE PROGRAM!)".B-H)."
..SEE IF YOU CAN FIX IT.!"..-R).".(THEN
TYPE .@. TO CONTINUE)"....)."...RETURN.
TO GET THE PROGRAM"....).63001.0..).".HE
RE IT IS AGAIN.".?..).I.1.500:..H..*."."
._..+.:."170 FORI=1TO12... +."180 ?"G(34
)"."G(34)"M$(I)"G(34)"-"G(34)";...*+."19
0 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-IS".C/P+."260 FORJ=1TOIS:?S
$(8);:NEXT".X/Z+."270 ?S$(8*FS)".H/.+."2
80 NEXT"../.+.:."(TYPE .@. TO CONT.)"../
.+SN$."12000":.63400.F/...60000:.".": M
S$."WORK TO DO":.63100../...".YOU CAN SE
E HOW IMPORTANT THE LENGTH".!0..."OF THE
VALUES IS! IN FACT THAT'S WHY I".M0..."
ASKED YOU TO INCLUDE THE STATEMENTS:".F0
...".190L$=STR$(V(I))".Z0./."200L=LEN(L$
)"..0./."..THE PROGRAM DIDN'T EVEN USE T
HEM!."..0./.".NOW ...".Y0!/."WE'LL INSER
T #210 & #220:":...0&/.".210 IF L=ML GOT
O230..10/."220 FORJ=1TOML-L:?S$(8);:NEXT
.F1:/."230 ?"G(34)"."G(34)"L$"G(34)"."G(
34)";".`1D/."240 S=V(I)*30/MAXV".N1N/."E
TC.":...1X/.".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 PRINT
ING OF THE V'S HAS THE".:2./."SAME NO. O
F SPACES.".J2./."#220 INSERTS THESE . .'
S BEFORE PRINTING"..2./."THE VALUE,IN #2
30(CALLED L$)."..2./."IF THE VALUE ABOUT
TO BE PRINTED HAS"..2./."MAX'M LENGTH (
L=ML) WE OMIT THE . .'S."..2./." ....."
..3./.63000.(3F/."..FINALLY.,IN A FOR-NE
XT LOOP".Q3P/."I ALWAYS OBEY THE INST'NS
BETWEEN".|3Z/." "G(34)"FOR"G(34)" AND
"G(34)"NEXT"..3./."AT LEAST ONCE BEFORE
CHECKING IF I'VE".H3./."DONE THEM OFTEN
ENOUGH!"..3./.".THAT MEANS THAT,IN A LOO
P SUCH AS:"..4.0.".260 FOR J=1 TO IS".54
.0.:."I'LL OBEY THE NEXT INST'N ONCE".`4
.0."EVEN IF "G(34)"IS"G(34)" IS ZERO(!)"
..4 0."SO YOU MUST CHECK FOR: IS=0 LIKE
SO:"..4*0.".255 IF IS=0 GO TO 270"..440.
".THEN,IN #270,YOU PRINT THE FRACT'L PIE
CE"..4>0."OF S$(8) ONLY."..4H0.63000.*5R
0."THE "G(34)"FINISHED"G(34)" PRODUCT IS
:".A5.2.:."170 FORI=1TO12.Q5.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=ML GOTO230..5.3."220 FORJ=1
TOML-L:?S$(8);:NEXT..6"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".W663.
"250 IS=INT(S):FS=S-IS".P6;3."255 IFIS=0
GOTO270"..6@3."260 FORJ=1TOIS:?S$(8);:NE
XT"..6J3."270 ?S$(8*FS)"..6T3."280 NEXT"
..6Y3.:."(NOTE THAT #230 INCLUDES A RVS-
OFF)"..7^3.:."ENTER THESE STATEMENTS AND
.TRY IT".07H3."..TYPE .@. TO CONTINUE."
.G7R3SN$."15000":.63400.N7.:.60000:.".":
MS$."IT WORKS!":.63100. 7.:."...LET ME S
AY ONE LAST THING..ABOUT .GET..".M7.:.:.
"YOU MAY TYPE THINGS ON THE KEYBOARD"..7
.:.:."WHILE I'M BUSY DOING SOMETHING..."
.(8.:.:."AND I'LL KEEP UP TO 10 KEYPUNCH
ES IN A".D8.:.:."'KEYBOARD BUFFER'.".U8.
:.:."WHEN I RETURN TO 'GET' THE NEXT INS
T'N "..8.:.:."FROM THE KEYBOARD I'LL CHE
CK THE BUFFER".P8.:.:."AND TAKE THE ENTR
IES FROM THERE."..8.:.:."(IN FACT I ALWA
YS TAKE KEYBOARD INPUT".#9.:.:."FROM THE
KEYBOARD BUFFER).".09.:.:.63000._9.:.".
WHEN WRITING A PROGRAM YOU CAN INCLUDE".
Z9E:.:."A STATEMENT LIKE:"..9J:.:.".100
GETA$:IFA$="G(34)G(34) "GOTO100".W9T:.:.
"THAT SAYS:'GET' A CHARACTER FROM THE ".
.:Y:.".KEYBOARD BUFFER,IF THE CH'R IS .N
ULL.".3:.:.:."(SEE..'NOTHING' BETWEEN TH
E QUOTES!)".O:.:.:."THEN KEEP TRYING!!".
^:.:.:.:.63000.{:.:.".TO EMPTY THE BUFFE
R:"..:.:.:.".100 FORI=1TO10:GETA$:NEXT".
P:.:.:."..TAKING 10 CHARACTERS FROM THE
BUFFER."..:.:.:."THAT'S ENOUGH TO EMPTY
IT!"..;.:.:."..OR YOU CAN HAVE:".>;.;.:.
".100 GETA$:IFA$<>"G(34)G(34)"THEN100".M
;.;.".THIS WILL 'GET' A CHARACTER UNTIL
THE "..;.;.".BUFFER IS EMPTY."..;.;.:.63
000.A;.;."..DURING .TUTOR. YOU MAY HAVE
NOTICED:"..;.;.".'HIT .RETURN. TO CONTIN
UE.'."..<$;.".THE LITTLE SUBROUTINE WHIC
H PRINTS".<<);.".THIS AT THE BOTTOM OF T
HE SCREEN..".W<*;.".THEN WAITS!..IS:..".
B<.;.63000..<=;.".":MS$.".AU REVOIR!.":.
63100:.63500:."."..<B;.63000.63003..< N.
".".X<%N.". BEFORE I FORGET, I SHOULD IN
TRODUCE"..<*N.".MY FRIEND"G(34)"CURSOR"G
(34)"."..=/N.I.1.1000:..;=0NWD.80:.32768
.1024,96:.B(32768).96.WD.40._=4N."I CALL
HIM .CRSR. FOR SHORT.".O=9N.I.1.1500:..
.=>N.".COME ON CRSR..DON'T BE SHY."..=HN
.I.1.2000:...=RN.I.1.10..=\N.".";:..F=FN
..14);..=PN.I.1.8:.T.1.50:...=ZN." ... .
.";:...=.N.I.1.500:...>.N.". _THAT'S HIM
".C>.NCSR.32768.8.WD.14:.I.1.100:.CSR,32
:.CSR,160:..C>.N.".THEN WE HAVE CRSR-LEF
T";.{>.N." "G(34)"."G(34)..>.N.I.1.500
:.:...>.N."AND CRSR-RIGHT";..>.N." "
G(34)"."G(34).N>AN.I.1.500:.:...>JN."AND
CRSR-UP";..>TN." "G(34)"."G(34)..?U
N.I.1.500:.:..#?.N."AND CRSR-DOWN";.=?.N
." "G(34)"."G(34).O?.N.I.1.1500:.:..
P?.N."(ALL BROTHERS,OF COURSE)."..?.N.I.
1.1000:.:...?.N."WE ALSO HAVE HOME";..?.
O." "G(34)"."G(34).D?.O.I.1.200:..Z?.
O."..AND CLEAR ";..?.O." "G(34)"."G(
34)..@.O.I.1.200:..%@$O."..AND RVS "
G(34)"."G(34).4@%O.I.1.200:..Z@.O."..AND
RVS-OFF "G(34)"."G(34).K@8O.I.1.500:
.:...@BO.">>>GET TO KNOW THEM<<<"..@GO.I
.1.200:.:..D@LO."INSIDE QUOTES,THEY DO T
HEIR THING.".U@.O.I.1.500:.:...@.P.63000
:...@@[.63000..@X..".":.63100.&AY..".DUR
ING THE TUTORIAL YOU MAY WISH".NAZ..".TO
RETURN TO AN EARLIER 'PAGE'.".YA{..".JU
ST .HIT THE @-KEY., AT ANY TIME,"..A|.."
.AND THE TUTORIAL WILL BACK UP"..A}..".A
PAGE OR TWO."..A~..".ALSO, YOU HAVE AN
OPPORTUNITY TO"..B..".COMPOSE YOUR OWN
PROGRAMS.".)B...".WHEN YOU WISH TO CONTI
NUE WITH".WB...".THE TUTORIAL, .HIT THE
@-KEY.!":.63000.UB..MS$.".@._REMEMBER":.
63100..B...63000:...B`..204,1:. INITIALI
ZE..BA.BT$.".":.I.1.24:BT$.BT$.".":...CB
.PT$."..................................
.............................".NCC.PT$.P
T$."..............N............M........
........============."..CD.PT$.PT$."....
...........PO..........PO...............
.".ACE.PT$.BT$."........................
........".PT$."."..CG.ML$.".............
........................"..DH.WD.40:CRT.
1024:.G(142).0DI.W2.WD.2:W3.WD.1:W1$.J(D
(WD),2):.RDJ.W2$.J(D(W2),2):W3$.J(D(W3),
2).TDT..".":.53281,15:.53280,12:."."..DF
..B(789)..7.16.15..(7.4096.15.256.12.16.
3)..DG....DH..*NEW WORKSPACE.VDI.M.7.409
6.15.256.15.16..DJ....DK..I.M.M.15:.K:.I
,K:...EL.. 1,96,3,96,3,96,3,96.,EM.. 144
,127,0,0,144,127,0,0.IEN.M.6.4096:.I.0.2
:.M.I,0:..OEO....E..."..................
......HIT .RETURN. TO CONTINUE";..E...A$
:.A$.."".63001..E...A$:.A$."".63002..E..
.:..OE|..T.1.5:.PT$MS$;..E}..PT$"
";..E~..PT$MS$;:...E..:..!F...56,96:
.52,96:.55,0:.51,0:.61000.3F..WD.40:.G(1
42).LF..M.7.4096.15.256.9.16.DF...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,166,165,44,201,8,240,3,76,1
28,164,76,174,167,162,16,189,239.9G...12
7,72,181,42,157,239,127,104,149,42,202,2
08,241,96,120,173,238,127.~G...77,20,3,1
41,20,3,173,239,127,77,21,3,141,21,3,88,
96,173,20,3,73..G...144,141,238,127,173,
21,3,73,127,141,239,127,96,76,255,255..G
...M.90,B(788):.M.91,B(789)..G..KEY.7.40
96.15.256.13.16.8..H...(KEY):. KEY FOR I
RQ SWAP..HC...;HD..*SWITCH TO NEW WORKSP
ACE.SHE..63600:. RUN NUMBER.RHF..61000:.
NEW THE WORKSPACE.}HG..63403..H...*SWIT
CH TO OLD WORKSPACE..H...63600.FH..SWTCH
.7.4096.15.256.9.16.15..H...(SWTCH):. SW
AP POINTERS..H...204,2:...I...*RESTORE P
ET..I..SN$."100":.63600.FI..M.7.4096.15.
256.12.16.3:.B(789).7.16.15..M.LI....DIP
..*INSERT RUN NUMBER.IQ.M.2059:SN$."000
00".SN$..IR..I.1.5:.M.I,F(I(SN$,I)):.:..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL