VOLUME.4

00000000: 01 1C 3E 1C 0A 00 8F 20  22 C9 20 41 4D 20 41 20  |..>.... ". AM A |
00000010: C3 31 32 38 20 56 4F 4C  55 4D 45 20 34 20 53 48  |.128 VOLUME 4 SH|
00000020: 45 4C 4C 20 32 2E 33 20  56 45 52 53 49 4F 4E 20  |ELL 2.3 VERSION |
00000030: 30 34 2F 32 31 2F 38 36  20 31 32 3A 33 37 00 6D  |04/21/86 12:37.m|
00000040: 1C 14 00 8F 20 22 57 52  49 54 54 45 4E 20 42 59  |.... "WRITTEN BY|
00000050: 20 C2 52 55 43 45 20 CD  4F 52 47 41 4E 20 41 4E  | .RUCE .ORGAN AN|
00000060: 44 20 C5 44 57 49 4E 20  D2 45 49 43 48 00 8E 1C  |D .DWIN .EICH...|
00000070: 1E 00 8F 20 22 43 4F 50  59 52 49 47 48 54 20 31  |... "COPYRIGHT 1|
00000080: 39 38 36 20 C1 43 54 49  56 49 53 49 4F 4E 00 B1  |986 .CTIVISION..|
00000090: 1C 32 00 89 20 31 31 30  39 31 3A 8F 20 53 54 41  |.2.. 11091:. STA|
000000A0: 52 54 20 41 54 20 56 4F  4C 55 4D 45 20 4D 45 4E  |RT AT VOLUME MEN|
000000B0: 55 00 D0 1C 64 00 8F 20  2D 2D 2D 2D 2D 20 43 48  |U...d.. ----- CH|
000000C0: 45 43 4B 20 46 4F 52 20  4B 45 59 50 52 45 53 53  |ECK FOR KEYPRESS|
000000D0: 00 EE 1C 6C 00 4B 42 B2  AB 31 3A 53 44 B2 30 3A  |...l.KB..1:SD.0:|
000000E0: A1 4B 42 24 3A 8B 4B 42  24 B2 22 22 A7 8E 00 01  |.KB$:.KB$.""....|
000000F0: 1D 74 00 8B 4B 42 24 B2  48 50 24 A7 31 30 30 30  |.t..KB$.HP$.1000|
00000100: 30 00 17 1D 76 00 4B 42  B2 53 4B 28 D4 28 53 4B  |0...v.KB.SK(.(SK|
00000110: 24 2C 4B 42 24 29 29 00  32 1D 78 00 8B 4B 42 B2  |$,KB$)).2.x..KB.|
00000120: 33 A7 53 44 B2 31 3A D5  8B 4B 42 B1 30 A7 53 44  |3.SD.1:..KB.0.SD|
00000130: B2 32 00 48 1D 80 00 91  4B 42 89 36 30 30 30 30  |.2.H....KB.60000|
00000140: 2C 36 30 35 30 30 3A 8E  00 70 1D 96 00 8F 20 2D  |,60500:..p.... -|
00000150: 2D 2D 2D 2D 20 57 41 49  54 20 46 4F 52 20 41 20  |---- WAIT FOR A |
00000160: 4B 45 59 42 4F 41 52 44  20 43 4F 4D 4D 41 4E 44  |KEYBOARD COMMAND|
00000170: 00 8C 1D A0 00 97 32 30  38 2C 30 3A EB 3A 8D 31  |......208,0:.:.1|
00000180: 30 30 3A EC FD 4B 42 B3  B2 30 3A 8E 00 A9 1D C8  |00:..KB..0:.....|
00000190: 00 8F 20 2D 2D 2D 2D 2D  20 57 41 49 54 20 46 4F  |.. ----- WAIT FO|
000001A0: 52 20 41 4E 59 20 4B 45  59 00 C5 1D D2 00 97 32  |R ANY KEY......2|
000001B0: 30 38 2C 30 3A EB 3A 8D  31 30 30 3A EC FD 4B 42  |08,0:.:.100:..KB|
000001C0: B2 AB 31 3A 8E 00 FE 1D  FA 00 8F 20 2D 2D 2D 2D  |..1:....... ----|
000001D0: 2D 20 44 45 4C 41 59 20  46 4F 52 20 28 44 56 29  |- DELAY FOR (DV)|
000001E0: 20 4C 4F 4F 50 53 20 57  48 49 4C 45 20 43 48 45  | LOOPS WHILE CHE|
000001F0: 43 4B 49 4E 47 20 4B 45  59 42 4F 41 52 44 00 24  |CKING KEYBOARD.$|
00000200: 1E FE 00 97 32 30 38 2C  30 3A 81 44 56 B2 44 56  |....208,0:.DV.DV|
00000210: A4 30 A9 AB 31 3A 8D 31  30 30 3A 8B 4B 42 B3 31  |.0..1:.100:.KB.1|
00000220: A7 82 44 56 00 2A 1E 06  01 8E 00 76 1E 36 01 8F  |..DV.*.....v.6..|
00000230: 20 2D 2D 2D 2D 2D 20 43  45 4E 54 45 52 20 55 50  | ----- CENTER UP|
00000240: 24 28 55 50 29 20 4F 4E  20 32 34 20 49 4E 20 57  |$(UP) ON 24 IN W|
00000250: 48 49 54 45 2C 20 44 4F  45 53 4E 27 54 20 43 48  |HITE, DOESN'T CH|
00000260: 41 4E 47 45 20 43 4F 4C  4F 52 20 4F 52 20 50 4F  |ANGE COLOR OR PO|
00000270: 53 49 54 49 4F 4E 00 AB  1E 38 01 8B CC 28 30 29  |SITION...8...(0)|
00000280: B2 30 B0 47 53 B3 32 35  A7 FE 18 3A 99 C7 28 32  |.0.GS.25...:..(2|
00000290: 37 29 22 4F 22 3B 3A 81  49 B2 30 A4 37 3A 49 28  |7)"O";:.I.0.7:I(|
000002A0: 49 29 B2 C2 28 32 32 34  AA 49 29 00 DD 1E 3B 01  |I)..(224.I)...;.|
000002B0: 82 3A 49 B2 B9 28 58 29  3A 4A B2 C2 28 32 33 35  |.:I..(X):J..(235|
000002C0: 29 3A 4B B2 CD 28 35 29  3A E7 35 2C 46 31 3A FE  |):K..(5):.5,F1:.|
000002D0: 1A 30 2C 32 34 2C 33 39  2C 32 34 2C 31 00 0F 1F  |.0,24,39,24,1...|
000002E0: 40 01 99 A3 32 30 AB C3  28 55 50 24 28 55 50 29  |@...20..(UP$(UP)|
000002F0: 29 AD 32 29 55 50 24 28  55 50 29 3B 3A E7 35 2C  |).2)UP$(UP);:.5,|
00000300: 4B 3A 97 32 33 35 2C 4A  3A 97 32 33 36 2C 49 00  |K:.235,J:.236,I.|
00000310: 42 1F 45 01 81 49 B2 30  A4 37 3A 97 32 32 34 AA  |B.E..I.0.7:.224.|
00000320: 49 2C 49 28 49 29 3A 82  3A FE 19 3A D5 FE 18 49  |I,I(I):.:..:...I|
00000330: B2 C2 28 34 34 34 36 29  3A 4A B2 C2 28 34 34 34  |..(4446):J..(444|
00000340: 37 29 00 7E 1F 4A 01 4B  B2 CD 28 31 29 3A E7 31  |7).~.J.K..(1):.1|
00000350: 2C 46 31 3A E0 2C 30 2C  32 34 2C 53 50 24 3A E0  |,F1:.,0,24,SP$:.|
00000360: 2C 32 30 AB C3 28 55 50  24 28 55 50 29 29 AD 32  |,20..(UP$(UP)).2|
00000370: 2C 32 34 2C 4C 24 AA 55  50 24 28 55 50 29 00 9A  |,24,L$.UP$(UP)..|
00000380: 1F 4F 01 E7 31 2C 4B 3A  97 34 34 34 36 2C 49 3A  |.O..1,K:.4446,I:|
00000390: 97 34 34 34 37 2C 4A 3A  FE 19 00 A0 1F 54 01 8E  |.4447,J:.....T..|
000003A0: 00 D0 1F 90 01 8F 20 2D  2D 2D 2D 2D 20 43 59 43  |...... ----- CYC|
000003B0: 4C 45 20 47 55 49 44 45  20 41 4E 44 20 57 41 49  |LE GUIDE AND WAI|
000003C0: 54 20 46 4F 52 20 41 20  4B 45 59 50 52 45 53 53  |T FOR A KEYPRESS|
000003D0: 00 FB 1F 9A 01 8D 39 30  30 3A 8D 33 31 30 3A 8D  |......900:.310:.|
000003E0: 31 35 30 3A 55 31 B2 55  50 3A 55 50 B2 30 3A 8D  |150:U1.UP:UP.0:.|
000003F0: 33 31 30 3A 55 50 B2 55  31 3A 8E 00 20 20 F4 01  |310:UP.U1:..  ..|
00000400: 8F 20 2D 2D 2D 2D 2D 20  45 4E 41 42 4C 45 20 53  |. ----- ENABLE S|
00000410: 50 52 49 54 45 53 20 46  52 4F 4D 20 48 53 28 29  |PRITES FROM HS()|
00000420: 00 3A 20 FE 01 81 49 B2  31 A4 38 3A FE 07 49 2C  |.: ...I.1.8:..I,|
00000430: 48 53 28 49 29 3A 82 49  3A 8E 00 75 20 58 02 8F  |HS(I):.I:..u X..|
00000440: 20 2D 2D 2D 2D 2D 20 44  49 53 41 42 4C 45 20 53  | ----- DISABLE S|
00000450: 50 52 49 54 45 53 20 41  4E 44 20 53 41 56 45 20  |PRITES AND SAVE |
00000460: 45 4E 41 42 4C 45 20 53  54 41 54 55 53 20 49 4E  |ENABLE STATUS IN|
00000470: 20 48 53 28 29 00 99 20  62 02 81 49 B2 31 A4 38  | HS().. b..I.1.8|
00000480: 3A 48 53 28 49 29 B2 CE  06 28 49 2C 30 29 3A FE  |:HS(I)...(I,0):.|
00000490: 07 49 2C 30 3A 82 49 3A  8E 00 CF 20 84 03 8F 20  |.I,0:.I:... ... |
000004A0: 2D 2D 2D 2D 2D 20 50 4F  53 49 54 49 4F 4E 20 47  |----- POSITION G|
000004B0: 55 49 44 45 20 41 4E 44  20 43 59 43 4C 45 20 54  |UIDE AND CYCLE T|
000004C0: 48 52 4F 55 47 48 20 4D  4F 56 45 4D 45 4E 54 00  |HROUGH MOVEMENT.|
000004D0: 06 21 8E 03 81 49 B2 31  A4 53 46 3A FE 06 49 2C  |.!...I.1.SF:..I,|
000004E0: 53 58 28 30 29 AA 53 58  28 49 29 2C 53 59 28 30  |SX(0).SX(I),SY(0|
000004F0: 29 AA 53 59 28 49 29 3A  82 49 3A 8B 53 50 B1 53  |).SY(I):.I:.SP.S|
00000500: 53 A7 53 50 B2 30 00 3B  21 A7 03 81 49 B2 31 A4  |S.SP.0.;!...I.1.|
00000510: 53 46 3A FE 16 47 55 24  28 49 2C 53 50 29 2C 49  |SF:..GU$(I,SP),I|
00000520: 3A FE 07 49 2C 31 3A 48  53 28 49 29 B2 31 3A 82  |:..I,1:HS(I).1:.|
00000530: 49 3A 53 50 B2 53 50 AA  31 3A 8E 00 5A 21 E8 03  |I:SP.SP.1:..Z!..|
00000540: 8F 20 2D 2D 2D 2D 2D 20  56 4F 4C 55 4D 45 20 53  |. ----- VOLUME S|
00000550: 43 52 45 45 4E 20 4C 4F  4F 50 00 8F 21 F2 03 EB  |CREEN LOOP..!...|
00000560: 3A 52 53 B2 30 3A 55 50  B2 31 3A 47 4D B2 47 4D  |:RS.0:UP.1:GM.GM|
00000570: 28 43 53 29 3A 47 53 B2  47 53 28 43 53 29 3A 47  |(CS):GS.GS(CS):G|
00000580: 50 B2 47 50 28 43 53 29  3A 8D 36 30 37 30 30 00  |P.GP(CS):.60700.|
00000590: AA 21 F7 03 49 B2 54 4D  3A 8B 47 53 B3 B1 30 AF  |.!..I.TM:.GS..0.|
000005A0: 47 53 B3 32 30 A7 49 B2  47 53 00 D6 21 13 04 FE  |GS.20.I.GS..!...|
000005B0: 1A 30 2C 49 2C 33 39 2C  32 34 2C 31 3A 8D 31 31  |.0,I,39,24,1:.11|
000005C0: 30 30 3A 8B 28 52 53 AF  31 29 B2 30 A7 55 50 B2  |00:.(RS.1).0.UP.|
000005D0: 31 3A 8D 34 30 30 00 FF  21 29 04 8B 4B 42 B3 B1  |1:.400..!)..KB..|
000005E0: 34 A7 43 53 B2 43 53 AA  31 3A D5 8B 28 52 53 AF  |4.CS.CS.1:..(RS.|
000005F0: 32 35 34 29 B3 B1 32 A7  43 53 B2 43 53 AB 31 00  |254)..2.CS.CS.1.|
00000600: 25 22 2E 04 EC FC 28 43  53 B3 31 B0 43 53 B1 4D  |%"....(CS.1.CS.M|
00000610: 53 29 3A 8B 43 53 B2 30  A7 36 30 35 30 30 3A D5  |S):.CS.0.60500:.|
00000620: 36 30 30 30 30 00 45 22  4C 04 8F 20 2D 2D 2D 2D  |60000.E"L.. ----|
00000630: 2D 20 56 4F 4C 55 4D 45  20 34 20 44 49 53 50 41  |- VOLUME 4 DISPA|
00000640: 54 43 48 45 52 00 57 22  51 04 8B 20 43 53 B3 B2  |TCHER.W"Q.. CS..|
00000650: 31 30 20 A7 20 FE 18 00  A0 22 56 04 3A 20 20 91  |10 . ...."V.:  .|
00000660: 20 43 53 20 8D 31 31 30  30 30 2C 31 31 35 30 30  | CS .11000,11500|
00000670: 2C 31 32 30 30 30 2C 31  33 30 30 30 2C 31 33 35  |,12000,13000,135|
00000680: 30 30 2C 31 33 36 30 30  2C 31 34 35 30 30 2C 31  |00,13600,14500,1|
00000690: 35 30 30 30 2C 31 35 35  30 30 2C 31 36 35 30 30  |5000,15500,16500|
000006A0: 00 AA 22 5B 04 3A 20 20  FE 19 00 C4 22 60 04 8B  |.."[.:  ...."`..|
000006B0: 20 43 53 B1 31 30 20 AF  20 43 53 B3 B2 32 30 20  | CS.10 . CS..20 |
000006C0: A7 20 FE 18 00 0E 23 65  04 3A 20 20 91 43 53 AB  |. ....#e.:  .CS.|
000006D0: 31 30 8D 31 37 30 30 30  2C 31 38 30 30 30 2C 31  |10.17000,18000,1|
000006E0: 39 30 30 30 2C 32 30 30  30 30 2C 32 31 30 30 30  |9000,20000,21000|
000006F0: 2C 32 31 35 30 30 2C 32  32 30 30 30 2C 32 32 35  |,21500,22000,225|
00000700: 30 30 2C 32 33 35 30 30  2C 32 34 30 30 30 00 18  |00,23500,24000..|
00000710: 23 6A 04 3A 20 20 FE 19  00 32 23 6F 04 8B 20 43  |#j.:  ...2#o.. C|
00000720: 53 B1 32 30 20 AF 20 43  53 B3 B2 33 30 20 A7 20  |S.20 . CS..30 . |
00000730: FE 18 00 7C 23 74 04 3A  20 20 91 43 53 AB 32 30  |...|#t.:  .CS.20|
00000740: 8D 32 35 30 30 30 2C 32  35 35 30 30 2C 32 36 30  |.25000,25500,260|
00000750: 30 30 2C 32 37 30 30 30  2C 32 37 32 30 30 2C 32  |00,27000,27200,2|
00000760: 37 35 30 30 2C 32 38 35  30 30 2C 32 39 35 30 30  |7500,28500,29500|
00000770: 2C 33 30 30 30 30 2C 33  30 35 30 30 00 86 23 79  |,30000,30500..#y|
00000780: 04 3A 20 20 FE 19 00 A0  23 7E 04 8B 20 43 53 B1  |.:  ....#~.. CS.|
00000790: 33 30 20 AF 20 43 53 B3  B2 34 30 20 A7 20 FE 18  |30 . CS..40 . ..|
000007A0: 00 C6 23 83 04 3A 20 20  91 43 53 AB 33 30 8D 33  |..#..:  .CS.30.3|
000007B0: 31 35 30 30 2C 33 32 35  30 30 2C 33 33 30 30 30  |1500,32500,33000|
000007C0: 2C 33 33 35 30 30 00 D0  23 88 04 3A 20 20 FE 19  |,33500..#..:  ..|
000007D0: 00 D6 23 AF 04 8E 00 0C  24 B0 04 8F 20 2D 2D 2D  |..#.....$... ---|
000007E0: 2D 2D 20 46 4C 41 53 48  20 43 55 52 53 4F 52 20  |-- FLASH CURSOR |
000007F0: 57 48 49 4C 45 20 57 41  49 54 49 4E 47 20 46 4F  |WHILE WAITING FO|
00000800: 52 20 41 20 4B 45 59 50  52 45 53 53 00 40 24 B4  |R A KEYPRESS.@$.|
00000810: 04 FE 02 31 35 3A 43 41  B2 C2 28 32 32 34 29 AA  |...15:CA..(224).|
00000820: C2 28 32 32 35 29 AC 32  35 36 AA C2 28 32 33 36  |.(225).256..(236|
00000830: 29 3A 43 4F B2 C2 28 43  41 29 3A 43 42 B2 43 4F  |):CO..(CA):CB.CO|
00000840: 00 7D 24 BC 04 4E 41 B2  28 43 41 AF 31 30 32 33  |.}$..NA.(CA.1023|
00000850: 29 AA 35 35 32 39 36 3A  4E 4F B2 C2 28 4E 41 29  |).55296:NO..(NA)|
00000860: 3A 97 4E 41 2C CD 28 35  29 AB 31 3A EB 3A 43 42  |:.NA,.(5).1:.:CB|
00000870: B2 28 43 42 AA 31 32 38  29 AF 32 35 35 00 A1 24  |.(CB.128).255..$|
00000880: C6 04 97 43 41 2C 43 42  3A 81 44 56 B2 31 A4 31  |...CA,CB:.DV.1.1|
00000890: 30 3A 8D 31 30 30 3A 8B  4B 42 B2 AB 31 A7 82 44  |0:.100:.KB..1..D|
000008A0: 56 00 BD 24 CE 04 EC FD  4B 42 B2 AB 31 3A 97 43  |V..$....KB..1:.C|
000008B0: 41 2C 43 4F 3A 97 4E 41  2C 4E 4F 3A 8E 00 05 25  |A,CO:.NA,NO:...%|
000008C0: E2 04 8F 20 2D 2D 2D 2D  2D 20 46 4C 41 53 48 20  |... ----- FLASH |
000008D0: 43 55 52 53 4F 52 20 57  48 49 4C 45 20 57 41 49  |CURSOR WHILE WAI|
000008E0: 54 49 4E 47 20 46 4F 52  20 41 20 53 50 45 43 49  |TING FOR A SPECI|
000008F0: 41 4C 20 4B 45 59 20 28  45 58 43 45 50 54 20 53  |AL KEY (EXCEPT S|
00000900: 50 41 43 45 29 00 22 25  EC 04 EB 3A 8D 31 32 30  |PACE)."%...:.120|
00000910: 30 3A EC FD 4B 42 24 B2  22 20 22 B0 53 44 B2 30  |0:..KB$." ".SD.0|
00000920: 3A 8E 00 6D 25 14 05 8F  20 2D 2D 2D 2D 2D 20 41  |:..m%... ----- A|
00000930: 43 43 45 50 54 20 49 4E  50 55 54 20 28 41 24 29  |CCEPT INPUT (A$)|
00000940: 20 4F 46 20 4C 45 4E 47  54 48 20 43 4C 20 41 54  | OF LENGTH CL AT|
00000950: 20 43 58 2C 43 59 20 57  49 54 48 20 44 45 4C 45  | CX,CY WITH DELE|
00000960: 54 45 20 41 4E 44 20 52  45 54 55 52 4E 00 AA 25  |TE AND RETURN..%|
00000970: 17 05 97 32 33 36 2C 43  58 3A 97 32 33 35 2C 43  |...236,CX:.235,C|
00000980: 59 3A 49 B2 43 59 AC 34  30 3A 97 32 32 34 2C 49  |Y:I.CY.40:.224,I|
00000990: AB B5 28 49 AD 32 35 36  29 AC 32 35 36 3A 97 32  |..(I.256).256:.2|
000009A0: 32 35 2C 49 AD 32 35 36  AA 34 00 C9 25 1B 05 97  |25,I.256.4..%...|
000009B0: 32 32 36 2C C2 28 32 32  34 29 3A 97 32 32 37 2C  |226,.(224):.227,|
000009C0: 49 AD 32 35 36 AA 32 31  36 00 15 26 1E 05 8F 20  |I.256.216..&... |
000009D0: 2D 2D 2D 2D 2D 20 41 43  43 45 50 54 20 49 4E 50  |----- ACCEPT INP|
000009E0: 55 54 20 28 41 24 29 20  4F 46 20 4C 45 4E 47 54  |UT (A$) OF LENGT|
000009F0: 48 20 43 4C 20 41 54 20  43 55 52 53 4F 52 20 57  |H CL AT CURSOR W|
00000A00: 49 54 48 20 44 45 4C 45  54 45 20 41 4E 44 20 52  |ITH DELETE AND R|
00000A10: 45 54 55 52 4E 00 3C 26  22 05 97 32 30 38 2C 30  |ETURN.<&"..208,0|
00000A20: 3A 41 24 B2 22 22 3A EB  3A 8D 31 32 30 30 3A 8B  |:A$."":.:.1200:.|
00000A30: 4B 42 24 B2 22 20 22 A7  4B 42 B2 30 00 49 26 2C  |KB$." ".KB.0.I&,|
00000A40: 05 8B 4B 42 B2 30 A7 FE  18 00 7E 26 2E 05 8B 28  |..KB.0....~&...(|
00000A50: 28 4B 42 24 B1 C7 28 33  31 29 AF 4B 42 24 B3 C7  |(KB$..(31).KB$..|
00000A60: 28 31 32 39 29 29 B0 4B  42 24 B1 C7 28 31 35 39  |(129)).KB$..(159|
00000A70: 29 29 AF C3 28 41 24 29  B3 43 4C A7 FE 18 00 95  |))..(A$).CL.....|
00000A80: 26 30 05 99 4B 42 24 3B  3A 41 24 B2 41 24 AA 4B  |&0..KB$;:A$.A$.K|
00000A90: 42 24 3A FE 19 00 C1 26  36 05 8B 4B 42 24 B2 C7  |B$:....&6..KB$..|
00000AA0: 28 32 30 29 AF C3 28 41  24 29 B1 30 A7 FE 18 8B  |(20)..(A$).0....|
00000AB0: C3 28 41 24 29 B2 31 A7  41 24 B2 22 22 3A D5 FE  |.(A$).1.A$."":..|
00000AC0: 18 00 D9 26 3E 05 41 24  B2 C8 28 41 24 2C C3 28  |...&>.A$..(A$,.(|
00000AD0: 41 24 29 AB 31 29 3A FE  19 00 E6 26 42 05 99 4B  |A$).1):....&B..K|
00000AE0: 42 24 3B 3A FE 19 00 ED  26 46 05 FE 19 00 FA 26  |B$;:....&F.....&|
00000AF0: 48 05 EC FD 4B 42 B2 30  3A 8E 00 23 27 78 05 8F  |H...KB.0:..#'x..|
00000B00: 20 2D 2D 2D 2D 2D 20 41  43 43 45 50 54 20 43 55  | ----- ACCEPT CU|
00000B10: 52 53 4F 52 20 41 4E 44  20 41 52 52 4F 57 20 4B  |RSOR AND ARROW K|
00000B20: 45 59 53 00 59 27 7B 05  FE 1A 30 2C 47 53 2C 33  |EYS.Y'{...0,GS,3|
00000B30: 39 2C 32 33 3A 49 B2 28  32 34 AB 47 53 29 AD 32  |9,23:I.(24.GS).2|
00000B40: AA 47 53 3A 97 32 33 36  2C 31 39 3A 97 32 33 35  |.GS:.236,19:.235|
00000B50: 2C 49 3A 49 B2 49 AC 34  30 00 8C 27 84 05 97 32  |,I:I.I.40..'...2|
00000B60: 32 34 2C 49 AB 28 B5 28  49 AD 32 35 36 29 AC 32  |24,I.(.(I.256).2|
00000B70: 35 36 29 3A 97 32 32 35  2C 49 AD 32 35 36 AA 34  |56):.225,I.256.4|
00000B80: 3A 97 32 32 36 2C C2 28  32 32 34 29 00 AB 27 8A  |:.226,.(224)..'.|
00000B90: 05 97 32 32 37 2C 49 AD  32 35 36 AA 32 31 36 3A  |..227,I.256.216:|
00000BA0: 97 32 30 38 2C 30 3A 8D  33 31 30 00 E0 27 90 05  |.208,0:.310..'..|
00000BB0: 41 24 B2 C7 28 31 34 35  29 AA C7 28 31 37 29 AA  |A$..(145)..(17).|
00000BC0: C7 28 31 35 37 29 AA C7  28 32 39 29 3A 99 43 24  |.(157)..(29):.C$|
00000BD0: 28 46 32 29 53 30 24 3B  3A EB 3A 8D 31 32 30 30  |(F2)S0$;:.:.1200|
00000BE0: 00 09 28 98 05 8B 28 43  58 B2 30 B0 43 58 B2 4B  |..(...(CX.0.CX.K|
00000BF0: 58 29 AF D4 28 41 24 2C  4B 42 24 29 B1 30 A7 99  |X)..(A$,KB$).0..|
00000C00: 4B 42 24 3B 3A 4B 42 B2  30 00 22 28 A0 05 EC FD  |KB$;:KB.0."(....|
00000C10: 4B 42 B2 30 3A 99 43 24  28 46 31 29 53 31 24 3B  |KB.0:.C$(F1)S1$;|
00000C20: 3A 8E 00 6E 28 AA 05 8F  20 2D 2D 2D 2D 2D 20 50  |:..n(... ----- P|
00000C30: 52 4F 4D 50 54 20 55 53  45 52 20 46 4F 52 20 52  |ROMPT USER FOR R|
00000C40: 45 54 55 52 4E 2C 20 57  41 49 54 20 46 4F 52 20  |ETURN, WAIT FOR |
00000C50: 41 20 53 50 45 43 49 41  4C 20 4E 4F 4E 2D 53 50  |A SPECIAL NON-SP|
00000C60: 41 43 45 20 28 57 2F 43  55 52 53 4F 52 29 00 95  |ACE (W/CURSOR)..|
00000C70: 28 AF 05 55 50 B2 32 3A  8D 33 31 30 3A 8D 39 30  |(..UP.2:.310:.90|
00000C80: 30 3A 8D 31 32 35 30 3A  99 3A 55 50 B2 30 3A 8D  |0:.1250:.:UP.0:.|
00000C90: 33 31 30 3A 8E 00 E1 28  DC 05 8F 20 2D 2D 2D 2D  |310:...(... ----|
00000CA0: 2D 20 41 43 43 45 50 54  20 23 20 49 4E 50 55 54  |- ACCEPT # INPUT|
00000CB0: 20 28 41 29 20 4F 46 20  4C 45 4E 47 54 48 20 43  | (A) OF LENGTH C|
00000CC0: 4C 20 41 54 20 43 58 2C  43 59 20 57 49 54 48 20  |L AT CX,CY WITH |
00000CD0: 44 45 4C 45 54 45 20 41  4E 44 20 52 45 54 55 52  |DELETE AND RETUR|
00000CE0: 4E 00 1E 29 DF 05 97 32  33 36 2C 43 58 3A 97 32  |N..)...236,CX:.2|
00000CF0: 33 35 2C 43 59 3A 49 B2  43 59 AC 34 30 3A 97 32  |35,CY:I.CY.40:.2|
00000D00: 32 34 2C 49 AB B5 28 49  AD 32 35 36 29 AC 32 35  |24,I..(I.256).25|
00000D10: 36 3A 97 32 32 35 2C 49  AD 32 35 36 AA 34 00 3D  |6:.225,I.256.4.=|
00000D20: 29 E3 05 97 32 32 36 2C  C2 28 32 32 34 29 3A 97  |)...226,.(224):.|
00000D30: 32 32 37 2C 49 AD 32 35  36 AA 32 31 36 00 8A 29  |227,I.256.216..)|
00000D40: E6 05 8F 20 2D 2D 2D 2D  2D 20 41 43 43 45 50 54  |... ----- ACCEPT|
00000D50: 20 23 20 49 4E 50 55 54  20 28 41 29 20 4F 46 20  | # INPUT (A) OF |
00000D60: 4C 45 4E 47 54 48 20 43  4C 20 41 54 20 43 55 52  |LENGTH CL AT CUR|
00000D70: 53 4F 52 20 57 49 54 48  20 44 45 4C 45 54 45 20  |SOR WITH DELETE |
00000D80: 41 4E 44 20 52 45 54 55  52 4E 00 B1 29 EA 05 97  |AND RETURN..)...|
00000D90: 32 30 38 2C 30 3A 41 24  B2 22 22 3A EB 3A 8D 31  |208,0:A$."":.:.1|
00000DA0: 32 30 30 3A 8B 4B 42 24  B2 22 20 22 A7 4B 42 B2  |200:.KB$." ".KB.|
00000DB0: 30 00 BE 29 F4 05 8B 4B  42 B2 30 A7 FE 18 00 F0  |0..)...KB.0.....|
00000DC0: 29 F6 05 8B 28 4B 42 24  B1 B2 22 30 22 AF 4B 42  |)...(KB$.."0".KB|
00000DD0: 24 B3 B2 22 39 22 29 AF  C3 28 41 24 29 B3 43 4C  |$.."9")..(A$).CL|
00000DE0: A7 99 4B 42 24 3B 3A 41  24 B2 41 24 AA 4B 42 24  |..KB$;:A$.A$.KB$|
00000DF0: 00 1C 2A FE 05 8B 4B 42  24 B2 C7 28 32 30 29 AF  |..*...KB$..(20).|
00000E00: C3 28 41 24 29 B1 30 A7  FE 18 8B C3 28 41 24 29  |.(A$).0.....(A$)|
00000E10: B2 31 A7 41 24 B2 22 22  3A D5 FE 18 00 34 2A 06  |.1.A$."":....4*.|
00000E20: 06 41 24 B2 C8 28 41 24  2C C3 28 41 24 29 AB 31  |.A$..(A$,.(A$).1|
00000E30: 29 3A FE 19 00 41 2A 0A  06 99 4B 42 24 3B 3A FE  |):...A*...KB$;:.|
00000E40: 19 00 48 2A 0E 06 FE 19  00 5D 2A 10 06 EC FD 4B  |..H*.....]*....K|
00000E50: 42 B2 30 3A 41 B2 C5 28  41 24 29 3A 8E 00 76 2A  |B.0:A..(A$):..v*|
00000E60: 10 27 8F 20 2D 2D 2D 2D  2D 20 44 49 53 50 4C 41  |.'. ----- DISPLA|
00000E70: 59 20 48 45 4C 50 00 A4  2A 1A 27 FE 02 31 35 3A  |Y HELP..*.'..15:|
00000E80: 8D 36 30 30 3A 48 47 B2  CC 28 30 29 3A 48 42 B2  |.600:HG..(0):HB.|
00000E90: CD 28 34 29 3A 49 B2 35  33 32 36 35 3A 4A B2 35  |.(4):I.53265:J.5|
00000EA0: 36 35 37 36 00 DB 2A 1F  27 81 4B B2 31 A4 33 3A  |6576..*.'.K.1.3:|
00000EB0: 48 58 28 4B 29 B2 CE 05  28 4B 2C 30 29 3A 48 59  |HX(K)...(K,0):HY|
00000EC0: 28 4B 29 B2 CE 05 28 4B  2C 31 29 3A 48 43 28 4B  |(K)...(K,1):HC(K|
00000ED0: 29 B2 CE 06 28 4B 2C 31  29 3A 82 00 00 2B 24 27  |)...(K,1):...+$'|
00000EE0: 97 49 2C C2 28 49 29 AF  32 33 39 3A 97 4A 2C C2  |.I,.(I).239:.J,.|
00000EF0: 28 4A 29 AF 32 35 32 3A  E7 34 2C 42 31 3A DE 31  |(J).252:.4,B1:.1|
00000F00: 00 28 2B 26 27 FE 06 31  2C 32 39 33 2C 31 39 31  |.(+&'..1,293,191|
00000F10: 3A FE 06 32 2C 33 31 37  2C 31 39 31 3A FE 06 33  |:..2,317,191:..3|
00000F20: 2C 33 31 37 2C 32 31 32  00 48 2B 29 27 81 4B B2  |,317,212.H+)'.K.|
00000F30: 31 A4 33 3A FE 07 4B 2C  31 2C 39 3A 82 3A 97 49  |1.3:..K,1,9:.:.I|
00000F40: 2C C2 28 49 29 B0 31 36  00 78 2B 2E 27 EB 3A A1  |,.(I).16.x+.'.:.|
00000F50: F9 4B 42 24 3A EC FD 4B  42 24 B2 48 50 24 3A 4B  |.KB$:..KB$.HP$:K|
00000F60: 42 24 B2 22 22 3A 97 32  30 38 2C 30 3A 97 49 2C  |B$."":.208,0:.I,|
00000F70: C2 28 49 29 AF 32 33 39  00 A0 2B 33 27 81 4B B2  |.(I).239..+3'.K.|
00000F80: 31 A4 33 3A FE 06 4B 2C  48 58 28 4B 29 2C 48 59  |1.3:..K,HX(K),HY|
00000F90: 28 4B 29 3A FE 07 4B 2C  2C 48 43 28 4B 29 3A 82  |(K):..K,,HC(K):.|
00000FA0: 00 BB 2B 38 27 97 4A 2C  C2 28 4A 29 B0 33 3A DE  |..+8'.J,.(J).3:.|
00000FB0: 48 47 2C 2C 47 53 3A 8D  35 30 30 00 DA 2B 3D 27  |HG,,GS:.500..+='|
00000FC0: 97 35 33 32 36 35 2C C2  28 35 33 32 36 35 29 B0  |.53265,.(53265).|
00000FD0: 31 36 3A E7 34 2C 48 42  3A 8E 00 07 2C 3C 28 8F  |16:.4,HB:...,<(.|
00000FE0: 20 2D 2D 2D 2D 2D 20 57  41 49 54 20 46 4F 52 20  | ----- WAIT FOR |
00000FF0: 41 20 4D 45 4E 55 20 43  4F 4D 4D 41 4E 44 20 28  |A MENU COMMAND (|
00001000: 4D 4B 2C 4D 4B 24 29 00  28 2C 46 28 EB 3A A1 F9  |MK,MK$).(,F(.:..|
00001010: 4D 4B 24 3A 4D 4B B2 30  3A 8B 4D 4B 24 B2 48 50  |MK$:MK.0:.MK$.HP|
00001020: 24 A7 8D 31 30 30 30 30  00 4C 2C 50 28 EC FD 28  |$..10000.L,P(..(|
00001030: 4D 4B 24 B2 48 50 24 29  3A 4D 4B B2 53 4B 28 D4  |MK$.HP$):MK.SK(.|
00001040: 28 53 4B 24 2C 4D 4B 24  29 29 3A 8E 00 88 2C A0  |(SK$,MK$)):...,.|
00001050: 28 8F 20 2D 2D 2D 2D 2D  20 57 41 49 54 20 46 4F  |(. ----- WAIT FO|
00001060: 52 20 41 20 4D 45 4E 55  20 4B 45 59 2C 20 48 49  |R A MENU KEY, HI|
00001070: 4C 49 54 45 20 41 4E 59  20 4E 55 4D 42 45 52 20  |LITE ANY NUMBER |
00001080: 53 45 4C 45 43 54 45 44  00 CA 2C A3 28 4D 57 B2  |SELECTED..,.(MW.|
00001090: 30 3A 81 49 B2 31 A4 4D  4E 3A 56 24 28 49 29 B2  |0:.I.1.MN:V$(I).|
000010A0: C7 28 34 38 AA 49 29 AA  22 2E 22 AA 54 24 AA 56  |.(48.I).".".T$.V|
000010B0: 24 28 49 29 3A 4A B2 C3  28 56 24 28 49 29 29 3A  |$(I):J..(V$(I)):|
000010C0: 8B 4A B1 4D 57 A7 4D 57  B2 4A 00 09 2D A5 28 82  |.J.MW.MW.J..-.(.|
000010D0: 49 3A 4D 50 B2 32 30 AB  4D 57 AD 32 3A E7 31 2C  |I:MP.20.MW.2:.1,|
000010E0: 42 31 3A 81 49 B2 31 A4  4D 4E 3A 56 24 28 49 29  |B1:.I.1.MN:V$(I)|
000010F0: B2 56 24 28 49 29 AA C8  28 53 50 24 2C 4D 57 AB  |.V$(I)..(SP$,MW.|
00001100: C3 28 56 24 28 49 29 29  29 00 2A 2D A7 28 E0 2C  |.(V$(I))).*-.(.,|
00001110: 4D 50 2C 49 AA 35 2C 4C  24 AA 56 24 28 49 29 3A  |MP,I.5,L$.V$(I):|
00001120: 82 49 3A DE 47 4D 2C 2C  47 53 00 60 2D AA 28 4D  |.I:.GM,,GS.`-.(M|
00001130: 49 B2 AB 31 3A EB 3A 8D  31 30 33 30 30 3A 4D 32  |I..1:.:.10300:M2|
00001140: B2 C6 28 4D 4B 24 29 AB  34 38 3A 8B 4D 4B B2 30  |..(MK$).48:.MK.0|
00001150: AF 4D 32 B1 B2 31 AF 4D  32 B3 B2 4D 4E A7 FE 18  |.M2..1.M2..MN...|
00001160: 00 88 2D B4 28 8B 4D 49  B3 B1 AB 31 AF 4D 49 B3  |..-.(.MI...1.MI.|
00001170: B1 4D 32 A7 E0 31 2C 4D  50 2C 35 AA 4D 49 2C 4C  |.M2..1,MP,5.MI,L|
00001180: 24 AA 56 24 28 4D 49 29  00 AC 2D BE 28 4D 49 B2  |$.V$(MI)..-.(MI.|
00001190: 4D 32 3A E0 31 2C 4D 50  2C 35 AA 4D 32 2C 4C 24  |M2:.1,MP,5.M2,L$|
000011A0: AA 56 24 28 4D 49 29 2C  31 3A FE 19 00 D4 2D C8  |.V$(MI),1:....-.|
000011B0: 28 EC FC 28 4D 4B B2 31  B0 28 4D 49 B3 B1 AB 31  |(..(MK.1.(MI...1|
000011C0: AF 4D 4B 24 B2 C7 28 31  33 29 29 29 3A E7 31 2C  |.MK$..(13))):.1,|
000011D0: 46 31 3A 8E 00 F2 2D 04  29 8F 20 2D 2D 2D 2D 2D  |F1:...-.). -----|
000011E0: 20 54 41 42 4C 45 20 4F  46 20 43 4F 4E 54 45 4E  | TABLE OF CONTEN|
000011F0: 54 53 00 23 2E 0E 29 8D  36 30 30 3A 8D 36 30 39  |TS.#..).600:.609|
00001200: 30 30 3A E7 31 2C 42 31  3A E0 2C 31 32 2C 33 2C  |00:.1,B1:.,12,3,|
00001210: 22 54 41 42 4C 45 20 4F  46 20 43 4F 4E 54 45 4E  |"TABLE OF CONTEN|
00001220: 54 53 22 00 67 2E 18 29  E0 2C 31 31 2C 32 30 2C  |TS".g..).,11,20,|
00001230: 4C 24 AA 22 D4 59 50 45  20 41 20 D6 4F 4C 55 4D  |L$.".YPE A .OLUM|
00001240: 45 20 4E 55 4D 42 45 52  22 3A E0 2C 31 33 2C 32  |E NUMBER":.,13,2|
00001250: 31 2C 4C 24 AA 22 41 4E  44 20 50 52 45 53 53 20  |1,L$."AND PRESS |
00001260: D2 C5 D4 D5 D2 CE 22 00  89 2E 22 29 4D 4E B2 39  |......"...")MN.9|
00001270: 3A EB 3A 81 49 B2 31 A4  39 3A 56 24 28 49 29 B2  |:.:.I.1.9:V$(I).|
00001280: 56 4C 24 28 49 29 3A 82  49 00 9B 2E 2C 29 8D 31  |VL$(I):.I...,).1|
00001290: 30 34 30 30 3A EC FD 4D  4B B2 31 00 C6 2E 36 29  |0400:..MK.1...6)|
000012A0: 8B 4D 49 B2 4E 56 A7 36  30 35 30 30 3A D5 DE 31  |.MI.NV.60500:..1|
000012B0: 3A 8A 28 22 56 4F 4C 55  4D 45 2E 22 AA C7 28 34  |:.("VOLUME."..(4|
000012C0: 38 AA 4D 49 29 29 00 DE  2E 30 2A 8F 20 2D 2D 2D  |8.MI))...0*. ---|
000012D0: 2D 2D 20 56 4F 4C 55 4D  45 20 4D 45 4E 55 00 F4  |-- VOLUME MENU..|
000012E0: 2E 35 2A 8D 36 30 30 3A  8D 36 30 39 30 30 3A E7  |.5*.600:.60900:.|
000012F0: 31 2C 42 31 00 34 2F 3A  2A E0 2C 31 35 2C 33 2C  |1,B1.4/:*.,15,3,|
00001300: 4C 24 AA 22 D6 4F 4C 55  4D 45 20 22 AA C7 28 34  |L$.".OLUME "..(4|
00001310: 38 AA 4E 56 29 3A E0 2C  31 39 AB C3 28 56 4C 24  |8.NV):.,19..(VL$|
00001320: 28 4E 56 29 29 AD 32 2C  34 2C 4C 24 AA 56 4C 24  |(NV)).2,4,L$.VL$|
00001330: 28 4E 56 29 00 50 2F 3F  2A 81 49 B2 31 A4 4D 4D  |(NV).P/?*.I.1.MM|
00001340: 3A 56 24 28 49 29 B2 56  4D 24 28 49 29 3A 82 49  |:V$(I).VM$(I):.I|
00001350: 00 8D 2F 44 2A E0 2C 31  34 2C 32 30 2C 4C 24 AA  |../D*.,14,20,L$.|
00001360: 22 D4 59 50 45 20 41 20  4E 55 4D 42 45 52 22 3A  |".YPE A NUMBER":|
00001370: E0 2C 31 33 2C 32 31 2C  4C 24 AA 22 41 4E 44 20  |.,13,21,L$."AND |
00001380: 50 52 45 53 53 20 D2 C5  D4 D5 D2 CE 22 00 B8 2F  |PRESS ......"../|
00001390: 49 2A 4D 4E B2 4D 4D 3A  8D 31 30 34 30 30 3A 91  |I*MN.MM:.10400:.|
000013A0: 4D 4B 89 36 30 30 30 30  3A 43 53 B2 56 41 28 4D  |MK.60000:CS.VA(M|
000013B0: 49 29 3A 89 31 30 30 30  00 04 30 F8 2A 8F 20 2D  |I):.1000..0.*. -|
000013C0: 2D 2D 2D 2D 20 56 4F 4C  55 4D 45 20 34 20 53 43  |---- VOLUME 4 SC|
000013D0: 52 45 45 4E 53 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |REENS ----------|
000013E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000013F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001400: 2D 2D 2D 2D 00 19 30 FD  2A 8F 20 2D 2D 2D 2D 2D  |----..0.*. -----|
00001410: 20 53 43 52 45 45 4E 20  31 00 35 30 02 2B 99 20  | SCREEN 1.50.+. |
00001420: A3 31 33 29 3B 22 C1 44  56 41 4E 43 45 44 20 C2  |.13);".DVANCED .|
00001430: C1 D3 C9 C3 22 00 3B 30  07 2B 99 00 6A 30 0C 2B  |....".;0.+..j0.+|
00001440: 99 20 22 D4 48 49 53 20  50 41 52 54 20 4F 46 20  |. ".HIS PART OF |
00001450: 54 48 45 20 47 55 49 44  45 44 20 54 4F 55 52 20  |THE GUIDED TOUR |
00001460: 57 49 4C 4C 20 54 45 4C  4C 22 00 98 30 11 2B 99  |WILL TELL"..0.+.|
00001470: 20 22 59 4F 55 20 41 42  4F 55 54 20 53 4F 4D 45  | "YOU ABOUT SOME|
00001480: 20 4F 46 20 C2 C1 D3 C9  C3 27 53 20 4D 4F 53 54  | OF .....'S MOST|
00001490: 20 55 53 45 46 55 4C 22  00 B8 30 16 2B 99 20 22  | USEFUL"..0.+. "|
000014A0: 43 4F 4D 4D 41 4E 44 53  20 41 4E 44 20 46 55 4E  |COMMANDS AND FUN|
000014B0: 43 54 49 4F 4E 53 2E 22  00 BE 30 1B 2B 99 00 E8  |CTIONS."..0.+...|
000014C0: 30 20 2B 99 20 22 D7 49  54 48 20 54 48 45 4D 20  |0 +. ".ITH THEM |
000014D0: 59 4F 55 27 4C 4C 20 42  45 20 41 42 4C 45 20 54  |YOU'LL BE ABLE T|
000014E0: 4F 20 57 52 49 54 45 22  00 0E 31 25 2B 99 20 22  |O WRITE"..1%+. "|
000014F0: 50 52 4F 47 52 41 4D 53  20 54 48 41 54 20 52 45  |PROGRAMS THAT RE|
00001500: 50 45 41 54 20 54 48 45  20 53 41 4D 45 22 00 38  |PEAT THE SAME".8|
00001510: 31 2A 2B 99 20 22 49 4E  53 54 52 55 43 54 49 4F  |1*+. "INSTRUCTIO|
00001520: 4E 53 20 41 53 20 4D 41  4E 59 20 54 49 4D 45 53  |NS AS MANY TIMES|
00001530: 20 41 53 20 59 4F 55 22  00 64 31 2F 2B 99 20 22  | AS YOU".d1/+. "|
00001540: 57 41 4E 54 2C 20 54 48  41 54 20 50 45 52 46 4F  |WANT, THAT PERFO|
00001550: 52 4D 20 53 50 45 43 49  46 49 43 20 53 45 54 53  |RM SPECIFIC SETS|
00001560: 20 4F 46 22 00 93 31 34  2B 99 20 22 49 4E 53 54  | OF"..14+. "INST|
00001570: 52 55 43 54 49 4F 4E 53  2C 20 54 48 41 54 20 44  |RUCTIONS, THAT D|
00001580: 4F 20 44 49 46 46 45 52  45 4E 54 20 54 48 49 4E  |O DIFFERENT THIN|
00001590: 47 53 22 00 B4 31 39 2B  99 20 22 49 4E 20 44 49  |GS"..19+. "IN DI|
000015A0: 46 46 45 52 45 4E 54 20  53 49 54 55 41 54 49 4F  |FFERENT SITUATIO|
000015B0: 4E 53 2E 22 00 BA 31 3E  2B 99 00 E8 31 43 2B 99  |NS."..1>+...1C+.|
000015C0: 20 22 D9 4F 55 27 4C 4C  20 41 4C 53 4F 20 42 45  | ".OU'LL ALSO BE|
000015D0: 20 41 42 4C 45 20 54 4F  20 4D 41 4B 45 20 41 20  | ABLE TO MAKE A |
000015E0: 50 52 4F 47 52 41 4D 22  00 17 32 48 2B 99 20 22  |PROGRAM"..2H+. "|
000015F0: 53 54 4F 50 20 41 4E 44  20 57 41 49 54 20 46 4F  |STOP AND WAIT FO|
00001600: 52 20 49 4E 50 55 54 2C  20 41 4E 44 20 59 4F 55  |R INPUT, AND YOU|
00001610: 27 4C 4C 20 42 45 22 00  45 32 4D 2B 99 20 22 41  |'LL BE".E2M+. "A|
00001620: 42 4C 45 20 54 4F 20 4D  41 4B 45 20 55 53 45 20  |BLE TO MAKE USE |
00001630: 4F 46 20 54 48 45 20 49  4E 50 55 54 20 49 4E 20  |OF THE INPUT IN |
00001640: 4D 41 4E 59 22 00 5D 32  4F 2B 99 20 22 44 49 46  |MANY".]2O+. "DIF|
00001650: 46 45 52 45 4E 54 20 57  41 59 53 2E 22 00 63 32  |FERENT WAYS.".c2|
00001660: 52 2B 8E 00 76 32 53 2B  8B 20 4A 47 B2 31 20 89  |R+..v2S+. JG.1 .|
00001670: 20 31 31 30 39 34 00 7F  32 54 2B 4A 47 B2 31 00  | 11094..2T+JG.1.|
00001680: 90 32 55 2B FE 11 20 22  42 54 53 54 31 32 38 22  |.2U+.. "BTST128"|
00001690: 00 B1 32 56 2B 97 20 34  36 33 33 2C 30 30 3A 97  |..2V+. 4633,00:.|
000016A0: 20 34 36 33 34 2C 31 34  3A 97 20 34 30 39 35 2C  | 4634,14:. 4095,|
000016B0: 34 00 BC 32 57 2B 42 B2  B7 28 30 29 00 C5 32 58  |4..2W+B..(0)..2X|
000016C0: 2B 4A 47 B2 30 00 CE 32  59 2B 89 20 35 30 00 E3  |+JG.0..2Y+. 50..|
000016D0: 32 EC 2C 8F 20 2D 2D 2D  2D 2D 20 53 43 52 45 45  |2.,. ----- SCREE|
000016E0: 4E 20 32 00 F3 32 F1 2C  FE 1A 30 2C 31 2C 33 39  |N 2..2.,..0,1,39|
000016F0: 2C 32 34 00 08 33 F6 2C  99 20 A3 31 36 29 3B 22  |,24..3.,. .16);"|
00001700: C9 C6 2D D4 C8 C5 CE 22  00 0E 33 FB 2C 99 00 39  |..-...."..3.,..9|
00001710: 33 00 2D 99 20 22 D3 4F  4D 45 54 49 4D 45 53 20  |3.-. ".OMETIMES |
00001720: 59 4F 55 20 57 41 4E 54  20 41 20 50 52 4F 47 52  |YOU WANT A PROGR|
00001730: 41 4D 20 54 4F 20 44 4F  22 00 5F 33 05 2D 99 20  |AM TO DO"._3.-. |
00001740: 22 44 49 46 46 45 52 45  4E 54 20 54 48 49 4E 47  |"DIFFERENT THING|
00001750: 53 20 49 4E 20 44 49 46  46 45 52 45 4E 54 22 00  |S IN DIFFERENT".|
00001760: 89 33 0A 2D 99 20 22 53  49 54 55 41 54 49 4F 4E  |.3.-. "SITUATION|
00001770: 53 2E 20 D7 48 45 4E 20  54 48 41 54 27 53 20 54  |S. .HEN THAT'S T|
00001780: 48 45 20 43 41 53 45 2C  22 00 AF 33 0F 2D 99 20  |HE CASE,"..3.-. |
00001790: 22 59 4F 55 20 55 53 45  20 41 4E 20 C9 C6 2D D4  |"YOU USE AN ..-.|
000017A0: C8 C5 CE 20 53 54 41 54  45 4D 45 4E 54 2E 22 00  |... STATEMENT.".|
000017B0: B5 33 14 2D 99 00 E3 33  19 2D 99 20 22 C1 4E 20  |.3.-...3.-. ".N |
000017C0: C9 C6 2D D4 C8 C5 CE 20  53 54 41 54 45 4D 45 4E  |..-.... STATEMEN|
000017D0: 54 20 57 4F 52 4B 53 20  4C 49 4B 45 20 54 48 49  |T WORKS LIKE THI|
000017E0: 53 2E 22 00 E9 33 1E 2D  99 00 19 34 23 2D 99 20  |S."..3.-...4#-. |
000017F0: 22 D9 4F 55 20 57 41 4E  54 20 59 4F 55 52 20 43  |".OU WANT YOUR C|
00001800: 4F 4D 50 55 54 45 52 20  54 4F 20 47 4F 20 54 4F  |OMPUTER TO GO TO|
00001810: 20 4C 49 4E 45 20 35 30  22 00 48 34 28 2D 99 20  | LINE 50".H4(-. |
00001820: 22 41 4E 44 20 46 4F 4C  4C 4F 57 20 41 20 53 50  |"AND FOLLOW A SP|
00001830: 45 43 49 41 4C 20 49 4E  53 54 52 55 43 54 49 4F  |ECIAL INSTRUCTIO|
00001840: 4E 20 54 48 45 52 45 22  00 5F 34 2D 2D 99 20 22  |N THERE"._4--. "|
00001850: 49 46 20 C2 20 45 51 55  41 4C 53 20 33 2E 22 00  |IF . EQUALS 3.".|
00001860: 65 34 32 2D 99 00 91 34  37 2D 99 20 22 D3 4F 20  |e42-...47-. ".O |
00001870: 59 4F 55 20 57 52 49 54  45 20 41 20 C2 C1 D3 C9  |YOU WRITE A ....|
00001880: C3 20 53 54 41 54 45 4D  45 4E 54 20 54 48 41 54  |. STATEMENT THAT|
00001890: 22 00 C1 34 3C 2D 99 20  22 54 45 4C 4C 53 20 54  |"..4<-. "TELLS T|
000018A0: 48 45 20 43 4F 4D 50 55  54 45 52 2C 20 C9 C6 20  |HE COMPUTER, .. |
000018B0: C2 20 45 51 55 41 4C 53  20 33 2C 20 D4 C8 C5 CE  |. EQUALS 3, ....|
000018C0: 22 00 F2 34 41 2D 99 20  22 C7 CF 20 D4 CF 20 4C  |"..4A-. ".. .. L|
000018D0: 49 4E 45 20 35 30 20 41  4E 44 20 46 4F 4C 4C 4F  |INE 50 AND FOLLO|
000018E0: 57 20 54 48 45 20 49 4E  53 54 52 55 43 54 49 4F  |W THE INSTRUCTIO|
000018F0: 4E 22 00 01 35 46 2D 99  20 22 54 48 45 52 45 2E  |N"..5F-. "THERE.|
00001900: 22 00 07 35 4B 2D 99 00  30 35 50 2D 99 20 22 D4  |"..5K-..05P-. ".|
00001910: 48 45 20 C9 C6 2D D4 C8  C5 CE 20 53 54 41 54 45  |HE ..-.... STATE|
00001920: 4D 45 4E 54 20 4C 4F 4F  4B 53 20 4C 49 4B 45 22  |MENT LOOKS LIKE"|
00001930: 00 3E 35 52 2D 99 20 22  54 48 49 53 3A 22 00 44  |.>5R-. "THIS:".D|
00001940: 35 55 2D 99 00 61 35 5A  2D 99 22 C9 C6 20 C2 20  |5U-..a5Z-.".. . |
00001950: 3D 20 33 20 D4 C8 C5 CE  A0 C7 CF D4 CF 20 35 30  |= 3 ......... 50|
00001960: 22 00 67 35 64 2D 8E 00  7C 35 E0 2E 8F 20 2D 2D  |".g5d-..|5... --|
00001970: 2D 2D 2D 20 53 43 52 45  45 4E 20 33 00 8D 35 E4  |--- SCREEN 3..5.|
00001980: 2E FE 1A 20 30 2C 31 2C  33 39 2C 32 34 00 B5 35  |... 0,1,39,24..5|
00001990: E5 2E 99 20 22 C8 45 52  45 27 53 20 41 20 50 52  |... ".ERE'S A PR|
000019A0: 4F 47 52 41 4D 20 55 53  49 4E 47 20 C9 C6 2D D4  |OGRAM USING ..-.|
000019B0: C8 C5 CE 2E 22 00 BB 35  EA 2E 99 00 E5 35 EF 2E  |...."..5.....5..|
000019C0: 99 20 22 CC 49 4E 45 20  31 30 20 54 45 4C 4C 53  |. ".INE 10 TELLS|
000019D0: 20 54 48 45 20 43 4F 4D  50 55 54 45 52 20 57 48  | THE COMPUTER WH|
000019E0: 41 54 20 C2 22 00 15 36  F9 2E 99 20 22 45 51 55  |AT ."..6... "EQU|
000019F0: 41 4C 53 2E 20 CC 49 4E  45 20 32 30 20 54 45 4C  |ALS. .INE 20 TEL|
00001A00: 4C 53 20 54 48 45 20 43  4F 4D 50 55 54 45 52 20  |LS THE COMPUTER |
00001A10: 54 48 41 54 22 00 44 36  FE 2E 99 20 22 49 46 20  |THAT".D6... "IF |
00001A20: C2 20 45 51 55 41 4C 53  20 33 2C 20 49 54 20 53  |. EQUALS 3, IT S|
00001A30: 48 4F 55 4C 44 20 47 4F  20 54 4F 20 4C 49 4E 45  |HOULD GO TO LINE|
00001A40: 20 35 30 22 00 62 36 03  2F 99 20 22 41 4E 44 20  | 50".b6./. "AND |
00001A50: 50 52 49 4E 54 20 C2 20  C5 D1 D5 C1 CC D3 20 33  |PRINT . ...... 3|
00001A60: 2E 22 00 68 36 08 2F 99  00 98 36 0D 2F 99 20 22  |.".h6./...6./. "|
00001A70: C9 46 20 C2 20 44 4F 45  53 4E 27 54 20 45 51 55  |.F . DOESN'T EQU|
00001A80: 41 4C 20 33 2C 20 54 48  45 20 43 4F 4D 50 55 54  |AL 3, THE COMPUT|
00001A90: 45 52 20 47 4F 45 53 22  00 C6 36 12 2F 99 20 22  |ER GOES"..6./. "|
00001AA0: 54 4F 20 4C 49 4E 45 20  33 30 20 41 4E 44 20 50  |TO LINE 30 AND P|
00001AB0: 52 49 4E 54 53 20 C2 20  C4 CF C5 D3 CE 27 D4 20  |RINTS . .....'. |
00001AC0: C5 D1 D5 C1 CC 22 00 F4  36 17 2F 99 20 22 33 2E  |....."..6./. "3.|
00001AD0: 20 D4 48 45 4E 20 49 54  20 47 4F 45 53 20 54 4F  | .HEN IT GOES TO|
00001AE0: 20 4C 49 4E 45 20 34 30  20 41 4E 44 20 4F 4E 20  | LINE 40 AND ON |
00001AF0: 54 4F 20 22 00 1D 37 1C  2F 99 20 22 4C 49 4E 45  |TO "..7./. "LINE|
00001B00: 20 36 30 2C 20 57 48 45  52 45 20 54 48 45 20 50  | 60, WHERE THE P|
00001B10: 52 4F 47 52 41 4D 20 45  4E 44 53 2E 22 00 23 37  |ROGRAM ENDS.".#7|
00001B20: 21 2F 99 00 54 37 26 2F  99 20 22 D4 59 50 45 20  |!/..T7&/. ".YPE |
00001B30: 49 4E 20 41 20 4E 55 4D  42 45 52 20 46 4F 52 20  |IN A NUMBER FOR |
00001B40: C2 20 41 4E 44 20 50 52  45 53 53 20 D2 C5 D4 D5  |. AND PRESS ....|
00001B50: D2 CE 2E 22 00 5A 37 2B  2F 99 00 6A 37 30 2F 99  |...".Z7+/..j70/.|
00001B60: 20 22 31 30 20 C2 20 3D  20 22 00 8B 37 35 2F 99  | "10 . = "..75/.|
00001B70: 20 22 32 30 20 C9 C6 20  C2 20 3D 20 33 20 D4 C8  | "20 .. . = 3 ..|
00001B80: C5 CE A0 C7 CF D4 CF A0  35 30 22 00 B7 37 3A 2F  |........50"..7:/|
00001B90: 99 20 22 33 30 20 D0 D2  C9 CE D4 A0 22 44 51 24  |. "30 ......"DQ$|
00001BA0: 22 C2 20 C4 CF C5 D3 CE  27 D4 20 C5 D1 D5 C1 CC  |". .....'. .....|
00001BB0: 20 33 2E 22 44 51 24 00  C9 37 3F 2F 99 20 22 34  | 3."DQ$..7?/. "4|
00001BC0: 30 20 C7 CF D4 CF 20 36  30 00 EE 37 44 2F 99 20  |0 .... 60..7D/. |
00001BD0: 22 35 30 20 D0 D2 C9 CE  D4 20 22 44 51 24 22 C2  |"50 ..... "DQ$".|
00001BE0: 20 C5 D1 D5 C1 CC D3 20  33 2E 22 44 51 24 00 FD  | ...... 3."DQ$..|
00001BF0: 37 49 2F 99 20 22 36 30  20 C5 CE C4 22 00 1A 38  |7I/. "60 ..."..8|
00001C00: 4E 2F 99 20 22 D2 D5 CE  22 3B 3A 43 4C B2 33 3A  |N/. "...";:CL.3:|
00001C10: 43 58 B2 37 3A 43 59 B2  31 35 00 3A 38 53 2F 8D  |CX.7:CY.15.:8S/.|
00001C20: 20 31 35 30 30 3A 41 33  B2 41 3A 8B 20 53 44 B2  | 1500:A3.A:. SD.|
00001C30: 32 20 A7 20 52 53 B2 31  3A 8E 00 63 38 55 2F E0  |2 . RS.1:..c8U/.|
00001C40: 20 2C 33 2C 32 30 2C 22  22 3A 20 8F 20 20 46 4F  | ,3,20,"": .  FO|
00001C50: 52 20 54 48 45 20 52 55  4E 20 53 54 41 54 45 4D  |R THE RUN STATEM|
00001C60: 45 4E 54 00 7E 38 58 2F  8D 20 31 34 35 30 3A 8B  |ENT.~8X/. 1450:.|
00001C70: 20 53 44 B2 32 20 A7 20  52 53 B2 31 3A 8E 00 B3  | SD.2 . RS.1:...|
00001C80: 38 62 2F 8B 41 33 B2 33  20 A7 20 99 20 22 C2 20  |8b/.A3.3 . . ". |
00001C90: C5 D1 D5 C1 CC D3 20 33  2E 22 3A D5 20 99 20 22  |...... 3.":. . "|
00001CA0: C2 20 C4 CF C5 D3 CE 27  D4 20 C5 D1 D5 C1 CC 20  |. .....'. ..... |
00001CB0: 33 2E 22 00 B9 38 A8 2F  8E 00 CE 38 C8 32 8F 20  |3."..8./...8.2. |
00001CC0: 2D 2D 2D 2D 2D 20 53 43  52 45 45 4E 20 34 00 FE  |----- SCREEN 4..|
00001CD0: 38 CD 32 99 20 22 D9 4F  55 20 43 41 4E 20 55 53  |8.2. ".OU CAN US|
00001CE0: 45 20 41 4E 59 20 4F 46  20 54 48 45 53 45 20 53  |E ANY OF THESE S|
00001CF0: 59 4D 42 4F 4C 53 20 49  4E 20 41 4E 20 22 00 19  |YMBOLS IN AN "..|
00001D00: 39 D2 32 99 20 22 C9 C6  2D D4 C8 C5 CE 20 53 54  |9.2. "..-.... ST|
00001D10: 41 54 45 4D 45 4E 54 3A  22 00 1F 39 D7 32 99 00  |ATEMENT:"..9.2..|
00001D20: 36 39 DC 32 99 20 22 3D  20 20 49 53 20 45 51 55  |69.2. "=  IS EQU|
00001D30: 41 4C 20 54 4F 22 00 51  39 E1 32 99 20 22 3E 20  |AL TO".Q9.2. "> |
00001D40: 20 49 53 20 47 52 45 41  54 45 52 20 54 48 41 4E  | IS GREATER THAN|
00001D50: 22 00 69 39 E6 32 99 20  22 3C 20 20 49 53 20 4C  |".i9.2. "<  IS L|
00001D60: 45 53 53 20 54 48 41 4E  22 00 84 39 EB 32 99 20  |ESS THAN"..9.2. |
00001D70: 22 3C 3E 20 49 53 20 4E  4F 54 20 45 51 55 41 4C  |"<> IS NOT EQUAL|
00001D80: 20 54 4F 22 00 AB 39 F0  32 99 20 22 3E 3D 20 49  | TO"..9.2. ">= I|
00001D90: 53 20 47 52 45 41 54 45  52 20 54 48 41 4E 20 4F  |S GREATER THAN O|
00001DA0: 52 20 45 51 55 41 4C 20  54 4F 22 00 CF 39 F5 32  |R EQUAL TO"..9.2|
00001DB0: 99 20 22 3C 3D 20 49 53  20 4C 45 53 53 20 54 48  |. "<= IS LESS TH|
00001DC0: 41 4E 20 4F 52 20 45 51  55 41 4C 20 54 4F 22 00  |AN OR EQUAL TO".|
00001DD0: D5 39 FA 32 8E 00 EA 39  BC 34 8F 20 2D 2D 2D 2D  |.9.2...9.4. ----|
00001DE0: 2D 20 53 43 52 45 45 4E  20 35 00 00 3A C6 34 99  |- SCREEN 5..:.4.|
00001DF0: 20 A3 31 36 29 3B 22 C6  CF D2 2D CE C5 D8 D4 22  | .16);"...-...."|
00001E00: 00 06 3A CB 34 99 00 36  3A D0 34 99 20 22 D9 4F  |..:.4..6:.4. ".O|
00001E10: 55 20 43 41 4E 20 47 49  56 45 20 54 48 45 20 C3  |U CAN GIVE THE .|
00001E20: 31 32 38 20 49 4E 53 54  52 55 43 54 49 4F 4E 53  |128 INSTRUCTIONS|
00001E30: 20 54 48 41 54 22 00 67  3A D5 34 99 20 22 4D 41  | THAT".g:.4. "MA|
00001E40: 4B 45 20 49 54 20 44 4F  20 54 48 45 20 53 41 4D  |KE IT DO THE SAM|
00001E50: 45 20 54 48 49 4E 47 20  4F 56 45 52 20 41 4E 44  |E THING OVER AND|
00001E60: 20 4F 56 45 52 2E 22 00  95 3A DA 34 99 20 22 D3  | OVER."..:.4. ".|
00001E70: 55 43 48 20 41 4E 20 49  4E 53 54 52 55 43 54 49  |UCH AN INSTRUCTI|
00001E80: 4F 4E 20 49 53 20 43 41  4C 4C 45 44 20 41 20 4C  |ON IS CALLED A L|
00001E90: 4F 4F 50 2E 22 00 9B 3A  DF 34 99 00 C7 3A E4 34  |OOP."..:.4...:.4|
00001EA0: 99 20 22 CF 4E 45 20 4F  46 20 54 48 45 20 53 49  |. ".NE OF THE SI|
00001EB0: 4D 50 4C 45 53 54 20 42  55 54 20 4D 4F 53 54 20  |MPLEST BUT MOST |
00001EC0: 55 53 45 46 55 4C 22 00  EB 3A E9 34 99 20 22 4C  |USEFUL"..:.4. "L|
00001ED0: 4F 4F 50 53 20 49 53 20  54 48 45 20 C6 CF D2 2D  |OOPS IS THE ...-|
00001EE0: CE C5 D8 D4 20 4C 4F 4F  50 2E 22 00 F1 3A EE 34  |.... LOOP."..:.4|
00001EF0: 8E 00 06 3B 20 35 8F 20  2D 2D 2D 2D 2D 20 53 43  |...; 5. ----- SC|
00001F00: 52 45 45 4E 20 36 00 37  3B 24 35 99 20 22 D4 48  |REEN 6.7;$5. ".H|
00001F10: 45 20 50 52 4F 47 52 41  4D 20 42 45 4C 4F 57 20  |E PROGRAM BELOW |
00001F20: 48 41 53 20 41 20 C6 CF  D2 2D CE C5 D8 D4 20 4C  |HAS A ...-.... L|
00001F30: 4F 4F 50 20 49 4E 22 00  5B 3B 25 35 99 20 22 49  |OOP IN".[;%5. "I|
00001F40: 54 2E 20 D0 52 45 53 53  20 D2 C5 D4 D5 D2 CE 20  |T. .RESS ...... |
00001F50: 54 4F 20 52 55 4E 20 49  54 2E 22 00 61 3B 2A 35  |TO RUN IT.".a;*5|
00001F60: 99 00 7B 3B 2F 35 99 20  22 31 30 20 C6 CF D2 A0  |..{;/5. "10 ....|
00001F70: C3 20 3D 20 31 20 54 4F  20 33 22 00 99 3B 34 35  |. = 1 TO 3"..;45|
00001F80: 99 20 22 32 30 20 D0 D2  C9 CE D4 A0 22 44 51 24  |. "20 ......"DQ$|
00001F90: 22 C1 C8 C8 2D 22 44 51  24 00 AB 3B 39 35 99 20  |"...-"DQ$..;95. |
00001FA0: 22 33 30 20 CE C5 D8 D4  20 C3 22 00 CA 3B 3E 35  |"30 .... ."..;>5|
00001FB0: 99 20 22 34 30 20 D0 D2  C9 CE D4 A0 22 44 51 24  |. "40 ......"DQ$|
00001FC0: 22 C3 C8 CF CF 21 22 44  51 24 00 D9 3B 43 35 99  |"....!"DQ$..;C5.|
00001FD0: 20 22 35 30 20 C5 CE C4  22 00 E6 3B 48 35 99 20  | "50 ..."..;H5. |
00001FE0: 22 D2 D5 CE 22 3B 00 01  3C 4D 35 8D 20 31 34 35  |"...";..<M5. 145|
00001FF0: 30 3A 8B 20 53 44 B2 32  20 A7 20 52 53 B2 31 3A  |0:. SD.2 . RS.1:|
00002000: 8E 00 20 3C 52 35 81 20  49 B2 30 A4 32 3A 99 22  |.. <R5. I.0.2:."|
00002010: C1 C8 C8 2D 22 3A 82 3A  99 22 C3 C8 CF CF 21 22  |...-":.:."....!"|
00002020: 00 26 3C 7A 35 8E 00 3B  3C A4 38 8F 20 2D 2D 2D  |.&<z5..;<.8. ---|
00002030: 2D 2D 20 53 43 52 45 45  4E 20 37 00 4C 3C AE 38  |-- SCREEN 7.L<.8|
00002040: FE 1A 20 30 2C 30 2C 33  39 2C 32 34 00 7C 3C B3  |.. 0,0,39,24.|<.|
00002050: 38 99 20 22 C6 CF D2 2D  CE C5 D8 D4 20 55 53 45  |8. "...-.... USE|
00002060: 53 20 56 41 52 49 41 42  4C 45 20 C3 20 54 4F 20  |S VARIABLE . TO |
00002070: 4B 45 45 50 20 43 4F 55  4E 54 2E 22 00 82 3C BD  |KEEP COUNT."..<.|
00002080: 38 99 00 B3 3C C2 38 99  20 22 C6 CF D2 20 45 56  |8...<.8. "... EV|
00002090: 45 52 59 20 4E 55 4D 42  45 52 20 54 48 41 54 20  |ERY NUMBER THAT |
000020A0: C3 20 45 51 55 41 4C 53  20 46 52 4F 4D 20 31 20  |. EQUALS FROM 1 |
000020B0: D4 CF 22 00 E0 3C C7 38  99 20 22 33 2C 20 46 4F  |.."..<.8. "3, FO|
000020C0: 4C 4C 4F 57 20 54 48 45  20 49 4E 53 54 52 55 43  |LLOW THE INSTRUC|
000020D0: 54 49 4F 4E 53 20 55 4E  54 49 4C 20 59 4F 55 22  |TIONS UNTIL YOU"|
000020E0: 00 F4 3C CC 38 99 20 22  52 45 41 43 48 20 CE C5  |..<.8. "REACH ..|
000020F0: D8 D4 2E 22 00 FA 3C D1  38 99 00 2B 3D D6 38 99  |..."..<.8..+=.8.|
00002100: 20 22 D4 48 45 20 C3 31  32 38 20 54 48 45 4E 20  | ".HE .128 THEN |
00002110: 45 58 45 43 55 54 45 53  20 4C 49 4E 45 20 32 30  |EXECUTES LINE 20|
00002120: 2C 20 50 52 49 4E 54 49  4E 47 22 00 39 3D D8 38  |, PRINTING".9=.8|
00002130: 99 20 22 C1 C8 C8 2D 2E  22 00 3F 3D DB 38 99 00  |. "...-.".?=.8..|
00002140: 72 3D E0 38 99 20 22 CC  49 4E 45 20 33 30 20 53  |r=.8. ".INE 30 S|
00002150: 41 59 53 2C 20 22 44 51  24 22 C7 4F 20 4F 4E 20  |AYS, "DQ$".O ON |
00002160: 54 4F 20 54 48 45 20 CE  C5 D8 D4 20 56 41 4C 55  |TO THE .... VALU|
00002170: 45 22 00 A1 3D E5 38 99  20 22 4F 46 20 C3 2C 20  |E"..=.8. "OF ., |
00002180: 41 4E 44 20 47 4F 20 42  41 43 4B 20 54 4F 20 54  |AND GO BACK TO T|
00002190: 48 45 20 4C 49 4E 45 20  57 49 54 48 20 54 48 45  |HE LINE WITH THE|
000021A0: 22 00 C1 3D EA 38 99 20  22 C6 CF D2 20 53 54 41  |"..=.8. "... STA|
000021B0: 54 45 4D 45 4E 54 20 49  4E 20 49 54 2E 22 44 51  |TEMENT IN IT."DQ|
000021C0: 24 00 C7 3D EF 38 99 00  FA 3D F4 38 99 20 22 D7  |$..=.8...=.8. ".|
000021D0: 48 45 4E 20 C3 20 45 51  55 41 4C 53 20 33 2C 20  |HEN . EQUALS 3, |
000021E0: 4C 49 4E 45 20 31 30 20  53 41 59 53 2C 20 22 44  |LINE 10 SAYS, "D|
000021F0: 51 24 22 C6 4F 4C 4C 4F  57 22 00 2A 3E F9 38 99  |Q$".OLLOW".*>.8.|
00002200: 20 22 54 48 45 20 49 4E  53 54 52 55 43 54 49 4F  | "THE INSTRUCTIO|
00002210: 4E 53 20 55 4E 54 49 4C  20 59 4F 55 20 43 4F 4D  |NS UNTIL YOU COM|
00002220: 45 20 54 4F 20 CE C5 D8  D4 22 00 5C 3E FE 38 99  |E TO ....".\>.8.|
00002230: 20 22 2D 2D 20 41 4E 44  20 4B 45 45 50 20 47 4F  | "-- AND KEEP GO|
00002240: 49 4E 47 2E 22 44 51 24  22 20 D4 48 45 20 43 4F  |ING."DQ$" .HE CO|
00002250: 4D 50 55 54 45 52 20 54  48 45 4E 22 00 88 3E 03  |MPUTER THEN"..>.|
00002260: 39 99 20 22 50 52 49 4E  54 53 A0 C3 C8 CF CF 21  |9. "PRINTS.....!|
00002270: 2C 20 41 4E 44 20 54 48  45 20 50 52 4F 47 52 41  |, AND THE PROGRA|
00002280: 4D 20 45 4E 44 53 2E 22  00 8E 3E 08 39 99 00 A8  |M ENDS."..>.9...|
00002290: 3E 17 39 99 20 22 31 30  20 C6 CF D2 A0 C3 20 3D  |>.9. "10 ..... =|
000022A0: 20 31 20 54 4F 20 33 22  00 C6 3E 1C 39 99 20 22  | 1 TO 3"..>.9. "|
000022B0: 32 30 20 D0 D2 C9 CE D4  A0 22 44 51 24 22 C1 C8  |20 ......"DQ$"..|
000022C0: C8 2D 22 44 51 24 00 D8  3E 21 39 99 20 22 33 30  |.-"DQ$..>!9. "30|
000022D0: 20 CE C5 D8 D4 20 C3 22  00 F7 3E 26 39 99 20 22  | .... ."..>&9. "|
000022E0: 34 30 20 D0 D2 C9 CE D4  A0 22 44 51 24 22 C3 C8  |40 ......"DQ$"..|
000022F0: CF CF 21 22 44 51 24 00  06 3F 2B 39 99 20 22 35  |..!"DQ$..?+9. "5|
00002300: 30 20 C5 CE C4 22 00 0C  3F 30 39 8E 00 21 3F 98  |0 ..."..?09..!?.|
00002310: 3A 8F 20 2D 2D 2D 2D 2D  20 53 43 52 45 45 4E 20  |:. ----- SCREEN |
00002320: 38 00 4B 3F 9D 3A 99 20  22 D9 4F 55 20 44 4F 4E  |8.K?.:. ".OU DON|
00002330: 27 54 20 48 41 56 45 20  54 4F 20 53 54 45 50 20  |'T HAVE TO STEP |
00002340: 54 48 52 4F 55 47 48 20  41 20 22 00 7B 3F A2 3A  |THROUGH A ".{?.:|
00002350: 99 20 22 C6 CF D2 2D CE  C5 D8 D4 20 4C 4F 4F 50  |. "...-.... LOOP|
00002360: 20 4F 4E 45 20 4E 55 4D  42 45 52 20 41 54 20 41  | ONE NUMBER AT A|
00002370: 20 54 49 4D 45 2E 20 D4  48 45 22 00 A7 3F A7 3A  | TIME. .HE"..?.:|
00002380: 99 20 22 D3 D4 C5 D0 20  43 4F 4D 4D 41 4E 44 20  |. ".... COMMAND |
00002390: 4C 45 54 53 20 59 4F 55  20 52 45 50 45 41 54 20  |LETS YOU REPEAT |
000023A0: 41 20 C6 CF D2 2D 22 00  D4 3F AC 3A 99 20 22 CE  |A ...-"..?.:. ".|
000023B0: C5 D8 D4 20 4C 4F 4F 50  20 49 4E 20 57 48 41 54  |... LOOP IN WHAT|
000023C0: 45 56 45 52 20 53 49 5A  45 20 53 54 45 50 53 20  |EVER SIZE STEPS |
000023D0: 59 4F 55 22 00 E2 3F AD  3A 99 20 22 57 41 4E 54  |YOU"..?.:. "WANT|
000023E0: 2E 22 00 E8 3F B1 3A 99  00 12 40 B6 3A 99 20 22  |."..?.:...@.:. "|
000023F0: D4 48 45 20 D3 D4 C5 D0  20 43 4F 4D 4D 41 4E 44  |.HE .... COMMAND|
00002400: 20 4C 4F 4F 4B 53 20 4C  49 4B 45 20 54 48 49 53  | LOOKS LIKE THIS|
00002410: 3A 22 00 18 40 BB 3A 99  00 3B 40 C0 3A 99 20 22  |:"..@.:..;@.:. "|
00002420: 31 30 20 C6 CF D2 20 C4  20 3D 20 36 36 20 D4 CF  |10 ... . = 66 ..|
00002430: 20 39 39 20 D3 D4 C5 D0  20 33 22 00 4E 40 C5 3A  | 99 .... 3".N@.:|
00002440: 99 20 22 32 30 20 D0 D2  C9 CE D4 20 C4 22 00 60  |. "20 ..... .".`|
00002450: 40 CA 3A 99 20 22 33 30  20 CE C5 D8 D4 20 C4 22  |@.:. "30 .... ."|
00002460: 00 6F 40 CC 3A 99 20 22  34 30 20 C5 CE C4 22 00  |.o@.:. "40 ...".|
00002470: 75 40 CD 3A 99 00 A1 40  CE 3A 99 20 22 D4 48 49  |u@.:...@.:. ".HI|
00002480: 53 20 50 52 4F 47 52 41  4D 20 57 49 4C 4C 20 50  |S PROGRAM WILL P|
00002490: 52 49 4E 54 20 36 36 2C  20 36 39 2C 20 37 32 2C  |RINT 66, 69, 72,|
000024A0: 22 00 C1 40 CF 3A 99 20  22 41 4E 44 20 53 4F 20  |"..@.:. "AND SO |
000024B0: 46 4F 52 54 48 2C 20 55  50 20 54 4F 20 39 39 2E  |FORTH, UP TO 99.|
000024C0: 22 00 C7 40 D4 3A 8E 00  DC 40 8C 3C 8F 20 2D 2D  |"..@.:...@.<. --|
000024D0: 2D 2D 2D 20 53 43 52 45  45 4E 20 39 00 0B 41 96  |--- SCREEN 9..A.|
000024E0: 3C 99 20 22 D9 4F 55 20  43 41 4E 20 41 4C 53 4F  |<. ".OU CAN ALSO|
000024F0: 20 53 54 45 50 20 42 41  43 4B 57 41 52 44 53 20  | STEP BACKWARDS |
00002500: 49 4E 53 54 45 41 44 20  4F 46 22 00 35 41 9B 3C  |INSTEAD OF".5A.<|
00002510: 99 20 22 46 4F 52 57 41  52 44 53 2E 20 D0 52 45  |. "FORWARDS. .RE|
00002520: 53 53 20 D2 C5 D4 D5 D2  CE 20 54 4F 20 52 55 4E  |SS ...... TO RUN|
00002530: 20 54 48 45 22 00 4C 41  A0 3C 99 20 22 50 52 4F  | THE".LA.<. "PRO|
00002540: 47 52 41 4D 20 42 45 4C  4F 57 2E 22 00 52 41 A5  |GRAM BELOW.".RA.|
00002550: 3C 99 00 75 41 AA 3C 99  20 22 31 30 20 C6 CF D2  |<..uA.<. "10 ...|
00002560: A0 C5 20 3D 20 31 30 20  D4 CF 20 31 20 D3 D4 C5  |.. = 10 .. 1 ...|
00002570: D0 20 2D 31 22 00 88 41  AF 3C 99 20 22 32 30 20  |. -1"..A.<. "20 |
00002580: D0 D2 C9 CE D4 20 C5 22  00 9A 41 B4 3C 99 20 22  |..... ."..A.<. "|
00002590: 33 30 20 CE C5 D8 D4 20  C5 22 00 BD 41 B9 3C 99  |30 .... ."..A.<.|
000025A0: 20 22 34 30 20 D0 D2 C9  CE D4 20 22 44 51 24 22  | "40 ..... "DQ$"|
000025B0: CC C9 C6 D4 2D CF C6 C6  21 22 44 51 24 00 CC 41  |....-...!"DQ$..A|
000025C0: BE 3C 99 20 22 35 30 20  C5 CE C4 22 00 D9 41 C3  |.<. "50 ..."..A.|
000025D0: 3C 99 20 22 D2 D5 CE 22  3B 00 F4 41 C8 3C 8D 20  |<. "...";..A.<. |
000025E0: 31 34 35 30 3A 8B 20 53  44 B2 32 20 A7 20 52 53  |1450:. SD.2 . RS|
000025F0: B2 31 3A 8E 00 17 42 CD  3C 81 20 49 B2 31 30 A4  |.1:...B.<. I.10.|
00002600: 31 A9 AB 31 3A 99 49 3A  82 3A 99 20 22 CC C9 C6  |1..1:.I:.:. "...|
00002610: D4 2D CF C6 C6 21 22 00  1D 42 D2 3C 8E 00 33 42  |.-...!"..B.<..3B|
00002620: 74 40 8F 20 2D 2D 2D 2D  2D 20 53 43 52 45 45 4E  |t@. ----- SCREEN|
00002630: 20 31 30 00 44 42 7B 40  FE 1A 20 30 2C 30 2C 33  | 10.DB{@.. 0,0,3|
00002640: 39 2C 32 34 00 57 42 7E  40 99 20 A3 31 37 29 3B  |9,24.WB~@. .17);|
00002650: 22 C9 CE D0 D5 D4 22 00  5D 42 83 40 99 00 8D 42  |".....".]B.@...B|
00002660: 88 40 99 20 22 CF 4E 45  20 57 41 59 20 54 4F 20  |.@. ".NE WAY TO |
00002670: 45 4E 54 45 52 20 41 20  56 41 4C 55 45 20 49 4E  |ENTER A VALUE IN|
00002680: 54 4F 20 41 20 50 52 4F  47 52 41 4D 22 00 BB 42  |TO A PROGRAM"..B|
00002690: 8D 40 99 20 22 49 53 20  54 4F 20 57 52 49 54 45  |.@. "IS TO WRITE|
000026A0: 20 41 4E 20 49 4E 53 54  52 55 43 54 49 4F 4E 20  | AN INSTRUCTION |
000026B0: 4C 49 4B 45 20 54 48 49  53 3A 22 00 C1 42 92 40  |LIKE THIS:"..B.@|
000026C0: 99 00 D2 42 97 40 99 20  22 31 30 20 C6 20 3D 20  |...B.@. "10 . = |
000026D0: 34 22 00 D8 42 9C 40 99  00 04 43 A1 40 99 20 22  |4"..B.@...C.@. "|
000026E0: C2 55 54 20 4F 46 54 45  4E 20 59 4F 55 27 4C 4C  |.UT OFTEN YOU'LL|
000026F0: 20 57 41 4E 54 20 54 4F  20 42 45 20 41 42 4C 45  | WANT TO BE ABLE|
00002700: 20 54 4F 22 00 34 43 A6  40 99 20 22 45 4E 54 45  | TO".4C.@. "ENTE|
00002710: 52 20 41 20 56 41 4C 55  45 20 49 4E 54 4F 20 41  |R A VALUE INTO A|
00002720: 20 50 52 4F 47 52 41 4D  20 57 48 49 4C 45 20 49  | PROGRAM WHILE I|
00002730: 54 27 53 22 00 61 43 AB  40 99 20 22 52 55 4E 4E  |T'S".aC.@. "RUNN|
00002740: 49 4E 47 2E 20 C6 4F 52  20 54 48 41 54 2C 20 59  |ING. .OR THAT, Y|
00002750: 4F 55 20 55 53 45 20 54  48 45 20 C9 CE D0 D5 D4  |OU USE THE .....|
00002760: 22 00 72 43 B0 40 99 20  22 43 4F 4D 4D 41 4E 44  |".rC.@. "COMMAND|
00002770: 3A 22 00 78 43 B5 40 99  00 8B 43 BA 40 99 20 22  |:".xC.@...C.@. "|
00002780: 31 30 20 C9 CE D0 D5 D4  20 C6 22 00 92 43 BF 40  |10 ..... ."..C.@|
00002790: 99 22 00 BF 43 C4 40 99  20 22 D7 48 45 4E 20 59  |."..C.@. ".HEN Y|
000027A0: 4F 55 20 52 55 4E 20 41  20 50 52 4F 47 52 41 4D  |OU RUN A PROGRAM|
000027B0: 20 57 49 54 48 20 41 4E  20 C9 CE D0 D5 D4 22 00  | WITH AN .....".|
000027C0: EE 43 C9 40 99 20 22 43  4F 4D 4D 41 4E 44 20 49  |.C.@. "COMMAND I|
000027D0: 4E 20 49 54 2C 20 54 48  45 20 43 4F 4D 50 55 54  |N IT, THE COMPUT|
000027E0: 45 52 20 53 54 4F 50 53  20 57 48 45 4E 22 00 19  |ER STOPS WHEN"..|
000027F0: 44 CE 40 99 20 22 49 54  20 43 4F 4D 45 53 20 54  |D.@. "IT COMES T|
00002800: 4F 20 54 48 45 20 C9 CE  D0 D5 D4 20 43 4F 4D 4D  |O THE ..... COMM|
00002810: 41 4E 44 2E 20 C9 54 20  22 00 3A 44 D3 40 99 20  |AND. .T ".:D.@. |
00002820: 22 50 52 4F 4D 50 54 53  20 59 4F 55 20 4C 49 4B  |"PROMPTS YOU LIK|
00002830: 45 20 54 48 49 53 20 2D  2D 22 00 40 44 D8 40 99  |E THIS --".@D.@.|
00002840: 00 4A 44 DD 40 99 20 22  3F 22 00 50 44 E2 40 99  |.JD.@. "?".PD.@.|
00002850: 00 79 44 E7 40 99 20 22  54 4F 20 4C 45 54 20 59  |.yD.@. "TO LET Y|
00002860: 4F 55 20 4B 4E 4F 57 20  49 54 27 53 20 57 41 49  |OU KNOW IT'S WAI|
00002870: 54 49 4E 47 20 46 4F 52  22 00 97 44 EC 40 99 20  |TING FOR"..D.@. |
00002880: 22 59 4F 55 20 54 4F 20  45 4E 54 45 52 20 41 20  |"YOU TO ENTER A |
00002890: 56 41 4C 55 45 2E 22 00  9D 44 F6 40 8E 00 B3 44  |VALUE."..D.@...D|
000028A0: 68 42 8F 20 2D 2D 2D 2D  2D 20 53 43 52 45 45 4E  |hB. ----- SCREEN|
000028B0: 20 31 31 00 E2 44 72 42  99 20 22 D4 48 45 20 50  | 11..DrB. ".HE P|
000028C0: 52 4F 47 52 41 4D 20 42  45 4C 4F 57 20 48 41 53  |ROGRAM BELOW HAS|
000028D0: 20 41 4E 20 C9 CE D0 D5  D4 20 43 4F 4D 4D 41 4E  | AN ..... COMMAN|
000028E0: 44 22 00 0F 45 77 42 99  20 22 49 4E 20 49 54 2E  |D"..EwB. "IN IT.|
000028F0: 20 D0 52 45 53 53 20 D2  C5 D4 D5 D2 CE 20 41 4E  | .RESS ...... AN|
00002900: 44 20 54 48 45 20 43 4F  4D 50 55 54 45 52 22 00  |D THE COMPUTER".|
00002910: 3A 45 7C 42 99 20 22 57  49 4C 4C 20 50 52 4F 4D  |:E|B. "WILL PROM|
00002920: 50 54 20 59 4F 55 20 54  4F 20 45 4E 54 45 52 20  |PT YOU TO ENTER |
00002930: 41 20 4E 55 4D 42 45 52  2E 22 00 40 45 81 42 99  |A NUMBER.".@E.B.|
00002940: 00 6F 45 86 42 99 20 22  D4 59 50 45 20 49 4E 20  |.oE.B. ".YPE IN |
00002950: 41 20 4E 55 4D 42 45 52  20 41 4E 44 20 50 52 45  |A NUMBER AND PRE|
00002960: 53 53 20 D2 C5 D4 D5 D2  CE 2E 20 D4 48 45 22 00  |SS ....... .HE".|
00002970: 9C 45 8B 42 99 20 22 50  52 4F 47 52 41 4D 20 57  |.E.B. "PROGRAM W|
00002980: 49 4C 4C 20 54 45 4C 4C  20 59 4F 55 20 48 4F 57  |ILL TELL YOU HOW|
00002990: 20 4D 41 4E 59 20 44 49  4D 45 53 22 00 C3 45 90  | MANY DIMES"..E.|
000029A0: 42 99 20 22 41 52 45 20  49 4E 20 54 48 41 54 20  |B. "ARE IN THAT |
000029B0: 4E 55 4D 42 45 52 20 4F  46 20 44 4F 4C 4C 41 52  |NUMBER OF DOLLAR|
000029C0: 53 2E 22 00 C9 45 95 42  99 00 DC 45 9A 42 99 20  |S."..E.B...E.B. |
000029D0: 22 31 30 20 C9 CE D0 D5  D4 A0 C6 22 00 F4 45 9F  |"10 ......."..E.|
000029E0: 42 99 20 22 32 30 20 D0  D2 C9 CE D4 20 C6 20 2A  |B. "20 ..... . *|
000029F0: 20 31 30 22 00 03 46 A4  42 99 20 22 33 30 20 C5  | 10"..F.B. "30 .|
00002A00: CE C4 22 00 10 46 A9 42  99 20 22 D2 D5 CE 22 3B  |.."..F.B. "...";|
00002A10: 00 2B 46 AE 42 8D 20 31  34 35 30 3A 8B 20 53 44  |.+F.B. 1450:. SD|
00002A20: B2 32 20 A7 20 52 53 B2  31 3A 8E 00 5D 46 B3 42  |.2 . RS.1:..]F.B|
00002A30: 99 20 22 3F 22 3B 3A 43  4C B2 33 3A 43 58 B2 32  |. "?";:CL.3:CX.2|
00002A40: 3A 43 59 B2 31 34 3A 8D  20 31 35 30 30 3A 8B 20  |:CY.14:. 1500:. |
00002A50: 53 44 B2 32 20 A7 20 52  53 B2 31 3A 8E 00 6A 46  |SD.2 . RS.1:..jF|
00002A60: B8 42 99 3A 99 20 41 AC  31 30 00 70 46 94 43 8E  |.B.:. A.10.pF.C.|
00002A70: 00 86 46 50 46 8F 20 2D  2D 2D 2D 2D 20 53 43 52  |..FPF. ----- SCR|
00002A80: 45 45 4E 20 31 32 00 B4  46 5A 46 99 20 22 C9 54  |EEN 12..FZF. ".T|
00002A90: 27 53 20 41 20 47 4F 4F  44 20 49 44 45 41 20 57  |'S A GOOD IDEA W|
00002AA0: 48 45 4E 20 59 4F 55 27  52 45 20 55 53 49 4E 47  |HEN YOU'RE USING|
00002AB0: 20 41 4E 22 00 E0 46 5F  46 99 20 22 C9 CE D0 D5  | AN"..F_F. "....|
00002AC0: D4 20 43 4F 4D 4D 41 4E  44 20 54 4F 20 41 44 44  |. COMMAND TO ADD|
00002AD0: 20 41 20 4D 45 53 53 41  47 45 20 54 48 41 54 22  | A MESSAGE THAT"|
00002AE0: 00 0E 47 64 46 99 20 22  45 58 50 4C 41 49 4E 53  |..GdF. "EXPLAINS|
00002AF0: 20 57 48 41 54 20 54 48  45 20 43 4F 4D 50 55 54  | WHAT THE COMPUT|
00002B00: 45 52 20 49 53 20 57 41  49 54 49 4E 47 22 00 1B  |ER IS WAITING"..|
00002B10: 47 69 46 99 20 22 46 4F  52 2E 22 00 21 47 6E 46  |GiF. "FOR.".!GnF|
00002B20: 99 00 50 47 73 46 99 20  22 D0 52 45 53 53 A0 D2  |..PGsF. ".RESS..|
00002B30: C5 D4 D5 D2 CE 20 54 4F  20 52 55 4E 20 54 48 45  |..... TO RUN THE|
00002B40: 20 50 52 4F 47 52 41 4D  20 42 45 4C 4F 57 2C 22  | PROGRAM BELOW,"|
00002B50: 00 80 47 78 46 99 20 22  41 4E 44 20 59 4F 55 27  |..GxF. "AND YOU'|
00002B60: 4C 4C 20 53 45 45 20 54  48 45 20 44 49 46 46 45  |LL SEE THE DIFFE|
00002B70: 52 45 4E 43 45 20 49 54  20 4D 41 4B 45 53 2E 22  |RENCE IT MAKES."|
00002B80: 00 AD 47 7D 46 99 20 22  D2 45 4D 45 4D 42 45 52  |..G}F. ".EMEMBER|
00002B90: 20 54 4F 20 50 52 45 53  53 20 D2 C5 D4 D5 D2 CE  | TO PRESS ......|
00002BA0: 20 41 47 41 49 4E 20 41  46 54 45 52 22 00 D5 47  | AGAIN AFTER"..G|
00002BB0: 82 46 99 20 22 59 4F 55  27 56 45 20 54 59 50 45  |.F. "YOU'VE TYPE|
00002BC0: 44 20 49 4E 20 41 20 4E  55 4D 42 45 52 20 46 4F  |D IN A NUMBER FO|
00002BD0: 52 20 C7 2E 22 00 DB 47  87 46 99 00 08 48 8C 46  |R .."..G.F...H.F|
00002BE0: 99 20 22 31 30 20 C9 CE  D0 D5 D4 20 22 44 51 24  |. "10 ..... "DQ$|
00002BF0: 22 C8 CF D7 20 CF CC C4  20 C1 D2 C5 20 D9 CF D5  |"... ... ... ...|
00002C00: 22 44 51 24 22 3B C7 22  00 1E 48 91 46 99 20 22  |"DQ$";."..H.F. "|
00002C10: 32 30 20 C7 20 3D 20 C7  20 2A 20 31 32 22 00 5C  |20 . = . * 12".\|
00002C20: 48 96 46 99 20 22 33 30  20 D0 D2 C9 CE D4 A0 22  |H.F. "30 ......"|
00002C30: 44 51 24 22 D9 CF D5 27  D2 C5 20 C1 C2 CF D5 D4  |DQ$"...'.. .....|
00002C40: 22 44 51 24 22 3B C7 3B  22 44 51 24 22 CD CF CE  |"DQ$";.;"DQ$"...|
00002C50: D4 C8 D3 20 CF CC C4 2E  22 44 51 24 00 6B 48 9B  |... ...."DQ$.kH.|
00002C60: 46 99 20 22 34 30 20 C5  CE C4 22 00 78 48 A0 46  |F. "40 ...".xH.F|
00002C70: 99 20 22 D2 D5 CE 22 3B  00 93 48 A5 46 8D 20 31  |. "...";..H.F. 1|
00002C80: 34 35 30 3A 8B 20 53 44  B2 32 20 A7 20 52 53 B2  |450:. SD.2 . RS.|
00002C90: 31 3A 8E 00 C5 48 AA 46  99 20 22 C8 CF D7 A0 CF  |1:...H.F. ".....|
00002CA0: CC C4 A0 C1 D2 C5 20 D9  CF D5 3F 22 3B 3A 43 4C  |...... ...?";:CL|
00002CB0: B2 33 3A 43 58 B2 31 37  3A 43 59 B2 31 37 3A 8D  |.3:CX.17:CY.17:.|
00002CC0: 20 31 35 30 30 00 D9 48  AF 46 8B 20 53 44 B2 32  | 1500..H.F. SD.2|
00002CD0: 20 A7 20 52 53 B2 31 3A  8E 00 01 49 B4 46 99 3A  | . RS.1:...I.F.:|
00002CE0: 99 20 22 D9 CF D5 27 D2  C5 20 C1 C2 CF D5 D4 22  |. "...'.. ....."|
00002CF0: 41 AC 31 32 22 CD CF CE  D4 C8 D3 20 CF CC C4 2E  |A.12"...... ....|
00002D00: 22 00 07 49 B9 46 8E 00  1D 49 38 4A 8F 20 2D 2D  |"..I.F...I8J. --|
00002D10: 2D 2D 2D 20 53 43 52 45  45 4E 20 31 33 00 4E 49  |--- SCREEN 13.NI|
00002D20: 42 4A 99 20 22 D9 4F 55  20 43 41 4E 20 41 4C 53  |BJ. ".OU CAN ALS|
00002D30: 4F 20 55 53 45 20 41 20  53 54 52 49 4E 47 20 56  |O USE A STRING V|
00002D40: 41 52 49 41 42 4C 45 20  49 4E 20 41 4E 22 00 67  |ARIABLE IN AN".g|
00002D50: 49 47 4A 99 20 22 C9 CE  D0 D5 D4 20 53 54 41 54  |IGJ. "..... STAT|
00002D60: 45 4D 45 4E 54 2E 22 00  6D 49 4C 4A 99 00 99 49  |EMENT.".mILJ...I|
00002D70: 51 4A 99 20 22 D0 52 45  53 53 20 D2 C5 D4 D5 D2  |QJ. ".RESS .....|
00002D80: CE 20 54 4F 20 53 45 45  20 48 4F 57 20 54 48 45  |. TO SEE HOW THE|
00002D90: 20 45 58 41 4D 50 4C 45  22 00 AE 49 56 4A 99 20  | EXAMPLE"..IVJ. |
00002DA0: 22 42 45 4C 4F 57 20 57  4F 52 4B 53 2E 22 00 B4  |"BELOW WORKS."..|
00002DB0: 49 5B 4A 99 00 E3 49 60  4A 99 20 22 31 30 20 C9  |I[J...I`J. "10 .|
00002DC0: CE D0 D5 D4 20 22 44 51  24 22 D7 C8 C1 D4 27 D3  |.... "DQ$"....'.|
00002DD0: 20 D9 CF D5 D2 A0 CE C1  CD C5 22 44 51 24 22 3B  | ........."DQ$";|
00002DE0: C8 24 22 00 09 4A 65 4A  99 20 22 32 30 20 D0 D2  |.$"..JeJ. "20 ..|
00002DF0: C9 CE D4 20 22 44 51 24  22 C8 C5 CC CC CF 2C 20  |... "DQ$"....., |
00002E00: 22 44 51 24 22 3B C8 24  22 00 18 4A 6A 4A 99 20  |"DQ$";.$"..JjJ. |
00002E10: 22 33 30 20 C5 CE C4 22  00 25 4A 6F 4A 99 20 22  |"30 ...".%JoJ. "|
00002E20: D2 D5 CE 22 3B 00 40 4A  74 4A 8D 20 31 34 35 30  |...";.@JtJ. 1450|
00002E30: 3A 8B 20 53 44 B2 32 20  A7 20 52 53 B2 31 3A 8E  |:. SD.2 . RS.1:.|
00002E40: 00 5B 4A 79 4A 99 20 22  D7 C8 C1 D4 27 D3 20 D9  |.[JyJ. "....'. .|
00002E50: CF D5 D2 20 CE C1 CD C5  3F 22 3B 00 88 4A 7E 4A  |... ....?";..J~J|
00002E60: 43 4C B2 31 35 3A 43 58  B2 31 38 3A 43 59 B2 31  |CL.15:CX.18:CY.1|
00002E70: 32 3A 8D 20 31 33 30 30  3A 8B 20 53 44 B2 32 20  |2:. 1300:. SD.2 |
00002E80: A7 20 52 53 B2 31 3A 8E  00 9C 4A 88 4A 99 3A 99  |. RS.1:...J.J.:.|
00002E90: 20 22 C8 C5 CC CC CF 2C  20 22 41 24 00 A2 4A 92  | "....., "A$..J.|
00002EA0: 4A 8E 00 B8 4A 20 4E 8F  20 2D 2D 2D 2D 2D 20 53  |J...J N. ----- S|
00002EB0: 43 52 45 45 4E 20 31 34  00 C9 4A 27 4E FE 1A 20  |CREEN 14..J'N.. |
00002EC0: 30 2C 30 2C 33 39 2C 32  34 00 E3 4A 2A 4E 99 20  |0,0,39,24..J*N. |
00002ED0: A3 31 32 29 22 D2 C5 C1  C4 20 41 4E 44 20 C4 C1  |.12)".... AND ..|
00002EE0: D4 C1 22 00 E9 4A 2F 4E  99 00 16 4B 34 4E 99 20  |.."..J/N...K4N. |
00002EF0: 22 D9 4F 55 20 43 41 4E  20 55 53 45 20 54 48 45  |".OU CAN USE THE|
00002F00: 20 D2 C5 C1 C4 20 43 4F  4D 4D 41 4E 44 20 54 4F  | .... COMMAND TO|
00002F10: 20 54 41 4B 45 22 00 44  4B 39 4E 99 20 22 49 4E  | TAKE".DK9N. "IN|
00002F20: 46 4F 52 4D 41 54 49 4F  4E 20 46 52 4F 4D 20 41  |FORMATION FROM A|
00002F30: 20 C4 C1 D4 C1 20 53 54  41 54 45 4D 45 4E 54 20  | .... STATEMENT |
00002F40: 41 4E 44 22 00 6E 4B 3E  4E 99 20 22 50 55 54 20  |AND".nK>N. "PUT |
00002F50: 49 54 20 49 4E 54 4F 20  41 20 56 41 52 49 41 42  |IT INTO A VARIAB|
00002F60: 4C 45 2C 20 57 48 45 52  45 20 54 48 45 22 00 92  |LE, WHERE THE"..|
00002F70: 4B 43 4E 99 20 22 50 52  4F 47 52 41 4D 20 43 41  |KCN. "PROGRAM CA|
00002F80: 4E 20 4D 41 4B 45 20 55  53 45 20 4F 46 20 49 54  |N MAKE USE OF IT|
00002F90: 2E 22 00 98 4B 48 4E 99  00 C4 4B 4D 4E 99 20 22  |."..KHN...KMN. "|
00002FA0: D4 48 45 20 50 52 4F 47  52 41 4D 20 42 45 4C 4F  |.HE PROGRAM BELO|
00002FB0: 57 20 46 49 4E 44 53 20  54 48 45 20 41 56 45 52  |W FINDS THE AVER|
00002FC0: 41 47 45 22 00 F2 4B 52  4E 99 20 22 54 45 4D 50  |AGE"..KRN. "TEMP|
00002FD0: 45 52 41 54 55 52 45 20  46 4F 52 20 41 20 57 45  |ERATURE FOR A WE|
00002FE0: 45 4B 20 49 4E 20 CA 55  4E 45 2E 20 D0 52 45 53  |EK IN .UNE. .RES|
00002FF0: 53 22 00 0C 4C 57 4E 99  20 22 D2 C5 D4 D5 D2 CE  |S"..LWN. "......|
00003000: 20 54 4F 20 52 55 4E 20  49 54 2E 22 00 12 4C 5C  | TO RUN IT."..L\|
00003010: 4E 99 00 36 4C 61 4E 99  20 22 31 30 20 D3 20 3D  |N..6LaN. "10 . =|
00003020: 20 30 20 3A 20 D2 C5 CD  20 D3 C5 D4 A0 D3 20 D4  | 0 : ... ..... .|
00003030: CF A0 DA C5 D2 CF 00 50  4C 66 4E 99 20 22 32 30  |.......PLfN. "20|
00003040: 20 C6 CF D2 20 CC 20 3D  20 31 20 D4 CF 20 37 22  | ... . = 1 .. 7"|
00003050: 00 62 4C 6B 4E 99 20 22  33 30 20 D2 C5 C1 C4 20  |.bLkN. "30 .... |
00003060: D4 22 00 90 4C 70 4E 99  20 22 34 30 20 D3 20 3D  |."..LpN. "40 . =|
00003070: 20 D3 20 2B 20 D4 20 3A  D2 C5 CD 20 C1 C4 C4 A0  | . + . :... ....|
00003080: D4 C5 CD D0 C5 D2 C1 D4  D5 D2 C5 D3 20 D5 D0 22  |............ .."|
00003090: 00 A2 4C 75 4E 99 20 22  35 30 20 CE C5 D8 D4 20  |..LuN. "50 .... |
000030A0: CC 22 00 D3 4C 7A 4E 99  20 22 36 30 20 C1 20 3D  |."..LzN. "60 . =|
000030B0: 20 D3 2F 37 20 3A D2 C5  CD 20 C6 C9 CE C4 A0 C1  | ./7 :... ......|
000030C0: D6 C5 D2 C1 C7 C5 A0 D4  C5 CD D0 C5 D2 C1 D4 D5  |................|
000030D0: D2 C5 22 00 0C 4D 7F 4E  99 20 22 37 30 20 D0 D2  |.."..M.N. "70 ..|
000030E0: C9 CE D4 20 22 44 51 24  22 D4 C8 C5 A0 C1 D6 C5  |... "DQ$".......|
000030F0: D2 C1 C7 C5 20 D4 C5 CD  D0 C5 D2 C1 D4 D5 D2 C5  |.... ...........|
00003100: 20 D7 C1 D3 22 44 51 24  22 3B C1 22 00 1B 4D 84  | ..."DQ$";."..M.|
00003110: 4E 99 20 22 38 30 20 C5  CE C4 22 00 46 4D 89 4E  |N. "80 ...".FM.N|
00003120: 99 20 22 39 30 20 C4 C1  D4 C1 20 37 32 2C 20 37  |. "90 .... 72, 7|
00003130: 35 2C 20 36 37 2C 20 37  30 2C 20 37 31 2C 20 37  |5, 67, 70, 71, 7|
00003140: 31 2C 20 37 36 22 00 53  4D 8E 4E 99 20 22 D2 D5  |1, 76".SM.N. "..|
00003150: CE 22 3B 00 6E 4D 93 4E  8D 20 31 34 35 30 3A 8B  |.";.nM.N. 1450:.|
00003160: 20 53 44 B2 32 20 A7 20  52 53 B2 31 3A 8E 00 99  | SD.2 . RS.1:...|
00003170: 4D 98 4E 99 20 22 D4 C8  C5 A0 C1 D6 C5 D2 C1 C7  |M.N. "..........|
00003180: C5 A0 D4 C5 CD D0 C5 D2  C1 D4 D5 D2 C5 20 D7 C1  |............. ..|
00003190: D3 20 37 31 2E 37 31 34  22 00 9F 4D A7 4E 8E 00  |. 71.714"..M.N..|
000031A0: B5 4D 08 52 8F 20 2D 2D  2D 2D 2D 20 53 43 52 45  |.M.R. ----- SCRE|
000031B0: 45 4E 20 31 35 00 E3 4D  17 52 99 22 D4 48 45 20  |EN 15..M.R.".HE |
000031C0: D2 C5 C1 C4 2D C4 C1 D4  C1 20 43 4F 4D 4D 41 4E  |....-.... COMMAN|
000031D0: 44 20 57 4F 52 4B 53 20  4C 49 4B 45 20 54 48 49  |D WORKS LIKE THI|
000031E0: 53 3A 22 00 E9 4D 1C 52  99 00 F7 4D 21 52 99 20  |S:"..M.R...M!R. |
000031F0: 22 2E 20 2E 20 2E 22 00  09 4E 26 52 99 20 22 33  |". . ."..N&R. "3|
00003200: 30 20 D2 C5 C1 C4 A0 CB  22 00 17 4E 2B 52 99 20  |0 ......"..N+R. |
00003210: 22 2E 20 2E 20 2E 22 00  41 4E 30 52 99 22 39 30  |". . .".AN0R."90|
00003220: 20 C4 C1 D4 C1 20 37 32  2C 20 37 35 2C 20 36 37  | .... 72, 75, 67|
00003230: 2C 20 37 30 2C 20 37 31  2C 20 37 31 20 2C 37 36  |, 70, 71, 71 ,76|
00003240: 22 00 47 4E 35 52 99 00  77 4E 3A 52 99 20 22 CC  |".GN5R..wN:R. ".|
00003250: 49 4E 45 20 33 30 20 54  45 4C 4C 53 20 54 48 45  |INE 30 TELLS THE|
00003260: 20 43 4F 4D 50 55 54 45  52 20 54 4F 20 47 4F 20  | COMPUTER TO GO |
00003270: 54 4F 20 54 48 45 22 00  A4 4E 3F 52 99 22 C4 C1  |TO THE"..N?R."..|
00003280: D4 C1 20 53 54 41 54 45  4D 45 4E 54 20 41 4E 44  |.. STATEMENT AND|
00003290: 20 54 4F 20 4D 41 4B 45  20 D4 20 45 51 55 41 4C  | TO MAKE . EQUAL|
000032A0: 20 54 4F 22 00 C2 4E 44  52 99 22 54 48 45 20 46  | TO"..NDR."THE F|
000032B0: 49 52 53 54 20 56 41 4C  55 45 20 54 48 45 52 45  |IRST VALUE THERE|
000032C0: 2E 22 00 C8 4E 49 52 99  00 F7 4E 4E 52 99 22 D7  |."..NIR...NNR.".|
000032D0: 48 45 4E 20 54 48 45 20  43 4F 4D 50 55 54 45 52  |HEN THE COMPUTER|
000032E0: 20 47 4F 45 53 20 54 48  52 4F 55 47 48 20 54 48  | GOES THROUGH TH|
000032F0: 45 20 C6 CF D2 2D 22 00  26 4F 53 52 99 22 CE C5  |E ...-".&OSR."..|
00003300: D8 D4 20 4C 4F 4F 50 20  41 47 41 49 4E 2C 20 4C  |.. LOOP AGAIN, L|
00003310: 49 4E 45 20 33 30 20 54  45 4C 4C 53 20 49 54 20  |INE 30 TELLS IT |
00003320: 54 4F 20 47 4F 22 00 55  4F 58 52 99 22 54 4F 20  |TO GO".UOXR."TO |
00003330: 54 48 45 20 C4 C1 D4 C1  20 53 54 41 54 45 4D 45  |THE .... STATEME|
00003340: 4E 54 20 41 47 41 49 4E  20 41 4E 44 20 54 4F 20  |NT AGAIN AND TO |
00003350: 4D 41 4B 45 22 00 81 4F  5D 52 99 22 D4 20 45 51  |MAKE"..O]R.". EQ|
00003360: 55 41 4C 20 54 4F 20 54  48 45 20 4E 45 58 54 20  |UAL TO THE NEXT |
00003370: 56 41 4C 55 45 20 54 48  45 52 45 2E 20 D4 48 45  |VALUE THERE. .HE|
00003380: 22 00 B0 4F 62 52 99 22  43 4F 4D 50 55 54 45 52  |"..ObR."COMPUTER|
00003390: 20 47 4F 45 53 20 54 48  52 4F 55 47 48 20 54 48  | GOES THROUGH TH|
000033A0: 45 20 C6 CF D2 2D CE C5  D8 D4 20 4C 4F 4F 50 22  |E ...-.... LOOP"|
000033B0: 00 E0 4F 67 52 99 22 53  45 56 45 4E 20 54 49 4D  |..OgR."SEVEN TIM|
000033C0: 45 53 2C 20 41 4E 44 20  49 54 20 52 45 41 44 53  |ES, AND IT READS|
000033D0: 20 49 4E 54 4F 20 D4 20  45 41 43 48 20 4F 46 22  | INTO . EACH OF"|
000033E0: 00 0A 50 6C 52 99 22 54  48 45 20 53 45 56 45 4E  |..PlR."THE SEVEN|
000033F0: 20 4E 55 4D 42 45 52 53  20 54 48 45 52 45 2C 20  | NUMBERS THERE, |
00003400: 49 4E 20 4F 52 44 45 52  2E 22 00 10 50 71 52 8E  |IN ORDER."..PqR.|
00003410: 00 26 50 FC 53 8F 20 2D  2D 2D 2D 2D 20 53 43 52  |.&P.S. ----- SCR|
00003420: 45 45 4E 20 31 36 00 53  50 01 54 99 20 22 D4 48  |EEN 16.SP.T. ".H|
00003430: 45 52 45 20 41 52 45 20  41 20 46 45 57 20 49 4D  |ERE ARE A FEW IM|
00003440: 50 4F 52 54 41 4E 54 20  54 48 49 4E 47 53 20 59  |PORTANT THINGS Y|
00003450: 4F 55 22 00 7C 50 06 54  99 20 22 4E 45 45 44 20  |OU".|P.T. "NEED |
00003460: 54 4F 20 4B 4E 4F 57 20  41 42 4F 55 54 20 54 48  |TO KNOW ABOUT TH|
00003470: 45 20 D2 C5 C1 C4 2D C4  C1 D4 C1 22 00 8D 50 08  |E ....-...."..P.|
00003480: 54 99 20 22 43 4F 4D 4D  41 4E 44 3A 22 00 93 50  |T. "COMMAND:"..P|
00003490: 0B 54 99 00 C2 50 10 54  99 20 22 D4 48 45 20 56  |.T...P.T. ".HE V|
000034A0: 41 4C 55 45 53 20 49 4E  20 41 20 C4 C1 D4 C1 20  |ALUES IN A .... |
000034B0: 53 54 41 54 45 4D 45 4E  54 20 4D 55 53 54 20 42  |STATEMENT MUST B|
000034C0: 45 22 00 DF 50 15 54 99  20 22 53 45 50 41 52 41  |E"..P.T. "SEPARA|
000034D0: 54 45 44 20 42 59 20 43  4F 4D 4D 41 53 2E 22 00  |TED BY COMMAS.".|
000034E0: E5 50 1A 54 99 00 0F 51  1F 54 99 22 D9 4F 55 20  |.P.T...Q.T.".OU |
000034F0: 43 41 4E 20 48 41 56 45  20 41 53 20 4D 41 4E 59  |CAN HAVE AS MANY|
00003500: 20 D2 C5 C1 C4 20 41 4E  44 20 C4 C1 D4 C1 22 00  | .... AND ....".|
00003510: 3D 51 24 54 99 20 22 53  54 41 54 45 4D 45 4E 54  |=Q$T. "STATEMENT|
00003520: 53 20 49 4E 20 41 20 50  52 4F 47 52 41 4D 20 41  |S IN A PROGRAM A|
00003530: 53 20 59 4F 55 20 57 41  4E 54 2C 20 22 00 6A 51  |S YOU WANT, ".jQ|
00003540: 29 54 99 20 22 42 55 54  20 54 48 45 20 C4 C1 D4  |)T. "BUT THE ...|
00003550: C1 20 53 54 41 54 45 4D  45 4E 54 53 20 4D 55 53  |. STATEMENTS MUS|
00003560: 54 20 49 4E 43 4C 55 44  45 22 00 99 51 2E 54 99  |T INCLUDE"..Q.T.|
00003570: 20 22 45 4E 4F 55 47 48  20 56 41 4C 55 45 53 20  | "ENOUGH VALUES |
00003580: 46 4F 52 20 54 48 45 20  43 4F 4D 50 55 54 45 52  |FOR THE COMPUTER|
00003590: 20 54 4F 20 52 45 41 44  22 00 C3 51 33 54 99 20  | TO READ"..Q3T. |
000035A0: 22 4F 4E 45 20 45 56 45  52 59 20 54 49 4D 45 20  |"ONE EVERY TIME |
000035B0: 49 54 20 43 4F 4D 45 53  20 54 4F 20 41 20 D2 C5  |IT COMES TO A ..|
000035C0: C1 C4 22 00 D6 51 35 54  99 20 22 53 54 41 54 45  |.."..Q5T. "STATE|
000035D0: 4D 45 4E 54 2E 22 00 DC  51 38 54 99 00 07 52 3D  |MENT."..Q8T...R=|
000035E0: 54 99 20 22 C4 C1 D4 C1  20 53 54 41 54 45 4D 45  |T. ".... STATEME|
000035F0: 4E 54 53 20 43 41 4E 20  47 4F 20 41 4E 59 57 48  |NTS CAN GO ANYWH|
00003600: 45 52 45 20 49 4E 22 00  34 52 42 54 99 20 22 41  |ERE IN".4RBT. "A|
00003610: 20 50 52 4F 47 52 41 4D  2E 20 D2 C5 C1 C4 20 43  | PROGRAM. .... C|
00003620: 4F 4D 4D 41 4E 44 53 20  41 4C 57 41 59 53 20 52  |OMMANDS ALWAYS R|
00003630: 45 41 44 22 00 60 52 47  54 99 20 22 56 41 4C 55  |EAD".`RGT. "VALU|
00003640: 45 53 2C 20 49 4E 20 4F  52 44 45 52 2C 20 53 54  |ES, IN ORDER, ST|
00003650: 41 52 54 49 4E 47 20 57  49 54 48 20 54 48 45 22  |ARTING WITH THE"|
00003660: 00 8A 52 49 54 99 20 22  46 49 52 53 54 20 56 41  |..RIT. "FIRST VA|
00003670: 4C 55 45 20 49 4E 20 54  48 45 20 C4 C1 D4 C1 20  |LUE IN THE .... |
00003680: 53 54 41 54 45 4D 45 4E  54 22 00 AF 52 4C 54 99  |STATEMENT"..RLT.|
00003690: 20 22 57 49 54 48 20 54  48 45 20 4C 4F 57 45 53  | "WITH THE LOWES|
000036A0: 54 20 4C 49 4E 45 20 4E  55 4D 42 45 52 2E 22 00  |T LINE NUMBER.".|
000036B0: B5 52 56 54 8E 00 CB 52  F0 55 8F 20 2D 2D 2D 2D  |.RVT...R.U. ----|
000036C0: 2D 20 53 43 52 45 45 4E  20 31 37 00 E9 52 F5 55  |- SCREEN 17..R.U|
000036D0: 99 20 A3 31 32 29 3B 22  C7 CF D3 D5 C2 20 41 4E  |. .12);"..... AN|
000036E0: 44 20 D2 C5 D4 D5 D2 CE  22 00 EF 52 FA 55 99 00  |D ......"..R.U..|
000036F0: 1F 53 FF 55 99 22 D3 4F  4D 45 54 49 4D 45 53 20  |.S.U.".OMETIMES |
00003700: 59 4F 55 27 4C 4C 20 46  49 4E 44 20 59 4F 55 52  |YOU'LL FIND YOUR|
00003710: 53 45 4C 46 20 55 53 49  4E 47 20 54 48 45 22 00  |SELF USING THE".|
00003720: 4D 53 04 56 99 22 53 41  4D 45 20 53 45 54 20 4F  |MS.V."SAME SET O|
00003730: 46 20 49 4E 53 54 52 55  43 54 49 4F 4E 53 20 4F  |F INSTRUCTIONS O|
00003740: 56 45 52 20 41 4E 44 20  4F 56 45 52 22 00 7A 53  |VER AND OVER".zS|
00003750: 09 56 99 22 49 4E 20 44  49 46 46 45 52 45 4E 54  |.V."IN DIFFERENT|
00003760: 20 50 41 52 54 53 20 4F  46 20 41 20 50 52 4F 47  | PARTS OF A PROG|
00003770: 52 41 4D 20 54 4F 20 44  4F 22 00 A4 53 0E 56 99  |RAM TO DO"..S.V.|
00003780: 22 54 48 45 20 53 41 4D  45 20 54 48 49 4E 47 2E  |"THE SAME THING.|
00003790: 20 D9 4F 55 20 43 41 4E  20 4D 41 4B 45 20 54 48  | .OU CAN MAKE TH|
000037A0: 4F 53 45 22 00 CB 53 13  56 99 22 49 4E 53 54 52  |OSE"..S.V."INSTR|
000037B0: 55 43 54 49 4F 4E 53 20  49 4E 54 4F 20 41 20 53  |UCTIONS INTO A S|
000037C0: 55 42 52 4F 55 54 49 4E  45 2E 22 00 D1 53 18 56  |UBROUTINE."..S.V|
000037D0: 99 00 01 54 1D 56 99 22  C1 20 53 55 42 52 4F 55  |...T.V.". SUBROU|
000037E0: 54 49 4E 45 20 49 53 20  41 20 53 45 52 49 45 53  |TINE IS A SERIES|
000037F0: 20 4F 46 20 49 4E 53 54  52 55 43 54 49 4F 4E 53  | OF INSTRUCTIONS|
00003800: 22 00 29 54 22 56 99 22  53 45 54 20 41 50 41 52  |".)T"V."SET APAR|
00003810: 54 20 46 52 4F 4D 20 54  48 45 20 4D 41 49 4E 20  |T FROM THE MAIN |
00003820: 50 52 4F 47 52 41 4D 2E  22 00 2F 54 27 56 99 00  |PROGRAM."./T'V..|
00003830: 5D 54 2C 56 99 22 D7 48  45 4E 45 56 45 52 20 59  |]T,V.".HENEVER Y|
00003840: 4F 55 20 57 41 4E 54 20  54 4F 20 52 55 4E 20 41  |OU WANT TO RUN A|
00003850: 20 53 55 42 52 4F 55 54  49 4E 45 2C 22 00 8B 54  | SUBROUTINE,"..T|
00003860: 31 56 99 22 59 4F 55 20  55 53 45 20 41 20 C7 CF  |1V."YOU USE A ..|
00003870: D3 D5 C2 20 43 4F 4D 4D  41 4E 44 2E 20 C9 54 20  |... COMMAND. .T |
00003880: 54 45 4C 4C 53 20 59 4F  55 52 22 00 B7 54 36 56  |TELLS YOUR"..T6V|
00003890: 99 22 43 4F 4D 50 55 54  45 52 20 54 4F 20 C7 CF  |."COMPUTER TO ..|
000038A0: 20 54 4F 20 54 48 45 20  D3 D5 C2 52 4F 55 54 49  | TO THE ...ROUTI|
000038B0: 4E 45 20 41 4E 44 22 00  CA 54 3B 56 99 22 45 58  |NE AND"..T;V."EX|
000038C0: 45 43 55 54 45 20 49 54  2E 22 00 D0 54 40 56 99  |ECUTE IT."..T@V.|
000038D0: 00 FF 54 45 56 99 22 C1  54 20 54 48 45 20 45 4E  |..TEV.".T THE EN|
000038E0: 44 20 4F 46 20 54 48 45  20 53 55 42 52 4F 55 54  |D OF THE SUBROUT|
000038F0: 49 4E 45 2C 20 59 4F 55  20 55 53 45 20 41 22 00  |INE, YOU USE A".|
00003900: 24 55 4A 56 99 22 D2 C5  D4 D5 D2 CE 20 43 4F 4D  |$UJV."...... COM|
00003910: 4D 41 4E 44 2E 20 C9 54  20 54 45 4C 4C 53 20 59  |MAND. .T TELLS Y|
00003920: 4F 55 52 22 00 4B 55 4F  56 99 22 43 4F 4D 50 55  |OUR".KUOV."COMPU|
00003930: 54 45 52 20 54 4F 20 D2  C5 D4 D5 D2 CE 20 54 4F  |TER TO ...... TO|
00003940: 20 54 48 45 20 50 4C 41  43 45 22 00 74 55 54 56  | THE PLACE".tUTV|
00003950: 99 22 49 4E 20 54 48 45  20 4D 41 49 4E 20 50 52  |."IN THE MAIN PR|
00003960: 4F 47 52 41 4D 20 57 48  45 52 45 20 49 54 20 4C  |OGRAM WHERE IT L|
00003970: 45 46 54 22 00 80 55 59  56 99 22 4F 46 46 2E 22  |EFT"..UYV."OFF."|
00003980: 00 86 55 5E 56 8E 00 9C  55 E4 57 8F 20 2D 2D 2D  |..U^V...U.W. ---|
00003990: 2D 2D 20 53 43 52 45 45  4E 20 31 38 00 AD 55 EB  |-- SCREEN 18..U.|
000039A0: 57 FE 1A 20 30 2C 30 2C  33 39 2C 32 34 00 DE 55  |W.. 0,0,39,24..U|
000039B0: EE 57 99 20 22 D4 48 45  20 50 52 4F 47 52 41 4D  |.W. ".HE PROGRAM|
000039C0: 20 42 45 4C 4F 57 20 43  4F 4E 54 41 49 4E 53 20  | BELOW CONTAINS |
000039D0: 41 20 53 55 42 52 4F 55  54 49 4E 45 2E 22 00 E4  |A SUBROUTINE."..|
000039E0: 55 F8 57 99 00 14 56 FD  57 99 20 22 CC 49 4E 45  |U.W...V.W. ".INE|
000039F0: 20 33 30 20 54 45 4C 4C  53 20 54 48 45 20 43 4F  | 30 TELLS THE CO|
00003A00: 4D 50 55 54 45 52 20 54  4F 20 C7 CF 20 54 4F 20  |MPUTER TO .. TO |
00003A10: 54 48 45 22 00 34 56 02  58 99 20 22 D3 D5 C2 52  |THE".4V.X. "...R|
00003A20: 4F 55 54 49 4E 45 20 41  54 20 4C 49 4E 45 20 31  |OUTINE AT LINE 1|
00003A30: 30 30 2E 22 00 3A 56 07  58 99 00 60 56 0C 58 99  |00.".:V.X..`V.X.|
00003A40: 20 22 D4 48 45 20 43 4F  4D 50 55 54 45 52 20 54  | ".HE COMPUTER T|
00003A50: 48 45 4E 20 46 4F 4C 4C  4F 57 53 20 54 48 45 22  |HEN FOLLOWS THE"|
00003A60: 00 8E 56 11 58 99 20 22  49 4E 53 54 52 55 43 54  |..V.X. "INSTRUCT|
00003A70: 49 4F 4E 20 41 54 20 4C  49 4E 45 20 31 31 30 2C  |ION AT LINE 110,|
00003A80: 20 41 4E 44 20 4C 49 4E  45 20 31 32 30 22 00 BE  | AND LINE 120"..|
00003A90: 56 16 58 99 20 22 54 45  4C 4C 53 20 49 54 20 54  |V.X. "TELLS IT T|
00003AA0: 4F 20 D2 C5 D4 D5 D2 CE  20 54 4F 20 54 48 45 20  |O ...... TO THE |
00003AB0: 4D 41 49 4E 20 50 52 4F  47 52 41 4D 2E 22 00 C4  |MAIN PROGRAM."..|
00003AC0: 56 1B 58 99 00 F3 56 20  58 99 20 22 D0 52 45 53  |V.X...V X. ".RES|
00003AD0: 53 20 D2 C5 D4 D5 D2 CE  20 54 4F 20 52 55 4E 20  |S ...... TO RUN |
00003AE0: 54 48 45 20 50 52 4F 47  52 41 4D 20 42 45 4C 4F  |THE PROGRAM BELO|
00003AF0: 57 2E 22 00 1E 57 25 58  99 20 22 D4 59 50 45 20  |W."..W%X. ".YPE |
00003B00: 30 20 28 5A 45 52 4F 29  20 54 4F 20 53 54 4F 50  |0 (ZERO) TO STOP|
00003B10: 20 54 48 45 20 50 52 4F  47 52 41 4D 2E 22 00 24  | THE PROGRAM.".$|
00003B20: 57 2A 58 99 00 51 57 2F  58 99 20 22 31 30 20 C9  |W*X..QW/X. "10 .|
00003B30: CE D0 D5 D4 20 22 44 51  24 22 C8 CF D7 20 CD C1  |.... "DQ$"... ..|
00003B40: CE D9 20 CD C5 D4 C5 D2  D3 22 44 51 24 22 3B D0  |.. ......"DQ$";.|
00003B50: 22 00 72 57 34 58 99 20  22 32 30 20 C9 C6 20 D0  |".rW4X. "20 .. .|
00003B60: 20 3D 20 30 20 D4 C8 C5  CE A0 C7 CF D4 CF 20 36  | = 0 ......... 6|
00003B70: 30 22 00 87 57 39 58 99  20 22 33 30 20 C7 CF D3  |0"..W9X. "30 ...|
00003B80: D5 C2 20 31 30 30 22 00  C3 57 3E 58 99 20 22 34  |.. 100"..W>X. "4|
00003B90: 30 20 D0 D2 C9 CE D4 20  D0 3B A0 22 44 51 24 22  |0 ..... .;."DQ$"|
00003BA0: CD C5 D4 C5 D2 D3 20 C5  D1 D5 C1 CC D3 22 44 51  |...... ......"DQ|
00003BB0: 24 22 3B D1 3B 22 44 51  24 22 C6 C5 C5 D4 2E 22  |$";.;"DQ$"....."|
00003BC0: 44 51 24 00 D6 57 43 58  99 20 22 35 30 20 C7 CF  |DQ$..WCX. "50 ..|
00003BD0: D4 CF 20 31 30 22 00 E5  57 48 58 99 20 22 36 30  |.. 10"..WHX. "60|
00003BE0: A0 C5 CE C4 22 00 0B 58  4D 58 99 20 22 31 30 30  |...."..XMX. "100|
00003BF0: 20 D2 C5 CD 20 D4 C8 C9  D3 20 C9 D3 20 D4 C8 C5  | ... .... .. ...|
00003C00: 20 D3 D5 C2 D2 CF D5 D4  C9 CE C5 00 24 58 52 58  | ...........$XRX|
00003C10: 99 20 22 31 31 30 20 D1  20 3D 20 D0 20 2A 20 33  |. "110 . = . * 3|
00003C20: 2E 32 38 22 00 37 58 57  58 99 20 22 31 32 30 20  |.28".7XWX. "120 |
00003C30: D2 C5 D4 D5 D2 CE 22 00  5B 58 5C 58 99 20 22 D2  |......".[X\X. ".|
00003C40: D5 CE 22 3B 3A 8D 20 31  34 35 30 3A 8B 20 53 44  |..";:. 1450:. SD|
00003C50: B2 32 20 A7 20 52 53 B2  31 3A 8E 00 77 58 61 58  |.2 . RS.1:..wXaX|
00003C60: FE 1A 20 30 2C 31 32 2C  33 39 2C 32 32 3A E0 2C  |.. 0,12,39,22:.,|
00003C70: 30 2C 31 30 2C 22 22 00  A2 58 63 58 99 20 22 C8  |0,10,""..XcX. ".|
00003C80: CF D7 A0 CD C1 CE D9 A0  CD C5 D4 C5 D2 D3 3F 22  |..............?"|
00003C90: 3B 3A 43 4C B2 33 3A 43  58 B2 31 37 3A 43 59 B2  |;:CL.3:CX.17:CY.|
00003CA0: 32 32 00 BD 58 66 58 8D  20 31 35 30 30 3A 8B 20  |22..XfX. 1500:. |
00003CB0: 53 44 B2 32 20 A7 20 52  53 B2 31 3A 8E 00 CB 58  |SD.2 . RS.1:...X|
00003CC0: 6B 58 8B 20 41 B2 30 20  A7 20 8E 00 F4 58 70 58  |kX. A.0 . ...XpX|
00003CD0: 99 3A 99 20 41 3B 22 CD  C5 D4 C5 D2 D3 A0 C5 D1  |.:. A;".........|
00003CE0: D5 C1 CC D3 22 3B 41 AC  33 2E 32 38 3B 22 C6 C5  |....";A.3.28;"..|
00003CF0: C5 D4 2E 22 00 00 59 75  58 89 20 32 32 36 32 37  |..."..YuX. 22627|
00003D00: 00 06 59 10 59 8E 00 1C  59 CC 5B 8F 20 2D 2D 2D  |..Y.Y...Y.[. ---|
00003D10: 2D 2D 20 53 43 52 45 45  4E 20 31 39 00 3B 59 D6  |-- SCREEN 19.;Y.|
00003D20: 5B 99 20 A3 31 31 29 3B  22 CE 55 4D 45 52 49 43  |[. .11);".UMERIC|
00003D30: 20 C6 55 4E 43 54 49 4F  4E 53 22 00 41 59 DB 5B  | .UNCTIONS".AY.[|
00003D40: 99 00 6F 59 E0 5B 99 20  22 C2 C1 D3 C9 C3 20 48  |..oY.[. "..... H|
00003D50: 41 53 20 4F 56 45 52 20  34 30 20 46 55 4E 43 54  |AS OVER 40 FUNCT|
00003D60: 49 4F 4E 53 20 54 48 41  54 20 4D 41 4B 45 22 00  |IONS THAT MAKE".|
00003D70: 9F 59 E5 5B 99 20 22 49  54 20 45 41 53 59 20 46  |.Y.[. "IT EASY F|
00003D80: 4F 52 20 59 4F 55 20 54  4F 20 47 45 54 20 43 45  |OR YOU TO GET CE|
00003D90: 52 54 41 49 4E 20 4B 49  4E 44 53 20 4F 46 22 00  |RTAIN KINDS OF".|
00003DA0: BA 59 EA 5B 99 22 55 53  45 46 55 4C 20 49 4E 46  |.Y.[."USEFUL INF|
00003DB0: 4F 52 4D 41 54 49 4F 4E  2E 22 00 C0 59 EF 5B 99  |ORMATION."..Y.[.|
00003DC0: 00 F0 59 F4 5B 99 22 CE  55 4D 45 52 49 43 20 46  |..Y.[.".UMERIC F|
00003DD0: 55 4E 43 54 49 4F 4E 53  20 47 49 56 45 20 59 4F  |UNCTIONS GIVE YO|
00003DE0: 55 20 41 20 4E 55 4D 42  45 52 2E 20 D4 48 45 22  |U A NUMBER. .HE"|
00003DF0: 00 18 5A F9 5B 99 20 22  4E 55 4D 42 45 52 20 4D  |..Z.[. "NUMBER M|
00003E00: 49 47 48 54 20 42 45 20  54 48 45 20 52 45 53 55  |IGHT BE THE RESU|
00003E10: 4C 54 20 4F 46 20 41 22  00 48 5A FE 5B 99 20 22  |LT OF A".HZ.[. "|
00003E20: 43 41 4C 43 55 4C 41 54  49 4F 4E 2C 20 4F 52 20  |CALCULATION, OR |
00003E30: 49 54 20 4D 49 47 48 54  20 42 45 20 49 4E 46 4F  |IT MIGHT BE INFO|
00003E40: 52 4D 41 54 49 4F 4E 22  00 6F 5A 03 5C 99 22 54  |RMATION".oZ.\."T|
00003E50: 48 41 54 27 53 20 53 54  4F 52 45 44 20 53 4F 4D  |HAT'S STORED SOM|
00003E60: 45 57 48 45 52 45 20 49  4E 20 59 4F 55 52 22 00  |EWHERE IN YOUR".|
00003E70: 8A 5A 08 5C 99 20 22 43  4F 4D 50 55 54 45 52 27  |.Z.\. "COMPUTER'|
00003E80: 53 20 4D 45 4D 4F 52 59  2E 22 00 90 5A 12 5C 8E  |S MEMORY."..Z.\.|
00003E90: 00 A6 5A C0 5D 8F 20 2D  2D 2D 2D 2D 20 53 43 52  |..Z.]. ----- SCR|
00003EA0: 45 45 4E 20 32 30 00 B7  5A C7 5D FE 1A 20 30 2C  |EEN 20..Z.].. 0,|
00003EB0: 30 2C 33 39 2C 32 34 00  D5 5A CA 5D 99 20 A3 31  |0,39,24..Z.]. .1|
00003EC0: 32 29 3B 22 D4 48 45 20  C9 CE D4 20 C6 55 4E 43  |2);".HE ... .UNC|
00003ED0: 54 49 4F 4E 22 00 DB 5A  CF 5D 99 00 0C 5B D4 5D  |TION"..Z.]...[.]|
00003EE0: 99 20 22 D4 48 45 20 C9  CE D4 45 47 45 52 20 46  |. ".HE ...EGER F|
00003EF0: 55 4E 43 54 49 4F 4E 20  54 41 4B 45 53 20 41 57  |UNCTION TAKES AW|
00003F00: 41 59 20 41 4E 59 54 48  49 4E 47 22 00 2D 5B D9  |AY ANYTHING".-[.|
00003F10: 5D 99 20 22 41 46 54 45  52 20 54 48 45 20 44 45  |]. "AFTER THE DE|
00003F20: 43 49 4D 41 4C 20 50 4F  49 4E 54 2E 22 00 33 5B  |CIMAL POINT.".3[|
00003F30: DE 5D 99 00 61 5B E3 5D  99 20 22 D4 48 45 20 C9  |.]..a[.]. ".HE .|
00003F40: CE D4 45 47 45 52 20 46  55 4E 43 54 49 4F 4E 20  |..EGER FUNCTION |
00003F50: 4C 4F 4F 4B 53 20 4C 49  4B 45 20 54 48 49 53 3A  |LOOKS LIKE THIS:|
00003F60: 22 00 67 5B E8 5D 99 00  7B 5B ED 5D 99 20 22 C9  |".g[.]..{[.]. ".|
00003F70: CE D4 28 4E 55 4D 42 45  52 29 22 00 81 5B F2 5D  |..(NUMBER)"..[.]|
00003F80: 99 00 AC 5B F7 5D 99 20  22 D4 48 45 20 4E 55 4D  |...[.]. ".HE NUM|
00003F90: 42 45 52 20 49 4E 20 50  41 52 45 4E 54 48 45 53  |BER IN PARENTHES|
00003FA0: 45 53 20 43 41 4E 20 42  45 20 41 22 00 DC 5B FC  |ES CAN BE A"..[.|
00003FB0: 5D 99 20 22 43 4F 4E 53  54 41 4E 54 20 4C 49 4B  |]. "CONSTANT LIK|
00003FC0: 45 20 31 32 2E 38 33 2C  20 41 20 56 41 52 49 41  |E 12.83, A VARIA|
00003FD0: 42 4C 45 20 4C 49 4B 45  20 C1 2C 22 00 FF 5B 01  |BLE LIKE .,"..[.|
00003FE0: 5E 99 20 22 4F 52 20 41  20 43 41 4C 43 55 4C 41  |^. "OR A CALCULA|
00003FF0: 54 49 4F 4E 20 4C 49 4B  45 20 39 2F 32 2E 22 00  |TION LIKE 9/2.".|
00004000: 05 5C 06 5E 99 00 35 5C  0B 5E 99 20 22 D0 52 45  |.\.^..5\.^. ".RE|
00004010: 53 53 20 D2 C5 D4 D5 D2  CE 20 46 4F 52 20 54 48  |SS ...... FOR TH|
00004020: 45 20 52 45 53 55 4C 54  53 20 4F 46 20 45 41 43  |E RESULTS OF EAC|
00004030: 48 20 4F 46 22 00 4D 5C  10 5E 99 20 22 54 48 45  |H OF".M\.^. "THE|
00004040: 53 45 20 45 58 41 4D 50  4C 45 53 3A 22 00 53 5C  |SE EXAMPLES:".S\|
00004050: 15 5E 99 00 6C 5C 1A 5E  99 20 22 D0 D2 C9 CE D4  |.^..l\.^. ".....|
00004060: 20 C9 CE D4 28 35 2E 33  33 29 22 3B 00 87 5C 1F  | ...(5.33)";..\.|
00004070: 5E 8D 20 31 34 35 30 3A  8B 20 53 44 B2 32 20 A7  |^. 1450:. SD.2 .|
00004080: 20 52 53 B2 31 3A 8E 00  95 5C 21 5E 99 20 B5 28  | RS.1:...\!^. .(|
00004090: 35 2E 33 33 29 00 AE 5C  24 5E 99 20 22 D0 D2 C9  |5.33)..\$^. "...|
000040A0: CE D4 20 C9 CE D4 28 35  2E 36 37 29 22 3B 00 C9  |.. ...(5.67)";..|
000040B0: 5C 29 5E 8D 20 31 34 35  30 3A 8B 20 53 44 B2 32  |\)^. 1450:. SD.2|
000040C0: 20 A7 20 52 53 B2 31 3A  8E 00 D7 5C 2B 5E 99 20  | . RS.1:...\+^. |
000040D0: B5 28 35 2E 36 37 29 00  E9 5C 2E 5E 99 20 22 D3  |.(5.67)..\.^. ".|
000040E0: 20 3D 20 30 2E 31 32 35  22 00 FF 5C 33 5E 99 20  | = 0.125"..\3^. |
000040F0: 22 D0 D2 C9 CE D4 20 C9  CE D4 28 D3 29 22 3B 00  |"..... ...(.)";.|
00004100: 1A 5D 38 5E 8D 20 31 34  35 30 3A 8B 20 53 44 B2  |.]8^. 1450:. SD.|
00004110: 32 20 A7 20 52 53 B2 31  3A 8E 00 29 5D 3A 5E 99  |2 . RS.1:..)]:^.|
00004120: 20 B5 28 30 2E 31 32 35  29 00 2F 5D 3D 5E 8E 00  | .(0.125)./]=^..|
00004130: 45 5D A8 61 8F 20 2D 2D  2D 2D 2D 20 53 43 52 45  |E].a. ----- SCRE|
00004140: 45 4E 20 32 31 00 63 5D  B2 61 99 20 A3 31 31 29  |EN 21.c].a. .11)|
00004150: 3B 22 D4 48 45 20 D2 CE  C4 20 C6 55 4E 43 54 49  |;".HE ... .UNCTI|
00004160: 4F 4E 22 00 69 5D B7 61  99 00 9A 5D BC 61 99 20  |ON".i].a...].a. |
00004170: 22 D9 4F 55 20 43 41 4E  20 55 53 45 20 54 48 45  |".OU CAN USE THE|
00004180: 20 D2 CE C4 20 46 55 4E  43 54 49 4F 4E 20 54 4F  | ... FUNCTION TO|
00004190: 20 47 45 4E 45 52 41 54  45 22 00 C9 5D C1 61 99  | GENERATE"..].a.|
000041A0: 20 22 52 41 4E 44 4F 4D  20 4E 55 4D 42 45 52 53  | "RANDOM NUMBERS|
000041B0: 2E 20 D4 48 45 20 D2 CE  C4 20 46 55 4E 43 54 49  |. .HE ... FUNCTI|
000041C0: 4F 4E 20 4C 4F 4F 4B 53  22 00 DB 5D C6 61 99 22  |ON LOOKS"..].a."|
000041D0: 4C 49 4B 45 20 54 48 49  53 3A 22 00 E1 5D CB 61  |LIKE THIS:"..].a|
000041E0: 99 00 F0 5D D0 61 99 20  22 D2 CE C4 28 30 29 22  |...].a. "...(0)"|
000041F0: 00 F6 5D D5 61 99 00 1F  5E DA 61 99 22 D4 48 45  |..].a...^.a.".HE|
00004200: 20 4E 55 4D 42 45 52 20  49 4E 20 50 41 52 45 4E  | NUMBER IN PAREN|
00004210: 54 48 45 53 45 53 20 44  4F 45 53 4E 27 54 22 00  |THESES DOESN'T".|
00004220: 4C 5E DF 61 99 22 4D 41  54 54 45 52 20 2D 2D 20  |L^.a."MATTER -- |
00004230: 54 48 45 20 52 41 4E 44  4F 4D 20 4E 55 4D 42 45  |THE RANDOM NUMBE|
00004240: 52 53 20 54 48 41 54 20  54 48 45 22 00 7A 5E E4  |RS THAT THE".z^.|
00004250: 61 99 22 D2 CE C4 20 46  55 4E 43 54 49 4F 4E 20  |a."... FUNCTION |
00004260: 47 45 4E 45 52 41 54 45  53 20 41 52 45 20 41 4C  |GENERATES ARE AL|
00004270: 57 41 59 53 20 4E 49 4E  45 22 00 A9 5E E9 61 99  |WAYS NINE"..^.a.|
00004280: 22 44 49 47 49 54 53 20  4C 4F 4E 47 20 41 4E 44  |"DIGITS LONG AND|
00004290: 20 42 45 54 57 45 45 4E  20 30 2E 30 30 30 30 30  | BETWEEN 0.00000|
000042A0: 30 30 30 31 20 41 4E 44  22 00 BE 5E EE 61 99 20  |0001 AND"..^.a. |
000042B0: 22 30 2E 39 39 39 39 39  39 39 39 39 2E 22 00 C4  |"0.999999999."..|
000042C0: 5E F8 61 8E 00 DA 5E 9C  63 8F 20 2D 2D 2D 2D 2D  |^.a...^.c. -----|
000042D0: 20 53 43 52 45 45 4E 20  32 32 00 EB 5E A3 63 FE  | SCREEN 22..^.c.|
000042E0: 1A 20 30 2C 30 2C 33 39  2C 32 34 00 08 5F A6 63  |. 0,0,39,24.._.c|
000042F0: 99 20 A3 31 32 29 22 D4  48 45 20 D3 D1 D2 20 C6  |. .12)".HE ... .|
00004300: 55 4E 43 54 49 4F 4E 22  00 0E 5F AB 63 99 00 3D  |UNCTION".._.c..=|
00004310: 5F B0 63 99 20 22 D4 48  45 20 D3 D1 55 41 52 45  |_.c. ".HE ..UARE|
00004320: 20 D2 4F 4F 54 20 46 55  4E 43 54 49 4F 4E 20 47  | .OOT FUNCTION G|
00004330: 49 56 45 53 20 59 4F 55  20 54 48 45 22 00 6E 5F  |IVES YOU THE".n_|
00004340: B5 63 99 20 22 53 51 55  41 52 45 20 52 4F 4F 54  |.c. "SQUARE ROOT|
00004350: 20 4F 46 20 41 20 4E 55  4D 42 45 52 2E 20 D4 48  | OF A NUMBER. .H|
00004360: 45 20 D3 D1 55 41 52 45  A0 D2 4F 4F 54 22 00 90  |E ..UARE..OOT"..|
00004370: 5F BA 63 99 20 22 46 55  4E 43 54 49 4F 4E 20 4C  |_.c. "FUNCTION L|
00004380: 4F 4F 4B 53 20 4C 49 4B  45 20 54 48 49 53 3A 22  |OOKS LIKE THIS:"|
00004390: 00 96 5F BF 63 99 00 AA  5F C4 63 99 20 22 D3 D1  |.._.c..._.c. "..|
000043A0: D2 28 4E 55 4D 42 45 52  29 22 00 B0 5F C9 63 99  |.(NUMBER)".._.c.|
000043B0: 00 DB 5F CE 63 99 20 22  D4 48 45 20 4E 55 4D 42  |.._.c. ".HE NUMB|
000043C0: 45 52 20 49 4E 20 50 41  52 45 4E 54 48 45 53 45  |ER IN PARENTHESE|
000043D0: 53 20 43 41 4E 20 42 45  20 41 22 00 0B 60 D3 63  |S CAN BE A"..`.c|
000043E0: 99 20 22 43 4F 4E 53 54  41 4E 54 2C 20 41 20 56  |. "CONSTANT, A V|
000043F0: 41 52 49 41 42 4C 45 2C  20 4F 52 20 41 20 43 41  |ARIABLE, OR A CA|
00004400: 4C 43 55 4C 41 54 49 4F  4E 2C 22 00 37 60 D8 63  |LCULATION,".7`.c|
00004410: 99 20 22 42 55 54 20 49  54 20 43 41 4E 4E 4F 54  |. "BUT IT CANNOT|
00004420: 20 42 45 20 41 20 4E 45  47 41 54 49 56 45 20 4E  | BE A NEGATIVE N|
00004430: 55 4D 42 45 52 2E 22 00  3D 60 DD 63 99 00 6D 60  |UMBER.".=`.c..m`|
00004440: E2 63 99 20 22 D0 52 45  53 53 20 D2 C5 D4 D5 D2  |.c. ".RESS .....|
00004450: CE 20 54 4F 20 53 45 45  20 54 48 45 20 52 45 53  |. TO SEE THE RES|
00004460: 55 4C 54 53 20 4F 46 20  45 41 43 48 22 00 88 60  |ULTS OF EACH"..`|
00004470: E7 63 99 20 22 4F 46 20  54 48 45 53 45 20 45 58  |.c. "OF THESE EX|
00004480: 41 4D 50 4C 45 53 3A 22  00 8E 60 EC 63 99 00 A5  |AMPLES:"..`.c...|
00004490: 60 F1 63 99 20 22 D0 D2  C9 CE D4 20 D3 D1 D2 28  |`.c. "..... ...(|
000044A0: 32 35 29 22 3B 00 C0 60  F6 63 8D 20 31 34 35 30  |25)";..`.c. 1450|
000044B0: 3A 8B 20 53 44 B2 32 20  A7 20 52 53 B2 31 3A 8E  |:. SD.2 . RS.1:.|
000044C0: 00 CC 60 F8 63 99 20 BA  28 32 35 29 00 E8 60 FB  |..`.c. .(25)..`.|
000044D0: 63 99 20 22 D0 D2 C9 CE  D4 20 D3 D1 D2 28 34 39  |c. "..... ...(49|
000044E0: 20 2B 20 36 34 29 22 3B  00 03 61 00 64 8D 20 31  | + 64)";..a.d. 1|
000044F0: 34 35 30 3A 8B 20 53 44  B2 32 20 A7 20 52 53 B2  |450:. SD.2 . RS.|
00004500: 31 3A 8E 00 12 61 02 64  99 20 BA 28 34 39 AA 36  |1:...a.d. .(49.6|
00004510: 34 29 00 22 61 05 64 99  20 22 C1 20 3D 20 31 35  |4)."a.d. ". = 15|
00004520: 34 22 00 38 61 0A 64 99  20 22 D0 D2 C9 CE D4 20  |4".8a.d. "..... |
00004530: D3 D1 D2 28 C1 29 22 3B  00 53 61 0F 64 8D 20 31  |...(.)";.Sa.d. 1|
00004540: 34 35 30 3A 8B 20 53 44  B2 32 20 A7 20 52 53 B2  |450:. SD.2 . RS.|
00004550: 31 3A 8E 00 60 61 11 64  99 20 BA 28 31 35 34 29  |1:..`a.d. .(154)|
00004560: 00 66 61 14 64 8E 00 7C  61 90 65 8F 20 2D 2D 2D  |.fa.d..|a.e. ---|
00004570: 2D 2D 20 53 43 52 45 45  4E 20 32 33 00 8D 61 97  |-- SCREEN 23..a.|
00004580: 65 FE 1A 20 30 2C 30 2C  33 39 2C 32 34 00 AB 61  |e.. 0,0,39,24..a|
00004590: 9A 65 99 20 A3 31 31 29  3B 22 D4 48 45 20 C1 C2  |.e. .11);".HE ..|
000045A0: D3 20 C6 55 4E 43 54 49  4F 4E 22 00 B1 61 9F 65  |. .UNCTION"..a.e|
000045B0: 99 00 DF 61 A4 65 99 20  22 D4 48 45 20 C1 C2 D3  |...a.e. ".HE ...|
000045C0: 4F 4C 55 54 45 20 56 41  4C 55 45 20 46 55 4E 43  |OLUTE VALUE FUNC|
000045D0: 54 49 4F 4E 20 47 49 56  45 53 20 59 4F 55 22 00  |TION GIVES YOU".|
000045E0: 10 62 A9 65 99 20 22 54  48 45 20 50 4F 53 49 54  |.b.e. "THE POSIT|
000045F0: 49 56 45 20 56 41 4C 55  45 20 4F 46 20 41 20 4E  |IVE VALUE OF A N|
00004600: 55 4D 42 45 52 2E 20 C9  54 20 4C 4F 4F 4B 53 22  |UMBER. .T LOOKS"|
00004610: 00 23 62 AE 65 99 20 22  4C 49 4B 45 20 54 48 49  |.#b.e. "LIKE THI|
00004620: 53 3A 22 00 29 62 B3 65  99 00 3D 62 B8 65 99 20  |S:".)b.e..=b.e. |
00004630: 22 C1 C2 D3 28 4E 55 4D  42 45 52 29 22 00 43 62  |"...(NUMBER)".Cb|
00004640: BD 65 99 00 6E 62 C2 65  99 20 22 D4 48 45 20 4E  |.e..nb.e. ".HE N|
00004650: 55 4D 42 45 52 20 49 4E  20 50 41 52 45 4E 54 48  |UMBER IN PARENTH|
00004660: 45 53 45 53 20 43 41 4E  20 42 45 20 41 22 00 9E  |ESES CAN BE A"..|
00004670: 62 C7 65 99 20 22 43 4F  4E 53 54 41 4E 54 2C 20  |b.e. "CONSTANT, |
00004680: 41 20 56 41 52 49 41 42  4C 45 2C 20 4F 52 20 41  |A VARIABLE, OR A|
00004690: 20 43 41 4C 43 55 4C 41  54 49 4F 4E 2E 22 00 A4  | CALCULATION."..|
000046A0: 62 CC 65 99 00 D4 62 D1  65 99 20 22 D0 52 45 53  |b.e...b.e. ".RES|
000046B0: 53 20 D2 C5 D4 D5 D2 CE  20 54 4F 20 53 45 45 20  |S ...... TO SEE |
000046C0: 54 48 45 20 52 45 53 55  4C 54 53 20 4F 46 20 45  |THE RESULTS OF E|
000046D0: 41 43 48 22 00 EF 62 D6  65 99 20 22 4F 46 20 54  |ACH"..b.e. "OF T|
000046E0: 48 45 53 45 20 45 58 41  4D 50 4C 45 53 3A 22 00  |HESE EXAMPLES:".|
000046F0: F5 62 DB 65 99 00 23 63  E0 65 99 20 22 D0 D2 C9  |.b.e..#c.e. "...|
00004700: CE D4 20 C1 C2 D3 28 2D  35 29 22 3B 3A 8D 20 31  |.. ...(-5)";:. 1|
00004710: 34 35 30 3A 8B 20 53 44  B2 32 20 A7 20 52 53 B2  |450:. SD.2 . RS.|
00004720: 31 3A 8E 00 2E 63 E5 65  99 20 22 20 35 22 00 42  |1:...c.e. " 5".B|
00004730: 63 EA 65 99 20 22 C1 3D  20 28 2D 33 29 20 2A 20  |c.e. ".= (-3) * |
00004740: 38 22 00 6F 63 EF 65 99  20 22 D0 D2 C9 CE D4 A0  |8".oc.e. "......|
00004750: C1 C2 D3 28 C1 29 22 3B  3A 8D 20 31 34 35 30 3A  |...(.)";:. 1450:|
00004760: 8B 20 53 44 B2 32 20 A7  20 52 53 B2 31 3A 8E 00  |. SD.2 . RS.1:..|
00004770: 7B 63 F1 65 99 20 22 20  32 34 22 00 B0 63 F4 65  |{c.e. " 24"..c.e|
00004780: 99 20 22 D0 D2 C9 CE D4  A0 D3 D1 D2 28 C1 C2 D3  |. ".........(...|
00004790: 28 2D 31 34 34 29 29 22  3B 3A 8D 20 31 34 35 30  |(-144))";:. 1450|
000047A0: 3A 8B 20 53 44 B2 32 20  A7 20 52 53 B2 31 3A 8E  |:. SD.2 . RS.1:.|
000047B0: 00 BC 63 F9 65 99 20 22  20 31 32 22 00 C2 63 FE  |..c.e. " 12"..c.|
000047C0: 65 8E 00 D8 63 78 69 8F  20 2D 2D 2D 2D 2D 20 53  |e...cxi. ----- S|
000047D0: 43 52 45 45 4E 20 32 34  00 F5 63 82 69 99 20 A3  |CREEN 24..c.i. .|
000047E0: 31 32 29 22 D3 54 52 49  4E 47 20 C6 55 4E 43 54  |12)".TRING .UNCT|
000047F0: 49 4F 4E 53 22 00 FB 63  87 69 99 00 25 64 8C 69  |IONS"..c.i..%d.i|
00004800: 99 20 22 C5 56 45 52 59  20 43 48 41 52 41 43 54  |. ".VERY CHARACT|
00004810: 45 52 20 54 48 41 54 20  54 48 45 20 C3 31 32 38  |ER THAT THE .128|
00004820: 20 43 41 4E 22 00 51 64  91 69 99 20 22 44 49 53  | CAN".Qd.i. "DIS|
00004830: 50 4C 41 59 20 4F 52 20  59 4F 55 20 43 41 4E 20  |PLAY OR YOU CAN |
00004840: 54 59 50 45 20 49 4E 20  46 52 4F 4D 20 54 48 45  |TYPE IN FROM THE|
00004850: 22 00 7F 64 96 69 99 20  22 4B 45 59 42 4F 41 52  |"..d.i. "KEYBOAR|
00004860: 44 20 48 41 53 20 41 20  4E 55 4D 42 45 52 20 54  |D HAS A NUMBER T|
00004870: 48 41 54 20 49 44 45 4E  54 49 46 49 45 53 22 00  |HAT IDENTIFIES".|
00004880: AB 64 9B 69 99 20 22 49  54 2C 20 43 41 4C 4C 45  |.d.i. "IT, CALLE|
00004890: 44 20 41 20 43 48 41 52  41 43 54 45 52 20 53 54  |D A CHARACTER ST|
000048A0: 52 49 4E 47 20 43 4F 44  45 2E 22 00 D6 64 A0 69  |RING CODE."..d.i|
000048B0: 99 20 22 C9 54 27 53 20  54 48 45 20 56 41 4C 55  |. ".T'S THE VALU|
000048C0: 45 20 54 48 41 54 20 52  45 50 52 45 53 45 4E 54  |E THAT REPRESENT|
000048D0: 53 20 54 48 45 22 00 02  65 A5 69 99 20 22 43 48  |S THE"..e.i. "CH|
000048E0: 41 52 41 43 54 45 52 20  49 4E 20 54 48 45 20 43  |ARACTER IN THE C|
000048F0: 4F 4D 50 55 54 45 52 27  53 20 4D 45 4D 4F 52 59  |OMPUTER'S MEMORY|
00004900: 2E 22 00 08 65 AA 69 99  00 31 65 AF 69 99 20 22  |."..e.i..1e.i. "|
00004910: D4 48 45 20 43 4F 44 45  53 20 46 4F 52 20 54 48  |.HE CODES FOR TH|
00004920: 45 20 55 53 55 41 4C 20  4B 45 59 42 4F 41 52 44  |E USUAL KEYBOARD|
00004930: 22 00 5D 65 B4 69 99 20  22 43 48 41 52 41 43 54  |".]e.i. "CHARACT|
00004940: 45 52 53 2C 20 4C 49 4B  45 20 54 48 45 20 4C 45  |ERS, LIKE THE LE|
00004950: 54 54 45 52 53 20 4F 46  20 54 48 45 22 00 8E 65  |TTERS OF THE"..e|
00004960: B9 69 99 20 22 41 4C 50  48 41 42 45 54 20 41 4E  |.i. "ALPHABET AN|
00004970: 44 20 54 48 45 20 4E 55  4D 45 52 41 4C 53 20 31  |D THE NUMERALS 1|
00004980: 20 54 4F 20 39 2C 20 42  45 4C 4F 4E 47 22 00 BF  | TO 9, BELONG"..|
00004990: 65 BE 69 99 20 22 54 4F  20 41 20 53 54 41 4E 44  |e.i. "TO A STAND|
000049A0: 41 52 44 20 53 45 54 20  4F 46 20 43 4F 44 45 53  |ARD SET OF CODES|
000049B0: 20 43 41 4C 4C 45 44 20  C1 D3 C3 C9 C9 2E 22 00  | CALLED ......".|
000049C0: E6 65 C3 69 99 20 22 D4  48 45 59 27 52 45 20 54  |.e.i. ".HEY'RE T|
000049D0: 48 45 20 53 41 4D 45 20  4F 4E 20 41 4C 4D 4F 53  |HE SAME ON ALMOS|
000049E0: 54 20 41 4C 4C 22 00 F9  65 C8 69 99 20 22 43 4F  |T ALL"..e.i. "CO|
000049F0: 4D 50 55 54 45 52 53 2E  22 00 FF 65 CD 69 99 00  |MPUTERS."..e.i..|
00004A00: 05 66 D2 69 8E 00 1B 66  40 6A 8F 20 2D 2D 2D 2D  |.f.i...f@j. ----|
00004A10: 2D 20 53 43 52 45 45 4E  20 32 35 00 4B 66 4A 6A  |- SCREEN 25.KfJj|
00004A20: 99 20 22 C3 4F 4D 4D 4F  44 4F 52 45 20 C1 D3 C3  |. ".OMMODORE ...|
00004A30: C9 C9 20 41 4C 53 4F 20  49 4E 43 4C 55 44 45 53  |.. ALSO INCLUDES|
00004A40: 20 43 4F 44 45 53 20 46  4F 52 22 00 78 66 4F 6A  | CODES FOR".xfOj|
00004A50: 99 20 22 54 48 45 20 53  50 45 43 49 41 4C 20 C3  |. "THE SPECIAL .|
00004A60: 31 32 38 20 47 52 41 50  48 49 43 53 20 43 48 41  |128 GRAPHICS CHA|
00004A70: 52 41 43 54 45 52 53 22  00 A1 66 54 6A 99 20 22  |RACTERS"..fTj. "|
00004A80: 54 48 41 54 20 4F 54 48  45 52 20 43 4F 4D 50 55  |THAT OTHER COMPU|
00004A90: 54 45 52 53 20 44 4F 4E  27 54 20 48 41 56 45 2E  |TERS DON'T HAVE.|
00004AA0: 22 00 A7 66 59 6A 99 00  D7 66 5E 6A 99 20 22 D4  |"..fYj...f^j. ".|
00004AB0: 48 45 52 45 20 41 52 45  20 32 35 36 20 43 48 41  |HERE ARE 256 CHA|
00004AC0: 52 41 43 54 45 52 20 53  54 52 49 4E 47 20 43 4F  |RACTER STRING CO|
00004AD0: 44 45 53 20 49 4E 22 00  FF 66 63 6A 99 20 22 C3  |DES IN"..fcj. ".|
00004AE0: 4F 4D 4D 4F 44 4F 52 45  20 C1 D3 C3 C9 C9 2E 20  |OMMODORE ...... |
00004AF0: C2 C1 D3 C9 C3 20 48 41  53 20 46 4F 55 52 22 00  |..... HAS FOUR".|
00004B00: 2A 67 68 6A 99 20 22 46  55 4E 43 54 49 4F 4E 53  |*ghj. "FUNCTIONS|
00004B10: 20 54 48 41 54 20 4D 41  4B 45 20 49 54 20 45 41  | THAT MAKE IT EA|
00004B20: 53 59 20 54 4F 20 55 53  45 22 00 4A 67 6D 6A 99  |SY TO USE".Jgmj.|
00004B30: 20 22 43 48 41 52 41 43  54 45 52 20 53 54 52 49  | "CHARACTER STRI|
00004B40: 4E 47 20 43 4F 44 45 53  2E 22 00 50 67 72 6A 8E  |NG CODES.".Pgrj.|
00004B50: 00 66 67 6C 6B 8F 20 2D  2D 2D 2D 2D 20 53 43 52  |.fglk. ----- SCR|
00004B60: 45 45 4E 20 32 36 00 77  67 73 6B FE 1A 20 30 2C  |EEN 26.wgsk.. 0,|
00004B70: 30 2C 33 39 2C 32 34 00  94 67 76 6B 99 20 A3 31  |0,39,24..gvk. .1|
00004B80: 32 29 22 D4 48 45 20 C1  D3 C3 20 C6 55 4E 43 54  |2)".HE ... .UNCT|
00004B90: 49 4F 4E 22 00 9A 67 7B  6B 99 00 CB 67 80 6B 99  |ION"..g{k...g.k.|
00004BA0: 20 22 D4 48 45 20 C1 D3  C3 20 46 55 4E 43 54 49  | ".HE ... FUNCTI|
00004BB0: 4F 4E 20 47 49 56 45 53  20 59 4F 55 20 54 48 45  |ON GIVES YOU THE|
00004BC0: 20 C3 4F 4D 4D 4F 44 4F  52 45 22 00 F9 67 85 6B  | .OMMODORE"..g.k|
00004BD0: 99 20 22 C1 D3 C3 C9 C9  20 43 4F 44 45 20 46 4F  |. "..... CODE FO|
00004BE0: 52 20 41 4E 59 20 43 48  41 52 41 43 54 45 52 20  |R ANY CHARACTER |
00004BF0: 54 48 45 20 C3 31 32 38  22 00 27 68 8A 6B 99 20  |THE .128".'h.k. |
00004C00: 22 44 49 53 50 4C 41 59  53 2E 20 D4 48 45 20 C1  |"DISPLAYS. .HE .|
00004C10: D3 C3 20 46 55 4E 43 54  49 4F 4E 20 4C 4F 4F 4B  |.. FUNCTION LOOK|
00004C20: 53 20 4C 49 4B 45 22 00  35 68 8C 6B 99 20 22 54  |S LIKE".5h.k. "T|
00004C30: 48 49 53 3A 22 00 3B 68  8F 6B 99 00 5C 68 94 6B  |HIS:".;h.k..\h.k|
00004C40: 99 20 22 C1 D3 C3 28 22  44 51 24 22 43 48 41 52  |. "...("DQ$"CHAR|
00004C50: 41 43 54 45 52 22 44 51  24 22 29 22 00 62 68 99  |ACTER"DQ$")".bh.|
00004C60: 6B 99 00 91 68 9E 6B 99  20 22 D9 4F 55 20 48 41  |k...h.k. ".OU HA|
00004C70: 56 45 20 54 4F 20 50 55  54 20 54 48 45 20 43 48  |VE TO PUT THE CH|
00004C80: 41 52 41 43 54 45 52 20  59 4F 55 20 57 41 4E 54  |ARACTER YOU WANT|
00004C90: 22 00 BF 68 A3 6B 99 20  22 54 48 45 20 43 4F 44  |"..h.k. "THE COD|
00004CA0: 45 20 46 4F 52 20 42 45  54 57 45 45 4E 20 51 55  |E FOR BETWEEN QU|
00004CB0: 4F 54 41 54 49 4F 4E 20  4D 41 52 4B 53 2C 22 00  |OTATION MARKS,".|
00004CC0: EC 68 A8 6B 99 20 22 41  4E 44 20 59 4F 55 20 43  |.h.k. "AND YOU C|
00004CD0: 41 4E 20 55 53 45 20 54  48 45 20 C1 D3 C3 20 46  |AN USE THE ... F|
00004CE0: 55 4E 43 54 49 4F 4E 20  46 4F 52 22 00 12 69 AD  |UNCTION FOR"..i.|
00004CF0: 6B 99 20 22 4F 4E 4C 59  20 4F 4E 45 20 43 48 41  |k. "ONLY ONE CHA|
00004D00: 52 41 43 54 45 52 20 41  54 20 41 20 54 49 4D 45  |RACTER AT A TIME|
00004D10: 2E 22 00 18 69 B2 6B 99  00 48 69 B7 6B 99 20 22  |."..i.k..Hi.k. "|
00004D20: D0 52 45 53 53 20 D2 C5  D4 D5 D2 CE 20 54 4F 20  |.RESS ...... TO |
00004D30: 53 45 45 20 54 48 45 20  52 45 53 55 4C 54 53 20  |SEE THE RESULTS |
00004D40: 4F 46 20 45 41 43 48 22  00 6B 69 BC 6B 99 20 22  |OF EACH".ki.k. "|
00004D50: 4F 46 20 54 48 45 20 46  4F 4C 4C 4F 57 49 4E 47  |OF THE FOLLOWING|
00004D60: 20 45 58 41 4D 50 4C 45  53 3A 22 00 71 69 C1 6B  | EXAMPLES:".qi.k|
00004D70: 99 00 A8 69 C6 6B 99 20  22 D0 D2 C9 CE D4 20 C1  |...i.k. "..... .|
00004D80: D3 C3 28 22 44 51 24 22  D2 22 44 51 24 22 29 22  |..("DQ$"."DQ$")"|
00004D90: 3B 3A 8D 20 31 34 35 30  3A 8B 20 53 44 B2 32 20  |;:. 1450:. SD.2 |
00004DA0: A7 20 52 53 B2 31 3A 8E  00 B5 69 CB 6B 99 20 C6  |. RS.1:...i.k. .|
00004DB0: 28 22 D2 22 29 00 EC 69  D0 6B 99 20 22 D0 D2 C9  |(".")..i.k. "...|
00004DC0: CE D4 A0 C1 D3 C3 28 22  44 51 24 22 33 22 44 51  |......("DQ$"3"DQ|
00004DD0: 24 22 29 22 3B 3A 8D 20  31 34 35 30 3A 8B 20 53  |$")";:. 1450:. S|
00004DE0: 44 B2 32 20 A7 20 52 53  B2 31 3A 8E 00 F9 69 D5  |D.2 . RS.1:...i.|
00004DF0: 6B 99 20 C6 28 22 33 22  29 00 0F 6A DA 6B 99 20  |k. .("3")..j.k. |
00004E00: 22 D3 24 3D 22 44 51 24  22 D4 22 44 51 24 22 00  |".$="DQ$"."DQ$".|
00004E10: 3D 6A DF 6B 99 20 22 D0  D2 C9 CE D4 A0 C1 D3 C3  |=j.k. ".........|
00004E20: 28 D3 24 29 22 3B 3A 8D  20 31 34 35 30 3A 8B 20  |(.$)";:. 1450:. |
00004E30: 53 44 B2 32 20 A7 20 52  53 B2 31 3A 8E 00 4A 6A  |SD.2 . RS.1:..Jj|
00004E40: E4 6B 99 20 C6 28 22 D4  22 29 00 50 6A E9 6B 8E  |.k. .(".").Pj.k.|
00004E50: 00 66 6A 54 6F 8F 20 2D  2D 2D 2D 2D 20 53 43 52  |.fjTo. ----- SCR|
00004E60: 45 45 4E 20 32 37 00 77  6A 5E 6F FE 1A 20 30 2C  |EEN 27.wj^o.. 0,|
00004E70: 30 2C 33 39 2C 32 34 00  95 6A 63 6F 99 20 A3 31  |0,39,24..jco. .1|
00004E80: 31 29 22 D4 48 45 20 C3  C8 D2 24 20 C6 55 4E 43  |1)".HE ...$ .UNC|
00004E90: 54 49 4F 4E 22 00 9B 6A  68 6F 99 00 C9 6A 6D 6F  |TION"..jho...jmo|
00004EA0: 99 20 22 D4 48 45 20 C3  C8 D2 24 20 46 55 4E 43  |. ".HE ...$ FUNC|
00004EB0: 54 49 4F 4E 20 44 4F 45  53 20 54 48 45 20 52 45  |TION DOES THE RE|
00004EC0: 56 45 52 53 45 20 4F 46  22 00 F4 6A 72 6F 99 20  |VERSE OF"..jro. |
00004ED0: 22 54 48 45 20 C1 D3 C3  20 46 55 4E 43 54 49 4F  |"THE ... FUNCTIO|
00004EE0: 4E 3A 20 49 54 20 47 49  56 45 53 20 59 4F 55 20  |N: IT GIVES YOU |
00004EF0: 54 48 45 22 00 22 6B 77  6F 99 20 22 43 48 41 52  |THE"."kwo. "CHAR|
00004F00: 41 43 54 45 52 20 54 48  41 54 27 53 20 41 53 53  |ACTER THAT'S ASS|
00004F10: 49 47 4E 45 44 20 54 4F  20 41 4E 59 20 43 4F 44  |IGNED TO ANY COD|
00004F20: 45 22 00 49 6B 7C 6F 99  20 22 59 4F 55 20 45 4E  |E".Ik|o. "YOU EN|
00004F30: 54 45 52 2E 20 C9 54 20  4C 4F 4F 4B 53 20 4C 49  |TER. .T LOOKS LI|
00004F40: 4B 45 20 54 48 49 53 3A  22 00 4F 6B 81 6F 99 00  |KE THIS:".Ok.o..|
00004F50: 62 6B 86 6F 99 20 22 C3  C8 D2 24 28 43 4F 44 45  |bk.o. "...$(CODE|
00004F60: 29 22 00 68 6B 8B 6F 99  00 97 6B 90 6F 99 20 22  |)".hk.o...k.o. "|
00004F70: CC 49 4B 45 20 54 48 45  20 C1 D3 C3 20 46 55 4E  |.IKE THE ... FUN|
00004F80: 43 54 49 4F 4E 2C 20 59  4F 55 20 43 41 4E 20 55  |CTION, YOU CAN U|
00004F90: 53 45 20 54 48 45 22 00  C5 6B 95 6F 99 20 22 C3  |SE THE"..k.o. ".|
00004FA0: C8 D2 24 20 46 55 4E 43  54 49 4F 4E 20 57 49 54  |..$ FUNCTION WIT|
00004FB0: 48 20 4F 4E 4C 59 20 4F  4E 45 20 43 4F 44 45 20  |H ONLY ONE CODE |
00004FC0: 41 54 20 41 22 00 F6 6B  9A 6F 99 20 22 54 49 4D  |AT A"..k.o. "TIM|
00004FD0: 45 2E 20 D5 4E 4C 49 4B  45 20 54 48 45 20 C1 D3  |E. .NLIKE THE ..|
00004FE0: C3 20 46 55 4E 43 54 49  4F 4E 2C 20 59 4F 55 20  |. FUNCTION, YOU |
00004FF0: 44 4F 4E 27 54 22 00 13  6C 9F 6F 99 20 22 55 53  |DON'T"..l.o. "US|
00005000: 45 20 51 55 4F 54 41 54  49 4F 4E 20 4D 41 52 4B  |E QUOTATION MARK|
00005010: 53 2E 22 00 19 6C A4 6F  99 00 42 6C A9 6F 99 20  |S."..l.o..Bl.o. |
00005020: 22 D0 52 45 53 53 20 D2  C5 D4 D5 D2 CE 20 54 4F  |".RESS ...... TO|
00005030: 20 53 45 45 20 48 4F 57  20 54 48 45 20 C3 C8 D2  | SEE HOW THE ...|
00005040: 24 22 00 6C 6C AE 6F 99  20 22 46 55 4E 43 54 49  |$".ll.o. "FUNCTI|
00005050: 4F 4E 20 57 4F 52 4B 53  20 49 4E 20 54 48 45 53  |ON WORKS IN THES|
00005060: 45 20 45 58 41 4D 50 4C  45 53 3A 22 00 72 6C B3  |E EXAMPLES:".rl.|
00005070: 6F 99 00 A1 6C B8 6F 99  20 22 D0 D2 C9 CE D4 20  |o...l.o. "..... |
00005080: C3 C8 D2 24 28 36 36 29  22 3B 3A 8D 20 31 34 35  |...$(66)";:. 145|
00005090: 30 3A 8B 20 53 44 B2 32  20 A7 20 52 53 B2 31 3A  |0:. SD.2 . RS.1:|
000050A0: 8E 00 AD 6C BD 6F 99 20  C7 28 36 36 29 00 DC 6C  |...l.o. .(66)..l|
000050B0: C2 6F 99 20 22 D0 D2 C9  CE D4 A0 C3 C8 D2 24 28  |.o. ".........$(|
000050C0: 33 38 29 22 3B 3A 8D 20  31 34 35 30 3A 8B 20 53  |38)";:. 1450:. S|
000050D0: 44 B2 32 20 A7 20 52 53  B2 31 3A 8E 00 E8 6C C7  |D.2 . RS.1:...l.|
000050E0: 6F 99 20 C7 28 33 38 29  00 F6 6C CC 6F 99 20 22  |o. .(38)..l.o. "|
000050F0: C3 3D 31 32 36 22 00 0D  6D D1 6F 99 20 22 D0 D2  |.=126"..m.o. "..|
00005100: C9 CE D4 A0 C3 C8 D2 24  28 C3 29 22 3B 00 21 6D  |.......$(.)";.!m|
00005110: D6 6F 8D 20 31 34 35 30  3A 99 20 C7 28 31 32 36  |.o. 1450:. .(126|
00005120: 29 00 27 6D DB 6F 8E 00  3D 6D 3C 73 8F 20 2D 2D  |).'m.o..=m<s. --|
00005130: 2D 2D 2D 20 53 43 52 45  45 4E 20 32 38 00 5B 6D  |--- SCREEN 28.[m|
00005140: 46 73 99 20 A3 31 32 29  3B 22 D4 48 45 20 D6 C1  |Fs. .12);".HE ..|
00005150: CC 20 C6 55 4E 43 54 49  4F 4E 22 00 61 6D 4B 73  |. .UNCTION".amKs|
00005160: 99 00 8D 6D 50 73 99 22  C5 56 45 52 59 20 4E 55  |...mPs.".VERY NU|
00005170: 4D 42 45 52 20 59 4F 55  20 55 53 45 20 49 4E 20  |MBER YOU USE IN |
00005180: 41 20 50 52 4F 47 52 41  4D 20 49 53 22 00 BB 6D  |A PROGRAM IS"..m|
00005190: 55 73 99 20 22 4B 45 50  54 20 49 4E 20 59 4F 55  |Us. "KEPT IN YOU|
000051A0: 52 20 43 4F 4D 50 55 54  45 52 27 53 20 4D 45 4D  |R COMPUTER'S MEM|
000051B0: 4F 52 59 20 49 4E 20 54  57 4F 22 00 C9 6D 5A 73  |ORY IN TWO"..mZs|
000051C0: 99 20 22 57 41 59 53 2E  22 00 CF 6D 5F 73 99 00  |. "WAYS."..m_s..|
000051D0: FC 6D 64 73 99 20 22 C6  49 52 53 54 2C 20 41 53  |.mds. ".IRST, AS|
000051E0: 20 59 4F 55 27 56 45 20  4A 55 53 54 20 46 4F 55  | YOU'VE JUST FOU|
000051F0: 4E 44 20 4F 55 54 2C 20  54 48 45 22 00 27 6E 69  |ND OUT, THE".'ni|
00005200: 73 99 20 22 4E 55 4D 45  52 41 4C 53 20 54 48 41  |s. "NUMERALS THA|
00005210: 54 20 4D 41 4B 45 20 55  50 20 41 20 4E 55 4D 42  |T MAKE UP A NUMB|
00005220: 45 52 20 41 52 45 22 00  54 6E 6E 73 99 20 22 53  |ER ARE".Tnns. "S|
00005230: 54 4F 52 45 44 20 41 53  20 C1 D3 C3 C9 C9 20 43  |TORED AS ..... C|
00005240: 4F 44 45 53 2E 20 D4 48  45 20 4E 55 4D 42 45 52  |ODES. .HE NUMBER|
00005250: 20 32 35 22 00 83 6E 73  73 99 20 22 41 50 50 45  | 25"..nss. "APPE|
00005260: 41 52 53 20 4F 4E 20 54  48 45 20 53 43 52 45 45  |ARS ON THE SCREE|
00005270: 4E 20 41 53 20 54 48 45  20 43 48 41 52 41 43 54  |N AS THE CHARACT|
00005280: 45 52 22 00 BA 6E 78 73  99 20 22 53 54 52 49 4E  |ER"..nxs. "STRIN|
00005290: 47 20 22 44 51 24 22 32  35 22 44 51 24 22 2C 20  |G "DQ$"25"DQ$", |
000052A0: 57 48 49 43 48 20 49 53  20 53 54 4F 52 45 44 20  |WHICH IS STORED |
000052B0: 49 4E 20 4D 45 4D 4F 52  59 22 00 F7 6E 7D 73 99  |IN MEMORY"..n}s.|
000052C0: 20 22 41 53 20 54 48 45  20 C1 D3 C3 C9 C9 20 43  | "AS THE ..... C|
000052D0: 4F 44 45 53 20 46 4F 52  20 22 44 51 24 AA 22 32  |ODES FOR "DQ$."2|
000052E0: 22 44 51 24 22 20 41 4E  44 20 22 44 51 24 22 35  |"DQ$" AND "DQ$"5|
000052F0: 22 44 51 24 22 2E 22 00  FD 6E 82 73 99 00 24 6F  |"DQ$"."..n.s..$o|
00005300: 87 73 99 22 D3 45 43 4F  4E 44 2C 20 41 20 4E 55  |.s.".ECOND, A NU|
00005310: 4D 42 45 52 20 49 53 20  53 54 4F 52 45 44 20 41  |MBER IS STORED A|
00005320: 53 20 41 22 00 53 6F 8C  73 99 20 22 4D 41 54 48  |S A".So.s. "MATH|
00005330: 45 4D 41 54 49 43 41 4C  20 56 41 4C 55 45 20 2D  |EMATICAL VALUE -|
00005340: 2D 20 41 20 56 41 4C 55  45 20 54 48 41 54 20 59  |- A VALUE THAT Y|
00005350: 4F 55 22 00 84 6F 91 73  99 20 22 43 41 4E 20 41  |OU"..o.s. "CAN A|
00005360: 44 44 2C 20 53 55 42 54  52 41 43 54 2C 20 4D 55  |DD, SUBTRACT, MU|
00005370: 4C 54 49 50 4C 59 2C 20  41 4E 44 20 44 49 56 49  |LTIPLY, AND DIVI|
00005380: 44 45 2E 22 00 8A 6F 96  73 8E 00 A0 6F 30 75 8F  |DE."..o.s...o0u.|
00005390: 20 2D 2D 2D 2D 2D 20 53  43 52 45 45 4E 20 32 39  | ----- SCREEN 29|
000053A0: 00 CD 6F 3A 75 99 20 22  D4 48 45 20 D6 C1 CC 20  |..o:u. ".HE ... |
000053B0: 46 55 4E 43 54 49 4F 4E  20 43 48 41 4E 47 45 53  |FUNCTION CHANGES|
000053C0: 20 41 20 43 48 41 52 41  43 54 45 52 22 00 FE 6F  | A CHARACTER"..o|
000053D0: 3F 75 99 20 22 53 54 52  49 4E 47 20 49 4E 54 4F  |?u. "STRING INTO|
000053E0: 20 41 20 56 41 4C 55 45  2E 20 C9 54 20 4C 4F 4F  | A VALUE. .T LOO|
000053F0: 4B 53 20 4C 49 4B 45 20  54 48 49 53 3A 22 00 04  |KS LIKE THIS:"..|
00005400: 70 44 75 99 00 21 70 49  75 99 20 22 D6 C1 CC 28  |pDu..!pIu. "...(|
00005410: 53 54 52 49 4E 47 20 56  41 52 49 41 42 4C 45 29  |STRING VARIABLE)|
00005420: 22 00 27 70 4E 75 99 00  53 70 53 75 99 20 22 D4  |".'pNu..SpSu. ".|
00005430: 48 45 20 53 54 52 49 4E  47 20 56 41 52 49 41 42  |HE STRING VARIAB|
00005440: 4C 45 20 49 53 20 57 48  45 52 45 20 59 4F 55 27  |LE IS WHERE YOU'|
00005450: 56 45 22 00 81 70 58 75  99 20 22 53 41 56 45 44  |VE"..pXu. "SAVED|
00005460: 20 54 48 45 20 4E 55 4D  45 52 41 4C 53 20 59 4F  | THE NUMERALS YO|
00005470: 55 20 57 41 4E 54 20 54  4F 20 43 48 41 4E 47 45  |U WANT TO CHANGE|
00005480: 22 00 AA 70 5D 75 99 20  22 49 4E 54 4F 20 41 20  |"..p]u. "INTO A |
00005490: 56 41 4C 55 45 2E 20 C6  4F 52 20 45 58 41 4D 50  |VALUE. .OR EXAMP|
000054A0: 4C 45 2C 20 49 46 20 2D  2D 22 00 B0 70 62 75 99  |LE, IF --"..pbu.|
000054B0: 00 C8 70 67 75 99 20 22  D4 24 20 3D 20 22 44 51  |..pgu. ".$ = "DQ|
000054C0: 24 22 32 35 22 44 51 24  00 CE 70 6C 75 99 00 DE  |$"25"DQ$..plu...|
000054D0: 70 71 75 99 20 22 54 48  45 4E 20 2D 2D 22 00 E4  |pqu. "THEN --"..|
000054E0: 70 76 75 99 00 FD 70 7B  75 99 20 22 D0 D2 C9 CE  |pvu...p{u. "....|
000054F0: D4 20 D6 C1 CC 28 D4 24  29 2A 31 30 22 00 09 71  |. ...(.$)*10"..q|
00005500: 80 75 99 22 20 32 35 30  22 00 0F 71 85 75 99 00  |.u." 250"..q.u..|
00005510: 3E 71 8A 75 99 20 22 D7  48 41 54 27 53 20 54 48  |>q.u. ".HAT'S TH|
00005520: 45 20 44 49 46 46 45 52  45 4E 43 45 3F 20 D9 4F  |E DIFFERENCE? .O|
00005530: 55 20 43 41 4E 20 55 53  45 20 54 48 45 22 00 69  |U CAN USE THE".i|
00005540: 71 8F 75 99 20 22 56 41  4C 55 45 20 32 35 20 49  |q.u. "VALUE 25 I|
00005550: 4E 20 41 20 43 41 4C 43  55 4C 41 54 49 4F 4E 2C  |N A CALCULATION,|
00005560: 20 42 55 54 20 59 4F 55  22 00 90 71 94 75 99 20  | BUT YOU"..q.u. |
00005570: 22 43 41 4E 27 54 20 55  53 45 20 54 48 45 20 43  |"CAN'T USE THE C|
00005580: 48 41 52 41 43 54 45 52  20 53 54 52 49 4E 47 22  |HARACTER STRING"|
00005590: 00 A4 71 99 75 99 20 44  51 24 22 32 35 22 44 51  |..q.u. DQ$"25"DQ|
000055A0: 24 22 2E 22 00 AA 71 9E  75 8E 00 C0 71 24 77 8F  |$"."..q.u...q$w.|
000055B0: 20 2D 2D 2D 2D 2D 20 53  43 52 45 45 4E 20 33 30  | ----- SCREEN 30|
000055C0: 00 D1 71 2B 77 FE 1A 20  30 2C 32 2C 33 39 2C 32  |..q+w.. 0,2,39,2|
000055D0: 34 00 01 72 2E 77 99 20  22 CC 45 54 27 53 20 53  |4..r.w. ".ET'S S|
000055E0: 41 59 20 54 48 45 20 53  54 52 49 4E 47 20 56 41  |AY THE STRING VA|
000055F0: 52 49 41 42 4C 45 20 D4  24 20 53 54 41 4E 44 53  |RIABLE .$ STANDS|
00005600: 22 00 38 72 33 77 99 20  22 46 4F 52 A0 22 44 51  |".8r3w. "FOR."DQ|
00005610: 24 22 32 35 22 44 51 24  22 2E 20 C9 46 20 59 4F  |$"25"DQ$". .F YO|
00005620: 55 20 54 52 49 45 44 20  54 4F 20 45 58 45 43 55  |U TRIED TO EXECU|
00005630: 54 45 20 54 48 49 53 22  00 4B 72 38 77 99 20 22  |TE THIS".Kr8w. "|
00005640: 43 4F 4D 4D 41 4E 44 20  2D 2D 22 00 51 72 3D 77  |COMMAND --".Qr=w|
00005650: 99 00 66 72 42 77 99 20  22 D0 D2 C9 CE D4 20 D4  |..frBw. "..... .|
00005660: 24 20 2A 20 35 22 00 6C  72 47 77 99 00 98 72 4C  |$ * 5".lrGw...rL|
00005670: 77 99 20 22 C2 C1 D3 C9  C3 20 57 4F 55 4C 44 20  |w. "..... WOULD |
00005680: 54 45 4C 4C 20 59 4F 55  20 54 48 45 52 45 27 53  |TELL YOU THERE'S|
00005690: 20 41 20 D4 D9 D0 C5 22  00 C0 72 51 77 99 20 22  | A ...."..rQw. "|
000056A0: CD C9 D3 CD C1 D4 C3 C8  A0 C5 D2 D2 CF D2 2E 20  |............... |
000056B0: D9 4F 55 20 43 41 4E 27  54 20 41 44 44 20 41 22  |.OU CAN'T ADD A"|
000056C0: 00 EB 72 56 77 99 20 22  43 48 41 52 41 43 54 45  |..rVw. "CHARACTE|
000056D0: 52 20 53 54 52 49 4E 47  20 54 4F 20 41 20 4D 41  |R STRING TO A MA|
000056E0: 54 48 45 4D 41 54 49 43  41 4C 22 00 FA 72 58 77  |THEMATICAL"..rXw|
000056F0: 99 20 22 56 41 4C 55 45  2E 22 00 00 73 5B 77 99  |. "VALUE."..s[w.|
00005700: 00 30 73 60 77 99 20 22  D4 48 45 20 54 57 4F 20  |.0s`w. ".HE TWO |
00005710: 45 58 41 4D 50 4C 45 53  20 42 45 4C 4F 57 20 53  |EXAMPLES BELOW S|
00005720: 48 4F 57 20 54 57 4F 20  43 4F 52 52 45 43 54 22  |HOW TWO CORRECT"|
00005730: 00 5C 73 65 77 99 20 22  57 41 59 53 20 54 4F 20  |.\sew. "WAYS TO |
00005740: 55 53 45 20 54 48 45 20  D6 C1 CC 20 46 55 4E 43  |USE THE ... FUNC|
00005750: 54 49 4F 4E 2E 20 D0 52  45 53 53 22 00 81 73 6A  |TION. .RESS"..sj|
00005760: 77 99 20 22 D2 C5 D4 D5  D2 CE 20 54 4F 20 53 45  |w. "...... TO SE|
00005770: 45 20 48 4F 57 20 54 48  45 59 20 57 4F 52 4B 2E  |E HOW THEY WORK.|
00005780: 22 00 87 73 6F 77 99 00  9F 73 74 77 99 20 22 D4  |"..sow...stw. ".|
00005790: 24 20 3D 20 22 44 51 24  22 32 35 22 44 51 24 00  |$ = "DQ$"25"DQ$.|
000057A0: D1 73 79 77 99 20 22 D0  D2 C9 CE D4 A0 D6 C1 CC  |.syw. ".........|
000057B0: 28 D4 24 29 20 2A 20 35  22 3B 3A 8D 20 31 34 35  |(.$) * 5";:. 145|
000057C0: 30 3A 8B 20 53 44 B2 32  20 A7 20 52 53 B2 31 3A  |0:. SD.2 . RS.1:|
000057D0: 8E 00 DE 73 7E 77 99 20  22 20 31 32 35 22 00 F6  |...s~w. " 125"..|
000057E0: 73 83 77 99 20 22 D4 24  20 3D 20 22 44 51 24 22  |s.w. ".$ = "DQ$"|
000057F0: 32 35 22 44 51 24 00 0A  74 88 77 99 20 22 D6 20  |25"DQ$..t.w. ". |
00005800: 3D 20 D6 C1 CC 28 D4 24  29 22 00 36 74 8D 77 99  |= ...(.$)".6t.w.|
00005810: 20 22 D0 D2 C9 CE D4 20  D6 20 2A 20 35 22 3B 3A  | "..... . * 5";:|
00005820: 8D 20 31 34 35 30 3A 8B  20 53 44 B2 32 20 A7 20  |. 1450:. SD.2 . |
00005830: 52 53 B2 31 3A 8E 00 43  74 92 77 99 20 22 20 31  |RS.1:..Ct.w. " 1|
00005840: 32 35 22 00 49 74 97 77  8E 00 5F 74 0C 7B 8F 20  |25".It.w.._t.{. |
00005850: 2D 2D 2D 2D 2D 20 53 43  52 45 45 4E 20 33 31 00  |----- SCREEN 31.|
00005860: 70 74 16 7B FE 1A 20 30  2C 30 2C 33 39 2C 32 34  |pt.{.. 0,0,39,24|
00005870: 00 8E 74 1B 7B 99 20 A3  31 31 29 22 D4 48 45 20  |..t.{. .11)".HE |
00005880: D3 D4 D2 24 20 C6 55 4E  43 54 49 4F 4E 22 00 94  |...$ .UNCTION"..|
00005890: 74 20 7B 99 00 C2 74 25  7B 99 20 22 D4 48 45 20  |t {...t%{. ".HE |
000058A0: D3 D4 D2 24 20 46 55 4E  43 54 49 4F 4E 20 44 4F  |...$ FUNCTION DO|
000058B0: 45 53 20 54 48 45 20 52  45 56 45 52 53 45 20 4F  |ES THE REVERSE O|
000058C0: 46 22 00 E7 74 2A 7B 99  20 22 54 48 45 20 D6 C1  |F"..t*{. "THE ..|
000058D0: CC 20 46 55 4E 43 54 49  4F 4E 3A 20 49 54 20 54  |. FUNCTION: IT T|
000058E0: 55 52 4E 53 20 41 22 00  13 75 2F 7B 99 20 22 4D  |URNS A"..u/{. "M|
000058F0: 41 54 48 45 4D 41 54 49  43 41 4C 20 56 41 4C 55  |ATHEMATICAL VALU|
00005900: 45 20 49 4E 54 4F 20 41  20 43 48 41 52 41 43 54  |E INTO A CHARACT|
00005910: 45 52 22 00 23 75 34 7B  99 20 22 53 54 52 49 4E  |ER".#u4{. "STRIN|
00005920: 47 2E 22 00 29 75 39 7B  99 00 57 75 3E 7B 99 20  |G.".)u9{..Wu>{. |
00005930: 22 CC 45 54 27 53 20 53  41 59 20 54 48 45 20 56  |".ET'S SAY THE V|
00005940: 41 52 49 41 42 4C 45 20  C1 20 45 51 55 41 4C 53  |ARIABLE . EQUALS|
00005950: 20 35 2E 20 C9 46 22 00  83 75 43 7B 99 20 22 59  | 5. .F"..uC{. "Y|
00005960: 4F 55 20 54 52 49 45 44  20 54 4F 20 47 45 54 20  |OU TRIED TO GET |
00005970: 54 48 45 20 C1 D3 C3 C9  C9 A0 43 4F 44 45 20 46  |THE ......CODE F|
00005980: 4F 52 22 00 B8 75 48 7B  99 20 22 54 48 45 20 4E  |OR"..uH{. "THE N|
00005990: 55 4D 45 52 41 4C 20 22  44 51 24 22 35 22 44 51  |UMERAL "DQ$"5"DQ|
000059A0: 24 22 20 57 49 54 48 20  54 48 49 53 20 43 4F 4D  |$" WITH THIS COM|
000059B0: 4D 41 4E 44 20 2D 2D 22  00 BE 75 4D 7B 99 00 D3  |MAND --"..uM{...|
000059C0: 75 52 7B 99 20 22 D0 D2  C9 CE D4 A0 C1 D3 C3 28  |uR{. ".........(|
000059D0: C1 29 22 00 D9 75 57 7B  99 00 06 76 5C 7B 99 20  |.)"..uW{...v\{. |
000059E0: 22 C2 C1 D3 C9 C3 20 57  4F 55 4C 44 20 41 47 41  |"..... WOULD AGA|
000059F0: 49 4E 20 54 45 4C 4C 20  59 4F 55 20 54 48 45 52  |IN TELL YOU THER|
00005A00: 45 27 53 20 41 22 00 33  76 61 7B 99 20 22 D4 D9  |E'S A".3va{. "..|
00005A10: D0 C5 A0 CD C9 D3 CD C1  D4 C3 C8 A0 C5 D2 D2 CF  |................|
00005A20: D2 2E 20 C3 48 41 52 41  43 54 45 52 53 20 48 41  |.. .HARACTERS HA|
00005A30: 56 45 22 00 63 76 66 7B  99 20 22 C1 D3 C3 C9 C9  |VE".cvf{. ".....|
00005A40: 20 43 4F 44 45 53 2C 20  4D 41 54 48 45 4D 41 54  | CODES, MATHEMAT|
00005A50: 49 43 41 4C 20 56 41 4C  55 45 53 20 44 4F 4E 27  |ICAL VALUES DON'|
00005A60: 54 2E 22 00 69 76 6B 7B  99 00 98 76 70 7B 99 20  |T.".ivk{...vp{. |
00005A70: 22 D4 48 45 20 45 58 41  4D 50 4C 45 20 42 45 4C  |".HE EXAMPLE BEL|
00005A80: 4F 57 20 53 48 4F 57 53  20 48 4F 57 20 54 4F 20  |OW SHOWS HOW TO |
00005A90: 55 53 45 20 54 48 45 22  00 C8 76 75 7B 99 20 22  |USE THE"..vu{. "|
00005AA0: D3 D4 D2 24 20 46 55 4E  43 54 49 4F 4E 20 54 4F  |...$ FUNCTION TO|
00005AB0: 20 4D 41 4B 45 20 54 48  45 20 43 4F 4D 4D 41 4E  | MAKE THE COMMAN|
00005AC0: 44 20 41 42 4F 56 45 22  00 F3 76 7A 7B 99 20 22  |D ABOVE"..vz{. "|
00005AD0: 57 4F 52 4B 2E 20 A0 D0  52 45 53 53 20 D2 C5 D4  |WORK. ..RESS ...|
00005AE0: D5 D2 CE 20 54 4F 20 45  58 45 43 55 54 45 20 49  |... TO EXECUTE I|
00005AF0: 54 2E 22 00 F9 76 7F 7B  99 00 07 77 84 7B 99 20  |T."..v.{...w.{. |
00005B00: 22 C1 20 3D 20 35 22 00  3A 77 89 7B 99 20 22 D0  |". = 5".:w.{. ".|
00005B10: D2 C9 CE D4 A0 C1 D3 C3  28 D3 D4 D2 24 28 C1 29  |........(...$(.)|
00005B20: 29 22 3B 3A 8D 20 31 34  35 30 3A 8B 20 53 44 B2  |)";:. 1450:. SD.|
00005B30: 32 20 A7 20 52 53 B2 31  3A 8E 00 48 77 8E 7B 99  |2 . RS.1:..Hw.{.|
00005B40: 20 C6 28 C4 28 35 29 29  00 4E 77 93 7B 8E 00 64  | .(.(5)).Nw.{..d|
00005B50: 77 F4 7E 8F 20 2D 2D 2D  2D 2D 20 53 43 52 45 45  |w.~. ----- SCREE|
00005B60: 4E 20 33 32 00 75 77 FB  7E FE 1A 20 30 2C 31 2C  |N 32.uw.~.. 0,1,|
00005B70: 33 39 2C 32 34 00 88 77  FE 7E 99 20 A3 31 36 29  |39,24..w.~. .16)|
00005B80: 22 D2 45 56 49 45 57 22  00 8E 77 03 7F 99 00 B7  |".EVIEW"..w.....|
00005B90: 77 08 7F 99 20 22 D5 53  45 20 C9 C6 2D D4 C8 C5  |w... ".SE ..-...|
00005BA0: CE 20 54 4F 20 48 41 56  45 20 41 20 50 52 4F 47  |. TO HAVE A PROG|
00005BB0: 52 41 4D 20 44 4F 22 00  DC 77 0D 7F 99 22 44 49  |RAM DO"..w..."DI|
00005BC0: 46 46 45 52 45 4E 54 20  54 48 49 4E 47 53 20 49  |FFERENT THINGS I|
00005BD0: 4E 20 44 49 46 46 45 52  45 4E 54 22 00 F0 77 12  |N DIFFERENT"..w.|
00005BE0: 7F 99 20 22 53 49 54 55  41 54 49 4F 4E 53 2E 22  |.. "SITUATIONS."|
00005BF0: 00 F6 77 17 7F 99 00 1E  78 1C 7F 99 20 22 D5 53  |..w.....x... ".S|
00005C00: 45 20 C6 CF D2 2D CE C5  D8 D4 20 54 4F 20 52 45  |E ...-.... TO RE|
00005C10: 50 45 41 54 20 54 48 45  20 53 41 4D 45 22 00 4E  |PEAT THE SAME".N|
00005C20: 78 21 7F 99 20 22 49 4E  53 54 52 55 43 54 49 4F  |x!.. "INSTRUCTIO|
00005C30: 4E 53 20 41 53 20 4D 41  4E 59 20 54 49 4D 45 53  |NS AS MANY TIMES|
00005C40: 20 41 53 20 59 4F 55 20  57 41 4E 54 2E 22 00 54  | AS YOU WANT.".T|
00005C50: 78 26 7F 99 00 81 78 2B  7F 99 20 22 D5 53 45 20  |x&....x+.. ".SE |
00005C60: C9 CE D0 D5 D4 20 54 4F  20 48 41 56 45 20 41 20  |..... TO HAVE A |
00005C70: 50 52 4F 47 52 41 4D 20  53 54 4F 50 20 41 4E 44  |PROGRAM STOP AND|
00005C80: 22 00 A8 78 30 7F 99 20  22 57 41 49 54 20 46 4F  |"..x0.. "WAIT FO|
00005C90: 52 20 49 4E 50 55 54 20  54 4F 20 42 45 20 54 59  |R INPUT TO BE TY|
00005CA0: 50 45 44 20 49 4E 2E 22  00 AE 78 35 7F 99 00 DB  |PED IN."..x5....|
00005CB0: 78 3A 7F 99 20 22 D5 53  45 20 D2 C5 C1 C4 20 41  |x:.. ".SE .... A|
00005CC0: 4E 44 20 C4 C1 D4 C1 20  54 4F 47 45 54 48 45 52  |ND .... TOGETHER|
00005CD0: 20 54 4F 20 41 53 53 49  47 4E 22 00 F8 78 3F 7F  | TO ASSIGN"..x?.|
00005CE0: 99 20 22 56 41 4C 55 45  53 20 54 4F 20 56 41 52  |. "VALUES TO VAR|
00005CF0: 49 41 42 4C 45 53 2E 22  00 FE 78 44 7F 99 00 2C  |IABLES."..xD...,|
00005D00: 79 49 7F 99 20 22 C1 20  53 55 42 52 4F 55 54 49  |yI.. ". SUBROUTI|
00005D10: 4E 45 20 49 53 20 41 20  53 45 54 20 4F 46 20 49  |NE IS A SET OF I|
00005D20: 4E 53 54 52 55 43 54 49  4F 4E 53 22 00 58 79 4E  |NSTRUCTIONS".XyN|
00005D30: 7F 99 20 22 59 4F 55 20  53 45 54 20 41 50 41 52  |.. "YOU SET APAR|
00005D40: 54 20 46 52 4F 4D 20 54  48 45 20 4D 41 49 4E 20  |T FROM THE MAIN |
00005D50: 50 52 4F 47 52 41 4D 22  00 83 79 53 7F 99 20 22  |PROGRAM"..yS.. "|
00005D60: 42 45 43 41 55 53 45 20  59 4F 55 20 55 53 45 20  |BECAUSE YOU USE |
00005D70: 49 54 20 4D 4F 52 45 20  54 48 41 4E 20 4F 4E 43  |IT MORE THAN ONC|
00005D80: 45 2E 22 00 AB 79 58 7F  99 20 22 D5 53 45 20 C7  |E."..yX.. ".SE .|
00005D90: CF D3 D5 C2 20 54 4F 20  47 4F 20 54 4F 20 41 20  |.... TO GO TO A |
00005DA0: 53 55 42 52 4F 55 54 49  4E 45 22 00 D5 79 5D 7F  |SUBROUTINE"..y].|
00005DB0: 99 20 22 41 4E 44 20 D2  C5 D4 D5 D2 CE 20 54 4F  |. "AND ...... TO|
00005DC0: 20 47 4F 20 42 41 43 4B  20 54 4F 20 54 48 45 20  | GO BACK TO THE |
00005DD0: 4D 41 49 4E 22 00 E6 79  5F 7F 99 20 22 50 52 4F  |MAIN"..y_.. "PRO|
00005DE0: 47 52 41 4D 2E 22 00 EC  79 62 7F 99 00 F2 79 67  |GRAM."..yb....yg|
00005DF0: 7F 8E 00 08 7A E8 80 8F  20 2D 2D 2D 2D 2D 20 53  |....z... ----- S|
00005E00: 43 52 45 45 4E 20 33 33  00 36 7A F2 80 99 20 22  |CREEN 33.6z... "|
00005E10: D5 53 45 20 54 48 45 20  C9 CE D4 45 47 45 52 20  |.SE THE ...EGER |
00005E20: 46 55 4E 43 54 49 4F 4E  20 54 4F 20 54 41 4B 45  |FUNCTION TO TAKE|
00005E30: 20 41 57 41 59 22 00 65  7A F7 80 99 20 22 54 48  | AWAY".ez... "TH|
00005E40: 45 20 50 41 52 54 20 4F  46 20 41 20 4E 55 4D 42  |E PART OF A NUMB|
00005E50: 45 52 20 41 46 54 45 52  20 54 48 45 20 44 45 43  |ER AFTER THE DEC|
00005E60: 49 4D 41 4C 22 00 74 7A  FC 80 99 20 22 50 4F 49  |IMAL".tz... "POI|
00005E70: 4E 54 2E 22 00 7A 7A 01  81 99 00 A9 7A 06 81 99  |NT.".zz.....z...|
00005E80: 20 22 D5 53 45 20 54 48  45 20 D3 D1 D2 20 46 55  | ".SE THE ... FU|
00005E90: 4E 43 54 49 4F 4E 20 54  4F 20 47 45 54 20 54 48  |NCTION TO GET TH|
00005EA0: 45 20 53 51 55 41 52 45  22 00 C3 7A 0B 81 99 20  |E SQUARE"..z... |
00005EB0: 22 52 4F 4F 54 20 4F 46  20 41 20 4E 55 4D 42 45  |"ROOT OF A NUMBE|
00005EC0: 52 2E 22 00 C9 7A 10 81  99 00 F9 7A 15 81 99 20  |R."..z.....z... |
00005ED0: 22 D5 53 45 20 54 48 45  20 D2 CE C4 20 46 55 4E  |".SE THE ... FUN|
00005EE0: 43 54 49 4F 4E 20 54 4F  20 47 45 4E 45 52 41 54  |CTION TO GENERAT|
00005EF0: 45 20 52 41 4E 44 4F 4D  22 00 0A 7B 1A 81 99 20  |E RANDOM"..{... |
00005F00: 22 4E 55 4D 42 45 52 53  2E 22 00 10 7B 1F 81 99  |"NUMBERS."..{...|
00005F10: 00 41 7B 24 81 99 20 22  D5 53 45 20 54 48 45 20  |.A{$.. ".SE THE |
00005F20: C1 C2 D3 20 46 55 4E 43  54 49 4F 4E 20 54 4F 20  |... FUNCTION TO |
00005F30: 47 45 54 20 54 48 45 20  50 4F 53 49 54 49 56 45  |GET THE POSITIVE|
00005F40: 22 00 5C 7B 29 81 99 20  22 56 41 4C 55 45 20 4F  |".\{).. "VALUE O|
00005F50: 46 20 41 20 4E 55 4D 42  45 52 2E 22 00 62 7B 33  |F A NUMBER.".b{3|
00005F60: 81 8E 00 78 7B DC 82 8F  20 2D 2D 2D 2D 2D 20 53  |...x{... ----- S|
00005F70: 43 52 45 45 4E 20 33 34  00 A6 7B E1 82 99 20 22  |CREEN 34..{... "|
00005F80: D5 53 45 20 54 48 45 20  C1 D3 C3 20 46 55 4E 43  |.SE THE ... FUNC|
00005F90: 54 49 4F 4E 20 54 4F 20  47 45 54 20 54 48 45 20  |TION TO GET THE |
00005FA0: C1 D3 C3 C9 C9 22 00 D6  7B E6 82 99 20 22 43 4F  |....."..{... "CO|
00005FB0: 44 45 20 46 4F 52 20 41  20 4C 45 54 54 45 52 2C  |DE FOR A LETTER,|
00005FC0: 20 4E 55 4D 45 52 41 4C  2C 20 4F 52 20 47 52 41  | NUMERAL, OR GRA|
00005FD0: 50 48 49 43 53 22 00 E9  7B EB 82 99 20 22 43 48  |PHICS"..{... "CH|
00005FE0: 41 52 41 43 54 45 52 2E  22 00 EF 7B F0 82 99 00  |ARACTER."..{....|
00005FF0: 1F 7C F2 82 99 20 22 D5  53 45 20 C3 C8 D2 24 20  |.|... ".SE ...$ |
00006000: 54 4F 20 47 45 54 20 54  48 45 20 4C 45 54 54 45  |TO GET THE LETTE|
00006010: 52 2C 20 4E 55 4D 45 52  41 4C 2C 20 4F 52 22 00  |R, NUMERAL, OR".|
00006020: 4F 7C F4 82 99 20 22 47  52 41 50 48 49 43 53 20  |O|... "GRAPHICS |
00006030: 43 48 41 52 41 43 54 45  52 20 41 53 53 49 47 4E  |CHARACTER ASSIGN|
00006040: 45 44 20 54 4F 20 41 4E  20 C1 D3 C3 C9 C9 22 00  |ED TO AN .....".|
00006050: 5D 7C F6 82 99 20 22 43  4F 44 45 2E 22 00 63 7C  |]|... "CODE.".c||
00006060: F8 82 99 00 94 7C FA 82  99 20 22 D5 53 45 20 54  |.....|... ".SE T|
00006070: 48 45 20 D6 C1 CC 20 46  55 4E 43 54 49 4F 4E 20  |HE ... FUNCTION |
00006080: 54 4F 20 54 55 52 4E 20  41 20 43 48 41 52 41 43  |TO TURN A CHARAC|
00006090: 54 45 52 22 00 BE 7C FF  82 99 20 22 53 54 52 49  |TER"..|... "STRI|
000060A0: 4E 47 20 49 4E 54 4F 20  41 20 4D 41 54 48 45 4D  |NG INTO A MATHEM|
000060B0: 41 54 49 43 41 4C 20 56  41 4C 55 45 2E 22 00 C4  |ATICAL VALUE."..|
000060C0: 7C 04 83 99 00 EC 7C 09  83 99 20 22 D5 53 45 20  ||.....|... ".SE |
000060D0: 54 48 45 20 D3 D4 D2 24  20 46 55 4E 43 54 49 4F  |THE ...$ FUNCTIO|
000060E0: 4E 20 54 4F 20 54 55 52  4E 20 41 22 00 18 7D 0E  |N TO TURN A"..}.|
000060F0: 83 99 20 22 4D 41 54 48  45 4D 41 54 49 43 41 4C  |.. "MATHEMATICAL|
00006100: 20 56 41 4C 55 45 20 49  4E 54 4F 20 41 20 43 48  | VALUE INTO A CH|
00006110: 41 52 41 43 54 45 52 22  00 28 7D 13 83 99 20 22  |ARACTER".(}... "|
00006120: 53 54 52 49 4E 47 2E 22  00 2E 7D 18 83 8E 00 43  |STRING."..}....C|
00006130: 7D 50 C3 8F 20 2D 2D 2D  2D 2D 20 47 4C 42 20 49  |}P.. ----- GLB I|
00006140: 4E 49 54 00 59 7D 55 C3  8F 20 2D 2D 2D 2D 2D 20  |NIT.Y}U.. ----- |
00006150: 4D 49 53 43 20 49 4E 49  54 00 85 7D 5A C3 D9 3A  |MISC INIT..}Z..:|
00006160: 8D 35 30 31 30 30 3A 8D  35 30 33 30 30 3A FE 15  |.50100:.50300:..|
00006170: 3A 8D 35 30 35 30 30 3A  8D 35 30 37 30 30 3A 8D  |:.50500:.50700:.|
00006180: 35 30 39 30 30 00 AF 7D  87 C3 E0 2C 31 39 2C 32  |50900..}...,19,2|
00006190: 34 2C 22 CF 4E 45 20 4D  4F 4D 45 4E 54 20 50 4C  |4,".NE MOMENT PL|
000061A0: 45 41 53 45 2E 2E 2E 22  3A 89 35 31 30 30 30 00  |EASE...":.51000.|
000061B0: CF 7D B4 C3 8F 20 2D 2D  2D 2D 2D 20 4D 49 53 43  |.}... ----- MISC|
000061C0: 20 56 41 52 2F 43 4F 4E  53 54 20 49 4E 49 54 00  | VAR/CONST INIT.|
000061D0: 09 7E B8 C3 54 4D B2 32  3A 46 31 B2 32 3A 46 32  |.~..TM.2:F1.2:F2|
000061E0: B2 38 3A 42 31 B2 37 3A  42 46 B2 31 3A 4C 24 B2  |.8:B1.7:BF.1:L$.|
000061F0: C7 28 31 34 29 3A 55 24  B2 C7 28 31 34 32 29 3A  |.(14):U$..(142):|
00006200: 4B 30 24 B2 C7 28 31 31  29 00 41 7E C8 C3 4B 31  |K0$..(11).A~..K1|
00006210: 24 B2 C7 28 31 32 29 3A  48 4D 24 B2 C7 28 31 39  |$..(12):HM$..(19|
00006220: 29 3A 43 53 24 B2 C7 28  31 34 37 29 3A 52 30 24  |):CS$..(147):R0$|
00006230: B2 C7 28 31 34 36 29 3A  52 31 24 B2 C7 28 31 38  |..(146):R1$..(18|
00006240: 29 00 76 7E D2 C3 44 51  24 B2 C7 28 33 34 29 3A  |).v~..DQ$..(34):|
00006250: 8C 35 30 31 33 30 3A 86  43 24 28 31 36 29 3A 81  |.50130:.C$(16):.|
00006260: 49 B2 31 A4 31 36 3A 87  43 3A 43 24 28 49 29 B2  |I.1.16:.C:C$(I).|
00006270: C7 28 43 29 3A 82 00 8C  7E E0 C3 83 20 31 34 34  |.(C):...~... 144|
00006280: 2C 20 20 35 2C 20 32 38  2C 31 35 39 00 A2 7E E2  |,  5, 28,159..~.|
00006290: C3 83 20 31 35 36 2C 20  33 30 2C 20 33 31 2C 31  |.. 156, 30, 31,1|
000062A0: 35 38 00 B8 7E E4 C3 83  20 31 32 39 2C 31 34 39  |58..~... 129,149|
000062B0: 2C 31 35 30 2C 31 35 31  00 CE 7E E6 C3 83 20 31  |,150,151..~... 1|
000062C0: 35 32 2C 31 35 33 2C 31  35 34 2C 31 35 35 00 07  |52,153,154,155..|
000062D0: 7F F0 C3 53 42 B2 35 31  37 31 32 3A 86 55 50 24  |...SB.51712:.UP$|
000062E0: 28 32 29 3A 55 50 24 28  31 29 B2 22 D0 52 45 53  |(2):UP$(1).".RES|
000062F0: 53 20 D3 D0 C1 C3 C5 C2  C1 D2 20 54 4F 20 43 4F  |S ........ TO CO|
00006300: 4E 54 49 4E 55 45 22 00  2D 7F FE C3 55 50 24 28  |NTINUE".-...UP$(|
00006310: 32 29 B2 22 D0 52 45 53  53 20 D2 C5 D4 D5 D2 CE  |2).".RESS ......|
00006320: 20 54 4F 20 43 4F 4E 54  49 4E 55 45 22 00 73 7F  | TO CONTINUE".s.|
00006330: 04 C4 53 50 24 B2 22 20  20 20 20 20 20 20 20 20  |..SP$."         |
00006340: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006350: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00006360: 3A 54 24 B2 22 20 20 22  3A 48 50 24 B2 C7 28 31  |:T$."  ":HP$..(1|
00006370: 33 32 29 00 AB 7F 0A C4  53 30 24 B2 C7 28 32 37  |32).....S0$..(27|
00006380: 29 AA 22 4D 22 3A 53 31  24 B2 C7 28 32 37 29 AA  |)."M":S1$..(27).|
00006390: 22 4C 22 3A 8C 35 30 31  38 36 3A 87 4A 3A 86 53  |"L":.50186:.J:.S|
000063A0: 4B 28 4A 29 3A 53 4B 24  B2 22 22 00 CF 7F 16 C4  |K(J):SK$."".....|
000063B0: 81 49 B2 31 A4 4A 3A 87  4B 3A 53 4B 24 B2 53 4B  |.I.1.J:.K:SK$.SK|
000063C0: 24 AA C7 28 4B 29 3A 87  53 4B 28 49 29 3A 82 00  |$..(K):.SK(I):..|
000063D0: 07 80 20 C4 83 20 36 2C  31 33 33 2C 20 20 31 2C  |.. .. 6,133,  1,|
000063E0: 20 32 37 2C 20 20 32 2C  20 33 32 2C 20 20 33 2C  | 27,  2, 32,  3,|
000063F0: 20 31 33 2C 20 20 33 2C  31 34 35 2C 20 20 34 2C  | 13,  3,145,  4,|
00006400: 20 31 37 2C 20 20 35 00  0D 80 7B C4 8E 00 2D 80  | 17,  5...{...-.|
00006410: 7C C4 8F 20 2D 2D 2D 2D  2D 20 49 4E 49 54 20 56  ||.. ----- INIT V|
00006420: 49 44 45 4F 2F 47 52 41  50 48 49 43 53 00 4F 80  |IDEO/GRAPHICS.O.|
00006430: 86 C4 FE 26 3A DE 30 3A  E7 30 2C 42 31 3A E7 31  |...&:.0:.0,B1:.1|
00006440: 2C 46 31 3A E7 34 2C 42  31 3A E7 35 2C 46 31 00  |,F1:.4,B1:.5,F1.|
00006450: 6D 80 A4 C4 99 4C 24 4C  4B 24 53 31 24 C7 28 32  |m....L$LK$S1$.(2|
00006460: 37 29 22 43 22 C7 28 32  37 29 22 4F 22 00 92 80  |7)"C".(27)"O"...|
00006470: A9 C4 FE 1A 30 2C 30 2C  33 39 2C 32 34 2C 31 3A  |....0,0,39,24,1:|
00006480: FE 17 31 3A FE 17 32 3A  FE 17 33 3A E9 30 3A FE  |..1:..2:..3:.0:.|
00006490: 1C 31 00 A5 80 C2 C4 81  49 B2 31 A4 38 3A FE 07  |.1......I.1.8:..|
000064A0: 49 2C 30 3A 82 00 C2 80  C7 C4 FE 02 31 35 3A 97  |I,0:........15:.|
000064B0: 35 36 35 37 36 2C C2 28  35 36 35 37 36 29 B0 33  |56576,.(56576).3|
000064C0: 3A 8E 00 D9 80 44 C5 8F  20 2D 2D 2D 2D 2D 20 49  |:....D.. ----- I|
000064D0: 4E 49 54 20 53 4F 55 4E  44 00 FD 80 4E C5 81 49  |NIT SOUND...N..I|
000064E0: B2 31 A4 33 3A DA 49 2C  30 2C 30 3A 82 3A FE 03  |.1.3:.I,0,0:.:..|
000064F0: 30 2C 30 2C 30 2C 30 2C  30 3A DB 31 35 00 39 81  |0,0,0,0,0:.15.9.|
00006500: 67 C5 FE 04 22 56 31 4F  30 54 30 58 30 56 32 4F  |g..."V1O0T0X0V2O|
00006510: 30 54 30 58 30 56 33 4F  30 54 30 58 30 22 3A 8C  |0T0X0V3O0T0X0":.|
00006520: 35 30 35 33 35 3A 81 49  B2 30 A4 39 3A 87 41 2C  |50535:.I.0.9:.A,|
00006530: 44 2C 53 2C 52 2C 57 2C  50 00 4F 81 7B C5 FE 0A  |D,S,R,W,P.O.{...|
00006540: 49 2C 41 2C 44 2C 53 2C  52 2C 57 2C 50 3A 82 00  |I,A,D,S,R,W,P:..|
00006550: 69 81 8A C5 83 20 20 30  2C 20 39 2C 20 30 2C 20  |i....  0, 9, 0, |
00006560: 30 2C 20 32 2C 31 35 33  36 00 83 81 8C C5 83 20  |0, 2,1536...... |
00006570: 31 32 2C 20 30 2C 31 32  2C 20 30 2C 20 31 2C 20  |12, 0,12, 0, 1, |
00006580: 20 20 30 00 9D 81 8E C5  83 20 20 30 2C 20 30 2C  |  0......  0, 0,|
00006590: 31 35 2C 20 30 2C 20 30  2C 20 20 20 30 00 B7 81  |15, 0, 0,   0...|
000065A0: 90 C5 83 20 20 30 2C 20  35 2C 20 35 2C 20 30 2C  |...  0, 5, 5, 0,|
000065B0: 20 33 2C 20 20 20 30 00  D1 81 92 C5 83 20 20 39  | 3,   0......  9|
000065C0: 2C 20 34 2C 20 34 2C 20  30 2C 20 30 2C 20 20 20  |, 4, 4, 0, 0,   |
000065D0: 30 00 EB 81 94 C5 83 20  20 30 2C 20 39 2C 20 32  |0......  0, 9, 2|
000065E0: 2C 20 31 2C 20 31 2C 20  20 20 30 00 05 82 96 C5  |, 1, 1,   0.....|
000065F0: 83 20 20 30 2C 20 39 2C  20 30 2C 20 30 2C 20 32  |.  0, 9, 0, 0, 2|
00006600: 2C 20 35 31 32 00 1F 82  98 C5 83 20 20 30 2C 20  |, 512......  0, |
00006610: 39 2C 20 39 2C 20 30 2C  20 32 2C 32 30 34 38 00  |9, 9, 0, 2,2048.|
00006620: 39 82 9A C5 83 20 20 38  2C 20 39 2C 20 34 2C 20  |9....  8, 9, 4, |
00006630: 31 2C 20 32 2C 20 35 31  32 00 53 82 9C C5 83 20  |1, 2, 512.S.... |
00006640: 20 30 2C 20 39 2C 20 30  2C 20 30 2C 20 30 2C 20  | 0, 9, 0, 0, 0, |
00006650: 20 20 30 00 59 82 A7 C5  8E 00 6F 82 0C C6 8F 20  |  0.Y.....o.... |
00006660: 2D 2D 2D 2D 2D 20 54 4F  43 20 41 52 52 41 59 00  |----- TOC ARRAY.|
00006670: 7B 82 16 C6 86 56 4C 24  28 39 29 00 8E 82 1B C6  |{....VL$(9).....|
00006680: 56 4C 24 28 30 29 B2 22  54 4F 43 20 30 22 00 A8  |VL$(0)."TOC 0"..|
00006690: 82 20 C6 56 4C 24 28 31  29 B2 22 C9 4E 54 52 4F  |. .VL$(1).".NTRO|
000066A0: 44 55 43 54 49 4F 4E 22  00 BE 82 25 C6 56 4C 24  |DUCTION"...%.VL$|
000066B0: 28 32 29 B2 22 D4 48 45  20 C3 31 32 38 22 00 D1  |(2).".HE .128"..|
000066C0: 82 2A C6 56 4C 24 28 33  29 B2 22 C2 C1 D3 C9 C3  |.*.VL$(3).".....|
000066D0: 22 00 ED 82 2F C6 56 4C  24 28 34 29 B2 22 C1 44  |".../.VL$(4).".D|
000066E0: 56 41 4E 43 45 44 20 C2  C1 D3 C9 C3 22 00 05 83  |VANCED ....."...|
000066F0: 34 C6 56 4C 24 28 35 29  B2 22 C4 49 53 4B 20 D5  |4.VL$(5).".ISK .|
00006700: 53 41 47 45 22 00 22 83  39 C6 56 4C 24 28 36 29  |SAGE".".9.VL$(6)|
00006710: B2 22 D3 43 52 45 45 4E  20 C7 52 41 50 48 49 43  |.".CREEN .RAPHIC|
00006720: 53 22 00 3F 83 3E C6 56  4C 24 28 37 29 B2 22 D3  |S".?.>.VL$(7).".|
00006730: 50 52 49 54 45 20 C7 52  41 50 48 49 43 53 22 00  |PRITE .RAPHICS".|
00006740: 62 83 43 C6 56 4C 24 28  38 29 B2 22 D3 4F 55 4E  |b.C.VL$(8).".OUN|
00006750: 44 20 C5 46 46 45 43 54  53 20 26 20 CD 55 53 49  |D .FFECTS & .USI|
00006760: 43 22 00 81 83 48 C6 56  4C 24 28 39 29 B2 22 D0  |C"...H.VL$(9).".|
00006770: 52 4F 47 52 41 4D 4D 49  4E 47 20 C8 49 4E 54 53  |ROGRAMMING .INTS|
00006780: 22 00 87 83 6F C6 8E 00  A3 83 D4 C6 8F 20 2D 2D  |"...o........ --|
00006790: 2D 2D 2D 20 50 49 43 20  41 52 52 41 59 53 20 49  |--- PIC ARRAYS I|
000067A0: 4E 49 54 00 BB 83 DE C6  86 50 4E 24 28 37 29 2C  |NIT......PN$(7),|
000067B0: 50 42 28 37 29 2C 50 33  28 37 29 00 E2 83 E0 C6  |PB(7),P3(7).....|
000067C0: 50 4E 24 28 30 29 B2 22  2E 2E 2E 2E 2E 2E 2E 2E  |PN$(0)."........|
000067D0: 22 3A 50 42 28 30 29 B2  42 31 3A 50 33 28 30 29  |":PB(0).B1:P3(0)|
000067E0: B2 31 00 09 84 E3 C6 50  4E 24 28 31 29 B2 22 42  |.1.....PN$(1)."B|
000067F0: 4F 4F 4B 22 20 20 20 20  3A 50 42 28 31 29 B2 42  |OOK"    :PB(1).B|
00006800: 31 3A 50 33 28 31 29 B2  31 00 30 84 E8 C6 50 4E  |1:P3(1).1.0...PN|
00006810: 24 28 32 29 B2 22 4B 45  59 42 4F 41 52 44 22 3A  |$(2)."KEYBOARD":|
00006820: 50 42 28 32 29 B2 31 33  3A 50 33 28 32 29 B2 32  |PB(2).13:P3(2).2|
00006830: 00 57 84 ED C6 50 4E 24  28 33 29 B2 22 43 49 52  |.W...PN$(3)."CIR|
00006840: 43 55 53 22 20 20 3A 50  42 28 33 29 B2 31 33 3A  |CUS"  :PB(3).13:|
00006850: 50 33 28 33 29 B2 32 00  7E 84 F2 C6 50 4E 24 28  |P3(3).2.~...PN$(|
00006860: 34 29 B2 22 48 41 52 44  57 41 52 45 22 3A 50 42  |4)."HARDWARE":PB|
00006870: 28 34 29 B2 31 35 3A 50  33 28 34 29 B2 32 00 A5  |(4).15:P3(4).2..|
00006880: 84 F7 C6 50 4E 24 28 35  29 B2 22 43 41 4C 4C 49  |...PN$(5)."CALLI|
00006890: 4F 50 45 22 3A 50 42 28  35 29 B2 31 36 3A 50 33  |OPE":PB(5).16:P3|
000068A0: 28 35 29 B2 32 00 CC 84  FC C6 50 4E 24 28 36 29  |(5).2.....PN$(6)|
000068B0: B2 22 54 49 54 4C 45 22  20 20 20 3A 50 42 28 36  |."TITLE"   :PB(6|
000068C0: 29 B2 31 36 3A 50 33 28  36 29 B2 31 00 F4 84 01  |).16:P3(6).1....|
000068D0: C7 50 4E 24 28 37 29 B2  22 53 54 41 47 45 22 20  |.PN$(7)."STAGE" |
000068E0: 20 20 3A 50 42 28 37 29  B2 31 33 3A 50 33 28 37  |  :PB(7).13:P3(7|
000068F0: 29 B2 31 32 00 FA 84 37  C7 8E 00 11 85 38 C7 8F  |).12...7.....8..|
00006900: 20 2D 2D 2D 2D 2D 20 56  4F 4C 20 34 20 49 4E 49  | ----- VOL 4 INI|
00006910: 54 00 27 85 3D C7 8F 20  2D 2D 2D 2D 2D 20 4D 49  |T.'.=.. ----- MI|
00006920: 53 43 20 49 4E 49 54 00  40 85 42 C7 8D 35 31 32  |SC INIT.@.B..512|
00006930: 30 30 3A 8D 35 31 33 30  30 3A 89 35 31 34 30 30  |00:.51300:.51400|
00006940: 00 5A 85 00 C8 8F 20 2D  2D 2D 2D 2D 20 56 4F 4C  |.Z.... ----- VOL|
00006950: 20 4D 45 4E 55 20 49 4E  49 54 00 71 85 05 C8 4E  | MENU INIT.q...N|
00006960: 56 B2 34 3A 4D 4D B2 39  3A 86 56 4D 24 28 4D 4D  |V.4:MM.9:.VM$(MM|
00006970: 29 00 8D 85 14 C8 56 4D  24 28 31 29 B2 22 C1 44  |).....VM$(1).".D|
00006980: 56 41 4E 43 45 44 20 C2  C1 D3 C9 C3 22 00 A2 85  |VANCED ....."...|
00006990: 19 C8 56 4D 24 28 32 29  B2 22 C9 C6 2D D4 C8 C5  |..VM$(2)."..-...|
000069A0: CE 22 00 B8 85 1E C8 56  4D 24 28 33 29 B2 22 C6  |.".....VM$(3).".|
000069B0: CF D2 2D CE C5 D8 D4 22  00 CB 85 23 C8 56 4D 24  |..-...."...#.VM$|
000069C0: 28 34 29 B2 22 C9 CE D0  D5 D4 22 00 E6 85 28 C8  |(4)."....."...(.|
000069D0: 56 4D 24 28 35 29 B2 22  D2 C5 C1 C4 20 41 4E 44  |VM$(5).".... AND|
000069E0: 20 C4 C1 D4 C1 22 00 04  86 2A C8 56 4D 24 28 36  | ...."...*.VM$(6|
000069F0: 29 B2 22 C7 CF D3 D5 C2  20 41 4E 44 20 D2 C5 D4  |)."..... AND ...|
00006A00: D5 D2 CE 22 00 23 86 2C  C8 56 4D 24 28 37 29 B2  |...".#.,.VM$(7).|
00006A10: 22 CE 55 4D 45 52 49 43  20 C6 55 4E 43 54 49 4F  |".UMERIC .UNCTIO|
00006A20: 4E 53 22 00 41 86 2E C8  56 4D 24 28 38 29 B2 22  |NS".A...VM$(8)."|
00006A30: D3 54 52 49 4E 47 20 C6  55 4E 43 54 49 4F 4E 53  |.TRING .UNCTIONS|
00006A40: 22 00 55 86 30 C8 56 4D  24 28 39 29 B2 22 D2 45  |".U.0.VM$(9).".E|
00006A50: 56 49 45 57 22 00 79 86  32 C8 86 56 41 28 4D 4D  |VIEW".y.2..VA(MM|
00006A60: 29 3A 8C 35 31 32 35 30  3A 81 49 B2 31 A4 4D 4D  |):.51250:.I.1.MM|
00006A70: 3A 87 56 41 28 49 29 3A  82 00 97 86 4B C8 83 20  |:.VA(I):....K.. |
00006A80: 31 2C 32 2C 35 2C 31 30  2C 31 34 2C 31 37 2C 31  |1,2,5,10,14,17,1|
00006A90: 39 2C 32 34 2C 33 32 00  9D 86 50 C8 8E 00 B5 86  |9,24,32...P.....|
00006AA0: 64 C8 8F 20 2D 2D 2D 2D  2D 20 53 50 52 49 54 45  |d.. ----- SPRITE|
00006AB0: 20 49 4E 49 54 00 E8 86  66 C8 FE 08 32 2C 31 3A  | INIT...f...2,1:|
00006AC0: 8C 35 31 33 30 32 3A 81  49 B2 31 A4 38 3A 87 43  |.51302:.I.1.8:.C|
00006AD0: 2C 50 2C 58 2C 59 2C 4D  3A FE 07 49 2C 30 2C 43  |,P,X,Y,M:..I,0,C|
00006AE0: 2C 50 2C 58 2C 59 2C 4D  00 FE 86 70 C8 FE 06 49  |,P,X,Y,M...p...I|
00006AF0: 2C 30 23 30 3A FE 06 49  2C 30 2C 30 3A 82 00 0E  |,0#0:..I,0,0:...|
00006B00: 87 76 C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 1E  |.v.. 3,0,0,0,1..|
00006B10: 87 78 C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 2E  |.x.. 3,0,0,0,1..|
00006B20: 87 7A C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 3E  |.z.. 3,0,0,0,1.>|
00006B30: 87 7C C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 4E  |.|.. 3,0,0,0,1.N|
00006B40: 87 7E C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 5E  |.~.. 3,0,0,0,1.^|
00006B50: 87 80 C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 6E  |.... 3,0,0,0,1.n|
00006B60: 87 82 C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 7E  |.... 3,0,0,0,1.~|
00006B70: 87 84 C8 83 20 33 2C 30  2C 30 2C 30 2C 31 00 B6  |.... 3,0,0,0,1..|
00006B80: 87 96 C8 53 53 B2 31 3A  53 46 B2 34 3A 53 B2 31  |...SS.1:SF.4:S.1|
00006B90: 38 3A 86 47 55 24 28 53  46 2C 53 53 29 3A 81 53  |8:.GU$(SF,SS):.S|
00006BA0: 31 B2 30 A4 53 53 3A 81  53 30 B2 31 A4 53 46 3A  |1.0.SS:.S0.1.SF:|
00006BB0: 8D 36 30 36 30 30 00 D5  87 A4 C8 47 55 24 28 53  |.60600.....GU$(S|
00006BC0: 30 2C 53 31 29 B2 53 24  3A 53 B2 53 AA 31 3A 82  |0,S1).S$:S.S.1:.|
00006BD0: 53 30 2C 53 31 00 F7 87  AA C8 8C 35 31 33 37 30  |S0,S1......51370|
00006BE0: 3A 81 49 B2 30 A4 53 46  3A 87 53 58 28 49 29 2C  |:.I.0.SF:.SX(I),|
00006BF0: 53 59 28 49 29 3A 82 00  05 88 B2 C8 83 20 32 39  |SY(I):....... 29|
00006C00: 35 2C 32 30 38 00 13 88  B4 C8 83 20 20 20 30 2C  |5,208......   0,|
00006C10: 20 20 30 00 21 88 B6 C8  83 20 20 32 34 2C 20 20  |  0.!....  24,  |
00006C20: 30 00 2F 88 B8 C8 83 20  20 20 30 2C 20 32 31 00  |0./....   0, 21.|
00006C30: 3D 88 BA C8 83 20 20 32  34 2C 20 32 31 00 43 88  |=....  24, 21.C.|
00006C40: C7 C8 8E 00 6C 88 C8 C8  8F 20 2D 2D 2D 2D 2D 20  |....l.... ----- |
00006C50: 56 4F 4C 55 4D 45 20 53  43 52 45 45 4E 20 49 4E  |VOLUME SCREEN IN|
00006C60: 49 54 49 41 4C 49 5A 41  54 49 4F 4E 00 8E 88 CA  |ITIALIZATION....|
00006C70: C8 4D 53 B2 33 34 3A 86  47 4D 28 4D 53 29 2C 47  |.MS.34:.GM(MS),G|
00006C80: 53 28 4D 53 29 2C 47 50  28 4D 53 29 3A 8E 00 A3  |S(MS),GP(MS):...|
00006C90: 88 60 EA 8F 20 2D 2D 2D  2D 2D 20 47 4F 54 4F 20  |.`.. ----- GOTO |
00006CA0: 54 4F 43 00 AE 88 6A EA  8A 36 30 30 31 35 00 C0  |TOC...j..60015..|
00006CB0: 88 6F EA 8D 35 30 30 30  30 3A 89 31 30 35 30 30  |.o..50000:.10500|
00006CC0: 00 DA 88 54 EC 8F 20 2D  2D 2D 2D 2D 20 47 4F 54  |...T.. ----- GOT|
00006CD0: 4F 20 56 4F 4C 20 4D 45  4E 55 00 E5 88 5E EC 8A  |O VOL MENU...^..|
00006CE0: 36 30 35 31 35 00 F7 88  63 EC 8D 35 30 30 30 30  |60515...c..50000|
00006CF0: 3A 89 31 30 38 30 30 00  10 89 B8 EC 8F 20 2D 2D  |:.10800...... --|
00006D00: 2D 2D 2D 20 47 45 54 20  41 20 53 50 52 49 54 45  |--- GET A SPRITE|
00006D10: 00 45 89 BD EC FE 02 30  3A 4A B2 53 42 AA 36 34  |.E.....0:J.SB.64|
00006D20: AC 53 3A 81 49 B2 30 A4  36 33 3A 97 34 30 33 32  |.S:.I.0.63:.4032|
00006D30: AA 49 2C C2 28 4A AA 49  29 3A 82 49 3A FE 16 38  |.I,.(J.I):.I:..8|
00006D40: 2C 53 24 3A 8E 00 79 89  1C ED 8F 20 2D 2D 2D 2D  |,S$:..y.... ----|
00006D50: 2D 20 53 45 54 55 50 20  54 48 45 20 47 52 41 50  |- SETUP THE GRAP|
00006D60: 48 49 43 53 20 44 49 53  50 4C 41 59 20 41 53 20  |HICS DISPLAY AS |
00006D70: 52 45 51 55 45 53 54 45  44 00 96 89 1E ED 8B 47  |REQUESTED......G|
00006D80: 4D B2 31 B0 47 4D B2 33  A7 47 4D B2 47 4D AA 31  |M.1.GM.3.GM.GM.1|
00006D90: 3A 47 53 B2 32 35 00 C3  89 21 ED FE 1A 30 2C 30  |:GS.25...!...0,0|
00006DA0: 2C 33 39 2C 32 34 2C 31  3A 47 30 B2 47 53 3A 8B  |,39,24,1:G0.GS:.|
00006DB0: 47 4D B1 31 30 A7 47 30  B2 30 3A 47 4D B2 47 4D  |GM.10.G0.0:GM.GM|
00006DC0: AB 31 30 00 EC 89 26 ED  8B 47 50 B1 B2 30 A7 E7  |.10...&..GP..0..|
00006DD0: 30 2C 50 42 28 47 50 29  3A E7 34 2C 50 42 28 47  |0,PB(GP):.4,PB(G|
00006DE0: 50 29 3A E7 33 2C 50 33  28 47 50 29 00 0A 8A 28  |P):.3,P3(GP)...(|
00006DF0: ED FE 02 30 3A 8B 47 50  B2 30 B0 47 50 B3 B1 C2  |...0:.GP.0.GP...|
00006E00: 28 31 36 31 39 32 29 A7  FE 18 00 3C 8A 2A ED 8B  |(16192)....<.*..|
00006E10: 47 4D B3 B1 CC 28 30 29  B0 47 50 B1 30 A7 92 35  |GM...(0).GP.0..5|
00006E20: 33 32 36 36 2C 32 35 30  3A 97 35 33 32 36 35 2C  |3266,250:.53265,|
00006E30: C2 28 35 33 32 36 35 29  AF 32 33 39 00 53 8A 2C  |.(53265).239.S.,|
00006E40: ED DE 47 4D 2C 31 2C 30  3A 8B 47 4D B2 34 A7 DE  |..GM,1,0:.GM.4..|
00006E50: 33 2C 31 00 71 8A 30 ED  8B 47 50 B3 B2 30 A7 FE  |3,1.q.0..GP..0..|
00006E60: 18 8B 47 4D B1 30 A7 97  31 36 31 39 32 2C 32 35  |..GM.0..16192,25|
00006E70: 35 00 93 8A 35 ED FE 19  3A D5 FE 18 3A FE 11 28  |5...5...:...:..(|
00006E80: 50 4E 24 28 47 50 29 AA  22 2E 43 22 29 2C 50 37  |PN$(GP).".C"),P7|
00006E90: 31 36 38 00 BB 8A 3A ED  FE 11 28 50 4E 24 28 47  |168...:...(PN$(G|
00006EA0: 50 29 AA 22 2E 50 22 29  2C 50 38 31 39 32 3A 97  |P).".P"),P8192:.|
00006EB0: 31 36 31 39 32 2C 47 50  3A FE 19 00 E5 8A 3E ED  |16192,GP:.....>.|
00006EC0: FE 02 31 35 3A 92 35 33  32 36 36 2C 32 35 30 3A  |..15:.53266,250:|
00006ED0: 97 35 33 32 36 35 2C C2  28 35 33 32 36 35 29 B0  |.53265,.(53265).|
00006EE0: 31 36 3A FE 19 00 F3 8A  44 ED DE 47 4D 2C 2C 47  |16:.....D..GM,,G|
00006EF0: 30 3A 8E 00 09 8B E4 ED  8F 20 2D 2D 2D 2D 2D 20  |0:....... ----- |
00006F00: 42 4F 4F 4B 20 4C 4F 41  44 00 40 8B EE ED 47 50  |BOOK LOAD.@...GP|
00006F10: B2 31 3A 47 4D B2 31 32  3A 47 53 B2 32 35 3A 8D  |.1:GM.12:GS.25:.|
00006F20: 36 30 37 30 30 3A 49 24  B2 22 22 3A 81 49 B2 31  |60700:I$."":.I.1|
00006F30: A4 32 38 3A 49 24 B2 49  24 AA 22 20 22 3A 82 49  |.28:I$.I$." ":.I|
00006F40: 00 5A 8B F8 ED 81 49 B2  32 A4 32 32 3A E0 2C 36  |.Z....I.2.22:.,6|
00006F50: 2C 49 2C 49 24 3A 82 49  3A 8E 00 00 00           |,I,I$:.I:....   |

..>.... "I AM A C128 VOLUME 4 SHELL 2.3 
VERSION 04/21/86 12:37.M.... "WRITTEN BY
 BRUCE MORGAN AND EDWIN REICH...... "COP
YRIGHT 1986 ACTIVISION...2.. 11091:. STA
RT AT VOLUME MENU.P.D.. ----- CHECK FOR 
KEYPRESS...L.KB..1:SD.0:.KB$:.KB$.""....
.T..KB$.HP$.10000...V.KB.SK(T(SK$,KB$)).
2.X..KB.3.SD.1:U.KB.0.SD.2.H....KB.60000
,60500:..P.... ----- WAIT FOR A KEYBOARD
 COMMAND... ..208,0:.:.100:..KB..0:....H
.. ----- WAIT FOR ANY KEY.E.R..208,0:.:.
100:..KB..1:....... ----- DELAY FOR (DV)
 LOOPS WHILE CHECKING KEYBOARD.$....208,
0:.DV.DV.0..1:.100:.KB.1..DV.*.....V.6..
 ----- CENTER UP$(UP) ON 24 IN WHITE, DO
ESN'T CHANGE COLOR OR POSITION...8..L(0)
.0.GS.25...:.G(27)"O";:.I.0.7:I(I).B(224
.I)...;..:I..(X):J.B(235):K.M(5):.5,F1:.
.0,24,39,24,1...@...20.C(UP$(UP)).2)UP$(
UP);:.5,K:.235,J:.236,I.B.E..I.0.7:.224.
I,I(I):.:..:U..I.B(4446):J.B(4447).~.J.K
.M(1):.1,F1:.,0,24,SP$:.,20.C(UP$(UP)).2
,24,L$.UP$(UP)...O..1,K:.4446,I:.4447,J:
... .T...P.... ----- CYCLE GUIDE AND WAI
T FOR A KEYPRESS......900:.310:.150:U1.U
P:UP.0:.310:UP.U1:..  ... ----- ENABLE S
PRITES FROM HS().: ...I.1.8:..I,HS(I):.I
:..U X.. ----- DISABLE SPRITES AND SAVE 
ENABLE STATUS IN HS().. B..I.1.8:HS(I).N
.(I,0):..I,0:.I:..O ... ----- POSITION G
UIDE AND CYCLE THROUGH MOVEMENT..!...I.1
.SF:..I,SX(0).SX(I),SY(0).SY(I):.I:.SP.S
S.SP.0.;!...I.1.SF:..GU$(I,SP),I:..I,1:H
S(I).1:.I:SP.SP.1:..Z!... ----- VOLUME S
CREEN LOOP..!...:RS.0:UP.1:GM.GM(CS):GS.
GS(CS):GP.GP(CS):.60700..!..I.TM:.GS..0.
GS.20.I.GS.V!....0,I,39,24,1:.1100:.(RS.
1).0.UP.1:.400..!)..KB..4.CS.CS.1:U.(RS.
254)..2.CS.CS.1.%"....(CS.1.CS.MS):.CS.0
.60500:U60000.E"L.. ----- VOLUME 4 DISPA
TCHER.W"Q.. CS..10 . ... "V.:  . CS .110
00,11500,12000,13000,13500,13600,14500,1
5000,15500,16500.."[.:  ...D"`.. CS.10 .
 CS..20 . ....#E.:  .CS.10.17000,18000,1
9000,20000,21000,21500,22000,22500,23500
,24000..#J.:  ...2#O.. CS.20 . CS..30 . 
...|#T.:  .CS.20.25000,25500,26000,27000
,27200,27500,28500,29500,30000,30500..#Y
.:  ... #~.. CS.30 . CS..40 . ...F#..:  
.CS.30.31500,32500,33000,33500.P#..:  ..
.V#.....$... ----- FLASH CURSOR WHILE WA
ITING FOR A KEYPRESS.@$....15:CA.B(224).
B(225).256.B(236):CO.B(CA):CB.CO.}$..NA.
(CA.1023).55296:NO.B(NA):.NA,M(5).1:.:CB
.(CB.128).255..$F..CA,CB:.DV.1.10:.100:.
KB..1..DV..$N...KB..1:.CA,CO:.NA,NO:...%
... ----- FLASH CURSOR WHILE WAITING FOR
 A SPECIAL KEY (EXCEPT SPACE)."%...:.120
0:..KB$." ".SD.0:..M%... ----- ACCEPT IN
PUT (A$) OF LENGTH CL AT CX,CY WITH DELE
TE AND RETURN..%...236,CX:.235,CY:I.CY.4
0:.224,I..(I.256).256:.225,I.256.4.I%...
226,B(224):.227,I.256.216..&... ----- AC
CEPT INPUT (A$) OF LENGTH CL AT CURSOR W
ITH DELETE AND RETURN.<&"..208,0:A$."":.
:.1200:.KB$." ".KB.0.I&,..KB.0....~&...(
(KB$.G(31).KB$.G(129)).KB$.G(159)).C(A$)
.CL.....&0..KB$;:A$.A$.KB$:...A&6..KB$.G
(20).C(A$).0....C(A$).1.A$."":U...Y&>.A$
.H(A$,C(A$).1):....&B..KB$;:....&F.....&
H...KB.0:..#'X.. ----- ACCEPT CURSOR AND
 ARROW KEYS.Y'{...0,GS,39,23:I.(24.GS).2
.GS:.236,19:.235,I:I.I.40..'...224,I.(.(
I.256).256):.225,I.256.4:.226,B(224)..'.
..227,I.256.216:.208,0:.310..'..A$.G(145
).G(17).G(157).G(29):.C$(F2)S0$;:.:.1200
..(...(CX.0.CX.KX).T(A$,KB$).0..KB$;:KB.
0."( ...KB.0:.C$(F1)S1$;:..N(... ----- P
ROMPT USER FOR RETURN, WAIT FOR A SPECIA
L NON-SPACE (W/CURSOR)..(..UP.2:.310:.90
0:.1250:.:UP.0:.310:...(... ----- ACCEPT
 # INPUT (A) OF LENGTH CL AT CX,CY WITH 
DELETE AND RETURN..)...236,CX:.235,CY:I.
CY.40:.224,I..(I.256).256:.225,I.256.4.=
)...226,B(224):.227,I.256.216..)... ----
- ACCEPT # INPUT (A) OF LENGTH CL AT CUR
SOR WITH DELETE AND RETURN..)...208,0:A$
."":.:.1200:.KB$." ".KB.0..)...KB.0.....
)...(KB$.."0".KB$.."9").C(A$).CL..KB$;:A
$.A$.KB$..*...KB$.G(20).C(A$).0....C(A$)
.1.A$."":U...4*..A$.H(A$,C(A$).1):...A*.
..KB$;:...H*.....]*....KB.0:A.E(A$):..V*
.'. ----- DISPLAY HELP..*.'..15:.600:HG.
L(0):HB.M(4):I.53265:J.56576..*.'.K.1.3:
HX(K).N.(K,0):HY(K).N.(K,1):HC(K).N.(K,1
):...+$'.I,B(I).239:.J,B(J).252:.4,B1:.1
.(+&'..1,293,191:..2,317,191:..3,317,212
.H+)'.K.1.3:..K,1,9:.:.I,B(I).16.X+.'.:.
.KB$:..KB$.HP$:KB$."":.208,0:.I,B(I).239
. +3'.K.1.3:..K,HX(K),HY(K):..K,,HC(K):.
..+8'.J,B(J).3:.HG,,GS:.500.Z+='.53265,B
(53265).16:.4,HB:...,<(. ----- WAIT FOR 
A MENU COMMAND (MK,MK$).(,F(.:..MK$:MK.0
:.MK$.HP$..10000.L,P(..(MK$.HP$):MK.SK(T
(SK$,MK$)):..., (. ----- WAIT FOR A MENU
 KEY, HILITE ANY NUMBER SELECTED.J,.(MW.
0:.I.1.MN:V$(I).G(48.I).".".T$.V$(I):J.C
(V$(I)):.J.MW.MW.J..-.(.I:MP.20.MW.2:.1,
B1:.I.1.MN:V$(I).V$(I).H(SP$,MW.C(V$(I))
).*-.(.,MP,I.5,L$.V$(I):.I:.GM,,GS.`-.(M
I..1:.:.10300:M2.F(MK$).48:.MK.0.M2..1.M
2..MN.....-.(.MI...1.MI..M2..1,MP,5.MI,L
$.V$(MI)..-.(MI.M2:.1,MP,5.M2,L$.V$(MI),
1:...T-H(..(MK.1.(MI...1.MK$.G(13))):.1,
F1:...-.). ----- TABLE OF CONTENTS.#..).
600:.60900:.1,B1:.,12,3,"TABLE OF CONTEN
TS".G..).,11,20,L$."TYPE A VOLUME NUMBER
":.,13,21,L$."AND PRESS RETURN"...")MN.9
:.:.I.1.9:V$(I).VL$(I):.I...,).10400:..M
K.1.F.6).MI.NV.60500:U.1:.("VOLUME.".G(4
8.MI))...0*. ----- VOLUME MENU...5*.600:
.60900:.1,B1.4/:*.,15,3,L$."VOLUME ".G(4
8.NV):.,19.C(VL$(NV)).2,4,L$.VL$(NV).P/?
*.I.1.MM:V$(I).VM$(I):.I../D*.,14,20,L$.
"TYPE A NUMBER":.,13,21,L$."AND PRESS RE
TURN"../I*MN.MM:.10400:.MK.60000:CS.VA(M
I):.1000..0.*. ----- VOLUME 4 SCREENS --
----------------------------------------
----..0.*. ----- SCREEN 1.50.+. .13);"AD
VANCED BASIC".;0.+..J0.+. "THIS PART OF 
THE GUIDED TOUR WILL TELL"..0.+. "YOU AB
OUT SOME OF BASIC'S MOST USEFUL"..0.+. "
COMMANDS AND FUNCTIONS."..0.+...0 +. "WI
TH THEM YOU'LL BE ABLE TO WRITE"..1%+. "
PROGRAMS THAT REPEAT THE SAME".81*+. "IN
STRUCTIONS AS MANY TIMES AS YOU".D1/+. "
WANT, THAT PERFORM SPECIFIC SETS OF"..14
+. "INSTRUCTIONS, THAT DO DIFFERENT THIN
GS"..19+. "IN DIFFERENT SITUATIONS."..1>
+...1C+. "YOU'LL ALSO BE ABLE TO MAKE A 
PROGRAM"..2H+. "STOP AND WAIT FOR INPUT,
 AND YOU'LL BE".E2M+. "ABLE TO MAKE USE 
OF THE INPUT IN MANY".]2O+. "DIFFERENT W
AYS.".C2R+..V2S+. JG.1 . 11094.2T+JG.1.
.2U+.. "BTST128"..2V+. 4633,00:. 4634,14
:. 4095,4..2W+B..(0).E2X+JG.0.N2Y+. 50..
2.,. ----- SCREEN 2..2.,..0,1,39,24..3.,
. .16);"IF-THEN"..3.,..93.-. "SOMETIMES 
YOU WANT A PROGRAM TO DO"._3.-. "DIFFERE
NT THINGS IN DIFFERENT"..3.-. "SITUATION
S. WHEN THAT'S THE CASE,"..3.-. "YOU USE
 AN IF-THEN STATEMENT."..3.-...3.-. "AN 
IF-THEN STATEMENT WORKS LIKE THIS."..3.-
...4#-. "YOU WANT YOUR COMPUTER TO GO TO
 LINE 50".H4(-. "AND FOLLOW A SPECIAL IN
STRUCTION THERE"._4--. "IF B EQUALS 3.".
E42-...47-. "SO YOU WRITE A BASIC STATEM
ENT THAT".A4<-. "TELLS THE COMPUTER, IF 
B EQUALS 3, THEN"..4A-. "GO TO LINE 50 A
ND FOLLOW THE INSTRUCTION"..5F-. "THERE.
"..5K-..05P-. "THE IF-THEN STATEMENT LOO
KS LIKE".>5R-. "THIS:".D5U-..A5Z-."IF B 
= 3 THEN GOTO 50".G5D-..|5... ----- SCRE
EN 3..5.... 0,1,39,24..5... "HERE'S A PR
OGRAM USING IF-THEN."..5.....5... "LINE 
10 TELLS THE COMPUTER WHAT B"..6... "EQU
ALS. LINE 20 TELLS THE COMPUTER THAT".D6
... "IF B EQUALS 3, IT SHOULD GO TO LINE
 50".B6./. "AND PRINT B EQUALS 3.".H6./.
..6./. "IF B DOESN'T EQUAL 3, THE COMPUT
ER GOES".F6./. "TO LINE 30 AND PRINTS B 
DOESN'T EQUAL"..6./. "3. THEN IT GOES TO
 LINE 40 AND ON TO "..7./. "LINE 60, WHE
RE THE PROGRAM ENDS.".#7!/..T7&/. "TYPE 
IN A NUMBER FOR B AND PRESS RETURN.".Z7+
/..J70/. "10 B = "..75/. "20 IF B = 3 TH
EN GOTO 50"..7:/. "30 PRINT "DQ$"B DOESN
'T EQUAL 3."DQ$.I7?/. "40 GOTO 60..7D/. 
"50 PRINT "DQ$"B EQUALS 3."DQ$..7I/. "60
 END"..8N/. "RUN";:CL.3:CX.7:CY.15.:8S/.
 1500:A3.A:. SD.2 . RS.1:..C8U/. ,3,20,"
": .  FOR THE RUN STATEMENT.~8X/. 1450:.
 SD.2 . RS.1:...8B/.A3.3 . . "B EQUALS 3
.":U . "B DOESN'T EQUAL 3."..8./..N8H2. 
----- SCREEN 4..8M2. "YOU CAN USE ANY OF
 THESE SYMBOLS IN AN "..9R2. "IF-THEN ST
ATEMENT:"..9W2..69.2. "=  IS EQUAL TO".Q
9.2. ">  IS GREATER THAN".I9.2. "<  IS L
ESS THAN"..9.2. "<> IS NOT EQUAL TO"..9.
2. ">= IS GREATER THAN OR EQUAL TO".O9.2
. "<= IS LESS THAN OR EQUAL TO".U9.2...9
.4. ----- SCREEN 5..:F4. .16);"FOR-NEXT"
..:K4..6:P4. "YOU CAN GIVE THE C128 INST
RUCTIONS THAT".G:U4. "MAKE IT DO THE SAM
E THING OVER AND OVER."..:Z4. "SUCH AN I
NSTRUCTION IS CALLED A LOOP."..:.4..G:.4
. "ONE OF THE SIMPLEST BUT MOST USEFUL".
.:.4. "LOOPS IS THE FOR-NEXT LOOP."..:.4
...; 5. ----- SCREEN 6.7;$5. "THE PROGRA
M BELOW HAS A FOR-NEXT LOOP IN".[;%5. "I
T. PRESS RETURN TO RUN IT.".A;*5..{;/5. 
"10 FOR C = 1 TO 3"..;45. "20 PRINT "DQ$
"AHH-"DQ$..;95. "30 NEXT C".J;>5. "40 PR
INT "DQ$"CHOO!"DQ$.Y;C5. "50 END"..;H5. 
"RUN";..<M5. 1450:. SD.2 . RS.1:.. <R5. 
I.0.2:."AHH-":.:."CHOO!".&<Z5..;<.8. ---
-- SCREEN 7.L<.8.. 0,0,39,24.|<.8. "FOR-
NEXT USES VARIABLE C TO KEEP COUNT."..<.
8...<B8. "FOR EVERY NUMBER THAT C EQUALS
 FROM 1 TO"..<G8. "3, FOLLOW THE INSTRUC
TIONS UNTIL YOU"..<L8. "REACH NEXT."..<Q
8..+=V8. "THE C128 THEN EXECUTES LINE 20
, PRINTING".9=X8. "AHH-.".?=.8..R=.8. "L
INE 30 SAYS, "DQ$"GO ON TO THE NEXT VALU
E"..=.8. "OF C, AND GO BACK TO THE LINE 
WITH THE".A=.8. "FOR STATEMENT IN IT."DQ
$.G=.8...=.8. "WHEN C EQUALS 3, LINE 10 
SAYS, "DQ$"FOLLOW".*>.8. "THE INSTRUCTIO
NS UNTIL YOU COME TO NEXT".\>.8. "-- AND
 KEEP GOING."DQ$" THE COMPUTER THEN"..>.
9. "PRINTS CHOO!, AND THE PROGRAM ENDS."
..>.9...>.9. "10 FOR C = 1 TO 3".F>.9. "
20 PRINT "DQ$"AHH-"DQ$.X>!9. "30 NEXT C"
..>&9. "40 PRINT "DQ$"CHOO!"DQ$..?+9. "5
0 END"..?09..!?.:. ----- SCREEN 8.K?.:. 
"YOU DON'T HAVE TO STEP THROUGH A ".{?.:
. "FOR-NEXT LOOP ONE NUMBER AT A TIME. T
HE"..?.:. "STEP COMMAND LETS YOU REPEAT 
A FOR-".T?.:. "NEXT LOOP IN WHATEVER SIZ
E STEPS YOU"..?.:. "WANT."..?.:...@.:. "
THE STEP COMMAND LOOKS LIKE THIS:"..@.:.
.;@.:. "10 FOR D = 66 TO 99 STEP 3".N@E:
. "20 PRINT D".`@J:. "30 NEXT D".O@L:. "
40 END".U@M:...@N:. "THIS PROGRAM WILL P
RINT 66, 69, 72,".A@O:. "AND SO FORTH, U
P TO 99.".G@T:...@.<. ----- SCREEN 9..A.
<. "YOU CAN ALSO STEP BACKWARDS INSTEAD 
OF".5A.<. "FORWARDS. PRESS RETURN TO RUN
 THE".LA <. "PROGRAM BELOW.".RA.<..UA.<.
 "10 FOR E = 10 TO 1 STEP -1"..A.<. "20 
PRINT E"..A.<. "30 NEXT E"..A.<. "40 PRI
NT "DQ$"LIFT-OFF!"DQ$.LA.<. "50 END".YAC
<. "RUN";..AH<. 1450:. SD.2 . RS.1:...BM
<. I.10.1..1:.I:.:. "LIFT-OFF!"..BR<..3B
T@. ----- SCREEN 10.DB{@.. 0,0,39,24.WB~
@. .17);"INPUT".]B.@...B.@. "ONE WAY TO 
ENTER A VALUE INTO A PROGRAM"..B.@. "IS 
TO WRITE AN INSTRUCTION LIKE THIS:".AB.@
..RB.@. "10 F = 4".XB.@...C.@. "BUT OFTE
N YOU'LL WANT TO BE ABLE TO".4C.@. "ENTE
R A VALUE INTO A PROGRAM WHILE IT'S".AC.
@. "RUNNING. FOR THAT, YOU USE THE INPUT
".RC.@. "COMMAND:".XC.@...C.@. "10 INPUT
 F"..C.@."..CD@. "WHEN YOU RUN A PROGRAM
 WITH AN INPUT"..CI@. "COMMAND IN IT, TH
E COMPUTER STOPS WHEN"..DN@. "IT COMES T
O THE INPUT COMMAND. IT ".:DS@. "PROMPTS
 YOU LIKE THIS --".@DX@..JD.@. "?".PD.@.
.YD.@. "TO LET YOU KNOW IT'S WAITING FOR
"..D.@. "YOU TO ENTER A VALUE."..D.@...D
HB. ----- SCREEN 11..DRB. "THE PROGRAM B
ELOW HAS AN INPUT COMMAND"..EWB. "IN IT.
 PRESS RETURN AND THE COMPUTER".:E|B. "W
ILL PROMPT YOU TO ENTER A NUMBER.".@E.B.
.OE.B. "TYPE IN A NUMBER AND PRESS RETUR
N. THE"..E.B. "PROGRAM WILL TELL YOU HOW
 MANY DIMES".CE.B. "ARE IN THAT NUMBER O
F DOLLARS.".IE.B...E.B. "10 INPUT F"..E.
B. "20 PRINT F * 10"..F.B. "30 END"..F.B
. "RUN";.+F.B. 1450:. SD.2 . RS.1:..]F.B
. "?";:CL.3:CX.2:CY.14:. 1500:. SD.2 . R
S.1:..JF.B.:. A.10.PF.C...FPF. ----- SCR
EEN 12..FZF. "IT'S A GOOD IDEA WHEN YOU'
RE USING AN"..F_F. "INPUT COMMAND TO ADD
 A MESSAGE THAT"..GDF. "EXPLAINS WHAT TH
E COMPUTER IS WAITING"..GIF. "FOR.".!GNF
..PGSF. "PRESS RETURN TO RUN THE PROGRAM
 BELOW,"..GXF. "AND YOU'LL SEE THE DIFFE
RENCE IT MAKES."..G}F. "REMEMBER TO PRES
S RETURN AGAIN AFTER".UG.F. "YOU'VE TYPE
D IN A NUMBER FOR G."..G.F...H.F. "10 IN
PUT "DQ$"HOW OLD ARE YOU"DQ$";G"..H.F. "
20 G = G * 12".\H.F. "30 PRINT "DQ$"YOU'
RE ABOUT"DQ$";G;"DQ$"MONTHS OLD."DQ$.KH.
F. "40 END".XH F. "RUN";..H.F. 1450:. SD
.2 . RS.1:..EH.F. "HOW OLD ARE YOU?";:CL
.3:CX.17:CY.17:. 1500.YH.F. SD.2 . RS.1:
...I.F.:. "YOU'RE ABOUT"A.12"MONTHS OLD.
"..I.F...I8J. ----- SCREEN 13.NIBJ. "YOU
 CAN ALSO USE A STRING VARIABLE IN AN".G
IGJ. "INPUT STATEMENT.".MILJ...IQJ. "PRE
SS RETURN TO SEE HOW THE EXAMPLE"..IVJ. 
"BELOW WORKS."..I[J...I`J. "10 INPUT "DQ
$"WHAT'S YOUR NAME"DQ$";H$"..JEJ. "20 PR
INT "DQ$"HELLO, "DQ$";H$"..JJJ. "30 END"
.%JOJ. "RUN";.@JTJ. 1450:. SD.2 . RS.1:.
.[JYJ. "WHAT'S YOUR NAME?";..J~JCL.15:CX
.18:CY.12:. 1300:. SD.2 . RS.1:...J.J.:.
 "HELLO, "A$..J.J...J N. ----- SCREEN 14
.IJ'N.. 0,0,39,24..J*N. .12)"READ AND DA
TA"..J/N...K4N. "YOU CAN USE THE READ CO
MMAND TO TAKE".DK9N. "INFORMATION FROM A
 DATA STATEMENT AND".NK>N. "PUT IT INTO 
A VARIABLE, WHERE THE"..KCN. "PROGRAM CA
N MAKE USE OF IT."..KHN..DKMN. "THE PROG
RAM BELOW FINDS THE AVERAGE"..KRN. "TEMP
ERATURE FOR A WEEK IN JUNE. PRESS"..LWN.
 "RETURN TO RUN IT."..L\N..6LAN. "10 S =
 0 : REM SET S TO ZERO.PLFN. "20 FOR L =
 1 TO 7".BLKN. "30 READ T"..LPN. "40 S =
 S + T :REM ADD TEMPERATURES UP"..LUN. "
50 NEXT L".SLZN. "60 A = S/7 :REM FIND A
VERAGE TEMPERATURE"..MN. "70 PRINT "DQ$
"THE AVERAGE TEMPERATURE WAS"DQ$";A"..M.
N. "80 END".FM.N. "90 DATA 72, 75, 67, 7
0, 71, 71, 76".SM.N. "RUN";.NM.N. 1450:.
 SD.2 . RS.1:...M.N. "THE AVERAGE TEMPER
ATURE WAS 71.714"..M.N...M.R. ----- SCRE
EN 15..M.R."THE READ-DATA COMMAND WORKS 
LIKE THIS:"..M.R...M!R. ". . ."..N&R. "3
0 READ K"..N+R. ". . .".AN0R."90 DATA 72
, 75, 67, 70, 71, 71 ,76".GN5R..WN:R. "L
INE 30 TELLS THE COMPUTER TO GO TO THE".
.N?R."DATA STATEMENT AND TO MAKE T EQUAL
 TO".BNDR."THE FIRST VALUE THERE.".HNIR.
..NNR."WHEN THE COMPUTER GOES THROUGH TH
E FOR-".&OSR."NEXT LOOP AGAIN, LINE 30 T
ELLS IT TO GO".UOXR."TO THE DATA STATEME
NT AGAIN AND TO MAKE"..O]R."T EQUAL TO T
HE NEXT VALUE THERE. THE"..OBR."COMPUTER
 GOES THROUGH THE FOR-NEXT LOOP"..OGR."S
EVEN TIMES, AND IT READS INTO T EACH OF"
..PLR."THE SEVEN NUMBERS THERE, IN ORDER
."..PQR..&P.S. ----- SCREEN 16.SP.T. "TH
ERE ARE A FEW IMPORTANT THINGS YOU".|P.T
. "NEED TO KNOW ABOUT THE READ-DATA"..P.
T. "COMMAND:"..P.T..BP.T. "THE VALUES IN
 A DATA STATEMENT MUST BE"..P.T. "SEPARA
TED BY COMMAS."..P.T...Q.T."YOU CAN HAVE
 AS MANY READ AND DATA".=Q$T. "STATEMENT
S IN A PROGRAM AS YOU WANT, ".JQ)T. "BUT
 THE DATA STATEMENTS MUST INCLUDE"..Q.T.
 "ENOUGH VALUES FOR THE COMPUTER TO READ
".CQ3T. "ONE EVERY TIME IT COMES TO A RE
AD".VQ5T. "STATEMENT."..Q8T...R=T. "DATA
 STATEMENTS CAN GO ANYWHERE IN".4RBT. "A
 PROGRAM. READ COMMANDS ALWAYS READ".`RG
T. "VALUES, IN ORDER, STARTING WITH THE"
..RIT. "FIRST VALUE IN THE DATA STATEMEN
T"..RLT. "WITH THE LOWEST LINE NUMBER.".
.RVT..KR.U. ----- SCREEN 17..R.U. .12);"
GOSUB AND RETURN"..R.U...S.U."SOMETIMES 
YOU'LL FIND YOURSELF USING THE".MS.V."SA
ME SET OF INSTRUCTIONS OVER AND OVER".ZS
.V."IN DIFFERENT PARTS OF A PROGRAM TO D
O"..S.V."THE SAME THING. YOU CAN MAKE TH
OSE".KS.V."INSTRUCTIONS INTO A SUBROUTIN
E.".QS.V...T.V."A SUBROUTINE IS A SERIES
 OF INSTRUCTIONS".)T"V."SET APART FROM T
HE MAIN PROGRAM."./T'V..]T,V."WHENEVER Y
OU WANT TO RUN A SUBROUTINE,"..T1V."YOU 
USE A GOSUB COMMAND. IT TELLS YOUR"..T6V
."COMPUTER TO GO TO THE SUBROUTINE AND".
JT;V."EXECUTE IT.".PT@V...TEV."AT THE EN
D OF THE SUBROUTINE, YOU USE A".$UJV."RE
TURN COMMAND. IT TELLS YOUR".KUOV."COMPU
TER TO RETURN TO THE PLACE".TUTV."IN THE
 MAIN PROGRAM WHERE IT LEFT"..UYV."OFF."
..U^V...U.W. ----- SCREEN 18..U.W.. 0,0,
39,24..U.W. "THE PROGRAM BELOW CONTAINS 
A SUBROUTINE."..U.W...V.W. "LINE 30 TELL
S THE COMPUTER TO GO TO THE".4V.X. "SUBR
OUTINE AT LINE 100.".:V.X..`V.X. "THE CO
MPUTER THEN FOLLOWS THE"..V.X. "INSTRUCT
ION AT LINE 110, AND LINE 120"..V.X. "TE
LLS IT TO RETURN TO THE MAIN PROGRAM.".D
V.X...V X. "PRESS RETURN TO RUN THE PROG
RAM BELOW."..W%X. "TYPE 0 (ZERO) TO STOP
 THE PROGRAM.".$W*X..QW/X. "10 INPUT "DQ
$"HOW MANY METERS"DQ$";P".RW4X. "20 IF P
 = 0 THEN GOTO 60"..W9X. "30 GOSUB 100".
CW>X. "40 PRINT P; "DQ$"METERS EQUALS"DQ
$";Q;"DQ$"FEET."DQ$.VWCX. "50 GOTO 10"..
WHX. "60 END"..XMX. "100 REM THIS IS THE
 SUBROUTINE.$XRX. "110 Q = P * 3.28".7XW
X. "120 RETURN".[X\X. "RUN";:. 1450:. SD
.2 . RS.1:..WXAX.. 0,12,39,22:.,0,10,"".
.XCX. "HOW MANY METERS?";:CL.3:CX.17:CY.
22..XFX. 1500:. SD.2 . RS.1:..KXKX. A.0 
. ...XPX.:. A;"METERS EQUALS";A.3.28;"FE
ET."..YUX. 22627..Y.Y...YL[. ----- SCREE
N 19.;YV[. .11);"NUMERIC FUNCTIONS".AY.[
..OY.[. "BASIC HAS OVER 40 FUNCTIONS THA
T MAKE"..Y.[. "IT EASY FOR YOU TO GET CE
RTAIN KINDS OF"..Y.[."USEFUL INFORMATION
."..Y.[...Y.[."NUMERIC FUNCTIONS GIVE YO
U A NUMBER. THE"..Z.[. "NUMBER MIGHT BE 
THE RESULT OF A".HZ.[. "CALCULATION, OR 
IT MIGHT BE INFORMATION".OZ.\."THAT'S ST
ORED SOMEWHERE IN YOUR"..Z.\. "COMPUTER'
S MEMORY."..Z.\...Z.]. ----- SCREEN 20..
ZG].. 0,0,39,24.UZJ]. .12);"THE INT FUNC
TION"..ZO]...[T]. "THE INTEGER FUNCTION 
TAKES AWAY ANYTHING".-[Y]. "AFTER THE DE
CIMAL POINT.".3[.]..A[.]. "THE INTEGER F
UNCTION LOOKS LIKE THIS:".G[.]..{[.]. "I
NT(NUMBER)"..[.]...[.]. "THE NUMBER IN P
ARENTHESES CAN BE A"..[.]. "CONSTANT LIK
E 12.83, A VARIABLE LIKE A,"..[.^. "OR A
 CALCULATION LIKE 9/2."..\.^..5\.^. "PRE
SS RETURN FOR THE RESULTS OF EACH OF".M\
.^. "THESE EXAMPLES:".S\.^..L\.^. "PRINT
 INT(5.33)";..\.^. 1450:. SD.2 . RS.1:..
.\!^. .(5.33)..\$^. "PRINT INT(5.67)";.I
\)^. 1450:. SD.2 . RS.1:..W\+^. .(5.67).
.\.^. "S = 0.125"..\3^. "PRINT INT(S)";.
.]8^. 1450:. SD.2 . RS.1:..)]:^. .(0.125
)./]=^..E].A. ----- SCREEN 21.C].A. .11)
;"THE RND FUNCTION".I].A...].A. "YOU CAN
 USE THE RND FUNCTION TO GENERATE".I]AA.
 "RANDOM NUMBERS. THE RND FUNCTION LOOKS
"..]FA."LIKE THIS:"..]KA...]PA. "RND(0)"
..]UA...^ZA."THE NUMBER IN PARENTHESES D
OESN'T".L^.A."MATTER -- THE RANDOM NUMBE
RS THAT THE".Z^.A."RND FUNCTION GENERATE
S ARE ALWAYS NINE"..^.A."DIGITS LONG AND
 BETWEEN 0.000000001 AND"..^.A. "0.99999
9999.".D^.A..Z^.C. ----- SCREEN 22..^.C.
. 0,0,39,24.._.C. .12)"THE SQR FUNCTION"
.._.C..=_.C. "THE SQUARE ROOT FUNCTION G
IVES YOU THE".N_.C. "SQUARE ROOT OF A NU
MBER. THE SQUARE ROOT".._.C. "FUNCTION L
OOKS LIKE THIS:".._.C..._DC. "SQR(NUMBER
)".._IC..._NC. "THE NUMBER IN PARENTHESE
S CAN BE A"..`SC. "CONSTANT, A VARIABLE,
 OR A CALCULATION,".7`XC. "BUT IT CANNOT
 BE A NEGATIVE NUMBER.".=`.C..M`.C. "PRE
SS RETURN TO SEE THE RESULTS OF EACH"..`
.C. "OF THESE EXAMPLES:"..`.C...`.C. "PR
INT SQR(25)";..`.C. 1450:. SD.2 . RS.1:.
.L`.C. .(25)..`.C. "PRINT SQR(49 + 64)";
..A.D. 1450:. SD.2 . RS.1:...A.D. .(49.6
4)."A.D. "A = 154".8A.D. "PRINT SQR(A)";
.SA.D. 1450:. SD.2 . RS.1:..`A.D. .(154)
.FA.D..|A.E. ----- SCREEN 23..A.E.. 0,0,
39,24..A.E. .11);"THE ABS FUNCTION"..A.E
...A.E. "THE ABSOLUTE VALUE FUNCTION GIV
ES YOU"..B.E. "THE POSITIVE VALUE OF A N
UMBER. IT LOOKS".#B.E. "LIKE THIS:".)B.E
..=B.E. "ABS(NUMBER)".CB.E..NBBE. "THE N
UMBER IN PARENTHESES CAN BE A"..BGE. "CO
NSTANT, A VARIABLE, OR A CALCULATION."..
BLE..TBQE. "PRESS RETURN TO SEE THE RESU
LTS OF EACH"..BVE. "OF THESE EXAMPLES:".
.B.E..#C.E. "PRINT ABS(-5)";:. 1450:. SD
.2 . RS.1:...C.E. " 5".BC.E. "A= (-3) * 
8".OC.E. "PRINT ABS(A)";:. 1450:. SD.2 .
 RS.1:..{C.E. " 24"..C.E. "PRINT SQR(ABS
(-144))";:. 1450:. SD.2 . RS.1:...C.E. "
 12".BC.E..XCXI. ----- SCREEN 24..C.I. .
12)"STRING FUNCTIONS"..C.I..%D.I. "EVERY
 CHARACTER THAT THE C128 CAN".QD.I. "DIS
PLAY OR YOU CAN TYPE IN FROM THE".D.I. 
"KEYBOARD HAS A NUMBER THAT IDENTIFIES".
.D.I. "IT, CALLED A CHARACTER STRING COD
E.".VD I. "IT'S THE VALUE THAT REPRESENT
S THE"..E.I. "CHARACTER IN THE COMPUTER'
S MEMORY."..E.I..1E.I. "THE CODES FOR TH
E USUAL KEYBOARD".]E.I. "CHARACTERS, LIK
E THE LETTERS OF THE"..E.I. "ALPHABET AN
D THE NUMERALS 1 TO 9, BELONG"..E.I. "TO
 A STANDARD SET OF CODES CALLED ASCII.".
.ECI. "THEY'RE THE SAME ON ALMOST ALL"..
EHI. "COMPUTERS."..EMI...FRI...F@J. ----
- SCREEN 25.KFJJ. "COMMODORE ASCII ALSO 
INCLUDES CODES FOR".XFOJ. "THE SPECIAL C
128 GRAPHICS CHARACTERS"..FTJ. "THAT OTH
ER COMPUTERS DON'T HAVE."..FYJ..WF^J. "T
HERE ARE 256 CHARACTER STRING CODES IN".
.FCJ. "COMMODORE ASCII. BASIC HAS FOUR".
*GHJ. "FUNCTIONS THAT MAKE IT EASY TO US
E".JGMJ. "CHARACTER STRING CODES.".PGRJ.
.FGLK. ----- SCREEN 26.WGSK.. 0,0,39,24.
.GVK. .12)"THE ASC FUNCTION"..G{K..KG.K.
 "THE ASC FUNCTION GIVES YOU THE COMMODO
RE"..G.K. "ASCII CODE FOR ANY CHARACTER 
THE C128".'H.K. "DISPLAYS. THE ASC FUNCT
ION LOOKS LIKE".5H.K. "THIS:".;H.K..\H.K
. "ASC("DQ$"CHARACTER"DQ$")".BH.K...H.K.
 "YOU HAVE TO PUT THE CHARACTER YOU WANT
"..H.K. "THE CODE FOR BETWEEN QUOTATION 
MARKS,"..H.K. "AND YOU CAN USE THE ASC F
UNCTION FOR"..I.K. "ONLY ONE CHARACTER A
T A TIME."..I.K..HI.K. "PRESS RETURN TO 
SEE THE RESULTS OF EACH".KI.K. "OF THE F
OLLOWING EXAMPLES:".QIAK...IFK. "PRINT A
SC("DQ$"R"DQ$")";:. 1450:. SD.2 . RS.1:.
..IKK. F("R")..IPK. "PRINT ASC("DQ$"3"DQ
$")";:. 1450:. SD.2 . RS.1:...IUK. F("3"
)..JZK. "S$="DQ$"T"DQ$".=J.K. "PRINT ASC
(S$)";:. 1450:. SD.2 . RS.1:..JJ.K. F("T
").PJ.K..FJTO. ----- SCREEN 27.WJ^O.. 0,
0,39,24..JCO. .11)"THE CHR$ FUNCTION"..J
HO..IJMO. "THE CHR$ FUNCTION DOES THE RE
VERSE OF"..JRO. "THE ASC FUNCTION: IT GI
VES YOU THE"."KWO. "CHARACTER THAT'S ASS
IGNED TO ANY CODE".IK|O. "YOU ENTER. IT 
LOOKS LIKE THIS:".OK.O..BK.O. "CHR$(CODE
)".HK.O...K.O. "LIKE THE ASC FUNCTION, Y
OU CAN USE THE".EK.O. "CHR$ FUNCTION WIT
H ONLY ONE CODE AT A"..K.O. "TIME. UNLIK
E THE ASC FUNCTION, YOU DON'T"..L.O. "US
E QUOTATION MARKS."..L.O..BL.O. "PRESS R
ETURN TO SEE HOW THE CHR$".LL.O. "FUNCTI
ON WORKS IN THESE EXAMPLES:".RL.O...L.O.
 "PRINT CHR$(66)";:. 1450:. SD.2 . RS.1:
...L.O. G(66)..LBO. "PRINT CHR$(38)";:. 
1450:. SD.2 . RS.1:...LGO. G(38)..LLO. "
C=126"..MQO. "PRINT CHR$(C)";.!MVO. 1450
:. G(126).'M.O..=M<S. ----- SCREEN 28.[M
FS. .12);"THE VAL FUNCTION".AMKS...MPS."
EVERY NUMBER YOU USE IN A PROGRAM IS"..M
US. "KEPT IN YOUR COMPUTER'S MEMORY IN T
WO".IMZS. "WAYS.".OM_S...MDS. "FIRST, AS
 YOU'VE JUST FOUND OUT, THE".'NIS. "NUME
RALS THAT MAKE UP A NUMBER ARE".TNNS. "S
TORED AS ASCII CODES. THE NUMBER 25"..NS
S. "APPEARS ON THE SCREEN AS THE CHARACT
ER"..NXS. "STRING "DQ$"25"DQ$", WHICH IS
 STORED IN MEMORY"..N}S. "AS THE ASCII C
ODES FOR "DQ$."2"DQ$" AND "DQ$"5"DQ$".".
.N.S..$O.S."SECOND, A NUMBER IS STORED A
S A".SO.S. "MATHEMATICAL VALUE -- A VALU
E THAT YOU"..O.S. "CAN ADD, SUBTRACT, MU
LTIPLY, AND DIVIDE."..O.S.. O0U. ----- S
CREEN 29.MO:U. "THE VAL FUNCTION CHANGES
 A CHARACTER"..O?U. "STRING INTO A VALUE
. IT LOOKS LIKE THIS:"..PDU..!PIU. "VAL(
STRING VARIABLE)".'PNU..SPSU. "THE STRIN
G VARIABLE IS WHERE YOU'VE"..PXU. "SAVED
 THE NUMERALS YOU WANT TO CHANGE"..P]U. 
"INTO A VALUE. FOR EXAMPLE, IF --"..PBU.
.HPGU. "T$ = "DQ$"25"DQ$.NPLU...PQU. "TH
EN --"..PVU...P{U. "PRINT VAL(T$)*10"..Q
.U." 250"..Q.U..>Q.U. "WHAT'S THE DIFFER
ENCE? YOU CAN USE THE".IQ.U. "VALUE 25 I
N A CALCULATION, BUT YOU"..Q.U. "CAN'T U
SE THE CHARACTER STRING"..Q.U. DQ$"25"DQ
$"."..Q.U...Q$W. ----- SCREEN 30.QQ+W.. 
0,2,39,24..R.W. "LET'S SAY THE STRING VA
RIABLE T$ STANDS".8R3W. "FOR "DQ$"25"DQ$
". IF YOU TRIED TO EXECUTE THIS".KR8W. "
COMMAND --".QR=W..FRBW. "PRINT T$ * 5".L
RGW...RLW. "BASIC WOULD TELL YOU THERE'S
 A TYPE"..RQW. "MISMATCH ERROR. YOU CAN'
T ADD A"..RVW. "CHARACTER STRING TO A MA
THEMATICAL"..RXW. "VALUE."..S[W..0S`W. "
THE TWO EXAMPLES BELOW SHOW TWO CORRECT"
.\SEW. "WAYS TO USE THE VAL FUNCTION. PR
ESS"..SJW. "RETURN TO SEE HOW THEY WORK.
"..SOW...STW. "T$ = "DQ$"25"DQ$.QSYW. "P
RINT VAL(T$) * 5";:. 1450:. SD.2 . RS.1:
...S~W. " 125"..S.W. "T$ = "DQ$"25"DQ$..
T.W. "V = VAL(T$)".6T.W. "PRINT V * 5";:
. 1450:. SD.2 . RS.1:..CT.W. " 125".IT.W
.._T.{. ----- SCREEN 31.PT.{.. 0,0,39,24
..T.{. .11)"THE STR$ FUNCTION"..T {..BT%
{. "THE STR$ FUNCTION DOES THE REVERSE O
F"..T*{. "THE VAL FUNCTION: IT TURNS A".
.U/{. "MATHEMATICAL VALUE INTO A CHARACT
ER".#U4{. "STRING.".)U9{..WU>{. "LET'S S
AY THE VARIABLE A EQUALS 5. IF"..UC{. "Y
OU TRIED TO GET THE ASCII CODE FOR"..UH{
. "THE NUMERAL "DQ$"5"DQ$" WITH THIS COM
MAND --"..UM{..SUR{. "PRINT ASC(A)".YUW{
...V\{. "BASIC WOULD AGAIN TELL YOU THER
E'S A".3VA{. "TYPE MISMATCH ERROR. CHARA
CTERS HAVE".CVF{. "ASCII CODES, MATHEMAT
ICAL VALUES DON'T.".IVK{...VP{. "THE EXA
MPLE BELOW SHOWS HOW TO USE THE".HVU{. "
STR$ FUNCTION TO MAKE THE COMMAND ABOVE"
..VZ{. "WORK.  PRESS RETURN TO EXECUTE I
T."..V{...W.{. "A = 5".:W.{. "PRINT ASC
(STR$(A))";:. 1450:. SD.2 . RS.1:..HW.{.
 F(D(5)).NW.{..DW.~. ----- SCREEN 32.UW.
~.. 0,1,39,24..W.~. .16)"REVIEW"..W....
W.. "USE IF-THEN TO HAVE A PROGRAM DO".
.W.."DIFFERENT THINGS IN DIFFERENT"..W.
. "SITUATIONS."..W....X.. "USE FOR-NE
XT TO REPEAT THE SAME".NX!. "INSTRUCTIO
NS AS MANY TIMES AS YOU WANT.".TX&...X+
. "USE INPUT TO HAVE A PROGRAM STOP AND
"..X0. "WAIT FOR INPUT TO BE TYPED IN."
..X5...X:. "USE READ AND DATA TOGETHER
 TO ASSIGN"..X?. "VALUES TO VARIABLES."
..XD..,YI. "A SUBROUTINE IS A SET OF I
NSTRUCTIONS".XYN. "YOU SET APART FROM T
HE MAIN PROGRAM"..YS. "BECAUSE YOU USE 
IT MORE THAN ONCE."..YX. "USE GOSUB TO 
GO TO A SUBROUTINE".UY]. "AND RETURN TO
 GO BACK TO THE MAIN"..Y_. "PROGRAM."..
YB...YG...Z... ----- SCREEN 33.6Z... "
USE THE INTEGER FUNCTION TO TAKE AWAY".E
Z... "THE PART OF A NUMBER AFTER THE DEC
IMAL".TZ... "POINT.".ZZ.....Z... "USE TH
E SQR FUNCTION TO GET THE SQUARE".CZ... 
"ROOT OF A NUMBER.".IZ.....Z... "USE THE
 RND FUNCTION TO GENERATE RANDOM"..{... 
"NUMBERS."..{....A{$.. "USE THE ABS FUNC
TION TO GET THE POSITIVE".\{).. "VALUE O
F A NUMBER.".B{3...X{... ----- SCREEN 34
..{... "USE THE ASC FUNCTION TO GET THE 
ASCII".V{... "CODE FOR A LETTER, NUMERAL
, OR GRAPHICS"..{... "CHARACTER."..{....
.|... "USE CHR$ TO GET THE LETTER, NUMER
AL, OR".O|... "GRAPHICS CHARACTER ASSIGN
ED TO AN ASCII".]|... "CODE.".C|.....|..
. "USE THE VAL FUNCTION TO TURN A CHARAC
TER"..|... "STRING INTO A MATHEMATICAL V
ALUE.".D|.....|... "USE THE STR$ FUNCTIO
N TO TURN A"..}... "MATHEMATICAL VALUE I
NTO A CHARACTER".(}... "STRING."..}....C
}PC. ----- GLB INIT.Y}UC. ----- MISC INI
T..}ZCY:.50100:.50300:..:.50500:.50700:.
50900..}.C.,19,24,"ONE MOMENT PLEASE..."
:.51000.O}.C. ----- MISC VAR/CONST INIT.
.~.CTM.2:F1.2:F2.8:B1.7:BF.1:L$.G(14):U$
.G(142):K0$.G(11).A~HCK1$.G(12):HM$.G(19
):CS$.G(147):R0$.G(146):R1$.G(18).V~RCDQ
$.G(34):.50130:.C$(16):.I.1.16:.C:C$(I).
G(C):...~.C. 144,  5, 28,159..~.C. 156, 
30, 31,158..~.C. 129,149,150,151.N~.C. 1
52,153,154,155...CSB.51712:.UP$(2):UP$(
1)."PRESS SPACEBAR TO CONTINUE".-.CUP$(
2)."PRESS RETURN TO CONTINUE".S.DSP$." 
                                       "
:T$."  ":HP$.G(132)...DS0$.G(27)."M":S1
$.G(27)."L":.50186:.J:.SK(J):SK$."".O.D
.I.1.J:.K:SK$.SK$.G(K):.SK(I):.... D. 6,
133,  1, 27,  2, 32,  3, 13,  3,145,  4,
 17,  5...{D..-.|D. ----- INIT VIDEO/GRA
PHICS.O..D.&:.0:.0,B1:.1,F1:.4,B1:.5,F1.
M..D.L$LK$S1$G(27)"C"G(27)"O"....D..0,0,
39,24,1:..1:..2:..3:.0:..1...BD.I.1.8:..
I,0:..B.GD..15:.56576,B(56576).3:..Y.DE.
 ----- INIT SOUND...NE.I.1.3:ZI,0,0:.:..
0,0,0,0,0:.15.9.GE.."V1O0T0X0V2O0T0X0V3O
0T0X0":.50535:.I.0.9:.A,D,S,R,W,P.O.{E..
I,A,D,S,R,W,P:..I..E.  0, 9, 0, 0, 2,153
6....E. 12, 0,12, 0, 1,   0....E.  0, 0,
15, 0, 0,   0....E.  0, 5, 5, 0, 3,   0.
Q..E.  9, 4, 4, 0, 0,   0....E.  0, 9, 2
, 1, 1,   0....E.  0, 9, 0, 0, 2, 512...
.E.  0, 9, 9, 0, 2,2048.9..E.  8, 9, 4, 
1, 2, 512.S..E.  0, 9, 0, 0, 0,   0.Y..E
..O..F. ----- TOC ARRAY.{..F.VL$(9)....F
VL$(0)."TOC 0"... FVL$(1)."INTRODUCTION"
...%FVL$(2)."THE C128".Q.*FVL$(3)."BASIC
".../FVL$(4)."ADVANCED BASIC"...4FVL$(5)
."DISK USAGE".".9FVL$(6)."SCREEN GRAPHIC
S".?.>FVL$(7)."SPRITE GRAPHICS".B.CFVL$(
8)."SOUND EFFECTS & MUSIC"...HFVL$(9)."P
ROGRAMMING HINTS"...OF....TF. ----- PIC 
ARRAYS INIT....F.PN$(7),PB(7),P3(7)....F
PN$(0)."........":PB(0).B1:P3(0).1....FP
N$(1)."BOOK"    :PB(1).B1:P3(1).1.0..FPN
$(2)."KEYBOARD":PB(2).13:P3(2).2.W..FPN$
(3)."CIRCUS"  :PB(3).13:P3(3).2.~..FPN$(
4)."HARDWARE":PB(4).15:P3(4).2....FPN$(5
)."CALLIOPE":PB(5).16:P3(5).2.L..FPN$(6)
."TITLE"   :PB(6).16:P3(6).1....GPN$(7).
"STAGE"   :PB(7).13:P3(7).12...7G....8G.
 ----- VOL 4 INIT.'.=G. ----- MISC INIT.
@.BG.51200:.51300:.51400.Z..H. ----- VOL
 MENU INIT.Q..HNV.4:MM.9:.VM$(MM)....HVM
$(1)."ADVANCED BASIC"....HVM$(2)."IF-THE
N"....HVM$(3)."FOR-NEXT".K.#HVM$(4)."INP
UT"...(HVM$(5)."READ AND DATA"...*HVM$(6
)."GOSUB AND RETURN".#.,HVM$(7)."NUMERIC
 FUNCTIONS".A..HVM$(8)."STRING FUNCTIONS
".U.0HVM$(9)."REVIEW".Y.2H.VA(MM):.51250
:.I.1.MM:.VA(I):....KH. 1,2,5,10,14,17,1
9,24,32...PH....DH. ----- SPRITE INIT...
FH..2,1:.51302:.I.1.8:.C,P,X,Y,M:..I,0,C
,P,X,Y,M...PH..I,0#0:..I,0,0:....VH. 3,0
,0,0,1...XH. 3,0,0,0,1...ZH. 3,0,0,0,1.>
.|H. 3,0,0,0,1.N.~H. 3,0,0,0,1.^..H. 3,0
,0,0,1.N..H. 3,0,0,0,1.~..H. 3,0,0,0,1..
..HSS.1:SF.4:S.18:.GU$(SF,SS):.S1.0.SS:.
S0.1.SF:.60600.U..HGU$(S0,S1).S$:S.S.1:.
S0,S1....H.51370:.I.0.SF:.SX(I),SY(I):..
...H. 295,208....H.   0,  0.!..H.  24,  
0./..H.   0, 21.=..H.  24, 21.C.GH..L.HH
. ----- VOLUME SCREEN INITIALIZATION...J
HMS.34:.GM(MS),GS(MS),GP(MS):....`.. ---
-- GOTO TOC...J..60015...O..50000:.10500
.Z.T.. ----- GOTO VOL MENU...^..60515...
C..50000:.10800...... ----- GET A SPRITE
.E.....0:J.SB.64.S:.I.0.63:.4032.I,B(J.I
):.I:..8,S$:..Y.... ----- SETUP THE GRAP
HICS DISPLAY AS REQUESTED......GM.1.GM.3
.GM.GM.1:GS.25.C.!...0,0,39,24,1:G0.GS:.
GM.10.G0.0:GM.GM.10...&..GP..0..0,PB(GP)
:.4,PB(GP):.3,P3(GP)...(...0:.GP.0.GP..B
(16192)....<.*..GM..L(0).GP.0..53266,250
:.53265,B(53265).239.S.,..GM,1,0:.GM.4..
3,1.Q.0..GP..0....GM.0..16192,255...5...
:U..:..(PN$(GP).".C"),P7168...:...(PN$(G
P).".P"),P8192:.16192,GP:.....>...15:.53
266,250:.53265,B(53265).16:.....D..GM,,G
0:....... ----- BOOK LOAD.@...GP.1:GM.12
:GS.25:.60700:I$."":.I.1.28:I$.I$." ":.I
.Z....I.2.22:.,6,I,I$:.I:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL