PONZO TUTOR-1.64
FILE INFORMATION
FILENAME(S): PONZO TUTOR-1.64
FILE TYPE(S): PRG
FILE SIZE: 17.3K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 2 disk(s)
FILE HASH
9938ea8b6e0c980d4b483ed1db658d8e444183746b920d12d2a60e96be4b2ffe
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | PONZO TUTOR-1.64 | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 2 | DOWNLOAD FILE |
| FREESOFT DISK NR | PONZO TUTOR-1.64 | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 8A 30 30 31 30 30 00 19 08 01 |.......00100....|
00000010: 00 8F 22 14 14 14 14 14 14 00 39 08 02 00 8F 22 |..".......9...."|
00000020: 14 14 14 14 14 14 50 4F 4E 5A 4F 2A 31 39 38 33 |......PONZO*1983|
00000030: 2A 57 41 54 45 52 4C 4F 4F 00 46 08 03 00 8F 22 |*WATERLOO.F...."|
00000040: 14 14 14 14 14 14 00 83 08 64 00 97 35 33 32 38 |.........d..5328|
00000050: 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 32 3A 99 |1,15:.53280,12:.|
00000060: 22 90 22 3A 99 22 93 20 20 20 20 20 20 20 20 20 |".":.". |
00000070: 20 20 20 20 20 20 12 1F 43 36 34 20 54 55 54 4F | ..C64 TUTO|
00000080: 52 2D 31 00 B3 08 65 00 99 22 1C B0 C0 C0 C0 C0 |R-1...e.."......|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000B0: C0 AE 22 00 F7 08 66 00 99 22 DD 20 12 1F 20 20 |.."...f..". .. |
000000C0: 20 20 20 20 20 20 20 20 20 20 43 36 34 20 42 41 | C64 BA|
000000D0: 53 49 43 53 20 20 20 20 20 20 20 20 20 20 20 20 |SICS |
000000E0: 20 1C 92 20 DD 22 3A 4D 53 24 B2 22 20 57 45 4C | .. .":MS$." WEL|
000000F0: 43 4F 4D 45 21 20 22 00 28 09 67 00 99 22 1C AD |COME! ".(.g.."..|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000120: C0 C0 C0 C0 C0 BD 90 22 00 45 09 68 00 53 4E 24 |.......".E.h.SN$|
00000130: B2 22 31 30 30 30 22 3A 8D 36 33 32 30 30 3A 8D |."1000":.63200:.|
00000140: 36 33 36 30 30 00 5E 09 69 00 8D 36 30 30 30 30 |63600.^.i..60000|
00000150: 3A 8D 36 33 31 30 30 3A 8D 35 39 30 30 30 00 69 |:.63100:.59000.i|
00000160: 09 E8 03 8D 36 30 30 30 30 00 95 09 ED 03 99 22 |....60000......"|
00000170: 93 12 48 49 92 21 20 4C 45 54 20 4D 45 20 54 45 |..HI.! LET ME TE|
00000180: 4C 4C 20 59 4F 55 20 41 42 4F 55 54 20 4D 59 53 |LL YOU ABOUT MYS|
00000190: 45 4C 46 2E 22 00 B5 09 F2 03 99 22 49 27 4D 20 |ELF."......"I'M |
000001A0: 41 20 43 4C 41 53 53 59 20 43 41 4C 43 55 4C 41 |A CLASSY CALCULA|
000001B0: 54 4F 52 3A 22 00 E1 09 10 04 99 22 11 49 20 43 |TOR:"......".I C|
000001C0: 41 4E 20 41 44 44 3A 20 12 32 2B 32 3D 34 92 20 |AN ADD: .2+2=4. |
000001D0: 53 55 42 54 52 41 43 54 3A 12 32 2D 33 3D 2D 31 |SUBTRACT:.2-3=-1|
000001E0: 22 00 0D 0A 1A 04 99 22 11 4D 55 4C 54 49 50 4C |"......".MULTIPL|
000001F0: 59 3A 12 33 2A 31 37 3D 35 31 92 20 44 49 56 49 |Y:.3*17=51. DIVI|
00000200: 44 45 3A 12 34 2F 31 36 3D 2E 32 35 22 00 34 0A |DE:.4/16=.25".4.|
00000210: 38 04 99 22 11 49 20 43 4F 4D 50 55 54 45 20 53 |8..".I COMPUTE S|
00000220: 49 4E 45 53 20 41 4E 44 20 4C 4F 47 41 52 49 54 |INES AND LOGARIT|
00000230: 48 4D 53 22 00 5A 0A 42 04 99 22 11 53 51 55 41 |HMS".Z.B..".SQUA|
00000240: 52 45 20 52 4F 4F 54 53 20 41 4E 44 20 41 52 43 |RE ROOTS AND ARC|
00000250: 54 41 4E 47 45 4E 54 53 2E 22 00 87 0A 4C 04 99 |TANGENTS."...L..|
00000260: 22 11 49 20 52 41 49 53 45 20 4E 4F 27 53 20 54 |".I RAISE NO'S T|
00000270: 4F 20 41 20 50 4F 57 45 52 3A 12 32 5E 28 2D 33 |O A POWER:.2^(-3|
00000280: 29 3D 2E 31 32 35 22 00 B7 0A B0 04 99 22 11 54 |)=.125"......".T|
00000290: 59 50 45 3A 12 3F 32 2A 53 49 4E 28 FF 2F 33 29 |YPE:.?2*SIN(./3)|
000002A0: 2B 4C 4F 47 28 31 2E 32 5E 33 29 2D 53 51 52 28 |+LOG(1.2^3)-SQR(|
000002B0: 34 2A 35 2E 36 29 22 00 DC 0A 14 05 99 22 11 28 |4*5.6)"......".(|
000002C0: 54 48 45 20 3F 20 49 4E 20 46 52 4F 4E 54 20 4D |THE ? IN FRONT M|
000002D0: 45 41 4E 53 20 50 52 49 4E 54 29 22 00 FF 0A 1E |EANS PRINT)"....|
000002E0: 05 99 22 20 20 20 20 20 A3 20 20 20 20 20 20 20 |.." . |
000002F0: 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 22 00 | .....".|
00000300: 2A 0B 28 05 99 22 2E 2E 48 49 54 20 12 52 45 54 |*.(.."..HIT .RET|
00000310: 55 52 4E 92 2E 2E 49 20 50 52 49 4E 54 20 54 48 |URN...I PRINT TH|
00000320: 45 20 41 4E 53 57 45 52 21 22 00 4C 0B 32 05 99 |E ANSWER!".L.2..|
00000330: 22 11 12 54 52 59 20 49 54 92 2E 20 57 48 45 4E |"..TRY IT.. WHEN|
00000340: 20 46 49 4E 49 53 48 45 44 2E 2E 22 00 71 0B 33 | FINISHED..".q.3|
00000350: 05 99 22 11 12 54 59 50 45 20 20 40 92 5F C0 C0 |.."..TYPE @._..|
00000360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000370: 22 00 8F 0B 34 05 4D 53 24 B2 22 12 40 5F 52 45 |"...4.MS$.".@_RE|
00000380: 4D 45 4D 42 45 52 92 22 3A 8D 36 33 31 30 30 00 |MEMBER.":.63100.|
00000390: A6 0B 37 05 53 4E 24 B2 22 30 32 30 30 30 22 3A |..7.SN$."02000":|
000003A0: 89 36 33 33 30 30 00 D1 0B D0 07 99 22 93 22 3A |.63300......".":|
000003B0: 4D 53 24 B2 22 20 20 20 47 4F 4F 44 22 3A 8D 36 |MS$." GOOD":.6|
000003C0: 30 30 30 30 3A 8D 36 33 31 30 30 3A 99 22 93 22 |0000:.63100:."."|
000003D0: 3B 00 F7 0B 34 08 99 22 93 54 4F 20 43 4F 52 52 |;...4..".TO CORR|
000003E0: 45 43 54 20 41 20 4D 49 53 54 59 50 45 44 20 53 |ECT A MISTYPED S|
000003F0: 59 4D 42 4F 4C 20 22 00 20 0C 3E 08 99 22 11 4A |YMBOL ". .>..".J|
00000400: 55 53 54 20 20 50 52 45 53 53 20 54 48 45 20 4B |UST PRESS THE K|
00000410: 45 59 20 4D 41 52 4B 45 44 20 12 44 45 4C 92 2E |EY MARKED .DEL..|
00000420: 00 3B 0C 66 08 99 22 20 20 20 20 20 20 20 20 20 |.;.f.." |
00000430: 20 20 20 20 20 20 20 A3 A3 A3 22 00 5F 0C 7A 08 | ..."._.z.|
00000440: 99 22 53 55 50 50 4F 53 45 20 59 4F 55 20 54 59 |."SUPPOSE YOU TY|
00000450: 50 45 44 20 32 53 49 4E 28 FF 2F 33 29 2E 22 00 |PED 2SIN(./3).".|
00000460: 8C 0C 98 08 99 22 11 54 4F 20 49 4E 53 45 52 54 |.....".TO INSERT|
00000470: 20 41 20 2A 20 42 45 54 57 45 45 4E 20 32 20 41 | A * BETWEEN 2 A|
00000480: 4E 44 20 53 49 4E 28 FF 2F 33 29 22 00 AC 0C A2 |ND SIN(./3)"....|
00000490: 08 99 22 11 54 4F 20 49 4E 44 49 43 41 54 45 20 |..".TO INDICATE |
000004A0: 4D 55 4C 54 49 50 4C 59 2E 2E 2E 2E 00 C9 0C FC |MULTIPLY........|
000004B0: 08 99 22 11 50 52 45 53 53 20 53 48 49 46 54 20 |..".PRESS SHIFT |
000004C0: 41 4E 44 20 44 45 4C 21 22 00 E3 0C 60 09 99 22 |AND DEL!"...`.."|
000004D0: 20 20 20 20 20 20 A3 A3 A3 A3 A3 20 B7 B7 B7 20 | ..... ... |
000004E0: A3 A3 A3 00 0C 0D C4 09 99 22 44 4F 20 54 48 49 |........."DO THI|
000004F0: 53 20 41 46 54 45 52 20 59 4F 55 20 48 41 56 45 |S AFTER YOU HAVE|
00000500: 20 54 48 45 20 43 55 52 53 4F 52 22 00 27 0D CE | THE CURSOR".'..|
00000510: 09 99 22 11 4F 56 45 52 20 54 48 45 20 53 20 49 |..".OVER THE S I|
00000520: 4E 20 53 49 4E 2E 22 00 4B 0D 28 0A 99 22 11 54 |N SIN.".K.(..".T|
00000530: 48 41 54 20 57 41 59 20 59 4F 55 20 49 4E 53 45 |HAT WAY YOU INSE|
00000540: 52 54 20 41 20 53 50 41 43 45 22 00 63 0D 32 0A |RT A SPACE".c.2.|
00000550: 99 22 11 54 4F 20 54 59 50 45 20 49 4E 20 27 2A |.".TO TYPE IN '*|
00000560: 27 2E 22 00 81 0D F0 0A 99 22 11 54 52 59 20 49 |'."......".TRY I|
00000570: 54 21 20 54 48 45 4E 20 12 54 59 50 45 20 20 40 |T! THEN .TYPE @|
00000580: 22 00 98 0D AE 0B 53 4E 24 B2 22 30 33 30 30 30 |".....SN$."03000|
00000590: 22 3A 89 36 33 33 30 30 00 C6 0D B8 0B 8D 36 30 |":.63300......60|
000005A0: 30 30 30 3A 99 22 93 49 46 20 59 4F 55 20 57 41 |000:.".IF YOU WA|
000005B0: 4E 54 20 4D 45 20 54 4F 20 52 45 4D 45 4D 42 45 |NT ME TO REMEMBE|
000005C0: 52 20 54 48 45 22 00 EB 0D C2 0B 99 22 11 52 45 |R THE"......".RE|
000005D0: 53 55 4C 54 20 4F 46 20 53 4F 4D 45 20 43 41 4C |SULT OF SOME CAL|
000005E0: 43 55 4C 41 54 49 4F 4E 2E 2E 22 00 08 0E CC 0B |CULATION..".....|
000005F0: 99 22 11 54 48 45 4E 20 47 49 56 45 20 49 54 20 |.".THEN GIVE IT |
00000600: 41 20 4E 41 4D 45 21 22 00 23 0E D6 0B 99 22 11 |A NAME!".#....".|
00000610: 54 59 50 45 3A 12 53 41 4D 3D 32 2A 33 2F 34 2B |TYPE:.SAM=2*3/4+|
00000620: 35 92 22 00 44 0E E0 0B 99 22 11 54 48 45 4E 20 |5.".D....".THEN |
00000630: 49 27 4C 4C 20 52 45 4D 45 4D 42 45 52 20 20 53 |I'LL REMEMBER S|
00000640: 41 4D 2E 22 00 6E 0E EA 0B 99 22 11 59 4F 55 20 |AM.".n....".YOU |
00000650: 43 41 4E 20 41 53 4B 20 46 4F 52 20 54 48 45 20 |CAN ASK FOR THE |
00000660: 56 41 4C 55 45 20 4F 46 20 53 41 4D 2E 22 00 81 |VALUE OF SAM."..|
00000670: 0E FE 0B 99 22 11 54 59 50 45 3A 12 3F 53 41 4D |....".TYPE:.?SAM|
00000680: 22 00 9C 0E 08 0C 99 22 11 59 4F 55 20 43 41 4E |"......".YOU CAN|
00000690: 20 41 4C 53 4F 20 54 59 50 45 3A 22 00 BB 0E 12 | ALSO TYPE:"....|
000006A0: 0C 99 22 12 4A 4F 45 3D 53 41 4D 5E 32 2B 53 49 |..".JOE=SAM^2+SI|
000006B0: 4E 28 FF 2A 53 41 4D 2F 33 29 22 00 DA 0E 1C 0C |N(.*SAM/3)".....|
000006C0: 99 22 12 3F 4A 4F 45 20 20 20 20 20 20 20 20 20 |.".?JOE |
000006D0: 20 20 20 20 20 20 20 20 20 22 00 04 0F 26 0C 99 | "...&..|
000006E0: 22 11 54 48 45 4E 20 49 27 4C 4C 20 50 52 49 4E |".THEN I'LL PRIN|
000006F0: 54 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 4A |T THE VALUE OF J|
00000700: 4F 45 2E 22 00 23 0F 30 0C 99 22 11 54 52 59 20 |OE.".#.0..".TRY |
00000710: 49 54 21 54 48 45 4E 20 54 59 50 45 2E 2E 20 20 |IT!THEN TYPE.. |
00000720: 12 40 22 00 3A 0F 3A 0C 53 4E 24 B2 22 30 34 30 |.@".:.:.SN$."040|
00000730: 30 30 22 3A 89 36 33 33 30 30 00 67 0F A0 0F 8D |00":.63300.g....|
00000740: 36 30 30 30 30 3A 99 22 93 4F 4B 2E 2E 49 46 20 |60000:.".OK..IF |
00000750: 59 4F 55 20 54 45 4C 4C 20 4D 45 20 54 48 45 20 |YOU TELL ME THE |
00000760: 56 41 4C 55 45 53 22 00 85 0F 04 10 99 22 11 4F |VALUES"......".O|
00000770: 46 20 41 2C 42 20 26 20 43 20 54 48 45 4E 20 54 |F A,B & C THEN T|
00000780: 59 50 45 3A 22 00 A9 0F 68 10 99 22 12 59 3D 28 |YPE:"...h..".Y=(|
00000790: 2D 42 2B 53 51 52 28 42 2A 42 2D 34 2A 41 2A 43 |-B+SQR(B*B-4*A*C|
000007A0: 29 29 2F 28 32 2A 41 29 22 00 CD 0F CC 10 99 22 |))/(2*A)"......"|
000007B0: 12 3F 59 20 20 20 20 20 20 20 20 20 20 20 20 20 |.?Y |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F4 0F | "...|
000007D0: 30 11 99 22 11 49 27 4C 4C 20 43 41 4C 43 55 4C |0..".I'LL CALCUL|
000007E0: 41 54 45 20 59 20 41 4E 44 20 50 52 49 4E 54 20 |ATE Y AND PRINT |
000007F0: 49 54 2E 22 00 1A 10 94 11 99 22 11 55 4E 46 4F |IT."......".UNFO|
00000800: 52 54 55 4E 41 54 45 4C 59 2C 20 49 46 20 59 4F |RTUNATELY, IF YO|
00000810: 55 20 47 49 56 45 20 4D 45 22 00 42 10 9E 11 99 |U GIVE ME".B....|
00000820: 22 11 4E 45 57 20 56 41 4C 55 45 53 20 46 4F 52 |".NEW VALUES FOR|
00000830: 20 41 2C 42 20 26 20 43 2E 2E 2E 57 45 4C 4C 2E | A,B & C...WELL.|
00000840: 2E 22 00 6D 10 F8 11 99 22 11 59 4F 55 27 4C 4C |.".m....".YOU'LL|
00000850: 20 48 41 56 45 20 54 4F 20 52 45 54 59 50 45 20 | HAVE TO RETYPE |
00000860: 54 48 45 20 46 4F 52 4D 55 4C 41 21 22 00 9A 10 |THE FORMULA!"...|
00000870: C0 12 99 22 11 28 42 55 54 20 57 41 49 54 20 54 |...".(BUT WAIT T|
00000880: 49 4C 4C 20 57 45 20 57 52 49 54 45 20 27 50 52 |ILL WE WRITE 'PR|
00000890: 4F 47 52 41 4D 53 27 29 2E 22 00 B4 10 2E 13 99 |OGRAMS')."......|
000008A0: 22 11 57 41 4E 54 20 54 4F 20 54 52 59 20 54 48 |".WANT TO TRY TH|
000008B0: 49 53 3F 22 00 D7 10 56 13 99 22 11 54 48 45 4E |IS?"...V..".THEN|
000008C0: 3A 12 54 59 50 45 20 40 92 20 54 4F 20 43 4F 4E |:.TYPE @. TO CON|
000008D0: 54 49 4E 55 45 2E 22 00 F3 10 5B 13 4D 53 24 B2 |TINUE."...[.MS$.|
000008E0: 22 40 5F C0 C0 C0 C0 C0 C0 C0 C0 22 3A 8D 36 33 |"@_........":.63|
000008F0: 31 30 30 00 0A 11 6A 13 53 4E 24 B2 22 30 35 30 |100...j.SN$."050|
00000900: 30 30 22 3A 89 36 33 33 30 30 00 3E 11 88 13 8D |00":.63300.>....|
00000910: 36 30 30 30 30 3A 99 22 93 49 46 20 59 4F 55 20 |60000:.".IF YOU |
00000920: 47 49 56 45 20 4D 45 20 4E 45 57 20 56 41 4C 55 |GIVE ME NEW VALU|
00000930: 45 53 20 46 4F 52 20 41 2C 42 20 26 43 22 00 65 |ES FOR A,B &C".e|
00000940: 11 B4 14 99 22 11 42 59 20 54 59 50 49 4E 47 20 |....".BY TYPING |
00000950: 12 41 3D 35 2E 33 3A 42 3D 2D 32 2E 31 3A 43 3D |.A=5.3:B=-2.1:C=|
00000960: 2E 30 31 31 22 00 8F 11 18 15 99 22 11 28 59 4F |.011"......".(YO|
00000970: 55 20 43 41 4E 20 47 49 56 45 20 4D 45 20 53 45 |U CAN GIVE ME SE|
00000980: 56 45 52 41 4C 20 49 4E 53 54 52 27 4E 53 22 00 |VERAL INSTR'NS".|
00000990: BE 11 7C 15 99 22 4F 4E 20 54 48 45 20 53 41 4D |..|.."ON THE SAM|
000009A0: 45 20 4C 49 4E 45 2C 53 45 50 41 52 41 54 45 44 |E LINE,SEPARATED|
000009B0: 20 42 59 20 41 20 43 4F 4C 4F 4E 3A 29 22 00 E5 | BY A COLON:)"..|
000009C0: 11 44 16 99 22 11 49 27 4C 4C 20 52 45 4D 45 4D |.D..".I'LL REMEM|
000009D0: 42 45 52 20 54 48 45 53 45 20 4E 45 57 20 56 41 |BER THESE NEW VA|
000009E0: 4C 55 45 53 22 00 0C 12 4E 16 99 22 11 41 4E 44 |LUES"...N..".AND|
000009F0: 20 49 46 20 59 4F 55 20 57 41 4E 54 20 59 20 52 | IF YOU WANT Y R|
00000A00: 45 43 41 4C 43 55 4C 41 54 45 44 22 00 30 12 A8 |ECALCULATED".0..|
00000A10: 16 99 22 11 4A 55 53 54 20 4D 4F 56 45 20 54 48 |..".JUST MOVE TH|
00000A20: 45 20 43 55 52 53 4F 52 20 54 4F 20 54 48 45 22 |E CURSOR TO THE"|
00000A30: 00 5F 12 B2 16 99 22 11 53 54 41 54 45 4D 45 4E |._....".STATEMEN|
00000A40: 54 20 44 45 46 49 4E 49 4E 47 20 59 20 41 4E 44 |T DEFINING Y AND|
00000A50: 20 48 49 54 20 27 52 45 54 55 52 4E 27 2E 22 00 | HIT 'RETURN'.".|
00000A60: 88 12 D0 16 99 22 11 49 27 4C 4C 20 54 48 49 4E |.....".I'LL THIN|
00000A70: 4B 20 59 4F 55 20 4A 55 53 54 20 54 59 50 45 44 |K YOU JUST TYPED|
00000A80: 20 49 54 20 49 4E 21 22 00 A5 12 DA 16 99 22 11 | IT IN!"......".|
00000A90: 54 48 45 4E 20 59 4F 55 20 43 41 4E 20 41 53 4B |THEN YOU CAN ASK|
00000AA0: 20 12 3F 59 22 00 C2 12 E4 16 99 22 11 54 52 59 | .?Y"......".TRY|
00000AB0: 20 49 54 21 20 54 48 45 4E 20 12 54 59 50 45 20 | IT! THEN .TYPE |
00000AC0: 40 22 00 D9 12 6F 17 53 4E 24 B2 22 30 36 30 30 |@"...o.SN$."0600|
00000AD0: 30 22 3A 89 36 33 33 30 30 00 0B 13 70 17 8D 36 |0":.63300...p..6|
00000AE0: 30 30 30 30 3A 99 22 93 4E 4F 57 20 2E 2E 2E 4D |0000:.".NOW ...M|
00000AF0: 59 20 4D 4F 52 45 20 49 4D 50 52 45 53 53 49 56 |Y MORE IMPRESSIV|
00000B00: 45 20 54 41 4C 45 4E 54 2E 2E 22 00 23 13 75 17 |E TALENT..".#.u.|
00000B10: 99 22 11 20 20 20 20 20 12 50 52 4F 47 52 41 4D |.". .PROGRAM|
00000B20: 53 92 22 00 38 13 7A 17 99 22 20 20 20 20 20 B8 |S.".8.z.." .|
00000B30: B8 B8 B8 B8 B8 B8 B8 22 00 52 13 7B 17 4D 53 24 |.......".R.{.MS$|
00000B40: B2 22 20 41 48 45 4D 2E 2E 2E 22 3A 8D 36 33 31 |." AHEM...":.631|
00000B50: 30 30 00 5D 13 7F 17 8D 36 33 30 30 30 00 8D 13 |00.]....63000...|
00000B60: 84 17 99 22 93 49 46 20 59 4F 55 20 47 49 56 45 |...".IF YOU GIVE|
00000B70: 20 45 41 43 48 20 49 4E 53 54 52 55 43 54 49 4F | EACH INSTRUCTIO|
00000B80: 4E 20 41 20 27 4E 55 4D 42 45 52 27 22 00 B4 13 |N A 'NUMBER'"...|
00000B90: 8E 17 99 22 11 49 27 4C 4C 20 52 45 4D 45 4D 42 |...".I'LL REMEMB|
00000BA0: 45 52 20 54 48 45 20 49 4E 53 54 52 55 43 54 49 |ER THE INSTRUCTI|
00000BB0: 4F 4E 21 22 00 CF 13 98 17 99 22 11 46 4F 52 20 |ON!"......".FOR |
00000BC0: 45 58 41 4D 50 4C 45 2C 20 54 59 50 45 3A 22 00 |EXAMPLE, TYPE:".|
00000BD0: E5 13 A2 17 99 22 11 12 31 30 20 59 3D 28 41 2B |....."..10 Y=(A+|
00000BE0: 42 29 2F 32 22 00 FA 13 AC 17 99 22 12 32 30 20 |B)/2"......".20 |
00000BF0: 3F 59 20 20 20 20 20 20 20 22 00 22 14 C0 17 99 |?Y "."....|
00000C00: 22 11 23 31 30 20 53 41 59 53 3A 43 4F 4D 50 55 |".#10 SAYS:COMPU|
00000C10: 54 45 20 54 48 45 20 41 56 45 52 41 47 45 20 4F |TE THE AVERAGE O|
00000C20: 46 22 00 4C 14 C5 17 99 22 11 54 57 4F 20 4E 55 |F".L....".TWO NU|
00000C30: 4D 42 45 52 53 20 41 20 26 20 42 2C 20 41 4E 44 |MBERS A & B, AND|
00000C40: 20 43 41 4C 4C 20 49 54 20 59 2E 22 00 73 14 D4 | CALL IT Y.".s..|
00000C50: 17 99 22 11 23 32 30 20 53 41 59 53 3A 50 52 49 |..".#20 SAYS:PRI|
00000C60: 4E 54 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 |NT THE VALUE OF |
00000C70: 59 2E 22 00 A3 14 E8 17 99 22 11 4E 4F 57 20 49 |Y."......".NOW I|
00000C80: 27 4C 4C 20 27 52 45 4D 45 4D 42 45 52 27 20 54 |'LL 'REMEMBER' T|
00000C90: 48 45 53 45 20 49 4E 53 54 52 55 43 54 49 4F 4E |HESE INSTRUCTION|
00000CA0: 53 21 22 00 CD 14 F2 17 99 22 11 43 4C 45 41 52 |S!"......".CLEAR|
00000CB0: 20 54 48 45 20 53 43 52 45 45 4E 2C 54 59 50 45 | THE SCREEN,TYPE|
00000CC0: 20 12 41 3D 31 2E 35 3A 42 3D 2D 34 22 00 F1 14 | .A=1.5:B=-4"...|
00000CD0: FC 17 99 22 11 54 48 45 4E 20 12 47 4F 54 4F 20 |...".THEN .GOTO |
00000CE0: 31 30 92 2E 2E 2E 49 27 4C 4C 20 4F 42 45 59 21 |10....I'LL OBEY!|
00000CF0: 22 00 0F 15 06 18 99 22 11 54 52 59 20 49 54 21 |"......".TRY IT!|
00000D00: 20 20 54 48 45 4E 20 12 54 59 50 45 20 40 22 00 | THEN .TYPE @".|
00000D10: 2A 15 10 18 4D 53 24 B2 22 20 20 47 4F 54 4F 20 |*...MS$." GOTO |
00000D20: 31 30 22 3A 8D 36 33 31 30 30 00 41 15 1A 18 53 |10":.63100.A...S|
00000D30: 4E 24 B2 22 30 37 30 30 30 22 3A 89 36 33 33 30 |N$."07000":.6330|
00000D40: 30 00 70 15 58 1B 8D 36 30 30 30 30 3A 99 22 93 |0.p.X..60000:.".|
00000D50: 53 55 50 50 4F 53 45 20 59 4F 55 20 57 41 4E 54 |SUPPOSE YOU WANT|
00000D60: 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 59 22 | THE VALUE OF Y"|
00000D70: 00 9D 15 62 1B 99 22 11 50 52 49 4E 54 45 44 20 |...b..".PRINTED |
00000D80: 49 4E 20 54 48 45 20 4D 49 44 44 4C 45 20 4F 46 |IN THE MIDDLE OF|
00000D90: 20 54 48 45 20 53 43 52 45 45 4E 2E 22 00 AB 15 | THE SCREEN."...|
00000DA0: 87 1B 99 22 11 54 59 50 45 3A 22 00 B7 15 8A 1B |...".TYPE:".....|
00000DB0: 99 22 11 31 35 3F 22 00 CD 15 94 1B 99 22 31 36 |.".15?"......"16|
00000DC0: 3F 53 50 43 28 22 57 32 24 22 29 3B 22 00 FB 15 |?SPC("W2$");"...|
00000DD0: 9E 1B 99 22 11 23 31 35 20 53 41 59 53 3A 50 52 |...".#15 SAYS:PR|
00000DE0: 49 4E 54 20 4E 4F 54 48 49 4E 47 2E 2E 41 20 42 |INT NOTHING..A B|
00000DF0: 4C 41 4E 4B 20 4C 49 4E 45 2E 22 00 26 16 B2 1B |LANK LINE.".&...|
00000E00: 99 22 11 23 31 36 20 53 41 59 53 3A 53 50 41 43 |.".#16 SAYS:SPAC|
00000E10: 45 20 52 49 47 48 54 20 22 57 32 24 22 20 50 4C |E RIGHT "W2$" PL|
00000E20: 41 43 45 53 2E 22 00 4F 16 BC 1B 99 22 11 3E 54 |ACES.".O....".>T|
00000E30: 48 45 20 53 45 4D 49 2D 43 4F 4C 4F 4E 20 41 46 |HE SEMI-COLON AF|
00000E40: 54 45 52 20 53 50 43 28 22 57 32 24 22 29 22 00 |TER SPC("W2$")".|
00000E50: 74 16 C6 1B 99 22 11 53 41 59 53 3A 4C 45 41 56 |t....".SAYS:LEAV|
00000E60: 45 20 54 48 45 20 43 55 52 53 4F 52 20 54 48 45 |E THE CURSOR THE|
00000E70: 52 45 21 22 00 A1 16 D0 1B 99 22 11 59 4F 55 20 |RE!"......".YOU |
00000E80: 53 45 45 2C 49 20 4E 4F 52 4D 41 4C 4C 59 20 52 |SEE,I NORMALLY R|
00000E90: 45 54 55 52 4E 20 54 48 45 20 43 55 52 53 4F 52 |ETURN THE CURSOR|
00000EA0: 22 00 BE 16 D5 1B 99 22 11 54 4F 20 54 48 45 20 |"......".TO THE |
00000EB0: 4C 45 46 54 20 4D 41 52 47 49 4E 2E 2E 22 00 E0 |LEFT MARGIN.."..|
00000EC0: 16 DA 1B 99 22 11 55 4E 4C 45 53 53 20 59 4F 55 |....".UNLESS YOU|
00000ED0: 20 49 4E 43 4C 55 44 45 20 54 48 45 20 12 3B 22 | INCLUDE THE .;"|
00000EE0: 00 EB 16 E4 1B 8D 36 33 30 30 30 00 1B 17 E9 1B |......63000.....|
00000EF0: 99 22 93 11 11 54 59 50 45 20 53 54 41 54 45 4D |."...TYPE STATEM|
00000F00: 45 4E 54 53 20 49 4E 20 41 4E 59 11 9D 9D 9D B8 |ENTS IN ANY.....|
00000F10: B8 B8 91 20 4F 52 44 45 52 2E 22 00 43 17 EA 1B |... ORDER.".C...|
00000F20: 99 22 11 49 27 4C 4C 20 52 45 4D 45 4D 42 45 52 |.".I'LL REMEMBER|
00000F30: 20 54 48 45 4D 20 49 4E 20 54 48 45 20 4F 52 44 | THEM IN THE ORD|
00000F40: 45 52 22 00 6D 17 EB 1B 99 22 11 4F 46 20 54 48 |ER".m....".OF TH|
00000F50: 45 49 52 20 53 54 41 54 45 4D 45 4E 54 20 23 27 |EIR STATEMENT #'|
00000F60: 53 21 20 59 4F 55 20 54 59 50 45 3A 22 00 81 17 |S! YOU TYPE:"...|
00000F70: F8 1B 99 22 11 31 30 59 3D 28 41 2B 42 29 2F 32 |...".10Y=(A+B)/2|
00000F80: 22 00 94 17 F9 1B 99 22 32 30 3F 59 20 20 20 20 |"......"20?Y |
00000F90: 20 20 20 22 00 A7 17 FA 1B 99 22 31 35 3F 20 20 | "......"15? |
00000FA0: 20 20 20 20 20 20 22 00 BD 17 FB 1B 99 22 31 36 | "......"16|
00000FB0: 3F 53 50 43 28 22 57 32 24 22 29 3B 22 00 D9 17 |?SPC("W2$");"...|
00000FC0: 02 1C 99 22 11 49 20 52 45 4D 45 4D 42 45 52 20 |...".I REMEMBER |
00000FD0: 54 48 45 4D 20 41 53 3A 22 00 EF 17 03 1C 99 22 |THEM AS:"......"|
00000FE0: 11 20 31 30 20 59 3D 28 41 2B 42 29 2F 32 22 00 |. 10 Y=(A+B)/2".|
00000FF0: 00 18 04 1C 99 22 20 31 35 20 50 52 49 4E 54 22 |....." 15 PRINT"|
00001000: 00 1C 18 05 1C 99 22 20 31 36 20 50 52 49 4E 54 |......" 16 PRINT|
00001010: 53 50 43 28 22 57 32 24 22 29 3B 22 00 2E 18 06 |SPC("W2$");"....|
00001020: 1C 99 22 20 32 30 20 50 52 49 4E 54 59 22 00 57 |.." 20 PRINTY".W|
00001030: 18 0C 1C 99 22 11 54 52 59 20 49 54 21 2E 2E 54 |....".TRY IT!..T|
00001040: 48 45 4E 20 54 59 50 45 20 12 40 92 20 54 4F 20 |HEN TYPE .@. TO |
00001050: 47 4F 20 4F 4E 2E 22 00 6E 18 5C 1C 53 4E 24 B2 |GO ON.".n.\.SN$.|
00001060: 22 30 38 30 30 30 22 3A 89 36 33 33 30 30 00 79 |"08000":.63300.y|
00001070: 18 40 1F 8D 36 30 30 30 30 00 96 18 4A 1F 99 22 |.@..60000...J.."|
00001080: 93 20 31 30 20 59 3D 28 41 2B 42 29 2F 32 20 20 |. 10 Y=(A+B)/2 |
00001090: 20 20 20 20 A6 22 00 BD 18 54 1F 99 22 20 31 35 | ."...T.." 15|
000010A0: 20 50 52 49 4E 54 20 20 20 20 20 20 20 20 20 20 | PRINT |
000010B0: A6 54 48 45 20 50 52 4F 47 52 41 4D 22 00 E2 18 |.THE PROGRAM"...|
000010C0: 5E 1F 99 22 20 31 36 20 50 52 49 4E 54 53 50 43 |^.." 16 PRINTSPC|
000010D0: 28 22 57 32 24 22 29 3B 20 20 A6 53 4F 20 46 41 |("W2$"); .SO FA|
000010E0: 52 22 00 FE 18 68 1F 99 22 20 32 30 20 50 52 49 |R"...h.." 20 PRI|
000010F0: 4E 54 59 20 20 20 20 20 20 20 20 20 A6 22 00 27 |NTY .".'|
00001100: 19 7C 1F 99 22 11 54 4F 20 43 4F 4E 56 49 4E 43 |.|..".TO CONVINC|
00001110: 45 20 59 4F 55 52 53 45 4C 46 20 54 48 41 54 20 |E YOURSELF THAT |
00001120: 49 20 48 41 56 45 22 00 50 19 86 1F 99 22 11 41 |I HAVE".P....".A|
00001130: 4C 4C 20 59 4F 55 52 20 49 4E 53 54 52 55 43 54 |LL YOUR INSTRUCT|
00001140: 49 4F 4E 53 2C 49 4E 20 4F 52 44 45 52 2E 2E 22 |IONS,IN ORDER.."|
00001150: 00 6D 19 9A 1F 99 22 11 4A 55 53 54 20 54 59 50 |.m....".JUST TYP|
00001160: 45 3A 12 4C 49 53 54 31 30 2D 32 30 22 00 9B 19 |E:.LIST10-20"...|
00001170: AE 1F 99 22 11 49 27 4C 4C 20 50 52 49 4E 54 20 |...".I'LL PRINT |
00001180: 45 56 45 52 59 20 53 54 41 54 45 4D 45 4E 54 20 |EVERY STATEMENT |
00001190: 3A 31 30 20 54 4F 20 32 30 2E 22 00 C1 19 B8 1F |:10 TO 20.".....|
000011A0: 99 22 11 59 4F 55 20 43 41 4E 20 45 44 49 54 20 |.".YOU CAN EDIT |
000011B0: 53 54 41 54 45 4D 45 4E 54 53 20 52 49 47 48 54 |STATEMENTS RIGHT|
000011C0: 22 00 F0 19 BD 1F 99 22 11 4F 4E 20 54 48 45 20 |"......".ON THE |
000011D0: 53 43 52 45 45 4E 2E 20 4A 55 53 54 20 12 4C 49 |SCREEN. JUST .LI|
000011E0: 53 54 92 20 2E 2E 54 48 45 4E 20 4D 4F 56 45 22 |ST. ..THEN MOVE"|
000011F0: 00 19 1A CC 1F 99 22 11 54 48 45 20 43 55 52 53 |......".THE CURS|
00001200: 4F 52 2E 2E 54 48 45 4E 20 12 49 4E 53 54 2F 44 |OR..THEN .INST/D|
00001210: 45 4C 92 20 45 54 43 2E 22 00 44 1A D6 1F 99 22 |EL. ETC.".D...."|
00001220: 11 54 4F 20 43 48 45 43 4B 20 54 48 45 20 43 48 |.TO CHECK THE CH|
00001230: 41 4E 47 45 53 2C 20 12 4C 49 53 54 92 20 41 47 |ANGES, .LIST. AG|
00001240: 41 49 4E 2E 00 6D 1A DB 1F 99 22 11 57 41 4E 54 |AIN..m....".WANT|
00001250: 20 54 4F 20 54 52 59 3F 20 28 43 4F 4E 54 49 4E | TO TRY? (CONTIN|
00001260: 55 45 20 57 49 54 48 20 12 40 92 29 22 00 84 1A |UE WITH .@.)"...|
00001270: E0 1F 53 4E 24 B2 22 30 39 30 30 30 22 3A 89 36 |..SN$."09000":.6|
00001280: 33 33 30 30 00 A9 1A 28 23 8D 36 30 30 30 30 3A |3300...(#.60000:|
00001290: 4D 53 24 B2 22 12 53 4F 4D 45 20 4E 4F 54 45 53 |MS$.".SOME NOTES|
000012A0: 92 22 3A 8D 36 33 31 30 30 00 C9 1A 32 23 99 22 |.":.63100...2#."|
000012B0: 93 54 4F 20 12 43 48 41 4E 47 45 92 20 41 20 53 |.TO .CHANGE. A S|
000012C0: 54 41 54 45 4D 45 4E 54 22 00 F7 1A 3C 23 99 22 |TATEMENT"...<#."|
000012D0: 11 54 59 50 45 20 54 48 45 20 4E 4F 2E 20 41 4E |.TYPE THE NO. AN|
000012E0: 44 20 54 48 45 20 4E 45 57 20 49 4E 53 54 52 55 |D THE NEW INSTRU|
000012F0: 43 54 49 4F 4E 2E 22 00 21 1B 46 23 99 22 28 49 |CTION.".!.F#."(I|
00001300: 27 4C 4C 20 46 4F 52 47 45 54 20 54 48 45 20 4F |'LL FORGET THE O|
00001310: 4C 44 20 49 4E 53 54 52 55 43 54 49 4F 4E 29 2E |LD INSTRUCTION).|
00001320: 22 00 41 1B 50 23 99 22 11 54 4F 20 12 44 45 4C |".A.P#.".TO .DEL|
00001330: 45 54 45 92 20 41 20 53 54 41 54 45 4D 45 4E 54 |ETE. A STATEMENT|
00001340: 22 00 6B 1B 5A 23 99 22 11 54 59 50 45 20 54 48 |".k.Z#.".TYPE TH|
00001350: 45 20 4E 4F 2E 20 54 48 45 4E 20 50 52 45 53 53 |E NO. THEN PRESS|
00001360: 20 27 52 45 54 55 52 4E 27 21 22 00 86 1B 82 23 | 'RETURN'!"....#|
00001370: 99 22 11 57 48 49 43 48 20 52 45 4D 49 4E 44 53 |.".WHICH REMINDS|
00001380: 20 4D 45 2E 2E 22 00 AD 1B 8C 23 99 22 11 12 44 | ME.."....#."..D|
00001390: 4F 20 4E 4F 54 92 20 54 59 50 45 20 49 4E 20 53 |O NOT. TYPE IN S|
000013A0: 4F 4D 45 20 4E 55 4D 42 45 52 2E 2E 22 00 D4 1B |OME NUMBER.."...|
000013B0: 96 23 99 22 43 48 41 4E 47 45 20 59 4F 55 52 20 |.#."CHANGE YOUR |
000013C0: 4D 49 4E 44 2E 2E 2E 48 49 54 20 52 45 54 55 52 |MIND...HIT RETUR|
000013D0: 4E 2E 2E 22 00 F6 1B A0 23 99 22 2E 2E 54 48 45 |N.."....#."..THE|
000013E0: 4E 20 52 45 45 4E 54 45 52 20 54 48 45 20 4E 55 |N REENTER THE NU|
000013F0: 4D 42 45 52 2E 22 00 21 1C AA 23 99 22 59 4F 55 |MBER.".!..#."YOU|
00001400: 20 4D 41 59 20 48 41 56 45 20 57 49 50 45 44 20 | MAY HAVE WIPED |
00001410: 4F 55 54 20 41 20 53 54 41 54 45 4D 45 4E 54 21 |OUT A STATEMENT!|
00001420: 22 00 45 1C B4 23 99 22 11 4E 4F 54 45 2C 54 4F |".E..#.".NOTE,TO|
00001430: 4F 2C 54 48 41 54 20 59 4F 55 20 4D 41 59 20 55 |O,THAT YOU MAY U|
00001440: 53 45 20 3F 22 00 6C 1C B9 23 99 22 11 49 20 57 |SE ?".l..#.".I W|
00001450: 49 4C 4C 20 52 45 4D 45 4D 42 45 52 20 49 54 20 |ILL REMEMBER IT |
00001460: 41 53 20 12 50 52 49 4E 54 92 2E 22 00 77 1C C8 |AS .PRINT..".w..|
00001470: 23 8D 36 33 30 30 30 00 A3 1C C9 23 99 22 93 41 |#.63000....#.".A|
00001480: 4C 53 4F 2E 2E 49 20 52 45 4D 45 4D 42 45 52 20 |LSO..I REMEMBER |
00001490: 4F 4E 4C 59 20 54 48 45 20 46 49 52 53 54 20 54 |ONLY THE FIRST T|
000014A0: 57 4F 22 00 D0 1C CA 23 99 22 11 43 48 41 52 41 |WO"....#.".CHARA|
000014B0: 43 54 45 52 53 20 49 4E 20 41 4E 59 20 12 4E 41 |CTERS IN ANY .NA|
000014C0: 4D 45 92 20 59 4F 55 20 41 53 53 49 47 4E 2E 22 |ME. YOU ASSIGN."|
000014D0: 00 DF 1C CB 23 99 22 11 53 41 4D 3D 31 30 22 00 |....#.".SAM=10".|
000014E0: EF 1C CC 23 99 22 53 41 4C 4C 59 3D 32 30 22 00 |...#."SALLY=20".|
000014F0: 19 1D CD 23 99 22 11 54 4F 20 4D 45 2C 20 12 42 |...#.".TO ME, .B|
00001500: 4F 54 48 92 20 48 41 56 45 20 54 48 45 20 53 41 |OTH. HAVE THE SA|
00001510: 4D 45 20 4E 41 4D 45 21 22 00 2E 1D CE 23 99 22 |ME NAME!"....#."|
00001520: 11 4E 41 4D 45 4C 59 20 12 53 41 92 21 22 00 5A |.NAMELY .SA.!".Z|
00001530: 1D CF 23 99 22 11 48 45 4E 43 45 20 53 41 3D 31 |..#.".HENCE SA=1|
00001540: 30 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 53 41 |0 FOLLOWED BY SA|
00001550: 3D 32 30 20 4D 41 4B 45 53 22 00 70 1D D0 23 99 |=20 MAKES".p..#.|
00001560: 22 11 53 41 4D 3D 53 41 4C 4C 59 3D 32 30 2E 22 |".SAM=SALLY=20."|
00001570: 00 8C 1D D1 23 4D 53 24 B2 22 53 41 4D 3D 53 41 |....#MS$."SAM=SA|
00001580: 4C 4C 59 3F 22 3A 8D 36 33 31 30 30 00 97 1D D2 |LLY?":.63100....|
00001590: 23 8D 36 33 30 30 30 00 9D 1D 10 27 3A 00 CA 1D |#.63000....':...|
000015A0: 19 27 99 22 93 20 49 4E 20 41 44 44 49 54 49 4F |.'.". IN ADDITIO|
000015B0: 4E 20 54 4F 20 4D 41 4E 49 50 55 4C 41 54 49 4E |N TO MANIPULATIN|
000015C0: 47 20 4E 55 4D 42 45 52 53 22 00 F9 1D 1A 27 99 |G NUMBERS"....'.|
000015D0: 22 11 49 20 43 41 4E 20 4D 41 4E 49 50 55 4C 41 |".I CAN MANIPULA|
000015E0: 54 45 20 12 53 54 52 49 4E 47 53 92 20 4F 46 20 |TE .STRINGS. OF |
000015F0: 53 59 4D 42 4F 4C 53 2E 22 00 28 1E 24 27 99 22 |SYMBOLS.".(.$'."|
00001600: 11 49 4E 20 54 48 45 20 53 41 4D 45 20 57 41 59 |.IN THE SAME WAY|
00001610: 20 54 48 41 54 20 59 4F 55 20 41 53 53 49 47 4E | THAT YOU ASSIGN|
00001620: 20 41 20 4E 41 4D 45 22 00 50 1E 2E 27 99 22 11 | A NAME".P..'.".|
00001630: 54 4F 20 41 20 4E 55 4D 42 45 52 2C 4C 49 4B 45 |TO A NUMBER,LIKE|
00001640: 20 58 20 4F 52 20 59 20 4F 52 20 53 41 4D 2C 22 | X OR Y OR SAM,"|
00001650: 00 79 1E 38 27 99 22 11 59 4F 55 20 43 41 4E 20 |.y.8'.".YOU CAN |
00001660: 47 49 56 45 20 41 20 4E 41 4D 45 20 54 4F 20 41 |GIVE A NAME TO A|
00001670: 20 12 53 54 52 49 4E 47 22 00 90 1E 42 27 99 22 | .STRING"...B'."|
00001680: 11 4F 46 20 43 48 41 52 41 43 54 45 52 53 2E 22 |.OF CHARACTERS."|
00001690: 00 B8 1E 4C 27 99 22 11 53 4F 20 54 48 41 54 20 |...L'.".SO THAT |
000016A0: 49 20 44 4F 4E 27 54 20 42 45 43 4F 4D 45 20 43 |I DON'T BECOME C|
000016B0: 4F 4E 46 55 53 45 44 22 00 E4 1E 56 27 99 22 11 |ONFUSED"...V'.".|
000016C0: 49 20 4D 55 53 54 20 4B 4E 4F 57 20 57 48 45 54 |I MUST KNOW WHET|
000016D0: 48 45 52 20 32 2A 33 20 49 53 20 41 20 4E 55 4D |HER 2*3 IS A NUM|
000016E0: 42 45 52 22 00 0A 1F 60 27 99 22 11 4F 52 20 41 |BER"...`'.".OR A|
000016F0: 20 53 54 52 49 4E 47 20 4F 46 20 54 48 52 45 45 | STRING OF THREE|
00001700: 20 53 59 4D 42 4F 4C 53 2E 22 00 39 1F 6A 27 99 | SYMBOLS.".9.j'.|
00001710: 22 11 48 45 4E 43 45 2C 20 49 20 4D 55 53 54 20 |".HENCE, I MUST |
00001720: 49 4E 53 49 53 54 20 54 48 41 54 20 54 48 45 20 |INSIST THAT THE |
00001730: 4E 41 4D 45 20 59 4F 55 22 00 63 1F 74 27 99 22 |NAME YOU".c.t'."|
00001740: 11 47 49 56 45 20 49 54 20 45 4E 44 53 20 57 49 |.GIVE IT ENDS WI|
00001750: 54 48 20 41 20 24 20 2E 2E 49 46 20 49 54 27 53 |TH A $ ..IF IT'S|
00001760: 20 41 22 00 92 1F 7E 27 99 22 11 53 54 52 49 4E | A"...~'.".STRIN|
00001770: 47 20 4F 46 20 53 59 4D 42 4F 4C 53 2E 2E 4C 49 |G OF SYMBOLS..LI|
00001780: 4B 45 20 58 24 2C 59 24 20 4F 52 20 53 41 4D 24 |KE X$,Y$ OR SAM$|
00001790: 2E 22 00 9D 1F 83 27 8D 36 33 30 30 30 00 C5 1F |."....'.63000...|
000017A0: 88 27 99 22 93 20 59 4F 55 20 43 41 4E 20 4E 4F |.'.". YOU CAN NO|
000017B0: 57 20 54 52 59 20 54 48 45 20 46 4F 4C 4C 4F 57 |W TRY THE FOLLOW|
000017C0: 49 4E 47 3A 22 00 D3 1F 92 27 99 22 11 54 59 50 |ING:"....'.".TYP|
000017D0: 45 3A 22 00 E0 1F 9C 27 99 22 58 3D 32 2B 33 22 |E:"....'."X=2+3"|
000017E0: 00 FA 1F A6 27 99 22 58 24 3D 22 C7 28 33 34 29 |....'."X$=".(34)|
000017F0: 22 32 2B 33 22 C7 28 33 34 29 00 04 20 B0 27 99 |"2+3".(34).. .'.|
00001800: 22 3F 58 22 00 0F 20 BA 27 99 22 3F 58 24 22 00 |"?X".. .'."?X$".|
00001810: 31 20 C4 27 99 22 11 11 12 2E 2E 53 45 45 20 57 |1 .'.".....SEE W|
00001820: 48 41 54 20 49 27 4C 4C 20 50 52 49 4E 54 92 3F |HAT I'LL PRINT.?|
00001830: 22 00 6D 20 D3 27 99 22 11 11 54 48 45 4E 20 54 |".m .'."..THEN T|
00001840: 59 50 45 20 12 40 92 20 54 4F 20 43 4F 4E 54 49 |YPE .@. TO CONTI|
00001850: 4E 55 45 2E 22 3A 4D 53 24 B2 22 20 20 20 3F 3F |NUE.":MS$." ??|
00001860: 3F 3F 20 20 20 22 3A 8D 36 33 31 30 30 00 84 20 |?? ":.63100.. |
00001870: D8 27 53 4E 24 B2 22 31 31 30 30 30 22 3A 89 36 |.'SN$."11000":.6|
00001880: 33 33 30 30 00 8F 20 F8 2A 8D 36 30 30 30 30 00 |3300.. .*.60000.|
00001890: A6 20 02 2B 99 22 59 4F 55 20 47 55 45 53 53 45 |. .+."YOU GUESSE|
000018A0: 44 20 49 54 21 22 00 B9 20 0C 2B 99 22 49 27 4C |D IT!".. .+."I'L|
000018B0: 4C 20 50 52 49 4E 54 3A 22 00 C5 20 16 2B 99 3A |L PRINT:".. .+.:|
000018C0: 99 22 20 35 22 00 D2 20 20 2B 99 22 32 2B 33 22 |." 5".. +."2+3"|
000018D0: 3A 99 00 DD 20 25 2B 8D 36 33 30 30 30 00 09 21 |:... %+.63000..!|
000018E0: 2A 2B 99 22 93 20 4E 4F 57 20 57 48 41 54 20 44 |*+.". NOW WHAT D|
000018F0: 4F 20 59 4F 55 20 54 48 49 4E 4B 20 58 24 2B 59 |O YOU THINK X$+Y|
00001900: 24 20 4D 45 41 4E 53 3F 22 00 1F 21 34 2B 99 22 |$ MEANS?"..!4+."|
00001910: 11 54 52 59 20 54 59 50 49 4E 47 3A 22 3A 99 00 |.TRY TYPING:":..|
00001920: 38 21 3E 2B 99 22 11 41 24 3D 22 C7 28 33 34 29 |8!>+.".A$=".(34)|
00001930: 22 49 22 C7 28 33 34 29 00 52 21 48 2B 99 22 42 |"I".(34).R!H+."B|
00001940: 24 3D 22 C7 28 33 34 29 22 59 4F 55 22 C7 28 33 |$=".(34)"YOU".(3|
00001950: 34 29 00 72 21 52 2B 99 22 59 24 3D 22 C7 28 33 |4).r!R+."Y$=".(3|
00001960: 34 29 22 41 4D 20 47 52 45 41 54 21 22 C7 28 33 |4)"AM GREAT!".(3|
00001970: 34 29 00 91 21 5C 2B 99 22 5A 24 3D 22 C7 28 33 |4)..!\+."Z$=".(3|
00001980: 34 29 22 41 52 45 20 54 4F 4F 3F 22 C7 28 33 34 |4)"ARE TOO?".(34|
00001990: 29 00 A6 21 66 2B 99 22 11 54 48 45 4E 20 41 53 |)..!f+.".THEN AS|
000019A0: 4B 20 4D 45 3A 22 00 B5 21 70 2B 99 22 11 3F 41 |K ME:"..!p+.".?A|
000019B0: 24 2B 59 24 22 00 C3 21 7A 2B 99 22 3F 42 24 2B |$+Y$"..!z+."?B$+|
000019C0: 5A 24 22 00 E1 21 84 2B 99 22 11 54 52 59 20 49 |Z$"..!.+.".TRY I|
000019D0: 54 21 20 20 54 48 45 4E 20 54 59 50 45 20 12 40 |T! THEN TYPE .@|
000019E0: 22 00 FD 21 89 2B 4D 53 24 B2 22 20 20 47 52 45 |"..!.+MS$." GRE|
000019F0: 41 54 3F 20 20 22 3A 8D 36 33 31 30 30 00 14 22 |AT? ":.63100.."|
00001A00: 8E 2B 53 4E 24 B2 22 31 32 30 30 30 22 3A 89 36 |.+SN$."12000":.6|
00001A10: 33 33 30 30 00 48 22 E0 2E 8D 36 30 30 30 30 3A |3300.H"...60000:|
00001A20: 99 22 93 57 45 4C 4C 2E 2E 49 46 20 59 4F 55 20 |.".WELL..IF YOU |
00001A30: 54 52 49 45 44 20 49 54 20 59 4F 55 27 4C 4C 20 |TRIED IT YOU'LL |
00001A40: 4E 4F 54 49 43 45 22 22 00 77 22 EA 2E 99 22 11 |NOTICE"".w"...".|
00001A50: 54 48 41 54 20 41 24 20 53 54 41 4E 44 53 20 46 |THAT A$ STANDS F|
00001A60: 4F 52 20 12 45 56 45 52 59 54 48 49 4E 47 92 20 |OR .EVERYTHING. |
00001A70: 49 4E 53 49 44 45 22 00 9F 22 F4 2E 99 22 11 54 |INSIDE".."...".T|
00001A80: 48 45 20 51 55 4F 54 45 53 2E 20 49 46 20 59 4F |HE QUOTES. IF YO|
00001A90: 55 20 57 41 4E 54 20 41 20 53 50 41 43 45 22 00 |U WANT A SPACE".|
00001AA0: CC 22 FE 2E 99 22 11 41 46 54 45 52 20 49 2E 2E |."...".AFTER I..|
00001AB0: 54 48 45 4E 20 49 4E 43 4C 55 44 45 20 54 48 45 |THEN INCLUDE THE|
00001AC0: 20 53 50 41 43 45 20 54 4F 4F 21 22 00 DB 22 08 | SPACE TOO!"..".|
00001AD0: 2F 99 22 20 20 20 20 20 20 A3 22 00 F6 22 0D 2F |/." .".."./|
00001AE0: 99 22 11 11 41 24 3D 22 C7 28 33 34 29 22 49 20 |."..A$=".(34)"I |
00001AF0: 22 C7 28 33 34 29 00 04 23 0E 2F 99 22 20 20 20 |".(34)..#./." |
00001B00: 20 20 5E 22 00 15 23 0F 2F 99 22 20 20 20 20 20 | ^"..#./." |
00001B10: 53 45 45 3F 22 00 20 23 10 2F 8D 36 33 30 30 30 |SEE?". #./.63000|
00001B20: 00 50 23 12 2F 99 22 93 4F 4B 2E 2E 4C 45 54 27 |.P#./.".OK..LET'|
00001B30: 53 20 57 4F 52 4B 20 41 4C 4C 20 54 48 49 53 20 |S WORK ALL THIS |
00001B40: 49 4E 54 4F 20 41 20 50 52 4F 47 52 41 4D 2E 22 |INTO A PROGRAM."|
00001B50: 00 63 23 1C 2F 99 22 4C 45 54 27 53 20 54 59 50 |.c#./."LET'S TYP|
00001B60: 45 3A 22 00 98 23 26 2F 99 22 11 31 30 3F 22 C7 |E:"..#&/.".10?".|
00001B70: 28 33 34 29 22 43 41 4C 43 55 4C 41 54 49 4F 4E |(34)"CALCULATION|
00001B80: 20 4F 46 20 54 48 45 20 48 59 50 4F 54 45 4E 55 | OF THE HYPOTENU|
00001B90: 53 45 22 C7 28 33 34 29 00 BB 23 30 2F 99 22 32 |SE".(34)..#0/."2|
00001BA0: 30 3F 22 C7 28 33 34 29 22 45 4E 54 45 52 20 53 |0?".(34)"ENTER S|
00001BB0: 49 44 45 20 41 22 C7 28 33 34 29 00 CD 23 3A 2F |IDE A".(34)..#:/|
00001BC0: 99 22 33 30 20 49 4E 50 55 54 20 41 22 00 F0 23 |."30 INPUT A"..#|
00001BD0: 44 2F 99 22 34 30 3F 22 C7 28 33 34 29 22 45 4E |D/."40?".(34)"EN|
00001BE0: 54 45 52 20 53 49 44 45 20 42 22 C7 28 33 34 29 |TER SIDE B".(34)|
00001BF0: 00 02 24 4E 2F 99 22 35 30 20 49 4E 50 55 54 20 |..$N/."50 INPUT |
00001C00: 42 22 00 30 24 58 2F 99 22 36 30 20 43 3D 53 51 |B".0$X/."60 C=SQ|
00001C10: 52 28 41 2A 41 2B 42 2A 42 29 3A 3F 22 C7 28 33 |R(A*A+B*B):?".(3|
00001C20: 34 29 22 48 59 50 3D 22 C7 28 33 34 29 22 43 22 |4)"HYP=".(34)"C"|
00001C30: 00 43 24 62 2F 99 22 37 30 20 47 4F 20 54 4F 20 |.C$b/."70 GO TO |
00001C40: 32 30 22 00 6A 24 6C 2F 99 22 11 54 48 45 20 4F |20".j$l/.".THE O|
00001C50: 4E 4C 59 20 54 48 49 4E 47 20 4E 45 57 20 49 53 |NLY THING NEW IS|
00001C60: 20 12 49 4E 50 55 54 92 2E 22 00 94 24 8A 2F 99 | .INPUT.."..$./.|
00001C70: 22 11 41 54 20 53 54 41 54 45 4D 45 4E 54 23 33 |".AT STATEMENT#3|
00001C80: 30 20 49 27 4C 4C 20 57 41 49 54 20 46 4F 52 20 |0 I'LL WAIT FOR |
00001C90: 59 4F 55 22 00 C0 24 94 2F 99 22 11 54 4F 20 54 |YOU"..$./.".TO T|
00001CA0: 59 50 45 20 49 4E 20 41 20 4E 55 4D 42 45 52 2C |YPE IN A NUMBER,|
00001CB0: 20 41 4E 44 20 20 49 27 4C 4C 20 43 41 4C 4C 22 | AND I'LL CALL"|
00001CC0: 00 EA 24 9E 2F 99 22 11 54 48 45 20 4E 55 4D 42 |..$./.".THE NUMB|
00001CD0: 45 52 20 41 2C 49 46 20 59 4F 55 20 53 41 59 20 |ER A,IF YOU SAY |
00001CE0: 12 49 4E 50 55 54 41 92 2E 22 00 09 25 0C 30 99 |.INPUTA.."..%.0.|
00001CF0: 22 11 54 52 59 20 49 54 21 28 54 48 45 4E 20 54 |".TRY IT!(THEN T|
00001D00: 59 50 45 20 12 40 92 29 22 00 25 25 11 30 4D 53 |YPE .@.)".%%.0MS|
00001D10: 24 B2 22 48 59 50 4F 2F 57 48 41 54 3F 22 3A 8D |$."HYPO/WHAT?":.|
00001D20: 36 33 31 30 30 00 3C 25 16 30 53 4E 24 B2 22 31 |63100.<%.0SN$."1|
00001D30: 33 30 30 30 22 3A 89 36 33 33 30 30 00 68 25 C8 |3000":.63300.h%.|
00001D40: 32 8D 36 30 30 30 30 3A 99 22 93 53 55 50 50 4F |2.60000:.".SUPPO|
00001D50: 53 45 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 |SE YOU WANT THE |
00001D60: 53 51 55 41 52 45 53 22 00 8F 25 D2 32 99 22 11 |SQUARES"..%.2.".|
00001D70: 4F 46 20 54 48 45 20 49 4E 54 45 47 45 52 53 20 |OF THE INTEGERS |
00001D80: 46 52 4F 4D 20 31 20 54 4F 20 31 30 30 2E 22 00 |FROM 1 TO 100.".|
00001D90: A7 25 DC 32 99 22 11 59 4F 55 20 43 4F 55 4C 44 |.%.2.".YOU COULD|
00001DA0: 20 54 59 50 45 3A 22 00 B8 25 E6 32 99 22 11 12 | TYPE:"..%.2."..|
00001DB0: 31 30 20 3F 31 2A 31 22 00 D4 25 F0 32 99 22 12 |10 ?1*1"..%.2.".|
00001DC0: 32 30 20 3F 32 2A 32 92 20 20 20 45 54 43 2E 45 |20 ?2*2. ETC.E|
00001DD0: 54 43 2E 22 00 01 26 04 33 99 22 11 4F 52 2C 59 |TC."..&.3.".OR,Y|
00001DE0: 4F 55 20 43 4F 55 4C 44 20 52 45 50 45 41 54 20 |OU COULD REPEAT |
00001DF0: 54 48 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 3A |THE INSTRUCTION:|
00001E00: 22 00 13 26 0E 33 99 22 11 12 31 30 20 3F 4E 2A |"..&.3."..10 ?N*|
00001E10: 4E 92 22 00 40 26 18 33 99 22 11 41 47 41 49 4E |N.".@&.3.".AGAIN|
00001E20: 20 26 20 41 47 41 49 4E 2C 46 4F 52 20 4E 3D 31 | & AGAIN,FOR N=1|
00001E30: 20 54 48 45 4E 20 4E 3D 32 2E 2E 45 54 43 2E 22 | THEN N=2..ETC."|
00001E40: 00 6F 26 22 33 99 22 11 54 4F 20 44 4F 20 54 48 |.o&"3.".TO DO TH|
00001E50: 49 53 20 59 4F 55 20 50 55 54 20 54 48 45 20 49 |IS YOU PUT THE I|
00001E60: 4E 53 54 52 55 43 54 49 4F 4E 20 54 4F 20 22 00 |NSTRUCTION TO ".|
00001E70: 9D 26 2C 33 99 22 11 42 45 20 52 45 50 45 41 54 |.&,3.".BE REPEAT|
00001E80: 45 44 20 57 49 54 48 49 4E 20 41 20 12 46 4F 52 |ED WITHIN A .FOR|
00001E90: 2D 4E 45 58 54 92 20 4C 4F 4F 50 3A 22 00 D5 26 |-NEXT. LOOP:"..&|
00001EA0: 40 33 99 22 11 12 31 30 20 46 4F 52 20 4E 3D 31 |@3."..10 FOR N=1|
00001EB0: 20 54 4F 20 31 30 30 92 20 5F 48 45 52 45 27 53 | TO 100. _HERE'S|
00001EC0: 20 54 48 45 20 22 C7 28 33 34 29 22 46 4F 52 22 | THE ".(34)"FOR"|
00001ED0: C7 28 33 34 29 00 EF 26 4A 33 99 22 12 32 30 20 |.(34)..&J3.".20 |
00001EE0: 3F 4E 2A 4E 20 20 20 20 20 20 20 20 20 20 22 00 |?N*N ".|
00001EF0: 27 27 54 33 99 22 12 33 30 20 4E 45 58 54 20 20 |''T3.".30 NEXT |
00001F00: 20 20 20 20 20 20 20 20 92 20 5F 48 45 52 45 27 | . _HERE'|
00001F10: 53 20 54 48 45 20 22 C7 28 33 34 29 22 4E 45 58 |S THE ".(34)"NEX|
00001F20: 54 22 C7 28 33 34 29 00 37 27 5E 33 8D 36 33 30 |T".(34).7'^3.630|
00001F30: 30 30 3A 99 22 93 22 00 53 27 68 33 4D 53 24 B2 |00:.".".S'h3MS$.|
00001F40: 22 20 57 41 54 43 48 21 21 20 20 22 3A 8D 36 33 |" WATCH!! ":.63|
00001F50: 31 30 30 00 7E 27 B0 36 8D 36 30 30 30 30 3A 99 |100.~'.6.60000:.|
00001F60: 22 93 48 4F 57 27 53 20 54 48 49 53 20 46 4F 52 |".HOW'S THIS FOR|
00001F70: 20 41 20 44 49 56 45 52 53 49 4F 4E 3F 22 00 92 | A DIVERSION?"..|
00001F80: 27 BA 36 81 54 B2 31 A4 35 30 30 3A 82 3A 99 22 |'.6.T.1.500:.:."|
00001F90: 93 22 00 9D 27 C4 36 81 49 B2 31 A4 32 00 B4 27 |."..'.6.I.1.2..'|
00001FA0: CE 36 81 4A B2 31 A4 57 44 AB 31 3A 81 54 B2 31 |.6.J.1.WD.1:.T.1|
00001FB0: A4 35 3A 82 00 C2 27 D8 36 99 22 20 2A 9D 22 3B |.5:...'.6." *.";|
00001FC0: 3A 82 00 D9 27 E2 36 81 4A B2 31 A4 57 44 AB 31 |:...'.6.J.1.WD.1|
00001FD0: 3A 81 54 B2 31 A4 35 3A 82 00 E9 27 EC 36 99 22 |:.T.1.5:...'.6."|
00001FE0: 20 9D 9D 2A 9D 22 3B 3A 82 00 FE 27 F6 36 81 4A | ..*.";:...'.6.J|
00001FF0: B2 31 A4 57 44 3A 81 54 B2 31 A4 35 3A 82 00 0C |.1.WD:.T.1.5:...|
00002000: 28 00 37 99 22 2A 22 3B 3A 82 3A 82 00 17 28 0A |(.7."*";:.:...(.|
00002010: 37 8D 36 33 30 30 30 00 47 28 14 37 99 22 93 22 |7.63000.G(.7."."|
00002020: 3A 4D 53 24 B2 22 20 20 12 4E 49 43 45 20 21 92 |:MS$." .NICE !.|
00002030: 20 20 22 3A 8D 36 30 30 30 30 3A 8D 36 33 31 30 | ":.60000:.6310|
00002040: 30 3A 99 22 93 22 3B 00 5D 28 46 37 99 22 11 4C |0:.".";.](F7.".L|
00002050: 45 54 27 53 20 54 52 59 20 49 54 21 22 00 87 28 |ET'S TRY IT!"..(|
00002060: 50 37 99 22 11 54 48 45 52 45 20 57 49 4C 4C 20 |P7.".THERE WILL |
00002070: 42 45 20 34 20 12 46 4F 52 2D 4E 45 58 54 92 20 |BE 4 .FOR-NEXT. |
00002080: 4C 4F 4F 50 53 2E 22 00 B1 28 5A 37 99 22 11 12 |LOOPS."..(Z7."..|
00002090: 31 92 3A 22 57 33 24 22 20 4D 4F 56 45 4D 45 4E |1.:"W3$" MOVEMEN|
000020A0: 54 53 20 54 4F 20 54 48 45 20 52 49 47 48 54 2E |TS TO THE RIGHT.|
000020B0: 22 00 D1 28 64 37 99 22 11 12 32 92 3A 22 57 33 |"..(d7."..2.:"W3|
000020C0: 24 22 20 54 4F 20 54 48 45 20 4C 45 46 54 2E 2E |$" TO THE LEFT..|
000020D0: 22 00 FF 28 6E 37 99 22 11 28 45 41 43 48 20 4F |"..(n7.".(EACH O|
000020E0: 46 20 54 48 45 20 41 42 4F 56 45 20 57 49 4C 4C |F THE ABOVE WILL|
000020F0: 20 50 52 49 4E 54 20 41 20 4E 45 57 20 2A 22 00 | PRINT A NEW *".|
00002100: 26 29 78 37 99 22 11 41 4E 44 20 45 52 41 53 45 |&)x7.".AND ERASE|
00002110: 20 54 48 45 20 4F 4C 44 20 2A 2E 2E 47 49 56 49 | THE OLD *..GIVI|
00002120: 4E 47 20 54 48 45 00 45 29 82 37 99 22 11 41 50 |NG THE.E).7.".AP|
00002130: 50 45 41 52 41 4E 43 45 20 4F 46 20 4D 4F 54 49 |PEARANCE OF MOTI|
00002140: 4F 4E 29 2E 22 00 70 29 8C 37 99 22 11 12 33 92 |ON).".p).7."..3.|
00002150: 3A 54 48 45 4E 2C 20 52 49 47 48 54 20 41 47 41 |:THEN, RIGHT AGA|
00002160: 49 4E 20 28 42 55 54 20 57 49 54 48 4F 55 54 22 |IN (BUT WITHOUT"|
00002170: 00 92 29 8D 37 99 22 11 45 52 41 53 49 4E 47 29 |..).7.".ERASING)|
00002180: 20 4C 45 41 56 49 4E 47 20 54 48 45 20 2A 27 53 | LEAVING THE *'S|
00002190: 2E 22 00 CA 29 96 37 99 22 11 12 34 92 3A 54 48 |."..).7."..4.:TH|
000021A0: 45 4E 11 9D 9D 9D 9D B8 B8 B8 B8 91 20 41 4C 4C |EN.......... ALL|
000021B0: 20 33 20 4C 4F 4F 50 53 20 57 49 4C 4C 20 42 45 | 3 LOOPS WILL BE|
000021C0: 20 52 45 50 45 41 54 45 44 22 00 E7 29 97 37 99 | REPEATED"..).7.|
000021D0: 22 11 32 20 54 49 4D 45 53 2C 46 4F 52 20 32 20 |".2 TIMES,FOR 2 |
000021E0: 4C 49 4E 45 53 21 22 00 F2 29 A5 37 8D 36 33 30 |LINES!"..).7.630|
000021F0: 30 30 00 0C 2A AA 37 99 22 93 11 11 11 11 11 12 |00..*.7.".......|
00002200: 48 45 52 45 20 57 45 20 47 4F 21 22 00 1B 2A B4 |HERE WE GO!"..*.|
00002210: 37 81 49 B2 31 A4 35 30 30 3A 82 00 44 2A C8 37 |7.I.1.500:..D*.7|
00002220: 99 22 93 41 53 53 55 4D 45 20 54 48 45 20 43 55 |.".ASSUME THE CU|
00002230: 52 53 4F 52 20 49 53 20 27 4F 56 45 52 27 20 41 |RSOR IS 'OVER' A|
00002240: 20 2A 2E 22 00 67 2A D2 37 99 22 11 54 4F 20 45 | *.".g*.7.".TO E|
00002250: 52 41 53 45 20 57 45 20 54 59 50 45 20 27 53 50 |RASE WE TYPE 'SP|
00002260: 41 43 45 27 2E 2E 22 00 8B 2A DC 37 99 22 11 54 |ACE'.."..*.7.".T|
00002270: 48 45 4E 20 2A 2C 54 48 45 4E 20 41 20 27 43 55 |HEN *,THEN A 'CU|
00002280: 52 53 4F 52 2D 4C 45 46 54 27 22 00 BA 2A F0 37 |RSOR-LEFT'"..*.7|
00002290: 99 22 11 28 4C 45 41 56 49 4E 47 20 54 48 45 20 |.".(LEAVING THE |
000022A0: 43 55 52 53 4F 52 20 41 47 41 49 4E 20 27 4F 56 |CURSOR AGAIN 'OV|
000022B0: 45 52 27 20 12 2A 92 29 2E 22 00 D5 2A 0E 38 99 |ER' .*.)."..*.8.|
000022C0: 22 11 31 30 3F 22 C7 28 33 34 29 22 20 2A 9D 22 |".10?".(34)" *."|
000022D0: C7 28 33 34 29 00 E4 2A 18 38 99 22 20 20 20 20 |.(34)..*.8." |
000022E0: 20 20 5E 22 00 08 2B 1D 38 99 22 20 20 20 20 20 | ^"..+.8." |
000022F0: 20 54 48 49 53 20 49 53 20 12 43 55 52 53 4F 52 | THIS IS .CURSOR|
00002300: 2D 4C 45 46 54 92 21 22 00 31 2B 36 38 99 22 11 |-LEFT.!".1+68.".|
00002310: 52 45 50 45 41 54 20 54 48 45 53 45 20 49 4E 53 |REPEAT THESE INS|
00002320: 54 27 4E 53 20 22 57 33 24 22 20 54 49 4D 45 53 |T'NS "W3$" TIMES|
00002330: 22 00 4A 2B 40 38 99 22 11 57 49 54 48 20 41 20 |".J+@8.".WITH A |
00002340: 12 46 4F 52 2D 4E 45 58 54 22 00 5D 2B 4A 38 99 |.FOR-NEXT".]+J8.|
00002350: 22 11 4C 49 4B 45 20 53 4F 3A 22 3A 99 00 76 2B |".LIKE SO:":..v+|
00002360: 54 38 99 22 11 39 20 46 4F 52 20 49 3D 31 20 54 |T8.".9 FOR I=1 T|
00002370: 4F 20 22 57 33 24 00 90 2B 5E 38 99 22 31 30 3F |O "W3$..+^8."10?|
00002380: 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 33 34 29 |".(34)" *.".(34)|
00002390: 00 A0 2B 68 38 99 22 31 31 20 4E 45 58 54 22 3B |..+h8."11 NEXT";|
000023A0: 00 AB 2B 72 38 8D 36 33 30 30 30 00 C9 2B 73 38 |..+r8.63000..+s8|
000023B0: 99 22 93 39 20 46 4F 52 20 49 3D 31 20 54 4F 20 |.".9 FOR I=1 TO |
000023C0: 22 57 33 24 22 20 20 A6 22 00 03 2C 74 38 99 22 |"W3$" ."..,t8."|
000023D0: 31 30 3F 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 |10?".(34)" *.".(|
000023E0: 33 34 29 22 20 20 20 20 20 20 20 20 20 A6 20 57 |34)" . W|
000023F0: 45 20 48 41 56 45 20 54 48 49 53 20 53 4F 20 46 |E HAVE THIS SO F|
00002400: 41 52 22 00 1D 2C 75 38 99 22 31 31 20 4E 45 58 |AR"..,u8."11 NEX|
00002410: 54 20 20 20 20 20 20 20 20 20 20 A6 22 00 35 2C |T .".5,|
00002420: 86 38 99 22 11 4E 4F 57 20 59 4F 55 27 44 20 54 |.8.".NOW YOU'D T|
00002430: 59 50 45 3A 22 00 4E 2C 90 38 99 22 11 31 39 20 |YPE:".N,.8.".19 |
00002440: 46 4F 52 20 49 3D 31 20 54 4F 22 57 33 24 00 6A |FOR I=1 TO"W3$.j|
00002450: 2C 9A 38 99 22 32 30 3F 22 C7 28 33 34 29 22 20 |,.8."20?".(34)" |
00002460: 9D 9D 2A 9D 22 C7 28 33 34 29 00 79 2C A4 38 99 |..*.".(34).y,.8.|
00002470: 22 32 31 20 4E 45 58 54 22 00 A5 2C B8 38 99 22 |"21 NEXT"..,.8."|
00002480: 11 4E 4F 54 45 20 54 48 45 20 53 45 51 55 45 4E |.NOTE THE SEQUEN|
00002490: 43 45 20 4F 46 20 50 52 49 4E 54 20 49 4E 53 54 |CE OF PRINT INST|
000024A0: 27 4E 53 3A 22 00 DD 2C C2 38 99 22 11 12 53 50 |'NS:"..,.8."..SP|
000024B0: 41 43 45 92 2D 12 43 27 53 4F 52 4C 45 46 54 92 |ACE.-.C'SORLEFT.|
000024C0: 2D 12 43 27 53 4F 52 4C 45 46 54 92 2D 12 2A 92 |-.C'SORLEFT.-.*.|
000024D0: 2D 12 43 27 53 4F 52 4C 45 46 54 92 22 00 08 2D |-.C'SORLEFT."..-|
000024E0: CC 38 99 22 11 4E 4F 57 20 57 45 20 48 41 56 45 |.8.".NOW WE HAVE|
000024F0: 20 2A 20 4D 4F 56 49 4E 47 20 54 4F 20 54 48 45 | * MOVING TO THE|
00002500: 20 52 49 47 48 54 2C 22 00 29 2D D6 38 99 22 11 | RIGHT,".)-.8.".|
00002510: 41 4E 44 11 9D 9D 9D B8 B8 B8 91 20 54 4F 20 54 |AND........ TO T|
00002520: 48 45 20 4C 45 46 54 2C 22 00 36 2D E0 38 99 22 |HE LEFT,".6-.8."|
00002530: 11 4E 4F 57 3A 22 00 4C 2D EA 38 99 22 11 32 39 |.NOW:".L-.8.".29|
00002540: 46 4F 52 49 3D 31 54 4F 22 57 31 24 00 64 2D F4 |FORI=1TO"W1$.d-.|
00002550: 38 99 22 33 30 3F 22 C7 28 33 34 29 22 2A 22 C7 |8."30?".(34)"*".|
00002560: 28 33 34 29 00 72 2D FE 38 99 22 33 31 4E 45 58 |(34).r-.8."31NEX|
00002570: 54 22 00 7D 2D 08 39 8D 36 33 30 30 30 00 AB 2D |T".}-.9.63000..-|
00002580: 12 39 99 22 93 4E 4F 54 45 20 54 48 41 54 20 59 |.9.".NOTE THAT Y|
00002590: 4F 55 20 4E 45 45 44 4E 27 54 20 4C 45 41 56 45 |OU NEEDN'T LEAVE|
000025A0: 20 41 4C 4C 20 54 48 4F 53 45 22 00 D0 2D 1C 39 | ALL THOSE"..-.9|
000025B0: 99 22 11 42 4C 41 4E 4B 20 53 50 41 43 45 53 20 |.".BLANK SPACES |
000025C0: 49 4E 20 54 48 45 20 49 4E 53 54 27 4E 53 2E 22 |IN THE INST'NS."|
000025D0: 00 EB 2D 26 39 99 22 11 28 4D 45 20 53 4D 41 52 |..-&9.".(ME SMAR|
000025E0: 54 20 46 45 4C 4C 4F 57 21 29 22 00 12 2E 30 39 |T FELLOW!)"...09|
000025F0: 99 22 11 41 4E 59 57 41 59 2E 2E 54 48 45 20 4C |.".ANYWAY..THE L|
00002600: 41 53 54 20 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F |AST FOR-NEXT LOO|
00002610: 50 22 00 37 2E 3A 39 99 22 11 52 45 50 45 41 54 |P".7.:9.".REPEAT|
00002620: 53 20 41 4C 4C 20 54 48 45 20 41 42 4F 56 45 20 |S ALL THE ABOVE |
00002630: 54 57 49 43 45 21 22 00 4B 2E 44 39 99 22 20 20 |TWICE!".K.D9." |
00002640: 20 20 20 20 20 20 A3 A3 A3 20 22 00 62 2E 4E 39 | ... ".b.N9|
00002650: 99 22 11 53 4F 20 59 4F 55 27 44 20 54 59 50 45 |.".SO YOU'D TYPE|
00002660: 3A 22 00 88 2E 58 39 99 22 11 35 46 4F 52 4A 3D |:"...X9.".5FORJ=|
00002670: 31 54 4F 32 20 20 20 5F 46 49 52 53 54 20 53 54 |1TO2 _FIRST ST|
00002680: 41 54 45 4D 45 4E 54 22 00 AC 2E 62 39 99 22 34 |ATEMENT"...b9."4|
00002690: 30 4E 45 58 54 20 20 20 20 20 20 20 5F 4C 41 53 |0NEXT _LAS|
000026A0: 54 20 53 54 41 54 45 4D 45 4E 54 22 00 B7 2E 6C |T STATEMENT"...l|
000026B0: 39 8D 36 33 30 30 30 00 E8 2E D0 39 99 22 93 4E |9.63000....9.".N|
000026C0: 4F 57 20 4F 55 52 20 50 52 4F 47 52 41 4D 28 50 |OW OUR PROGRAM(P|
000026D0: 52 4F 47 52 41 4D 4D 45 3F 29 12 4C 49 53 54 92 |ROGRAMME?).LIST.|
000026E0: 53 20 4C 49 4B 45 3A 22 00 FD 2E DA 39 99 22 11 |S LIKE:"....9.".|
000026F0: 20 35 20 46 4F 52 4A 3D 31 54 4F 32 22 00 13 2F | 5 FORJ=1TO2"../|
00002700: E4 39 99 22 20 39 20 46 4F 52 49 3D 31 54 4F 22 |.9." 9 FORI=1TO"|
00002710: 57 33 24 00 33 2F EE 39 99 22 20 31 30 20 50 52 |W3$.3/.9." 10 PR|
00002720: 49 4E 54 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 |INT".(34)" *.".(|
00002730: 33 34 29 00 43 2F F8 39 99 22 20 31 31 20 4E 45 |34).C/.9." 11 NE|
00002740: 58 54 22 00 5A 2F 02 3A 99 22 20 31 39 20 46 4F |XT".Z/.:." 19 FO|
00002750: 52 49 3D 31 54 4F 22 57 33 24 00 7C 2F 0C 3A 99 |RI=1TO"W3$.|/.:.|
00002760: 22 20 32 30 20 50 52 49 4E 54 22 C7 28 33 34 29 |" 20 PRINT".(34)|
00002770: 22 20 9D 9D 2A 9D 22 C7 28 33 34 29 00 8C 2F 16 |" ..*.".(34)../.|
00002780: 3A 99 22 20 32 31 20 4E 45 58 54 22 00 A3 2F 20 |:." 21 NEXT"../ |
00002790: 3A 99 22 20 32 39 20 46 4F 52 49 3D 31 54 4F 22 |:." 29 FORI=1TO"|
000027A0: 57 31 24 00 C1 2F 2A 3A 99 22 20 33 30 20 50 52 |W1$../*:." 30 PR|
000027B0: 49 4E 54 22 C7 28 33 34 29 22 2A 22 C7 28 33 34 |INT".(34)"*".(34|
000027C0: 29 00 D1 2F 34 3A 99 22 20 34 30 20 4E 45 58 54 |)../4:." 40 NEXT|
000027D0: 22 00 E1 2F 35 3A 99 22 20 34 30 20 4E 45 58 54 |"../5:." 40 NEXT|
000027E0: 22 00 08 30 48 3A 99 22 11 4E 4F 54 45 20 54 48 |"..0H:.".NOTE TH|
000027F0: 41 54 20 57 45 20 55 53 45 20 22 C7 28 33 34 29 |AT WE USE ".(34)|
00002800: 22 4A 22 C7 28 33 34 29 00 37 30 52 3A 99 22 11 |"J".(34).70R:.".|
00002810: 46 4F 52 20 54 48 45 20 4C 4F 4F 50 20 54 48 41 |FOR THE LOOP THA|
00002820: 54 20 52 45 50 45 41 54 53 20 46 4F 52 20 32 20 |T REPEATS FOR 2 |
00002830: 4C 49 4E 45 53 2E 22 00 5E 30 5C 3A 99 22 11 28 |LINES.".^0\:.".(|
00002840: 54 48 41 54 20 49 53 2C 20 54 48 45 20 4F 55 54 |THAT IS, THE OUT|
00002850: 45 52 4D 4F 53 54 20 4C 4F 4F 50 29 2E 22 00 8E |ERMOST LOOP)."..|
00002860: 30 66 3A 99 22 11 57 49 54 48 49 4E 20 54 48 49 |0f:.".WITHIN THI|
00002870: 53 20 4C 4F 4F 50 20 12 44 4F 4E 27 54 92 20 55 |S LOOP .DON'T. U|
00002880: 53 45 20 12 4A 92 20 41 47 41 49 4E 21 22 00 A7 |SE .J. AGAIN!"..|
00002890: 30 75 3A 99 22 11 28 53 4F 20 57 45 20 55 53 45 |0u:.".(SO WE USE|
000028A0: 44 20 12 49 92 29 22 00 B2 30 7B 3A 8D 36 33 30 |D .I.)"..0{:.630|
000028B0: 30 30 00 CA 30 84 3A 99 22 93 11 11 11 20 35 20 |00..0.:.".... 5 |
000028C0: 46 4F 52 4A 3D 31 54 4F 32 22 00 E0 30 85 3A 99 |FORJ=1TO2"..0.:.|
000028D0: 22 20 39 20 46 4F 52 49 3D 31 54 4F 22 57 33 24 |" 9 FORI=1TO"W3$|
000028E0: 00 00 31 86 3A 99 22 20 31 30 20 50 52 49 4E 54 |..1.:." 10 PRINT|
000028F0: 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 33 34 29 |".(34)" *.".(34)|
00002900: 00 21 31 87 3A 99 22 20 31 31 20 4E 45 58 54 20 |.!1.:." 11 NEXT |
00002910: 49 20 20 20 20 20 20 20 5F C0 C0 C0 4E 4F 54 45 |I _...NOTE|
00002920: 22 00 38 31 88 3A 99 22 20 31 39 20 46 4F 52 49 |".81.:." 19 FORI|
00002930: 3D 31 54 4F 22 57 33 24 00 5A 31 89 3A 99 22 20 |=1TO"W3$.Z1.:." |
00002940: 32 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 20 |20 PRINT".(34)" |
00002950: 9D 9D 2A 9D 22 C7 28 33 34 29 00 7B 31 8A 3A 99 |..*.".(34).{1.:.|
00002960: 22 20 32 31 20 4E 45 58 54 20 49 20 20 20 20 20 |" 21 NEXT I |
00002970: 20 20 5F C0 C0 C0 4E 4F 54 45 22 00 92 31 8B 3A | _...NOTE"..1.:|
00002980: 99 22 20 32 39 20 46 4F 52 49 3D 31 54 4F 22 57 |." 29 FORI=1TO"W|
00002990: 31 24 00 B0 31 8C 3A 99 22 20 33 30 20 50 52 49 |1$..1.:." 30 PRI|
000029A0: 4E 54 22 C7 28 33 34 29 22 2A 22 C7 28 33 34 29 |NT".(34)"*".(34)|
000029B0: 00 D1 31 8D 3A 99 22 20 33 31 20 4E 45 58 54 20 |..1.:." 31 NEXT |
000029C0: 49 20 20 20 20 20 20 20 5F C0 C0 C0 4E 4F 54 45 |I _...NOTE|
000029D0: 22 00 F2 31 8E 3A 99 22 20 34 30 20 4E 45 58 54 |"..1.:." 40 NEXT|
000029E0: 20 4A 20 20 20 20 20 20 20 5F C0 C0 C0 4E 4F 54 | J _...NOT|
000029F0: 45 22 00 13 32 8F 3A 99 22 11 49 46 20 59 4F 55 |E"..2.:.".IF YOU|
00002A00: 20 47 45 54 20 43 4F 4E 46 55 53 45 44 20 57 49 | GET CONFUSED WI|
00002A10: 54 48 22 00 30 32 90 3A 99 22 11 41 4C 4C 20 54 |TH".02.:.".ALL T|
00002A20: 48 4F 53 45 20 12 4E 45 58 54 92 53 2E 2E 2E 22 |HOSE .NEXT.S..."|
00002A30: 00 51 32 93 3A 99 22 11 54 59 50 45 3A 20 12 4E |.Q2.:.".TYPE: .N|
00002A40: 45 58 54 20 49 92 20 26 20 12 4E 45 58 54 20 4A |EXT I. & .NEXT J|
00002A50: 22 00 5C 32 96 3A 8D 36 33 30 30 30 00 73 32 98 |".\2.:.63000.s2.|
00002A60: 3A 99 22 93 12 57 41 4E 54 20 54 4F 20 54 52 59 |:."..WANT TO TRY|
00002A70: 92 3F 22 00 99 32 A2 3A 99 22 11 49 27 4C 4C 20 |.?"..2.:.".I'LL |
00002A80: 52 45 50 45 41 54 20 54 48 45 20 49 4E 53 54 52 |REPEAT THE INSTR|
00002A90: 55 43 54 49 4F 4E 53 2E 22 00 C6 32 0B 3B 99 22 |UCTIONS."..2.;."|
00002AA0: 11 59 4F 55 20 43 41 4E 20 45 4E 54 45 52 20 54 |.YOU CAN ENTER T|
00002AB0: 48 45 20 49 4E 53 54 27 4E 53 20 42 59 20 50 55 |HE INST'NS BY PU|
00002AC0: 54 54 49 4E 47 22 00 EE 32 0C 3B 99 22 11 54 48 |TTING"..2.;.".TH|
00002AD0: 45 20 43 55 52 53 4F 52 20 41 54 20 54 48 45 20 |E CURSOR AT THE |
00002AE0: 46 49 52 53 54 20 49 4E 53 54 52 27 4E 22 00 18 |FIRST INSTR'N"..|
00002AF0: 33 0D 3B 99 22 11 54 48 45 4E 20 52 45 50 45 41 |3.;.".THEN REPEA|
00002B00: 54 45 44 4C 59 20 50 52 45 53 53 49 4E 47 20 27 |TEDLY PRESSING '|
00002B10: 52 45 54 55 52 4E 27 22 00 43 33 0E 3B 99 22 11 |RETURN'".C3.;.".|
00002B20: 53 4F 20 49 27 4C 4C 20 54 48 49 4E 4B 20 12 59 |SO I'LL THINK .Y|
00002B30: 4F 55 92 20 54 59 50 45 44 20 54 48 45 4D 20 49 |OU. TYPED THEM I|
00002B40: 4E 2E 22 00 4E 33 10 3B 8D 36 33 30 30 30 00 66 |N.".N3.;.63000.f|
00002B50: 33 C2 3D 99 22 93 22 3B 3A 99 22 35 46 4F 52 4A |3.=.".";:."5FORJ|
00002B60: 3D 31 54 4F 32 22 00 7A 33 CC 3D 99 22 39 46 4F |=1TO2".z3.=."9FO|
00002B70: 52 49 3D 31 54 4F 22 57 33 24 00 94 33 D6 3D 99 |RI=1TO"W3$..3.=.|
00002B80: 22 31 30 3F 22 C7 28 33 34 29 22 20 2A 9D 22 C7 |"10?".(34)" *.".|
00002B90: 28 33 34 29 00 A2 33 E0 3D 99 22 31 31 4E 45 58 |(34)..3.=."11NEX|
00002BA0: 54 22 00 B7 33 EA 3D 99 22 31 39 46 4F 52 49 3D |T"..3.=."19FORI=|
00002BB0: 31 54 4F 22 57 33 24 00 D3 33 F4 3D 99 22 32 30 |1TO"W3$..3.=."20|
00002BC0: 3F 22 C7 28 33 34 29 22 20 9D 9D 2A 9D 22 C7 28 |?".(34)" ..*.".(|
00002BD0: 33 34 29 00 E1 33 FE 3D 99 22 32 31 4E 45 58 54 |34)..3.=."21NEXT|
00002BE0: 22 00 F6 33 08 3E 99 22 32 39 46 4F 52 49 3D 31 |"..3.>."29FORI=1|
00002BF0: 54 4F 22 57 31 24 00 0E 34 12 3E 99 22 33 30 3F |TO"W1$..4.>."30?|
00002C00: 22 C7 28 33 34 29 22 2A 22 C7 28 33 34 29 00 1C |".(34)"*".(34)..|
00002C10: 34 1C 3E 99 22 33 31 4E 45 58 54 22 00 2A 34 1D |4.>."31NEXT".*4.|
00002C20: 3E 99 22 34 30 4E 45 58 54 22 00 57 34 21 3E 99 |>."40NEXT".W4!>.|
00002C30: 22 11 41 46 54 45 52 20 45 4E 54 45 52 49 4E 47 |".AFTER ENTERING|
00002C40: 20 53 54 41 54 45 4D 45 4E 54 53 20 35 2D 34 30 | STATEMENTS 5-40|
00002C50: 20 54 59 50 45 3A 22 00 7C 34 22 3E 99 22 11 12 | TYPE:".|4">."..|
00002C60: 52 55 4E 92 20 54 4F 20 52 55 4E 20 59 4F 55 52 |RUN. TO RUN YOUR|
00002C70: 20 50 52 4F 47 52 41 4D 4D 45 2E 22 00 B7 34 26 | PROGRAMME."..4&|
00002C80: 3E 99 22 11 28 54 59 50 45 20 12 40 92 20 54 4F |>.".(TYPE .@. TO|
00002C90: 20 43 4F 4E 54 49 4E 55 45 20 54 55 54 4F 52 20 | CONTINUE TUTOR |
00002CA0: 31 29 2E 22 3A 53 4E 24 B2 22 31 36 30 30 30 22 |1).":SN$."16000"|
00002CB0: 3A 89 36 33 33 30 30 00 DD 34 80 3E 8D 36 30 30 |:.63300..4.>.600|
00002CC0: 30 30 3A 99 22 93 12 44 4F 45 53 4E 27 54 20 57 |00:."..DOESN'T W|
00002CD0: 4F 52 4B 20 44 4F 45 53 20 49 54 3F 22 00 E8 34 |ORK DOES IT?"..4|
00002CE0: 81 3E 8D 31 38 30 30 30 00 12 35 85 3E 99 22 93 |.>.18000..5.>.".|
00002CF0: 4E 4F 57 20 53 55 50 50 4F 53 45 20 59 4F 55 27 |NOW SUPPOSE YOU'|
00002D00: 44 20 4C 49 4B 45 20 54 4F 20 53 50 45 43 49 46 |D LIKE TO SPECIF|
00002D10: 59 22 00 39 35 8A 3E 99 22 11 54 48 45 20 53 59 |Y".95.>.".THE SY|
00002D20: 4D 42 4F 4C 20 55 53 45 44 2E 2E 49 4E 53 54 45 |MBOL USED..INSTE|
00002D30: 41 44 20 4F 46 20 2A 2E 22 00 5F 35 F8 3E 99 22 |AD OF *."._5.>."|
00002D40: 11 49 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2C |.IN THE PROGRAM,|
00002D50: 20 52 45 50 4C 41 43 45 20 2A 20 49 4E 20 22 00 | REPLACE * IN ".|
00002D60: 86 35 02 3F 99 22 11 53 54 41 54 45 4D 45 4E 54 |.5.?.".STATEMENT|
00002D70: 53 20 23 31 30 2C 32 30 26 33 30 20 42 59 2C 53 |S #10,20&30 BY,S|
00002D80: 41 59 2C 53 24 22 00 AB 35 0C 3F 99 22 11 54 48 |AY,S$"..5.?.".TH|
00002D90: 45 4E 20 49 4E 43 4C 55 44 45 20 54 48 45 20 53 |EN INCLUDE THE S|
00002DA0: 54 41 54 45 4D 45 4E 54 53 3A 22 00 C9 35 16 3F |TATEMENTS:"..5.?|
00002DB0: 99 22 11 33 3F 22 C7 28 33 34 29 22 53 59 4D 42 |.".3?".(34)"SYMB|
00002DC0: 4F 4C 3F 22 C7 28 33 34 29 00 DB 35 20 3F 99 22 |OL?".(34)..5 ?."|
00002DD0: 34 20 49 4E 50 55 54 20 53 24 22 00 06 36 2A 3F |4 INPUT S$"..6*?|
00002DE0: 99 22 11 4E 4F 57 20 49 27 4C 4C 20 57 41 49 54 |.".NOW I'LL WAIT|
00002DF0: 20 46 4F 52 20 59 4F 55 20 54 4F 20 45 4E 54 45 | FOR YOU TO ENTE|
00002E00: 52 20 54 48 45 22 00 2E 36 34 3F 99 22 11 53 59 |R THE"..64?.".SY|
00002E10: 4D 42 4F 4C 28 4F 52 20 53 54 52 49 4E 47 29 57 |MBOL(OR STRING)W|
00002E20: 48 49 43 48 20 49 53 20 4C 41 54 45 52 22 00 49 |HICH IS LATER".I|
00002E30: 36 3E 3F 99 22 11 52 45 46 45 52 52 45 44 20 54 |6>?.".REFERRED T|
00002E40: 4F 20 41 53 20 53 24 2E 22 00 54 36 43 3F 8D 36 |O AS S$.".T6C?.6|
00002E50: 33 30 30 30 00 6C 36 48 3F 99 22 93 41 4E 4F 54 |3000.l6H?.".ANOT|
00002E60: 48 45 52 20 54 48 49 4E 47 2E 2E 22 00 90 36 52 |HER THING.."..6R|
00002E70: 3F 99 22 11 59 4F 55 20 57 49 4C 4C 20 57 41 4E |?.".YOU WILL WAN|
00002E80: 54 20 54 4F 20 43 4C 45 41 52 20 54 48 45 20 22 |T TO CLEAR THE "|
00002E90: 00 BA 36 5C 3F 99 22 11 53 43 52 45 45 4E 20 41 |..6\?.".SCREEN A|
00002EA0: 54 20 54 48 45 20 53 54 41 52 54 20 4F 46 20 54 |T THE START OF T|
00002EB0: 48 45 20 50 52 4F 47 27 4D 22 00 D1 36 66 3F 99 |HE PROG'M"..6f?.|
00002EC0: 22 11 53 4F 20 53 54 41 52 54 20 57 49 54 48 3A |".SO START WITH:|
00002ED0: 22 00 E9 36 70 3F 99 22 11 31 3F 22 C7 28 33 34 |"..6p?.".1?".(34|
00002EE0: 29 22 93 22 C7 28 33 34 29 00 08 37 7A 3F 99 22 |)".".(34)..7z?."|
00002EF0: 11 54 48 49 53 20 53 41 59 53 3A 20 50 52 49 4E |.THIS SAYS: PRIN|
00002F00: 54 20 41 20 43 4C 52 22 00 26 37 84 3F 99 22 20 |T A CLR".&7.?." |
00002F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F20: 20 20 A3 A3 A3 22 00 31 37 85 3F 8D 36 33 30 30 | ...".17.?.6300|
00002F30: 30 00 5E 37 8E 3F 99 22 93 41 4C 53 4F 2C 20 59 |0.^7.?.".ALSO, Y|
00002F40: 4F 55 20 57 4F 4E 27 54 20 57 41 4E 54 20 4D 45 |OU WON'T WANT ME|
00002F50: 20 54 4F 20 43 4F 4D 45 20 42 41 43 4B 22 00 80 | TO COME BACK"..|
00002F60: 37 98 3F 99 22 11 57 49 54 48 20 4D 59 20 22 C7 |7.?.".WITH MY ".|
00002F70: 28 33 34 29 22 52 45 41 44 59 22 C7 28 33 34 29 |(34)"READY".(34)|
00002F80: 00 96 37 A2 3F 99 22 20 20 20 20 20 20 20 20 20 |..7.?." |
00002F90: A3 A3 A3 A3 A3 22 00 BF 37 AC 3F 99 22 11 53 4F |....."..7.?.".SO|
00002FA0: 20 47 49 56 45 20 4D 45 20 53 4F 4D 45 54 48 49 | GIVE ME SOMETHI|
00002FB0: 4E 47 20 54 4F 20 44 4F 2C 4C 49 4B 45 3A 22 00 |NG TO DO,LIKE:".|
00002FC0: E1 37 B6 3F 99 22 11 12 35 30 20 46 4F 52 49 3D |.7.?."..50 FORI=|
00002FD0: 31 54 4F 35 30 30 30 3A 47 3D 30 3A 4E 45 58 54 |1TO5000:G=0:NEXT|
00002FE0: 22 00 0B 38 C0 3F 99 22 11 54 48 41 54 20 57 41 |"..8.?.".THAT WA|
00002FF0: 59 20 49 27 4C 4C 20 47 4F 20 41 57 41 59 20 41 |Y I'LL GO AWAY A|
00003000: 4E 44 20 53 45 54 20 47 3D 30 22 00 1F 38 CA 3F |ND SET G=0"..8.?|
00003010: 99 22 11 35 30 30 30 20 54 49 4D 45 53 21 22 00 |.".5000 TIMES!".|
00003020: 3C 38 CF 3F 99 22 11 2E 2E 4F 52 20 59 4F 55 20 |<8.?."...OR YOU |
00003030: 43 4F 55 4C 44 20 48 41 56 45 3A 22 00 51 38 D0 |COULD HAVE:".Q8.|
00003040: 3F 99 22 11 12 35 30 20 47 4F 20 54 4F 20 35 30 |?."..50 GO TO 50|
00003050: 22 00 7D 38 D1 3F 99 22 11 54 48 45 4E 20 49 27 |".}8.?.".THEN I'|
00003060: 44 20 27 4C 4F 4F 50 27 20 4F 4E 20 53 54 41 54 |D 'LOOP' ON STAT|
00003070: 45 4D 45 4E 54 23 35 30 20 41 4E 44 22 00 A2 38 |EMENT#50 AND"..8|
00003080: D2 3F 99 22 11 54 4F 20 53 54 4F 50 20 4D 45 20 |.?.".TO STOP ME |
00003090: 59 4F 55 27 44 20 48 49 54 20 12 53 54 4F 50 92 |YOU'D HIT .STOP.|
000030A0: 2E 22 00 AD 38 DE 3F 8D 36 33 30 30 30 00 DA 38 |."..8.?.63000..8|
000030B0: F2 3F 99 22 93 41 4E 4F 54 48 45 52 20 54 48 49 |.?.".ANOTHER THI|
000030C0: 4E 47 2C 59 4F 55 20 4D 41 59 20 57 41 4E 54 20 |NG,YOU MAY WANT |
000030D0: 54 4F 20 43 48 41 4E 47 45 22 00 03 39 FC 3F 99 |TO CHANGE"..9.?.|
000030E0: 22 11 59 4F 55 52 20 4D 49 4E 44 20 41 42 4F 55 |".YOUR MIND ABOU|
000030F0: 54 20 54 48 45 20 4E 4F 2E 20 4F 46 20 4C 49 4E |T THE NO. OF LIN|
00003100: 45 53 22 00 28 39 06 40 99 22 11 50 52 49 4E 54 |ES".(9.@.".PRINT|
00003110: 45 44 28 49 4E 53 54 45 41 44 20 4F 46 20 41 4C |ED(INSTEAD OF AL|
00003120: 57 41 59 53 20 32 29 22 00 48 39 10 40 99 22 11 |WAYS 2)".H9.@.".|
00003130: 53 4F 20 43 48 41 4E 47 45 3A 20 12 46 4F 52 20 |SO CHANGE: .FOR |
00003140: 4A 3D 31 54 4F 20 32 22 00 68 39 1A 40 99 22 11 |J=1TO 2".h9.@.".|
00003150: 54 4F 20 52 45 41 44 3A 20 20 20 12 46 4F 52 20 |TO READ: .FOR |
00003160: 4A 3D 31 54 4F 20 4C 22 00 73 39 24 40 8D 36 33 |J=1TO L".s9$@.63|
00003170: 30 30 30 00 A7 39 2E 40 99 22 93 4F 46 20 43 4F |000..9.@.".OF CO|
00003180: 55 52 53 45 20 59 4F 55 27 4C 4C 20 48 41 56 45 |URSE YOU'LL HAVE|
00003190: 20 54 4F 20 49 4E 50 55 54 22 C7 28 33 34 29 22 | TO INPUT".(34)"|
000031A0: 4C 22 C7 28 33 34 29 00 C8 39 38 40 99 22 11 53 |L".(34)..98@.".S|
000031B0: 4F 20 49 4E 53 45 52 54 20 54 48 45 20 53 54 41 |O INSERT THE STA|
000031C0: 54 45 4D 45 4E 54 3A 22 00 EF 39 42 40 99 22 11 |TEMENT:"..9B@.".|
000031D0: 12 32 20 49 4E 50 55 54 22 C7 28 33 34 29 22 4C |.2 INPUT".(34)"L|
000031E0: 49 4E 45 53 3D 22 C7 28 33 34 29 22 3B 4C 22 00 |INES=".(34)";L".|
000031F0: 18 3A 56 40 99 22 11 49 27 4C 4C 20 50 52 49 4E |.:V@.".I'LL PRIN|
00003200: 54 20 54 48 45 20 50 52 4F 4D 50 54 49 4E 47 20 |T THE PROMPTING |
00003210: 52 45 4D 41 52 4B 3A 22 00 28 3A 60 40 99 22 11 |REMARK:".(:`@.".|
00003220: 4C 49 4E 45 53 3D 3F 22 00 54 3A 61 40 99 22 11 |LINES=?".T:a@.".|
00003230: 41 4E 44 20 57 49 4C 4C 20 57 41 49 54 20 46 4F |AND WILL WAIT FO|
00003240: 52 20 4C 20 54 4F 20 42 45 20 54 59 50 45 44 20 |R L TO BE TYPED |
00003250: 49 4E 2E 22 00 5F 3A 6A 40 8D 36 33 30 30 30 00 |IN."._:j@.63000.|
00003260: 8A 3A 74 40 99 22 93 54 48 45 4E 20 59 4F 55 20 |.:t@.".THEN YOU |
00003270: 4D 41 59 20 57 41 4E 54 20 54 4F 20 55 53 45 20 |MAY WANT TO USE |
00003280: 4D 59 20 43 4C 41 53 53 59 22 00 AC 3A 7E 40 99 |MY CLASSY"..:~@.|
00003290: 22 11 22 C7 28 33 34 29 22 52 45 56 45 52 53 45 |".".(34)"REVERSE|
000032A0: 20 46 49 45 4C 44 22 C7 28 33 34 29 00 C2 3A 88 | FIELD".(34)..:.|
000032B0: 40 99 22 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |@." ............|
000032C0: A3 22 00 E4 3A 92 40 99 22 11 2E 2E 54 48 41 54 |."..:.@."...THAT|
000032D0: 27 53 20 12 43 54 52 4C 2D 39 92 3D 12 52 56 53 |'S .CTRL-9.=.RVS|
000032E0: 20 4F 4E 22 00 09 3B A6 40 99 22 11 53 4F 20 49 | ON"..;.@.".SO I|
000032F0: 4E 53 45 52 54 20 54 48 49 53 20 50 52 49 4E 54 |NSERT THIS PRINT|
00003300: 20 43 4F 4D 4D 41 4E 44 22 00 30 3B B0 40 99 22 | COMMAND".0;.@."|
00003310: 11 41 54 20 54 48 45 20 42 45 47 49 4E 4E 49 4E |.AT THE BEGINNIN|
00003320: 47 20 4F 46 20 45 41 43 48 20 50 52 49 4E 54 22 |G OF EACH PRINT"|
00003330: 00 42 3B B1 40 99 22 11 53 45 51 55 45 4E 43 45 |.B;.@.".SEQUENCE|
00003340: 2E 22 00 4D 3B BA 40 8D 36 33 30 30 30 00 5E 3B |.".M;.@.63000.^;|
00003350: C4 40 99 22 93 52 45 50 4C 41 43 45 3A 22 00 79 |.@.".REPLACE:".y|
00003360: 3B CE 40 99 22 11 20 3F 22 C7 28 33 34 29 22 20 |;.@.". ?".(34)" |
00003370: 2A 9D 22 C7 28 33 34 29 3B 00 8C 3B D8 40 99 A6 |*.".(34);..;.@..|
00003380: 35 29 22 11 20 20 2E 2E 42 59 3A 22 00 A7 3B E2 |5)". ..BY:"..;.|
00003390: 40 99 22 11 20 3F 22 C7 28 33 34 29 22 12 20 2A |@.". ?".(34)". *|
000033A0: 9D 22 C7 28 33 34 29 00 B3 3B E7 40 99 22 20 20 |.".(34)..;.@." |
000033B0: 20 5E 22 00 D2 3B E8 40 99 22 54 48 41 54 27 53 | ^"..;.@."THAT'S|
000033C0: 20 41 20 27 52 56 53 27 20 43 4F 4D 4D 41 4E 44 | A 'RVS' COMMAND|
000033D0: 21 22 00 DD 3B EC 40 8D 36 33 30 30 30 00 05 3C |!"..;.@.63000..<|
000033E0: F6 40 99 22 93 11 11 11 49 27 4C 4C 20 50 52 49 |.@."....I'LL PRI|
000033F0: 4E 54 20 4C 4F 54 53 20 4F 46 20 54 48 49 4E 47 |NT LOTS OF THING|
00003400: 53 20 49 4E 22 00 1C 3C 00 41 99 22 20 20 52 45 |S IN"..<.A." RE|
00003410: 56 45 52 53 45 20 46 49 45 4C 44 22 00 33 3C 0A |VERSE FIELD".3<.|
00003420: 41 99 22 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |A." ...........|
00003430: A3 A3 22 00 5D 3C 14 41 99 22 20 53 4F 20 49 46 |..".]<.A." SO IF|
00003440: 20 59 4F 55 20 57 41 4E 54 20 49 54 20 22 C7 28 | YOU WANT IT ".(|
00003450: 33 34 29 22 4F 46 46 22 C7 28 33 34 29 00 7E 3C |34)"OFF".(34).~<|
00003460: 1E 41 99 22 20 20 49 4E 53 45 52 54 20 41 20 50 |.A." INSERT A P|
00003470: 52 49 4E 54 20 43 4F 4D 4D 41 4E 44 3A 22 00 98 |RINT COMMAND:"..|
00003480: 3C 28 41 99 3A 99 22 34 31 3F 22 C7 28 33 34 29 |<(A.:."41?".(34)|
00003490: 22 92 22 C7 28 33 34 29 00 B7 3C 32 41 99 22 20 |".".(34)..<2A." |
000034A0: 20 20 20 5E 20 54 48 41 54 27 53 20 12 52 56 53 | ^ THAT'S .RVS|
000034B0: 20 4F 46 46 92 21 22 00 C2 3C CD 41 8D 36 33 30 | OFF.!"..<.A.630|
000034C0: 30 30 00 F0 3C D2 41 99 22 93 54 48 45 4E 2E 2E |00..<.A.".THEN..|
000034D0: 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 |IF YOU WANT TO S|
000034E0: 4C 4F 57 20 54 48 49 4E 47 53 20 44 4F 57 4E 22 |LOW THINGS DOWN"|
000034F0: 00 0B 3D DC 41 99 22 11 54 52 59 20 12 53 55 42 |..=.A.".TRY .SUB|
00003500: 52 4F 55 54 49 4E 45 53 92 21 22 00 37 3D E6 41 |ROUTINES.!".7=.A|
00003510: 99 22 11 49 4E 43 4C 55 44 45 20 41 20 46 45 57 |.".INCLUDE A FEW|
00003520: 20 27 47 4F 53 55 42 35 30 30 27 20 53 54 41 54 | 'GOSUB500' STAT|
00003530: 45 4D 45 4E 54 53 22 00 65 3D F0 41 99 22 11 41 |EMENTS".e=.A.".A|
00003540: 4E 44 20 49 27 4C 4C 20 47 4F 20 54 4F 20 53 54 |ND I'LL GO TO ST|
00003550: 41 54 45 4D 45 4E 54 20 35 30 30 20 41 4E 44 20 |ATEMENT 500 AND |
00003560: 4F 42 45 59 22 00 85 3D FA 41 99 22 11 54 48 45 |OBEY"..=.A.".THE|
00003570: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 54 48 | INSTRUCTIONS TH|
00003580: 45 52 45 2E 22 00 AA 3D 04 42 99 22 11 53 4F 2C |ERE."..=.B.".SO,|
00003590: 20 50 55 54 20 49 4E 53 54 52 55 43 54 49 4F 4E | PUT INSTRUCTION|
000035A0: 53 20 41 54 20 35 30 30 3A 22 00 C5 3D 0E 42 99 |S AT 500:"..=.B.|
000035B0: 22 11 12 35 30 30 20 46 4F 52 54 3D 31 20 54 4F |"..500 FORT=1 TO|
000035C0: 31 30 30 30 22 00 DF 3D 18 42 99 22 12 35 31 30 |1000"..=.B.".510|
000035D0: 20 4E 45 58 54 20 20 20 20 20 20 20 20 20 22 00 | NEXT ".|
000035E0: F9 3D 22 42 99 22 12 35 32 30 20 52 45 54 55 52 |.="B.".520 RETUR|
000035F0: 4E 20 20 20 20 20 20 20 22 00 27 3E 2C 42 99 22 |N ".'>,B."|
00003600: 11 41 46 54 45 52 20 44 4F 49 4E 47 20 27 4E 4F |.AFTER DOING 'NO|
00003610: 54 48 49 4E 47 27 20 31 30 30 30 20 54 49 4D 45 |THING' 1000 TIME|
00003620: 53 20 49 27 4C 4C 22 00 56 3E 36 42 99 22 11 27 |S I'LL".V>6B.".'|
00003630: 52 45 54 55 52 4E 27 20 54 4F 20 43 4F 4E 54 49 |RETURN' TO CONTI|
00003640: 4E 55 45 20 54 48 45 20 4D 41 49 4E 20 50 52 4F |NUE THE MAIN PRO|
00003650: 47 52 41 4D 2E 22 00 68 3E 40 42 8D 36 33 30 30 |GRAM.".h>@B.6300|
00003660: 30 3A 89 31 39 30 30 30 00 93 3E 50 46 99 22 11 |0:.19000..>PF.".|
00003670: 4F 46 20 43 4F 55 52 53 45 20 57 45 20 46 4F 52 |OF COURSE WE FOR|
00003680: 47 4F 54 20 54 4F 20 49 4E 43 4C 55 44 45 20 41 |GOT TO INCLUDE A|
00003690: 4C 4C 22 00 B0 3E 5A 46 99 22 11 54 48 4F 53 45 |LL"..>ZF.".THOSE|
000036A0: 20 53 45 4D 49 2D 43 4F 4C 4F 4E 53 21 21 21 22 | SEMI-COLONS!!!"|
000036B0: 00 CB 3E 64 46 99 22 20 20 20 20 20 20 A3 A3 A3 |..>dF." ...|
000036C0: A3 A3 A3 A3 A3 A3 A3 A3 20 20 22 00 EF 3E 6E 46 |........ "..>nF|
000036D0: 99 22 11 53 4F 20 45 4E 44 20 45 41 43 48 20 50 |.".SO END EACH P|
000036E0: 52 49 4E 54 20 53 54 41 54 45 4D 45 4E 54 22 00 |RINT STATEMENT".|
000036F0: 11 3F 78 46 99 22 11 2E 2E 4E 41 4D 45 4C 59 20 |.?xF."...NAMELY |
00003700: 23 31 30 2C 23 32 30 20 26 20 23 33 30 2E 2E 2E |#10,#20 & #30...|
00003710: 22 00 30 3F 82 46 99 22 11 57 49 54 48 20 41 20 |".0?.F.".WITH A |
00003720: 53 45 4D 49 2D 43 4F 4C 4F 4E 21 20 20 20 3B 22 |SEMI-COLON! ;"|
00003730: 00 62 3F 8C 46 99 22 11 42 55 54 20 46 49 52 53 |.b?.F.".BUT FIRS|
00003740: 54 2C 20 4C 45 54 27 53 20 46 4F 52 47 45 20 41 |T, LET'S FORGE A|
00003750: 48 45 41 44 21 22 3A 8D 36 33 30 30 30 3A 99 22 |HEAD!":.63000:."|
00003760: 93 22 00 76 3F 91 46 4D 53 24 B2 22 47 4F 21 47 |.".v?.FMS$."GO!G|
00003770: 4F 21 47 4F 21 22 00 81 3F 96 46 8D 36 33 31 30 |O!GO!"..?.F.6310|
00003780: 30 00 87 3F 9B 46 8E 00 A4 3F 38 4A 99 22 93 22 |0..?.F...?8J."."|
00003790: 3B 3A 99 22 31 3F 22 C7 28 33 34 29 22 93 22 C7 |;:."1?".(34)".".|
000037A0: 28 33 34 29 00 C8 3F 42 4A 99 22 32 49 4E 50 55 |(34)..?BJ."2INPU|
000037B0: 54 22 C7 28 33 34 29 22 4C 49 4E 45 53 3D 22 C7 |T".(34)"LINES=".|
000037C0: 28 33 34 29 22 3B 4C 22 00 E5 3F 4C 4A 99 22 33 |(34)";L"..?LJ."3|
000037D0: 3F 22 C7 28 33 34 29 22 53 59 4D 42 4F 4C 3F 22 |?".(34)"SYMBOL?"|
000037E0: C7 28 33 34 29 00 F5 3F 56 4A 99 22 34 49 4E 50 |.(34)..?VJ."4INP|
000037F0: 55 54 53 24 22 00 07 40 62 4D 99 22 35 46 4F 52 |UTS$"..@bM."5FOR|
00003800: 4A 3D 31 54 4F 4C 22 00 26 40 6C 4D 99 22 39 46 |J=1TOL".&@lM."9F|
00003810: 4F 52 49 3D 31 54 4F 22 57 33 24 22 3A 47 4F 53 |ORI=1TO"W3$":GOS|
00003820: 55 42 35 30 30 22 00 53 40 76 4D 99 22 31 30 3F |UB500".S@vM."10?|
00003830: 22 C7 28 33 34 29 22 12 20 22 C7 28 33 34 29 22 |".(34)". ".(34)"|
00003840: 53 24 22 C7 28 33 34 29 22 9D 22 C7 28 33 34 29 |S$".(34)".".(34)|
00003850: 22 3B 22 00 61 40 80 4D 99 22 31 31 4E 45 58 54 |";".a@.M."11NEXT|
00003860: 22 00 81 40 8A 4D 99 22 31 39 46 4F 52 49 3D 31 |"..@.M."19FORI=1|
00003870: 54 4F 22 57 33 24 22 3A 47 4F 53 55 42 35 30 30 |TO"W3$":GOSUB500|
00003880: 22 00 B0 40 94 4D 99 22 32 30 3F 22 C7 28 33 34 |"..@.M."20?".(34|
00003890: 29 22 12 20 9D 9D 22 C7 28 33 34 29 22 53 24 22 |)". ..".(34)"S$"|
000038A0: C7 28 33 34 29 22 9D 22 C7 28 33 34 29 22 3B 22 |.(34)".".(34)";"|
000038B0: 00 BE 40 9E 4D 99 22 32 31 4E 45 58 54 22 00 DE |..@.M."21NEXT"..|
000038C0: 40 A8 4D 99 22 32 39 46 4F 52 49 3D 31 54 4F 22 |@.M."29FORI=1TO"|
000038D0: 57 31 24 22 3A 47 4F 53 55 42 35 30 30 22 00 FB |W1$":GOSUB500"..|
000038E0: 40 B2 4D 99 22 33 30 3F 22 C7 28 33 34 29 22 12 |@.M."30?".(34)".|
000038F0: 22 C7 28 33 34 29 22 53 24 3B 22 00 09 41 BC 4D |".(34)"S$;"..A.M|
00003900: 99 22 33 31 4E 45 58 54 22 00 22 41 BD 4D 99 22 |."31NEXT"."A.M."|
00003910: 34 30 4E 45 58 54 22 3A 99 22 35 30 47 4F 54 4F |40NEXT":."50GOTO|
00003920: 31 22 00 42 41 BE 4D 99 22 35 30 30 46 4F 52 54 |1".BA.M."500FORT|
00003930: 3D 31 54 4F 35 3A 4E 45 58 54 3A 52 45 54 55 52 |=1TO5:NEXT:RETUR|
00003940: 4E 22 00 68 41 C6 4D 99 22 11 54 59 50 45 20 49 |N".hA.M.".TYPE I|
00003950: 54 20 49 4E 20 26 20 12 52 55 4E 92 20 54 4F 20 |T IN & .RUN. TO |
00003960: 52 55 4E 20 49 54 2E 22 00 9D 41 DA 4D 99 22 11 |RUN IT."..A.M.".|
00003970: 54 48 45 4E 20 12 54 59 50 45 20 40 92 20 54 4F |THEN .TYPE @. TO|
00003980: 20 43 4F 4E 54 49 4E 55 45 22 3A 53 4E 24 B2 22 | CONTINUE":SN$."|
00003990: 32 30 30 30 30 22 3A 89 36 33 33 30 30 00 C7 41 |20000":.63300..A|
000039A0: 20 4E 8D 36 30 30 30 30 3A 99 22 93 41 20 46 49 | N.60000:.".A FI|
000039B0: 4E 41 4C 20 57 4F 52 44 20 28 2E 2E 4F 52 20 54 |NAL WORD (..OR T|
000039C0: 57 4F 2E 2E 29 3A 22 00 F1 41 2A 4E 99 22 11 53 |WO..):"..A*N.".S|
000039D0: 4F 4D 45 54 49 4D 45 53 20 59 4F 55 20 52 55 4E |OMETIMES YOU RUN|
000039E0: 20 41 20 50 52 4F 47 52 41 4D 20 57 49 54 48 3A | A PROGRAM WITH:|
000039F0: 22 00 01 42 34 4E 99 22 11 12 52 55 4E 20 31 30 |"..B4N."..RUN 10|
00003A00: 22 00 19 42 3E 4E 99 22 11 53 4F 4D 45 54 49 4D |"..B>N.".SOMETIM|
00003A10: 45 53 20 57 49 54 48 3A 22 00 29 42 48 4E 99 22 |ES WITH:".)BHN."|
00003A20: 11 12 47 4F 54 4F 31 30 22 00 48 42 52 4E 99 22 |..GOTO10".HBRN."|
00003A30: 11 57 48 41 54 27 53 20 54 48 45 20 44 49 46 46 |.WHAT'S THE DIFF|
00003A40: 45 52 45 4E 43 45 3F 22 00 73 42 5C 4E 99 22 11 |ERENCE?".sB\N.".|
00003A50: 57 45 4C 4C 2E 2E 49 46 20 59 4F 55 20 54 59 50 |WELL..IF YOU TYP|
00003A60: 45 20 12 52 55 4E 2E 2E 92 20 49 20 46 4F 52 47 |E .RUN... I FORG|
00003A70: 45 54 22 00 9F 42 66 4E 99 22 11 54 48 45 20 56 |ET"..BfN.".THE V|
00003A80: 41 4C 55 45 53 20 4F 46 20 27 58 27 20 41 4E 44 |ALUES OF 'X' AND|
00003A90: 20 27 59 27 20 41 4E 44 20 27 53 41 4D 27 22 00 | 'Y' AND 'SAM'".|
00003AA0: C4 42 70 4E 99 22 11 41 4E 44 20 57 49 4C 4C 20 |.BpN.".AND WILL |
00003AB0: 53 54 41 52 54 20 46 52 4F 4D 20 53 43 52 41 54 |START FROM SCRAT|
00003AC0: 43 48 2E 22 00 ED 42 7A 4E 99 22 11 12 47 4F 54 |CH."..BzN."..GOT|
00003AD0: 4F 2E 2E 92 20 41 4E 44 20 49 27 4C 4C 20 52 45 |O... AND I'LL RE|
00003AE0: 4D 45 4D 42 45 52 20 54 48 45 4D 21 22 00 F8 42 |MEMBER THEM!"..B|
00003AF0: 84 4E 8D 36 33 30 30 30 00 0F 43 8E 4E 99 22 93 |.N.63000..C.N.".|
00003B00: 54 48 49 53 20 49 53 20 48 41 4E 44 59 3A 22 00 |THIS IS HANDY:".|
00003B10: 3B 43 98 4E 99 22 11 12 53 54 4F 50 92 20 41 20 |;C.N."..STOP. A |
00003B20: 50 52 4F 47 52 41 4D 20 57 48 49 4C 45 20 49 54 |PROGRAM WHILE IT|
00003B30: 27 53 20 52 55 4E 4E 49 4E 47 22 00 4D 43 A2 4E |'S RUNNING".MC.N|
00003B40: 99 22 11 41 4E 44 20 54 59 50 45 3A 22 00 60 43 |.".AND TYPE:".`C|
00003B50: AC 4E 99 22 11 3F 58 3A 3F 59 3A 3F 53 41 4D 22 |.N.".?X:?Y:?SAM"|
00003B60: 00 8B 43 B6 4E 99 22 11 41 4E 44 20 49 27 4C 4C |..C.N.".AND I'LL|
00003B70: 20 50 52 49 4E 54 20 54 48 45 20 56 41 4C 55 45 | PRINT THE VALUE|
00003B80: 53 20 4F 46 20 54 48 45 53 45 22 00 BA 43 C0 4E |S OF THESE"..C.N|
00003B90: 99 22 11 56 41 52 49 41 42 4C 45 53 20 41 54 20 |.".VARIABLES AT |
00003BA0: 54 48 45 20 54 49 4D 45 20 49 20 57 41 53 20 12 |THE TIME I WAS .|
00003BB0: 53 54 4F 50 92 50 45 44 2E 22 00 E2 43 CA 4E 99 |STOP.PED."..C.N.|
00003BC0: 22 11 59 4F 55 20 43 41 4E 20 54 59 50 45 20 12 |".YOU CAN TYPE .|
00003BD0: 43 4F 4E 54 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |CONT. TO CONTINU|
00003BE0: 45 22 00 02 44 D4 4E 99 22 11 57 48 45 52 45 20 |E"..D.N.".WHERE |
00003BF0: 49 20 4C 45 46 54 20 4F 46 46 2E 2E 2E 4F 52 2E |I LEFT OFF...OR.|
00003C00: 2E 22 00 31 44 DE 4E 99 22 11 12 47 4F 54 4F 31 |.".1D.N."..GOTO1|
00003C10: 30 30 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |00. TO CONTINUE |
00003C20: 41 54 20 53 54 41 54 45 4D 45 4E 54 20 31 30 30 |AT STATEMENT 100|
00003C30: 22 00 5D 44 E8 4E 99 22 11 57 49 54 48 4F 55 54 |".]D.N.".WITHOUT|
00003C40: 20 46 4F 52 47 45 54 54 49 4E 47 20 27 58 27 20 | FORGETTING 'X' |
00003C50: 41 4E 44 20 27 59 27 20 45 54 43 2E 22 00 6C 44 |AND 'Y' ETC.".lD|
00003C60: F2 4E 99 22 B8 B8 B8 B8 B8 B8 B8 22 00 77 44 FC |.N.".......".wD.|
00003C70: 4E 8D 36 33 30 30 30 00 A3 44 06 4F 99 22 93 22 |N.63000..D.O."."|
00003C80: 3A 4D 53 24 B2 22 12 41 55 20 52 45 56 4F 49 52 |:MS$.".AU REVOIR|
00003C90: 21 92 22 3A 8D 36 33 31 30 30 3A 8D 36 33 35 30 |!.":.63100:.6350|
00003CA0: 30 3A 80 00 AC 44 78 E6 99 22 93 22 00 D5 44 79 |0:...Dx.."."..Dy|
00003CB0: E6 99 22 13 44 55 52 49 4E 47 20 54 48 45 20 54 |..".DURING THE T|
00003CC0: 55 54 4F 52 49 41 4C 20 59 4F 55 20 4D 41 59 20 |UTORIAL YOU MAY |
00003CD0: 57 49 53 48 22 00 FD 44 7A E6 99 22 11 54 4F 20 |WISH"..Dz..".TO |
00003CE0: 52 45 54 55 52 4E 20 54 4F 20 41 4E 20 45 41 52 |RETURN TO AN EAR|
00003CF0: 4C 49 45 52 20 27 50 41 47 45 27 2E 22 00 28 45 |LIER 'PAGE'.".(E|
00003D00: 7B E6 99 22 11 4A 55 53 54 20 12 48 49 54 20 54 |{..".JUST .HIT T|
00003D10: 48 45 20 40 2D 4B 45 59 92 2C 20 41 54 20 41 4E |HE @-KEY., AT AN|
00003D20: 59 20 54 49 4D 45 2C 22 00 4E 45 7C E6 99 22 11 |Y TIME,".NE|..".|
00003D30: 41 4E 44 20 54 48 45 20 54 55 54 4F 52 49 41 4C |AND THE TUTORIAL|
00003D40: 20 57 49 4C 4C 20 42 41 43 4B 20 55 50 22 00 65 | WILL BACK UP".e|
00003D50: 45 7D E6 99 22 11 41 20 50 41 47 45 20 4F 52 20 |E}..".A PAGE OR |
00003D60: 54 57 4F 2E 22 00 8E 45 7E E6 99 22 11 41 4C 53 |TWO."..E~..".ALS|
00003D70: 4F 2C 20 59 4F 55 20 48 41 56 45 20 41 4E 20 4F |O, YOU HAVE AN O|
00003D80: 50 50 4F 52 54 55 4E 49 54 59 20 54 4F 22 00 B1 |PPORTUNITY TO"..|
00003D90: 45 7F E6 99 22 11 43 4F 4D 50 4F 53 45 20 59 4F |E...".COMPOSE YO|
00003DA0: 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 4D 53 2E |UR OWN PROGRAMS.|
00003DB0: 22 00 D8 45 80 E6 99 22 11 57 48 45 4E 20 59 4F |"..E...".WHEN YO|
00003DC0: 55 20 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E |U WISH TO CONTIN|
00003DD0: 55 45 20 57 49 54 48 22 00 06 46 81 E6 99 22 11 |UE WITH"..F...".|
00003DE0: 54 48 45 20 54 55 54 4F 52 49 41 4C 2C 20 12 48 |THE TUTORIAL, .H|
00003DF0: 49 54 20 54 48 45 20 40 2D 4B 45 59 92 21 22 3A |IT THE @-KEY.!":|
00003E00: 8D 36 33 30 30 30 00 24 46 82 E6 4D 53 24 B2 22 |.63000.$F..MS$."|
00003E10: 12 40 92 5F 52 45 4D 45 4D 42 45 52 22 3A 8D 36 |.@._REMEMBER":.6|
00003E20: 33 31 30 30 00 31 46 8C E6 8D 36 33 30 30 30 3A |3100.1F...63000:|
00003E30: 8E 00 49 46 60 EA 97 32 30 34 2C 31 3A 8F 20 49 |..IF`..204,1:. I|
00003E40: 4E 49 54 49 41 4C 49 5A 45 00 6B 46 61 EA 42 54 |NITIALIZE.kFa.BT|
00003E50: 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 3A 42 54 |$.".":.I.1.24:BT|
00003E60: 24 B2 42 54 24 AA 22 11 22 3A 82 00 B5 46 62 EA |$.BT$.".":...Fb.|
00003E70: 50 54 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |PT$."...........|
00003E80: C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD |................|
00003E90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D |................|
00003EA0: 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 |................|
00003EB0: C0 C0 B2 BD 22 00 FD 46 63 EA 50 54 24 B2 50 54 |...."..Fc.PT$.PT|
00003EC0: 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |$.".............|
00003ED0: 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 |................|
00003EE0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 3D |...............=|
00003EF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 39 47 |===========.".9G|
00003F00: 64 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D |d.PT$.PT$.".....|
00003F10: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 |................|
00003F20: A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D |................|
00003F30: 9D 9D 9D 9D 9D 9D 9D 9D 22 00 70 47 65 EA 50 54 |........".pGe.PT|
00003F40: 24 B2 42 54 24 AA 22 91 91 91 91 91 91 1D 1D 1D |$.BT$.".........|
00003F50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003F60: 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 AA 22 90 22 |.......".PT$."."|
00003F70: 00 A0 47 67 EA 4D 4C 24 B2 22 13 11 11 11 11 11 |..Gg.ML$."......|
00003F80: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003F90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00003FA0: 00 BB 47 68 EA 57 44 B2 34 30 3A 43 52 54 B2 31 |..Gh.WD.40:CRT.1|
00003FB0: 30 32 34 3A 99 C7 28 31 34 32 29 00 DF 47 69 EA |024:..(142)..Gi.|
00003FC0: 57 32 B2 57 44 AD 32 3A 57 33 B2 57 44 AB 31 3A |W2.WD.2:W3.WD.1:|
00003FD0: 57 31 24 B2 CA 28 C4 28 57 44 29 2C 32 29 3A 00 |W1$..(.(WD),2):.|
00003FE0: 01 48 6A EA 57 32 24 B2 CA 28 C4 28 57 32 29 2C |.Hj.W2$..(.(W2),|
00003FF0: 32 29 3A 57 33 24 B2 CA 28 C4 28 57 33 29 2C 32 |2):W3$..(.(W3),2|
00004000: 29 00 23 48 74 EA 99 22 93 22 3A 97 35 33 32 38 |).#Ht..".":.5328|
00004010: 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 32 3A 99 |1,15:.53280,12:.|
00004020: 22 90 22 00 51 48 46 EE 8B C2 28 37 38 39 29 B3 |".".QHF...(789).|
00004030: B1 37 AC 31 36 AA 31 35 A7 9E 28 37 AC 34 30 39 |.7.16.15..(7.409|
00004040: 36 AA 31 35 AC 32 35 36 AA 31 32 AC 31 36 AA 33 |6.15.256.12.16.3|
00004050: 29 00 57 48 47 EE 8E 00 6B 48 48 EE 8F 2A 4E 45 |).WHG...kHH..*NE|
00004060: 57 20 57 4F 52 4B 53 50 41 43 45 00 85 48 49 EE |W WORKSPACE..HI.|
00004070: 4D B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA |M.7.4096.15.256.|
00004080: 31 35 AC 31 36 00 8B 48 4A EE 8C 00 A3 48 4B EE |15.16..HJ....HK.|
00004090: 81 49 B2 4D A4 4D AA 31 35 3A 87 4B 3A 97 49 2C |.I.M.M.15:.K:.I,|
000040A0: 4B 3A 82 00 BD 48 4C EE 83 20 31 2C 39 36 2C 33 |K:...HL.. 1,96,3|
000040B0: 2C 39 36 2C 33 2C 39 36 2C 33 2C 39 36 00 DB 48 |,96,3,96,3,96..H|
000040C0: 4D EE 83 20 31 34 34 2C 31 32 37 2C 30 2C 30 2C |M.. 144,127,0,0,|
000040D0: 31 34 34 2C 31 32 37 2C 30 2C 30 00 F8 48 4E EE |144,127,0,0..HN.|
000040E0: 4D B2 36 AC 34 30 39 36 3A 81 49 B2 30 A4 32 3A |M.6.4096:.I.0.2:|
000040F0: 97 4D AA 49 2C 30 3A 82 00 FE 48 4F EE 8E 00 38 |.M.I,0:...HO...8|
00004100: 49 18 F6 99 22 13 11 11 11 11 11 11 11 11 11 11 |I..."...........|
00004110: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 48 49 |..............HI|
00004120: 54 20 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F |T .RETURN. TO CO|
00004130: 4E 54 49 4E 55 45 22 3B 00 4E 49 19 F6 A1 41 24 |NTINUE";.NI...A$|
00004140: 3A 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 63 |:.A$.."".63001.c|
00004150: 49 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 |I...A$:.A$."".63|
00004160: 30 30 32 00 69 49 1B F6 8E 00 7D 49 7C F6 81 54 |002.iI....}I|..T|
00004170: B2 31 A4 35 3A 99 50 54 24 4D 53 24 3B 00 93 49 |.1.5:.PT$MS$;..I|
00004180: 7D F6 99 50 54 24 22 20 20 20 20 20 20 20 20 20 |}..PT$" |
00004190: 20 22 3B 00 A2 49 7E F6 99 50 54 24 4D 53 24 3B | ";..I~..PT$MS$;|
000041A0: 3A 82 00 AA 49 7F F6 99 3A 8E 00 CF 49 E0 F6 97 |:...I...:...I...|
000041B0: 35 36 2C 39 36 3A 97 35 32 2C 39 36 3A 97 35 35 |56,96:.52,96:.55|
000041C0: 2C 30 3A 97 35 31 2C 30 3A 8D 36 31 30 30 30 00 |,0:.51,0:.61000.|
000041D0: E1 49 E1 F6 57 44 B2 34 30 3A 99 C7 28 31 34 32 |.I..WD.40:..(142|
000041E0: 29 00 FA 49 E2 F6 4D B2 37 AC 34 30 39 36 AA 31 |)..I..M.7.4096.1|
000041F0: 35 AC 32 35 36 AA 39 AC 31 36 00 12 4A E3 F6 81 |5.256.9.16..J...|
00004200: 49 B2 4D A4 4D AA 39 31 3A 87 4B 3A 97 49 2C 4B |I.M.M.91:.K:.I,K|
00004210: 3A 82 00 59 4A E4 F6 83 31 36 35 2C 32 30 33 2C |:..YJ...165,203,|
00004220: 32 30 31 2C 34 36 2C 32 30 38 2C 38 33 2C 33 32 |201,46,208,83,32|
00004230: 2C 31 39 35 2C 31 32 37 2C 31 36 35 2C 34 34 2C |,195,127,165,44,|
00004240: 32 30 31 2C 38 2C 32 34 30 2C 33 2C 33 32 2C 31 |201,8,240,3,32,1|
00004250: 37 37 2C 31 32 37 2C 33 32 00 9E 4A E5 F6 83 31 |77,127,32..J...1|
00004260: 34 32 2C 31 36 36 2C 31 36 35 2C 34 34 2C 32 30 |42,166,165,44,20|
00004270: 31 2C 38 2C 32 34 30 2C 33 2C 37 36 2C 31 32 38 |1,8,240,3,76,128|
00004280: 2C 31 36 34 2C 37 36 2C 31 37 34 2C 31 36 37 2C |,164,76,174,167,|
00004290: 31 36 32 2C 31 36 2C 31 38 39 2C 32 33 39 00 E7 |162,16,189,239..|
000042A0: 4A E6 F6 83 31 32 37 2C 37 32 2C 31 38 31 2C 34 |J...127,72,181,4|
000042B0: 32 2C 31 35 37 2C 32 33 39 2C 31 32 37 2C 31 30 |2,157,239,127,10|
000042C0: 34 2C 31 34 39 2C 34 32 2C 32 30 32 2C 32 30 38 |4,149,42,202,208|
000042D0: 2C 32 34 31 2C 39 36 2C 31 32 30 2C 31 37 33 2C |,241,96,120,173,|
000042E0: 32 33 38 2C 31 32 37 00 2C 4B E7 F6 83 37 37 2C |238,127.,K...77,|
000042F0: 32 30 2C 33 2C 31 34 31 2C 32 30 2C 33 2C 31 37 |20,3,141,20,3,17|
00004300: 33 2C 32 33 39 2C 31 32 37 2C 37 37 2C 32 31 2C |3,239,127,77,21,|
00004310: 33 2C 31 34 31 2C 32 31 2C 33 2C 38 38 2C 39 36 |3,141,21,3,88,96|
00004320: 2C 31 37 33 2C 32 30 2C 33 2C 37 33 00 6B 4B E8 |,173,20,3,73.kK.|
00004330: F6 83 31 34 34 2C 31 34 31 2C 32 33 38 2C 31 32 |..144,141,238,12|
00004340: 37 2C 31 37 33 2C 32 31 2C 33 2C 37 33 2C 31 32 |7,173,21,3,73,12|
00004350: 37 2C 31 34 31 2C 32 33 39 2C 31 32 37 2C 39 36 |7,141,239,127,96|
00004360: 2C 37 36 2C 32 35 35 2C 32 35 35 00 89 4B F0 F6 |,76,255,255..K..|
00004370: 97 4D AA 39 30 2C C2 28 37 38 38 29 3A 97 4D AA |.M.90,.(788):.M.|
00004380: 39 31 2C C2 28 37 38 39 29 00 A7 4B F4 F6 4B 45 |91,.(789)..K..KE|
00004390: 59 B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA |Y.7.4096.15.256.|
000043A0: 31 33 AC 31 36 AA 38 00 C5 4B F5 F6 9E 28 4B 45 |13.16.8..K...(KE|
000043B0: 59 29 3A 8F 20 4B 45 59 20 46 4F 52 20 49 52 51 |Y):. KEY FOR IRQ|
000043C0: 20 53 57 41 50 00 CB 4B 43 F7 8E 00 E9 4B 44 F7 | SWAP..KC....KD.|
000043D0: 8F 2A 53 57 49 54 43 48 20 54 4F 20 4E 45 57 20 |.*SWITCH TO NEW |
000043E0: 57 4F 52 4B 53 50 41 43 45 00 01 4C 45 F7 8D 36 |WORKSPACE..LE..6|
000043F0: 33 36 30 30 3A 8F 20 52 55 4E 20 4E 55 4D 42 45 |3600:. RUN NUMBE|
00004400: 52 00 20 4C 46 F7 8D 36 31 30 30 30 3A 8F 20 4E |R. LF..61000:. N|
00004410: 45 57 20 54 48 45 20 57 4F 52 4B 53 50 41 43 45 |EW THE WORKSPACE|
00004420: 00 2B 4C 47 F7 89 36 33 34 30 33 00 49 4C A8 F7 |.+LG..63403.IL..|
00004430: 8F 2A 53 57 49 54 43 48 20 54 4F 20 4F 4C 44 20 |.*SWITCH TO OLD |
00004440: 57 4F 52 4B 53 50 41 43 45 00 54 4C A9 F7 8D 36 |WORKSPACE.TL...6|
00004450: 33 36 30 30 00 74 4C AB F7 53 57 54 43 48 B2 37 |3600.tL..SWTCH.7|
00004460: AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 39 AC 31 |.4096.15.256.9.1|
00004470: 36 AA 31 35 00 91 4C AC F7 9E 28 53 57 54 43 48 |6.15..L...(SWTCH|
00004480: 29 3A 8F 20 53 57 41 50 20 50 4F 49 4E 54 45 52 |):. SWAP POINTER|
00004490: 53 00 9E 4C AD F7 97 32 30 34 2C 32 3A 80 00 B0 |S..L...204,2:...|
000044A0: 4C 0C F8 8F 2A 52 45 53 54 4F 52 45 20 50 45 54 |L...*RESTORE PET|
000044B0: 00 C5 4C 0D F8 53 4E 24 B2 22 31 30 30 22 3A 8D |..L..SN$."100":.|
000044C0: 36 33 36 30 30 00 F4 4C 0E F8 4D B2 37 AC 34 30 |63600..L..M.7.40|
000044D0: 39 36 AA 31 35 AC 32 35 36 AA 31 32 AC 31 36 AA |96.15.256.12.16.|
000044E0: 33 3A 8B C2 28 37 38 39 29 B2 37 AC 31 36 AA 31 |3:..(789).7.16.1|
000044F0: 35 A7 9E 4D 00 FA 4C 0F F8 8E 00 12 4D 70 F8 8F |5..M..L.....Mp..|
00004500: 2A 49 4E 53 45 52 54 20 52 55 4E 20 4E 55 4D 42 |*INSERT RUN NUMB|
00004510: 45 52 00 2D 4D 71 F8 4D B2 32 30 35 39 3A 53 4E |ER.-Mq.M.2059:SN|
00004520: 24 B2 22 30 30 30 30 30 22 AA 53 4E 24 00 4D 4D |$."00000".SN$.MM|
00004530: 72 F8 81 49 B2 31 A4 35 3A 97 4D AB 49 2C C6 28 |r..I.1.5:.M.I,.(|
00004540: C9 28 53 4E 24 2C 49 29 29 3A 82 3A 8E 00 00 00 |.(SN$,I)):.:....|
.......00100......".......9...."......PO
NZO*1983*WATERLOO.F....".........D..5328
1,15:.53280,12:.".":.". ..
C64 TUTOR-1...E.."......................
.................."...F..". ..
C64 BASICS .. .":MS$." WEL
COME! ".(.G.."..........................
...............".E.H.SN$."1000":.63200:.
63600.^.I..60000:.63100:.59000.I....6000
0......"..HI.! LET ME TELL YOU ABOUT MYS
ELF."......"I'M A CLASSY CALCULATOR:"...
...".I CAN ADD: .2+2=4. SUBTRACT:.2-3=-1
"......".MULTIPLY:.3*17=51. DIVIDE:.4/16
=.25".4.8..".I COMPUTE SINES AND LOGARIT
HMS".Z.B..".SQUARE ROOTS AND ARCTANGENTS
."...L..".I RAISE NO'S TO A POWER:.2^(-3
)=.125"......".TYPE:.?2*SIN(./3)+LOG(1.2
^3)-SQR(4*5.6)"......".(THE ? IN FRONT M
EANS PRINT)"......" .
.....".*.(.."..HIT .RETURN...I PRINT TH
E ANSWER!".L.2.."..TRY IT.. WHEN FINISHE
D..".Q.3.."..TYPE @._..................
"...4.MS$.".@_REMEMBER.":.63100...7.SN$.
"02000":.63300.Q.P..".":MS$." GOOD":.6
0000:.63100:.".";...4..".TO CORRECT A MI
STYPED SYMBOL ". .>..".JUST PRESS THE K
EY MARKED .DEL...;.F.." .
.."._.Z.."SUPPOSE YOU TYPED 2SIN(./3).".
.....".TO INSERT A * BETWEEN 2 AND SIN(.
/3)"......".TO INDICATE MULTIPLY.....I..
..".PRESS SHIFT AND DEL!"...`.." ..
... ... ......D.."DO THIS AFTER YOU HAVE
THE CURSOR".'.N..".OVER THE S IN SIN.".
K.(..".THAT WAY YOU INSERT A SPACE".C.2.
.".TO TYPE IN '*'."......".TRY IT! THEN
.TYPE @".....SN$."03000":.63300.F....60
000:.".IF YOU WANT ME TO REMEMBER THE"..
.B..".RESULT OF SOME CALCULATION.."...L.
.".THEN GIVE IT A NAME!".#.V..".TYPE:.SA
M=2*3/4+5.".D....".THEN I'LL REMEMBER S
AM.".N....".YOU CAN ASK FOR THE VALUE OF
SAM."......".TYPE:.?SAM"......".YOU CAN
ALSO TYPE:"......".JOE=SAM^2+SIN(.*SAM/
3)".Z....".?JOE "...&..
".THEN I'LL PRINT THE VALUE OF JOE.".#.0
..".TRY IT!THEN TYPE.. .@".:.:.SN$."040
00":.63300.G. ..60000:.".OK..IF YOU TELL
ME THE VALUES"......".OF A,B & C THEN T
YPE:"...H..".Y=(-B+SQR(B*B-4*A*C))/(2*A)
".M.L..".?Y "...
0..".I'LL CALCULATE Y AND PRINT IT."....
..".UNFORTUNATELY, IF YOU GIVE ME".B....
".NEW VALUES FOR A,B & C...WELL..".M....
".YOU'LL HAVE TO RETYPE THE FORMULA!"...
...".(BUT WAIT TILL WE WRITE 'PROGRAMS')
."......".WANT TO TRY THIS?".W.V..".THEN
:.TYPE @. TO CONTINUE."...[.MS$."@_.....
...":.63100...J.SN$."05000":.63300.>....
60000:.".IF YOU GIVE ME NEW VALUES FOR A
,B &C".E....".BY TYPING .A=5.3:B=-2.1:C=
.011"......".(YOU CAN GIVE ME SEVERAL IN
STR'NS"...|.."ON THE SAME LINE,SEPARATED
BY A COLON:)"...D..".I'LL REMEMBER THES
E NEW VALUES"...N..".AND IF YOU WANT Y R
ECALCULATED".0....".JUST MOVE THE CURSOR
TO THE"._....".STATEMENT DEFINING Y AND
HIT 'RETURN'."...P..".I'LL THINK YOU JU
ST TYPED IT IN!"...Z..".THEN YOU CAN ASK
.?Y".B....".TRY IT! THEN .TYPE @".Y.O.S
N$."06000":.63300...P..60000:.".NOW ...M
Y MORE IMPRESSIVE TALENT..".#.U..".
.PROGRAMS.".8.Z.." ........".R.{.MS$
." AHEM...":.63100.]...63000......".IF
YOU GIVE EACH INSTRUCTION A 'NUMBER'"...
...".I'LL REMEMBER THE INSTRUCTION!".O..
..".FOR EXAMPLE, TYPE:"......"..10 Y=(A+
B)/2"......".20 ?Y "."....".#10 SA
YS:COMPUTE THE AVERAGE OF".L.E..".TWO NU
MBERS A & B, AND CALL IT Y.".S.T..".#20
SAYS:PRINT THE VALUE OF Y."......".NOW I
'LL 'REMEMBER' THESE INSTRUCTIONS!".M...
.".CLEAR THE SCREEN,TYPE .A=1.5:B=-4"...
...".THEN .GOTO 10....I'LL OBEY!"......"
.TRY IT! THEN .TYPE @".*...MS$." GOTO
10":.63100.A...SN$."07000":.63300.P.X..6
0000:.".SUPPOSE YOU WANT THE VALUE OF Y"
...B..".PRINTED IN THE MIDDLE OF THE SCR
EEN."......".TYPE:"......".15?".M...."16
?SPC("W2$");"......".#15 SAYS:PRINT NOTH
ING..A BLANK LINE.".&....".#16 SAYS:SPAC
E RIGHT "W2$" PLACES.".O....".>THE SEMI-
COLON AFTER SPC("W2$")".T.F..".SAYS:LEAV
E THE CURSOR THERE!"...P..".YOU SEE,I NO
RMALLY RETURN THE CURSOR"...U..".TO THE
LEFT MARGIN.."...Z..".UNLESS YOU INCLUDE
THE .;"......63000......"...TYPE STATEM
ENTS IN ANY........ ORDER.".C....".I'LL
REMEMBER THEM IN THE ORDER".M....".OF TH
EIR STATEMENT #'S! YOU TYPE:"......".10Y
=(A+B)/2"......"20?Y "......"15?
"......"16?SPC("W2$");".Y....".I R
EMEMBER THEM AS:"......". 10 Y=(A+B)/2".
....." 15 PRINT"......" 16 PRINTSPC("W2$
");"......" 20 PRINTY".W....".TRY IT!..T
HEN TYPE .@. TO GO ON.".N.\.SN$."08000":
.63300.Y.@..60000...J..". 10 Y=(A+B)/2
."...T.." 15 PRINT .THE PRO
GRAM"...^.." 16 PRINTSPC("W2$"); .SO FA
R"...H.." 20 PRINTY .".'.|..".TO
CONVINCE YOURSELF THAT I HAVE".P....".A
LL YOUR INSTRUCTIONS,IN ORDER..".M....".
JUST TYPE:.LIST10-20"......".I'LL PRINT
EVERY STATEMENT :10 TO 20.".A....".YOU C
AN EDIT STATEMENTS RIGHT"......".ON THE
SCREEN. JUST .LIST. ..THEN MOVE"...L..".
THE CURSOR..THEN .INST/DEL. ETC.".D.V.."
.TO CHECK THE CHANGES, .LIST. AGAIN..M..
..".WANT TO TRY? (CONTINUE WITH .@.)"...
..SN$."09000":.63300...(#.60000:MS$.".SO
ME NOTES.":.63100.I.2#.".TO .CHANGE. A S
TATEMENT"...<#.".TYPE THE NO. AND THE NE
W INSTRUCTION.".!.F#."(I'LL FORGET THE O
LD INSTRUCTION).".A.P#.".TO .DELETE. A S
TATEMENT".K.Z#.".TYPE THE NO. THEN PRESS
'RETURN'!"....#.".WHICH REMINDS ME.."..
..#."..DO NOT. TYPE IN SOME NUMBER..".T.
.#."CHANGE YOUR MIND...HIT RETURN.."...
#."..THEN REENTER THE NUMBER.".!..#."YOU
MAY HAVE WIPED OUT A STATEMENT!".E..#."
.NOTE,TOO,THAT YOU MAY USE ?".L..#.".I W
ILL REMEMBER IT AS .PRINT..".W.H#.63000.
..I#.".ALSO..I REMEMBER ONLY THE FIRST T
WO".P.J#.".CHARACTERS IN ANY .NAME. YOU
ASSIGN."...K#.".SAM=10"...L#."SALLY=20".
..M#.".TO ME, .BOTH. HAVE THE SAME NAME!
"...N#.".NAMELY .SA.!".Z.O#.".HENCE SA=1
0 FOLLOWED BY SA=20 MAKES".P.P#.".SAM=SA
LLY=20."...Q#MS$."SAM=SALLY?":.63100...R
#.63000....':.J..'.". IN ADDITION TO MAN
IPULATING NUMBERS"....'.".I CAN MANIPULA
TE .STRINGS. OF SYMBOLS.".(.$'.".IN THE
SAME WAY THAT YOU ASSIGN A NAME".P..'.".
TO A NUMBER,LIKE X OR Y OR SAM,".Y.8'.".
YOU CAN GIVE A NAME TO A .STRING"...B'."
.OF CHARACTERS."...L'.".SO THAT I DON'T
BECOME CONFUSED"...V'.".I MUST KNOW WHET
HER 2*3 IS A NUMBER"...`'.".OR A STRING
OF THREE SYMBOLS.".9.J'.".HENCE, I MUST
INSIST THAT THE NAME YOU".C.T'.".GIVE IT
ENDS WITH A $ ..IF IT'S A"...~'.".STRIN
G OF SYMBOLS..LIKE X$,Y$ OR SAM$."....'.
63000.E..'.". YOU CAN NOW TRY THE FOLLOW
ING:".S..'.".TYPE:"....'."X=2+3"....'."X
$="G(34)"2+3"G(34).. .'."?X".. .'."?X$".
1 D'.".....SEE WHAT I'LL PRINT.?".M S'."
..THEN TYPE .@. TO CONTINUE.":MS$." ??
?? ":.63100.. X'SN$."11000":.63300.. .
*.60000.. .+."YOU GUESSED IT!".. .+."I'L
L PRINT:".E .+.:." 5".R +."2+3":... %+.
63000..!*+.". NOW WHAT DO YOU THINK X$+Y
$ MEANS?"..!4+.".TRY TYPING:":..8!>+.".A
$="G(34)"I"G(34).R!H+."B$="G(34)"YOU"G(3
4).R!R+."Y$="G(34)"AM GREAT!"G(34)..!\+.
"Z$="G(34)"ARE TOO?"G(34)..!F+.".THEN AS
K ME:"..!P+.".?A$+Y$".C!Z+."?B$+Z$"..!.+
.".TRY IT! THEN TYPE .@"..!.+MS$." GRE
AT? ":.63100..".+SN$."12000":.63300.H".
..60000:.".WELL..IF YOU TRIED IT YOU'LL
NOTICE"".W"...".THAT A$ STANDS FOR .EVER
YTHING. INSIDE".."...".THE QUOTES. IF YO
U WANT A SPACE".L"...".AFTER I..THEN INC
LUDE THE SPACE TOO!".."./." .".."./
."..A$="G(34)"I "G(34)..#./." ^"..#.
/." SEE?". #./.63000.P#./.".OK..LET'
S WORK ALL THIS INTO A PROGRAM.".C#./."L
ET'S TYPE:"..#&/.".10?"G(34)"CALCULATION
OF THE HYPOTENUSE"G(34)..#0/."20?"G(34)
"ENTER SIDE A"G(34).M#:/."30 INPUT A"..#
D/."40?"G(34)"ENTER SIDE B"G(34)..$N/."5
0 INPUT B".0$X/."60 C=SQR(A*A+B*B):?"G(3
4)"HYP="G(34)"C".C$B/."70 GO TO 20".J$L/
.".THE ONLY THING NEW IS .INPUT.."..$./.
".AT STATEMENT#30 I'LL WAIT FOR YOU"..$.
/.".TO TYPE IN A NUMBER, AND I'LL CALL"
..$./.".THE NUMBER A,IF YOU SAY .INPUTA.
."..%.0.".TRY IT!(THEN TYPE .@.)".%%.0MS
$."HYPO/WHAT?":.63100.<%.0SN$."13000":.6
3300.H%H2.60000:.".SUPPOSE YOU WANT THE
SQUARES"..%R2.".OF THE INTEGERS FROM 1 T
O 100."..%.2.".YOU COULD TYPE:"..%.2."..
10 ?1*1".T%.2.".20 ?2*2. ETC.ETC."..&.
3.".OR,YOU COULD REPEAT THE INSTRUCTION:
"..&.3."..10 ?N*N.".@&.3.".AGAIN & AGAIN
,FOR N=1 THEN N=2..ETC.".O&"3.".TO DO TH
IS YOU PUT THE INSTRUCTION TO "..&,3.".B
E REPEATED WITHIN A .FOR-NEXT. LOOP:".U&
@3."..10 FOR N=1 TO 100. _HERE'S THE "G(
34)"FOR"G(34)..&J3.".20 ?N*N ".
''T3.".30 NEXT . _HERE'S THE "G
(34)"NEXT"G(34).7'^3.63000:.".".S'H3MS$.
" WATCH!! ":.63100.~'.6.60000:.".HOW'S
THIS FOR A DIVERSION?"..'.6.T.1.500:.:."
."..'D6.I.1.2..'N6.J.1.WD.1:.T.1.5:..B'X
6." *.";:..Y'.6.J.1.WD.1:.T.1.5:...'.6."
..*.";:...'.6.J.1.WD:.T.1.5:...(.7."*";
:.:...(.7.63000.G(.7.".":MS$." .NICE !.
":.60000:.63100:.".";.](F7.".LET'S TRY
IT!"..(P7.".THERE WILL BE 4 .FOR-NEXT.
LOOPS."..(Z7."..1.:"W3$" MOVEMENTS TO TH
E RIGHT.".Q(D7."..2.:"W3$" TO THE LEFT..
"..(N7.".(EACH OF THE ABOVE WILL PRINT A
NEW *".&)X7.".AND ERASE THE OLD *..GIVI
NG THE.E).7.".APPEARANCE OF MOTION).".P)
.7."..3.:THEN, RIGHT AGAIN (BUT WITHOUT"
..).7.".ERASING) LEAVING THE *'S.".J).7.
"..4.:THEN.......... ALL 3 LOOPS WILL BE
REPEATED"..).7.".2 TIMES,FOR 2 LINES!".
.).7.63000..*.7.".......HERE WE GO!"..*.
7.I.1.500:..D*H7.".ASSUME THE CURSOR IS
'OVER' A *.".G*R7.".TO ERASE WE TYPE 'SP
ACE'.."..*.7.".THEN *,THEN A 'CURSOR-LEF
T'"..*.7.".(LEAVING THE CURSOR AGAIN 'OV
ER' .*.).".U*.8.".10?"G(34)" *."G(34)..*
.8." ^"..+.8." THIS IS .CURSOR
-LEFT.!".1+68.".REPEAT THESE INST'NS "W3
$" TIMES".J+@8.".WITH A .FOR-NEXT".]+J8.
".LIKE SO:":..V+T8.".9 FOR I=1 TO "W3$..
+^8."10?"G(34)" *."G(34). +H8."11 NEXT";
..+R8.63000.I+S8.".9 FOR I=1 TO "W3$" .
"..,T8."10?"G(34)" *."G(34)" . W
E HAVE THIS SO FAR"..,U8."11 NEXT
.".5,.8.".NOW YOU'D TYPE:".N,.8.".19
FOR I=1 TO"W3$.J,.8."20?"G(34)" ..*."G(3
4).Y,.8."21 NEXT"..,.8.".NOTE THE SEQUEN
CE OF PRINT INST'NS:"..,B8."..SPACE.-.C'
SORLEFT.-.C'SORLEFT.-.*.-.C'SORLEFT."..-
L8.".NOW WE HAVE * MOVING TO THE RIGHT,"
.)-V8.".AND........ TO THE LEFT,".6-.8."
.NOW:".L-.8.".29FORI=1TO"W1$.D-.8."30?"G
(34)"*"G(34).R-.8."31NEXT".}-.9.63000..-
.9.".NOTE THAT YOU NEEDN'T LEAVE ALL THO
SE".P-.9.".BLANK SPACES IN THE INST'NS."
..-&9.".(ME SMART FELLOW!)"...09.".ANYWA
Y..THE LAST FOR-NEXT LOOP".7.:9.".REPEAT
S ALL THE ABOVE TWICE!".K.D9." ..
. ".B.N9.".SO YOU'D TYPE:"...X9.".5FORJ=
1TO2 _FIRST STATEMENT"...B9."40NEXT
_LAST STATEMENT"...L9.63000...P9.".N
OW OUR PROGRAM(PROGRAMME?).LIST.S LIKE:"
...Z9.". 5 FORJ=1TO2"../.9." 9 FORI=1TO"
W3$.3/.9." 10 PRINT"G(34)" *."G(34).C/.9
." 11 NEXT".Z/.:." 19 FORI=1TO"W3$.|/.:.
" 20 PRINT"G(34)" ..*."G(34)../.:." 21 N
EXT"../ :." 29 FORI=1TO"W1$.A/*:." 30 PR
INT"G(34)"*"G(34).Q/4:." 40 NEXT"../5:."
40 NEXT"..0H:.".NOTE THAT WE USE "G(34)
"J"G(34).70R:.".FOR THE LOOP THAT REPEAT
S FOR 2 LINES.".^0\:.".(THAT IS, THE OUT
ERMOST LOOP)."..0F:.".WITHIN THIS LOOP .
DON'T. USE .J. AGAIN!"..0U:.".(SO WE USE
D .I.)"..0{:.63000.J0.:.".... 5 FORJ=1TO
2"..0.:." 9 FORI=1TO"W3$..1.:." 10 PRINT
"G(34)" *."G(34).!1.:." 11 NEXT I
_...NOTE".81.:." 19 FORI=1TO"W3$.Z1.:."
20 PRINT"G(34)" ..*."G(34).{1.:." 21 NEX
T I _...NOTE"..1.:." 29 FORI=1TO"W
1$..1.:." 30 PRINT"G(34)"*"G(34).Q1.:."
31 NEXT I _...NOTE"..1.:." 40 NEXT
J _...NOTE"..2.:.".IF YOU GET CON
FUSED WITH".02.:.".ALL THOSE .NEXT.S..."
.Q2.:.".TYPE: .NEXT I. & .NEXT J".\2.:.6
3000.S2.:."..WANT TO TRY.?"..2.:.".I'LL
REPEAT THE INSTRUCTIONS.".F2.;.".YOU CAN
ENTER THE INST'NS BY PUTTING"..2.;.".TH
E CURSOR AT THE FIRST INSTR'N"..3.;.".TH
EN REPEATEDLY PRESSING 'RETURN'".C3.;.".
SO I'LL THINK .YOU. TYPED THEM IN.".N3.;
.63000.F3B=.".";:."5FORJ=1TO2".Z3L=."9FO
RI=1TO"W3$..3V=."10?"G(34)" *."G(34)..3.
=."11NEXT"..3.=."19FORI=1TO"W3$.S3.=."20
?"G(34)" ..*."G(34)..3.=."21NEXT"..3.>."
29FORI=1TO"W1$..4.>."30?"G(34)"*"G(34)..
4.>."31NEXT".*4.>."40NEXT".W4!>.".AFTER
ENTERING STATEMENTS 5-40 TYPE:".|4">."..
RUN. TO RUN YOUR PROGRAMME."..4&>.".(TYP
E .@. TO CONTINUE TUTOR 1).":SN$."16000"
:.63300..4.>.60000:."..DOESN'T WORK DOES
IT?"..4.>.18000..5.>.".NOW SUPPOSE YOU'
D LIKE TO SPECIFY".95.>.".THE SYMBOL USE
D..INSTEAD OF *."._5.>.".IN THE PROGRAM,
REPLACE * IN "..5.?.".STATEMENTS #10,20
&30 BY,SAY,S$"..5.?.".THEN INCLUDE THE S
TATEMENTS:".I5.?.".3?"G(34)"SYMBOL?"G(34
)..5 ?."4 INPUT S$"..6*?.".NOW I'LL WAIT
FOR YOU TO ENTER THE"..64?.".SYMBOL(OR
STRING)WHICH IS LATER".I6>?.".REFERRED T
O AS S$.".T6C?.63000.L6H?.".ANOTHER THIN
G.."..6R?.".YOU WILL WANT TO CLEAR THE "
..6\?.".SCREEN AT THE START OF THE PROG'
M".Q6F?.".SO START WITH:"..6P?.".1?"G(34
)"."G(34)..7Z?.".THIS SAYS: PRINT A CLR"
.&7.?." ...".17.?.6300
0.^7.?.".ALSO, YOU WON'T WANT ME TO COME
BACK"..7.?.".WITH MY "G(34)"READY"G(34)
..7.?." ....."..7.?.".SO GIVE ME
SOMETHING TO DO,LIKE:"..7.?."..50 FORI=
1TO5000:G=0:NEXT"..8.?.".THAT WAY I'LL G
O AWAY AND SET G=0"..8J?.".5000 TIMES!".
<8O?."...OR YOU COULD HAVE:".Q8P?."..50
GO TO 50".}8Q?.".THEN I'D 'LOOP' ON STAT
EMENT#50 AND"..8R?.".TO STOP ME YOU'D HI
T .STOP.."..8.?.63000.Z8.?.".ANOTHER THI
NG,YOU MAY WANT TO CHANGE"..9.?.".YOUR M
IND ABOUT THE NO. OF LINES".(9.@.".PRINT
ED(INSTEAD OF ALWAYS 2)".H9.@.".SO CHANG
E: .FOR J=1TO 2".H9.@.".TO READ: .FOR
J=1TO L".S9$@.63000..9.@.".OF COURSE YOU
'LL HAVE TO INPUT"G(34)"L"G(34).H98@.".S
O INSERT THE STATEMENT:"..9B@."..2 INPUT
"G(34)"LINES="G(34)";L"..:V@.".I'LL PRIN
T THE PROMPTING REMARK:".(:`@.".LINES=?"
.T:A@.".AND WILL WAIT FOR L TO BE TYPED
IN."._:J@.63000..:T@.".THEN YOU MAY WANT
TO USE MY CLASSY"..:~@."."G(34)"REVERSE
FIELD"G(34).B:.@." ............."..:.@.
"...THAT'S .CTRL-9.=.RVS ON"..;.@.".SO I
NSERT THIS PRINT COMMAND".0;.@.".AT THE
BEGINNING OF EACH PRINT".B;.@.".SEQUENCE
.".M;.@.63000.^;D@.".REPLACE:".Y;N@.". ?
"G(34)" *."G(34);..;X@..5)". ..BY:"..;.
@.". ?"G(34)". *."G(34)..;.@." ^".R;.@
."THAT'S A 'RVS' COMMAND!"..;.@.63000..<
.@."....I'LL PRINT LOTS OF THINGS IN"..<
.A." REVERSE FIELD".3<.A." ...........
..".]<.A." SO IF YOU WANT IT "G(34)"OFF"
G(34).~<.A." INSERT A PRINT COMMAND:"..
<(A.:."41?"G(34)"."G(34)..<2A." ^ THA
T'S .RVS OFF.!".B<MA.63000..<RA.".THEN..
IF YOU WANT TO SLOW THINGS DOWN"..=.A.".
TRY .SUBROUTINES.!".7=.A.".INCLUDE A FEW
'GOSUB500' STATEMENTS".E=.A.".AND I'LL
GO TO STATEMENT 500 AND OBEY"..=.A.".THE
INSTRUCTIONS THERE."..=.B.".SO, PUT INS
TRUCTIONS AT 500:".E=.B."..500 FORT=1 TO
1000"..=.B.".510 NEXT "..="B.".5
20 RETURN ".'>,B.".AFTER DOING 'NO
THING' 1000 TIMES I'LL".V>6B.".'RETURN'
TO CONTINUE THE MAIN PROGRAM.".H>@B.6300
0:.19000..>PF.".OF COURSE WE FORGOT TO I
NCLUDE ALL"..>ZF.".THOSE SEMI-COLONS!!!"
.K>DF." ........... "..>NF.".SO EN
D EACH PRINT STATEMENT"..?XF."...NAMELY
#10,#20 & #30...".0?.F.".WITH A SEMI-COL
ON! ;".B?.F.".BUT FIRST, LET'S FORGE A
HEAD!":.63000:.".".V?.FMS$."GO!GO!GO!"..
?.F.63100..?.F...?8J.".";:."1?"G(34)"."G
(34).H?BJ."2INPUT"G(34)"LINES="G(34)";L"
..?LJ."3?"G(34)"SYMBOL?"G(34)..?VJ."4INP
UTS$"..@BM."5FORJ=1TOL".&@LM."9FORI=1TO"
W3$":GOSUB500".S@VM."10?"G(34)". "G(34)"
S$"G(34)"."G(34)";".A@.M."11NEXT"..@.M."
19FORI=1TO"W3$":GOSUB500"..@.M."20?"G(34
)". .."G(34)"S$"G(34)"."G(34)";"..@.M."2
1NEXT"..@.M."29FORI=1TO"W1$":GOSUB500"..
@.M."30?"G(34)"."G(34)"S$;"..A.M."31NEXT
"."A.M."40NEXT":."50GOTO1".BA.M."500FORT
=1TO5:NEXT:RETURN".HAFM.".TYPE IT IN & .
RUN. TO RUN IT."..AZM.".THEN .TYPE @. TO
CONTINUE":SN$."20000":.63300.GA N.60000
:.".A FINAL WORD (..OR TWO..):"..A*N.".S
OMETIMES YOU RUN A PROGRAM WITH:"..B4N."
..RUN 10"..B>N.".SOMETIMES WITH:".)BHN."
..GOTO10".HBRN.".WHAT'S THE DIFFERENCE?"
.SB\N.".WELL..IF YOU TYPE .RUN... I FORG
ET"..BFN.".THE VALUES OF 'X' AND 'Y' AND
'SAM'".DBPN.".AND WILL START FROM SCRAT
CH."..BZN."..GOTO... AND I'LL REMEMBER T
HEM!"..B.N.63000..C.N.".THIS IS HANDY:".
;C.N."..STOP. A PROGRAM WHILE IT'S RUNNI
NG".MC.N.".AND TYPE:".`C.N.".?X:?Y:?SAM"
..C.N.".AND I'LL PRINT THE VALUES OF THE
SE"..C.N.".VARIABLES AT THE TIME I WAS .
STOP.PED."..CJN.".YOU CAN TYPE .CONT. TO
CONTINUE"..DTN.".WHERE I LEFT OFF...OR.
.".1D.N."..GOTO100. TO CONTINUE AT STATE
MENT 100".]D.N.".WITHOUT FORGETTING 'X'
AND 'Y' ETC.".LD.N.".......".WD.N.63000.
.D.O.".":MS$.".AU REVOIR!.":.63100:.6350
0:...DX..".".UDY..".DURING THE TUTORIAL
YOU MAY WISH"..DZ..".TO RETURN TO AN EAR
LIER 'PAGE'.".(E{..".JUST .HIT THE @-KEY
., AT ANY TIME,".NE|..".AND THE TUTORIAL
WILL BACK UP".EE}..".A PAGE OR TWO."..E
~..".ALSO, YOU HAVE AN OPPORTUNITY TO"..
E..".COMPOSE YOUR OWN PROGRAMS.".XE..."
.WHEN YOU WISH TO CONTINUE WITH"..F...".
THE TUTORIAL, .HIT THE @-KEY.!":.63000.$
F..MS$.".@._REMEMBER":.63100.1F...63000:
..IF`..204,1:. INITIALIZE.KFA.BT$.".":.I
.1.24:BT$.BT$.".":...FB.PT$."...........
........................................
............"..FC.PT$.PT$.".............
.N............M................=========
===.".9GD.PT$.PT$."...............PO....
......PO................".PGE.PT$.BT$.".
...............................".PT$."."
. GG.ML$."..............................
......."..GH.WD.40:CRT.1024:.G(142)..GI.
W2.WD.2:W3.WD.1:W1$.J(D(WD),2):..HJ.W2$.
J(D(W2),2):W3$.J(D(W3),2).#HT..".":.5328
1,15:.53280,12:.".".QHF..B(789)..7.16.15
..(7.4096.15.256.12.16.3).WHG...KHH..*NE
W WORKSPACE..HI.M.7.4096.15.256.15.16..H
J....HK..I.M.M.15:.K:.I,K:...HL.. 1,96,3
,96,3,96,3,96..HM.. 144,127,0,0,144,127,
0,0..HN.M.6.4096:.I.0.2:.M.I,0:...HO...8
I...".........................HIT .RETUR
N. TO CONTINUE";.NI...A$:.A$.."".63001.C
I...A$:.A$."".63002.II....}I|..T.1.5:.PT
$MS$;..I}..PT$" ";..I~..PT$MS$;
:...I..:..OI...56,96:.52,96:.55,0:.51,0
:.61000..I..WD.40:.G(142)..I..M.7.4096.1
5.256.9.16..J...I.M.M.91:.K:.I,K:..YJ...
165,203,201,46,208,83,32,195,127,165,44,
201,8,240,3,32,177,127,32..J...142,166,1
65,44,201,8,240,3,76,128,164,76,174,167,
162,16,189,239..J...127,72,181,42,157,23
9,127,104,149,42,202,208,241,96,120,173,
238,127.,K...77,20,3,141,20,3,173,239,12
7,77,21,3,141,21,3,88,96,173,20,3,73.KK.
..144,141,238,127,173,21,3,73,127,141,23
9,127,96,76,255,255..K...M.90,B(788):.M.
91,B(789)..K..KEY.7.4096.15.256.13.16.8.
EK...(KEY):. KEY FOR IRQ SWAP.KKC....KD.
.*SWITCH TO NEW WORKSPACE..LE..63600:. R
UN NUMBER. LF..61000:. NEW THE WORKSPACE
.+LG..63403.IL...*SWITCH TO OLD WORKSPAC
E.TL...63600.TL..SWTCH.7.4096.15.256.9.1
6.15..L...(SWTCH):. SWAP POINTERS..L...2
04,2:...L...*RESTORE PET.EL..SN$."100":.
63600..L..M.7.4096.15.256.12.16.3:.B(789
).7.16.15..M..L.....MP..*INSERT RUN NUMB
ER.-MQ.M.2059:SN$."00000".SN$.MMR..I.1.5
:.M.I,F(I(SN$,I)):.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL