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 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
b6185153a8c12d106e12590bf4932b91d2d290747946d9f6b42cd4b4e37a6fcf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TUTORIALS C | PONZO TUTOR-1.64 | PRG | DuncanTwain | 17 | 1 | 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 81 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 12 1F 43 36 34 20 54 55 54 4F 52 2D | ..C64 TUTOR-|
00000080: 31 00 B1 08 65 00 99 22 1C B0 C0 C0 C0 C0 C0 C0 |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 AE |................|
000000B0: 22 00 F5 08 66 00 99 22 DD 20 12 1F 20 20 20 20 |"...f..". .. |
000000C0: 20 20 20 20 20 20 20 20 43 36 34 20 42 41 53 49 | C64 BASI|
000000D0: 43 53 20 20 20 20 20 20 20 20 20 20 20 20 20 1C |CS .|
000000E0: 92 20 DD 22 3A 4D 53 24 B2 22 20 57 45 4C 43 4F |. .":MS$." WELCO|
000000F0: 4D 45 21 20 22 00 26 09 67 00 99 22 1C AD C0 C0 |ME! ".&.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 BD 90 22 00 43 09 68 00 53 4E 24 B2 22 |.....".C.h.SN$."|
00000130: 31 30 30 30 22 3A 8D 36 33 32 30 30 3A 8D 36 33 |1000":.63200:.63|
00000140: 36 30 30 00 5C 09 69 00 8D 36 30 30 30 30 3A 8D |600.\.i..60000:.|
00000150: 36 33 31 30 30 3A 8D 35 39 30 30 30 00 67 09 E8 |63100:.59000.g..|
00000160: 03 8D 36 30 30 30 30 00 93 09 ED 03 99 22 93 12 |..60000......"..|
00000170: 48 49 92 21 20 4C 45 54 20 4D 45 20 54 45 4C 4C |HI.! LET ME TELL|
00000180: 20 59 4F 55 20 41 42 4F 55 54 20 4D 59 53 45 4C | YOU ABOUT MYSEL|
00000190: 46 2E 22 00 B3 09 F2 03 99 22 49 27 4D 20 41 20 |F."......"I'M A |
000001A0: 43 4C 41 53 53 59 20 43 41 4C 43 55 4C 41 54 4F |CLASSY CALCULATO|
000001B0: 52 3A 22 00 DF 09 10 04 99 22 11 49 20 43 41 4E |R:"......".I CAN|
000001C0: 20 41 44 44 3A 20 12 32 2B 32 3D 34 92 20 53 55 | ADD: .2+2=4. SU|
000001D0: 42 54 52 41 43 54 3A 12 32 2D 33 3D 2D 31 22 00 |BTRACT:.2-3=-1".|
000001E0: 0B 0A 1A 04 99 22 11 4D 55 4C 54 49 50 4C 59 3A |.....".MULTIPLY:|
000001F0: 12 33 2A 31 37 3D 35 31 92 20 44 49 56 49 44 45 |.3*17=51. DIVIDE|
00000200: 3A 12 34 2F 31 36 3D 2E 32 35 22 00 32 0A 38 04 |:.4/16=.25".2.8.|
00000210: 99 22 11 49 20 43 4F 4D 50 55 54 45 20 53 49 4E |.".I COMPUTE SIN|
00000220: 45 53 20 41 4E 44 20 4C 4F 47 41 52 49 54 48 4D |ES AND LOGARITHM|
00000230: 53 22 00 58 0A 42 04 99 22 11 53 51 55 41 52 45 |S".X.B..".SQUARE|
00000240: 20 52 4F 4F 54 53 20 41 4E 44 20 41 52 43 54 41 | ROOTS AND ARCTA|
00000250: 4E 47 45 4E 54 53 2E 22 00 85 0A 4C 04 99 22 11 |NGENTS."...L..".|
00000260: 49 20 52 41 49 53 45 20 4E 4F 27 53 20 54 4F 20 |I RAISE NO'S TO |
00000270: 41 20 50 4F 57 45 52 3A 12 32 5E 28 2D 33 29 3D |A POWER:.2^(-3)=|
00000280: 2E 31 32 35 22 00 B5 0A B0 04 99 22 11 54 59 50 |.125"......".TYP|
00000290: 45 3A 12 3F 32 2A 53 49 4E 28 FF 2F 33 29 2B 4C |E:.?2*SIN(./3)+L|
000002A0: 4F 47 28 31 2E 32 5E 33 29 2D 53 51 52 28 34 2A |OG(1.2^3)-SQR(4*|
000002B0: 35 2E 36 29 22 00 DA 0A 14 05 99 22 11 28 54 48 |5.6)"......".(TH|
000002C0: 45 20 3F 20 49 4E 20 46 52 4F 4E 54 20 4D 45 41 |E ? IN FRONT MEA|
000002D0: 4E 53 20 50 52 49 4E 54 29 22 00 FD 0A 1E 05 99 |NS PRINT)"......|
000002E0: 22 20 20 20 20 20 A3 20 20 20 20 20 20 20 20 20 |" . |
000002F0: 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 22 00 28 0B | .....".(.|
00000300: 28 05 99 22 2E 2E 48 49 54 20 12 52 45 54 55 52 |(.."..HIT .RETUR|
00000310: 4E 92 2E 2E 49 20 50 52 49 4E 54 20 54 48 45 20 |N...I PRINT THE |
00000320: 41 4E 53 57 45 52 21 22 00 4A 0B 32 05 99 22 11 |ANSWER!".J.2..".|
00000330: 12 54 52 59 20 49 54 92 2E 20 57 48 45 4E 20 46 |.TRY IT.. WHEN F|
00000340: 49 4E 49 53 48 45 44 2E 2E 22 00 6F 0B 33 05 99 |INISHED..".o.3..|
00000350: 22 11 12 54 59 50 45 20 20 40 92 5F C0 C0 C0 C0 |"..TYPE @._....|
00000360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
00000370: 8D 0B 34 05 4D 53 24 B2 22 12 40 5F 52 45 4D 45 |..4.MS$.".@_REME|
00000380: 4D 42 45 52 92 22 3A 8D 36 33 31 30 30 00 A4 0B |MBER.":.63100...|
00000390: 37 05 53 4E 24 B2 22 30 32 30 30 30 22 3A 89 36 |7.SN$."02000":.6|
000003A0: 33 33 30 30 00 CF 0B D0 07 99 22 93 22 3A 4D 53 |3300......".":MS|
000003B0: 24 B2 22 20 20 20 47 4F 4F 44 22 3A 8D 36 30 30 |$." GOOD":.600|
000003C0: 30 30 3A 8D 36 33 31 30 30 3A 99 22 93 22 3B 00 |00:.63100:.".";.|
000003D0: F5 0B 34 08 99 22 93 54 4F 20 43 4F 52 52 45 43 |..4..".TO CORREC|
000003E0: 54 20 41 20 4D 49 53 54 59 50 45 44 20 53 59 4D |T A MISTYPED SYM|
000003F0: 42 4F 4C 20 22 00 1E 0C 3E 08 99 22 11 4A 55 53 |BOL "...>..".JUS|
00000400: 54 20 20 50 52 45 53 53 20 54 48 45 20 4B 45 59 |T PRESS THE KEY|
00000410: 20 4D 41 52 4B 45 44 20 12 44 45 4C 92 2E 00 39 | MARKED .DEL...9|
00000420: 0C 66 08 99 22 20 20 20 20 20 20 20 20 20 20 20 |.f.." |
00000430: 20 20 20 20 20 A3 A3 A3 22 00 5D 0C 7A 08 99 22 | ...".].z.."|
00000440: 53 55 50 50 4F 53 45 20 59 4F 55 20 54 59 50 45 |SUPPOSE YOU TYPE|
00000450: 44 20 32 53 49 4E 28 FF 2F 33 29 2E 22 00 8A 0C |D 2SIN(./3)."...|
00000460: 98 08 99 22 11 54 4F 20 49 4E 53 45 52 54 20 41 |...".TO INSERT A|
00000470: 20 2A 20 42 45 54 57 45 45 4E 20 32 20 41 4E 44 | * BETWEEN 2 AND|
00000480: 20 53 49 4E 28 FF 2F 33 29 22 00 AA 0C A2 08 99 | SIN(./3)"......|
00000490: 22 11 54 4F 20 49 4E 44 49 43 41 54 45 20 4D 55 |".TO INDICATE MU|
000004A0: 4C 54 49 50 4C 59 2E 2E 2E 2E 00 C7 0C FC 08 99 |LTIPLY..........|
000004B0: 22 11 50 52 45 53 53 20 53 48 49 46 54 20 41 4E |".PRESS SHIFT AN|
000004C0: 44 20 44 45 4C 21 22 00 E1 0C 60 09 99 22 20 20 |D DEL!"...`.." |
000004D0: 20 20 20 20 A3 A3 A3 A3 A3 20 B7 B7 B7 20 A3 A3 | ..... ... ..|
000004E0: A3 00 0A 0D C4 09 99 22 44 4F 20 54 48 49 53 20 |......."DO THIS |
000004F0: 41 46 54 45 52 20 59 4F 55 20 48 41 56 45 20 54 |AFTER YOU HAVE T|
00000500: 48 45 20 43 55 52 53 4F 52 22 00 25 0D CE 09 99 |HE CURSOR".%....|
00000510: 22 11 4F 56 45 52 20 54 48 45 20 53 20 49 4E 20 |".OVER THE S IN |
00000520: 53 49 4E 2E 22 00 49 0D 28 0A 99 22 11 54 48 41 |SIN.".I.(..".THA|
00000530: 54 20 57 41 59 20 59 4F 55 20 49 4E 53 45 52 54 |T WAY YOU INSERT|
00000540: 20 41 20 53 50 41 43 45 22 00 61 0D 32 0A 99 22 | A SPACE".a.2.."|
00000550: 11 54 4F 20 54 59 50 45 20 49 4E 20 27 2A 27 2E |.TO TYPE IN '*'.|
00000560: 22 00 7F 0D F0 0A 99 22 11 54 52 59 20 49 54 21 |"......".TRY IT!|
00000570: 20 54 48 45 4E 20 12 54 59 50 45 20 20 40 22 00 | THEN .TYPE @".|
00000580: 96 0D AE 0B 53 4E 24 B2 22 30 33 30 30 30 22 3A |....SN$."03000":|
00000590: 89 36 33 33 30 30 00 C4 0D B8 0B 8D 36 30 30 30 |.63300......6000|
000005A0: 30 3A 99 22 93 49 46 20 59 4F 55 20 57 41 4E 54 |0:.".IF YOU WANT|
000005B0: 20 4D 45 20 54 4F 20 52 45 4D 45 4D 42 45 52 20 | ME TO REMEMBER |
000005C0: 54 48 45 22 00 E9 0D C2 0B 99 22 11 52 45 53 55 |THE"......".RESU|
000005D0: 4C 54 20 4F 46 20 53 4F 4D 45 20 43 41 4C 43 55 |LT OF SOME CALCU|
000005E0: 4C 41 54 49 4F 4E 2E 2E 22 00 06 0E CC 0B 99 22 |LATION.."......"|
000005F0: 11 54 48 45 4E 20 47 49 56 45 20 49 54 20 41 20 |.THEN GIVE IT A |
00000600: 4E 41 4D 45 21 22 00 21 0E D6 0B 99 22 11 54 59 |NAME!".!....".TY|
00000610: 50 45 3A 12 53 41 4D 3D 32 2A 33 2F 34 2B 35 92 |PE:.SAM=2*3/4+5.|
00000620: 22 00 42 0E E0 0B 99 22 11 54 48 45 4E 20 49 27 |".B....".THEN I'|
00000630: 4C 4C 20 52 45 4D 45 4D 42 45 52 20 20 53 41 4D |LL REMEMBER SAM|
00000640: 2E 22 00 6C 0E EA 0B 99 22 11 59 4F 55 20 43 41 |.".l....".YOU CA|
00000650: 4E 20 41 53 4B 20 46 4F 52 20 54 48 45 20 56 41 |N ASK FOR THE VA|
00000660: 4C 55 45 20 4F 46 20 53 41 4D 2E 22 00 7F 0E FE |LUE OF SAM."....|
00000670: 0B 99 22 11 54 59 50 45 3A 12 3F 53 41 4D 22 00 |..".TYPE:.?SAM".|
00000680: 9A 0E 08 0C 99 22 11 59 4F 55 20 43 41 4E 20 41 |.....".YOU CAN A|
00000690: 4C 53 4F 20 54 59 50 45 3A 22 00 B9 0E 12 0C 99 |LSO TYPE:"......|
000006A0: 22 12 4A 4F 45 3D 53 41 4D 5E 32 2B 53 49 4E 28 |".JOE=SAM^2+SIN(|
000006B0: FF 2A 53 41 4D 2F 33 29 22 00 D8 0E 1C 0C 99 22 |.*SAM/3)"......"|
000006C0: 12 3F 4A 4F 45 20 20 20 20 20 20 20 20 20 20 20 |.?JOE |
000006D0: 20 20 20 20 20 20 20 22 00 02 0F 26 0C 99 22 11 | "...&..".|
000006E0: 54 48 45 4E 20 49 27 4C 4C 20 50 52 49 4E 54 20 |THEN I'LL PRINT |
000006F0: 54 48 45 20 56 41 4C 55 45 20 4F 46 20 4A 4F 45 |THE VALUE OF JOE|
00000700: 2E 22 00 21 0F 30 0C 99 22 11 54 52 59 20 49 54 |.".!.0..".TRY IT|
00000710: 21 54 48 45 4E 20 54 59 50 45 2E 2E 20 20 12 40 |!THEN TYPE.. .@|
00000720: 22 00 38 0F 3A 0C 53 4E 24 B2 22 30 34 30 30 30 |".8.:.SN$."04000|
00000730: 22 3A 89 36 33 33 30 30 00 65 0F A0 0F 8D 36 30 |":.63300.e....60|
00000740: 30 30 30 3A 99 22 93 4F 4B 2E 2E 49 46 20 59 4F |000:.".OK..IF YO|
00000750: 55 20 54 45 4C 4C 20 4D 45 20 54 48 45 20 56 41 |U TELL ME THE VA|
00000760: 4C 55 45 53 22 00 83 0F 04 10 99 22 11 4F 46 20 |LUES"......".OF |
00000770: 41 2C 42 20 26 20 43 20 54 48 45 4E 20 54 59 50 |A,B & C THEN TYP|
00000780: 45 3A 22 00 A7 0F 68 10 99 22 12 59 3D 28 2D 42 |E:"...h..".Y=(-B|
00000790: 2B 53 51 52 28 42 2A 42 2D 34 2A 41 2A 43 29 29 |+SQR(B*B-4*A*C))|
000007A0: 2F 28 32 2A 41 29 22 00 CB 0F CC 10 99 22 12 3F |/(2*A)"......".?|
000007B0: 59 20 20 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 22 00 F2 0F 30 11 | "...0.|
000007D0: 99 22 11 49 27 4C 4C 20 43 41 4C 43 55 4C 41 54 |.".I'LL CALCULAT|
000007E0: 45 20 59 20 41 4E 44 20 50 52 49 4E 54 20 49 54 |E Y AND PRINT IT|
000007F0: 2E 22 00 18 10 94 11 99 22 11 55 4E 46 4F 52 54 |."......".UNFORT|
00000800: 55 4E 41 54 45 4C 59 2C 20 49 46 20 59 4F 55 20 |UNATELY, IF YOU |
00000810: 47 49 56 45 20 4D 45 22 00 40 10 9E 11 99 22 11 |GIVE ME".@....".|
00000820: 4E 45 57 20 56 41 4C 55 45 53 20 46 4F 52 20 41 |NEW VALUES FOR A|
00000830: 2C 42 20 26 20 43 2E 2E 2E 57 45 4C 4C 2E 2E 22 |,B & C...WELL.."|
00000840: 00 6B 10 F8 11 99 22 11 59 4F 55 27 4C 4C 20 48 |.k....".YOU'LL H|
00000850: 41 56 45 20 54 4F 20 52 45 54 59 50 45 20 54 48 |AVE TO RETYPE TH|
00000860: 45 20 46 4F 52 4D 55 4C 41 21 22 00 98 10 C0 12 |E FORMULA!".....|
00000870: 99 22 11 28 42 55 54 20 57 41 49 54 20 54 49 4C |.".(BUT WAIT TIL|
00000880: 4C 20 57 45 20 57 52 49 54 45 20 27 50 52 4F 47 |L WE WRITE 'PROG|
00000890: 52 41 4D 53 27 29 2E 22 00 B2 10 2E 13 99 22 11 |RAMS')."......".|
000008A0: 57 41 4E 54 20 54 4F 20 54 52 59 20 54 48 49 53 |WANT TO TRY THIS|
000008B0: 3F 22 00 D5 10 56 13 99 22 11 54 48 45 4E 3A 12 |?"...V..".THEN:.|
000008C0: 54 59 50 45 20 40 92 20 54 4F 20 43 4F 4E 54 49 |TYPE @. TO CONTI|
000008D0: 4E 55 45 2E 22 00 F1 10 5B 13 4D 53 24 B2 22 40 |NUE."...[.MS$."@|
000008E0: 5F C0 C0 C0 C0 C0 C0 C0 C0 22 3A 8D 36 33 31 30 |_........":.6310|
000008F0: 30 00 08 11 6A 13 53 4E 24 B2 22 30 35 30 30 30 |0...j.SN$."05000|
00000900: 22 3A 89 36 33 33 30 30 00 3C 11 88 13 8D 36 30 |":.63300.<....60|
00000910: 30 30 30 3A 99 22 93 49 46 20 59 4F 55 20 47 49 |000:.".IF YOU GI|
00000920: 56 45 20 4D 45 20 4E 45 57 20 56 41 4C 55 45 53 |VE ME NEW VALUES|
00000930: 20 46 4F 52 20 41 2C 42 20 26 43 22 00 63 11 B4 | FOR A,B &C".c..|
00000940: 14 99 22 11 42 59 20 54 59 50 49 4E 47 20 12 41 |..".BY TYPING .A|
00000950: 3D 35 2E 33 3A 42 3D 2D 32 2E 31 3A 43 3D 2E 30 |=5.3:B=-2.1:C=.0|
00000960: 31 31 22 00 8D 11 18 15 99 22 11 28 59 4F 55 20 |11"......".(YOU |
00000970: 43 41 4E 20 47 49 56 45 20 4D 45 20 53 45 56 45 |CAN GIVE ME SEVE|
00000980: 52 41 4C 20 49 4E 53 54 52 27 4E 53 22 00 BC 11 |RAL INSTR'NS"...|
00000990: 7C 15 99 22 4F 4E 20 54 48 45 20 53 41 4D 45 20 ||.."ON THE SAME |
000009A0: 4C 49 4E 45 2C 53 45 50 41 52 41 54 45 44 20 42 |LINE,SEPARATED B|
000009B0: 59 20 41 20 43 4F 4C 4F 4E 3A 29 22 00 E3 11 44 |Y A COLON:)"...D|
000009C0: 16 99 22 11 49 27 4C 4C 20 52 45 4D 45 4D 42 45 |..".I'LL REMEMBE|
000009D0: 52 20 54 48 45 53 45 20 4E 45 57 20 56 41 4C 55 |R THESE NEW VALU|
000009E0: 45 53 22 00 0A 12 4E 16 99 22 11 41 4E 44 20 49 |ES"...N..".AND I|
000009F0: 46 20 59 4F 55 20 57 41 4E 54 20 59 20 52 45 43 |F YOU WANT Y REC|
00000A00: 41 4C 43 55 4C 41 54 45 44 22 00 2E 12 A8 16 99 |ALCULATED"......|
00000A10: 22 11 4A 55 53 54 20 4D 4F 56 45 20 54 48 45 20 |".JUST MOVE THE |
00000A20: 43 55 52 53 4F 52 20 54 4F 20 54 48 45 22 00 5D |CURSOR TO THE".]|
00000A30: 12 B2 16 99 22 11 53 54 41 54 45 4D 45 4E 54 20 |....".STATEMENT |
00000A40: 44 45 46 49 4E 49 4E 47 20 59 20 41 4E 44 20 48 |DEFINING Y AND H|
00000A50: 49 54 20 27 52 45 54 55 52 4E 27 2E 22 00 86 12 |IT 'RETURN'."...|
00000A60: D0 16 99 22 11 49 27 4C 4C 20 54 48 49 4E 4B 20 |...".I'LL THINK |
00000A70: 59 4F 55 20 4A 55 53 54 20 54 59 50 45 44 20 49 |YOU JUST TYPED I|
00000A80: 54 20 49 4E 21 22 00 A3 12 DA 16 99 22 11 54 48 |T IN!"......".TH|
00000A90: 45 4E 20 59 4F 55 20 43 41 4E 20 41 53 4B 20 12 |EN YOU CAN ASK .|
00000AA0: 3F 59 22 00 C0 12 E4 16 99 22 11 54 52 59 20 49 |?Y"......".TRY I|
00000AB0: 54 21 20 54 48 45 4E 20 12 54 59 50 45 20 40 22 |T! THEN .TYPE @"|
00000AC0: 00 D7 12 6F 17 53 4E 24 B2 22 30 36 30 30 30 22 |...o.SN$."06000"|
00000AD0: 3A 89 36 33 33 30 30 00 09 13 70 17 8D 36 30 30 |:.63300...p..600|
00000AE0: 30 30 3A 99 22 93 4E 4F 57 20 2E 2E 2E 4D 59 20 |00:.".NOW ...MY |
00000AF0: 4D 4F 52 45 20 49 4D 50 52 45 53 53 49 56 45 20 |MORE IMPRESSIVE |
00000B00: 54 41 4C 45 4E 54 2E 2E 22 00 21 13 75 17 99 22 |TALENT..".!.u.."|
00000B10: 11 20 20 20 20 20 12 50 52 4F 47 52 41 4D 53 92 |. .PROGRAMS.|
00000B20: 22 00 36 13 7A 17 99 22 20 20 20 20 20 B8 B8 B8 |".6.z.." ...|
00000B30: B8 B8 B8 B8 B8 22 00 50 13 7B 17 4D 53 24 B2 22 |.....".P.{.MS$."|
00000B40: 20 41 48 45 4D 2E 2E 2E 22 3A 8D 36 33 31 30 30 | AHEM...":.63100|
00000B50: 00 5B 13 7F 17 8D 36 33 30 30 30 00 8B 13 84 17 |.[....63000.....|
00000B60: 99 22 93 49 46 20 59 4F 55 20 47 49 56 45 20 45 |.".IF YOU GIVE E|
00000B70: 41 43 48 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 |ACH INSTRUCTION |
00000B80: 41 20 27 4E 55 4D 42 45 52 27 22 00 B2 13 8E 17 |A 'NUMBER'".....|
00000B90: 99 22 11 49 27 4C 4C 20 52 45 4D 45 4D 42 45 52 |.".I'LL REMEMBER|
00000BA0: 20 54 48 45 20 49 4E 53 54 52 55 43 54 49 4F 4E | THE INSTRUCTION|
00000BB0: 21 22 00 CD 13 98 17 99 22 11 46 4F 52 20 45 58 |!"......".FOR EX|
00000BC0: 41 4D 50 4C 45 2C 20 54 59 50 45 3A 22 00 E3 13 |AMPLE, TYPE:"...|
00000BD0: A2 17 99 22 11 12 31 30 20 59 3D 28 41 2B 42 29 |..."..10 Y=(A+B)|
00000BE0: 2F 32 22 00 F8 13 AC 17 99 22 12 32 30 20 3F 59 |/2"......".20 ?Y|
00000BF0: 20 20 20 20 20 20 20 22 00 20 14 C0 17 99 22 11 | ". ....".|
00000C00: 23 31 30 20 53 41 59 53 3A 43 4F 4D 50 55 54 45 |#10 SAYS:COMPUTE|
00000C10: 20 54 48 45 20 41 56 45 52 41 47 45 20 4F 46 22 | THE AVERAGE OF"|
00000C20: 00 4A 14 C5 17 99 22 11 54 57 4F 20 4E 55 4D 42 |.J....".TWO NUMB|
00000C30: 45 52 53 20 41 20 26 20 42 2C 20 41 4E 44 20 43 |ERS A & B, AND C|
00000C40: 41 4C 4C 20 49 54 20 59 2E 22 00 71 14 D4 17 99 |ALL IT Y.".q....|
00000C50: 22 11 23 32 30 20 53 41 59 53 3A 50 52 49 4E 54 |".#20 SAYS:PRINT|
00000C60: 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 59 2E | THE VALUE OF Y.|
00000C70: 22 00 A1 14 E8 17 99 22 11 4E 4F 57 20 49 27 4C |"......".NOW I'L|
00000C80: 4C 20 27 52 45 4D 45 4D 42 45 52 27 20 54 48 45 |L 'REMEMBER' THE|
00000C90: 53 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 21 |SE INSTRUCTIONS!|
00000CA0: 22 00 CB 14 F2 17 99 22 11 43 4C 45 41 52 20 54 |"......".CLEAR T|
00000CB0: 48 45 20 53 43 52 45 45 4E 2C 54 59 50 45 20 12 |HE SCREEN,TYPE .|
00000CC0: 41 3D 31 2E 35 3A 42 3D 2D 34 22 00 EF 14 FC 17 |A=1.5:B=-4".....|
00000CD0: 99 22 11 54 48 45 4E 20 12 47 4F 54 4F 20 31 30 |.".THEN .GOTO 10|
00000CE0: 92 2E 2E 2E 49 27 4C 4C 20 4F 42 45 59 21 22 00 |....I'LL OBEY!".|
00000CF0: 0D 15 06 18 99 22 11 54 52 59 20 49 54 21 20 20 |.....".TRY IT! |
00000D00: 54 48 45 4E 20 12 54 59 50 45 20 40 22 00 28 15 |THEN .TYPE @".(.|
00000D10: 10 18 4D 53 24 B2 22 20 20 47 4F 54 4F 20 31 30 |..MS$." GOTO 10|
00000D20: 22 3A 8D 36 33 31 30 30 00 3F 15 1A 18 53 4E 24 |":.63100.?...SN$|
00000D30: B2 22 30 37 30 30 30 22 3A 89 36 33 33 30 30 00 |."07000":.63300.|
00000D40: 6E 15 58 1B 8D 36 30 30 30 30 3A 99 22 93 53 55 |n.X..60000:.".SU|
00000D50: 50 50 4F 53 45 20 59 4F 55 20 57 41 4E 54 20 54 |PPOSE YOU WANT T|
00000D60: 48 45 20 56 41 4C 55 45 20 4F 46 20 59 22 00 9B |HE VALUE OF Y"..|
00000D70: 15 62 1B 99 22 11 50 52 49 4E 54 45 44 20 49 4E |.b..".PRINTED IN|
00000D80: 20 54 48 45 20 4D 49 44 44 4C 45 20 4F 46 20 54 | THE MIDDLE OF T|
00000D90: 48 45 20 53 43 52 45 45 4E 2E 22 00 A9 15 87 1B |HE SCREEN.".....|
00000DA0: 99 22 11 54 59 50 45 3A 22 00 B5 15 8A 1B 99 22 |.".TYPE:"......"|
00000DB0: 11 31 35 3F 22 00 CB 15 94 1B 99 22 31 36 3F 53 |.15?"......"16?S|
00000DC0: 50 43 28 22 57 32 24 22 29 3B 22 00 F9 15 9E 1B |PC("W2$");".....|
00000DD0: 99 22 11 23 31 35 20 53 41 59 53 3A 50 52 49 4E |.".#15 SAYS:PRIN|
00000DE0: 54 20 4E 4F 54 48 49 4E 47 2E 2E 41 20 42 4C 41 |T NOTHING..A BLA|
00000DF0: 4E 4B 20 4C 49 4E 45 2E 22 00 24 16 B2 1B 99 22 |NK LINE.".$...."|
00000E00: 11 23 31 36 20 53 41 59 53 3A 53 50 41 43 45 20 |.#16 SAYS:SPACE |
00000E10: 52 49 47 48 54 20 22 57 32 24 22 20 50 4C 41 43 |RIGHT "W2$" PLAC|
00000E20: 45 53 2E 22 00 4D 16 BC 1B 99 22 11 3E 54 48 45 |ES.".M....".>THE|
00000E30: 20 53 45 4D 49 2D 43 4F 4C 4F 4E 20 41 46 54 45 | SEMI-COLON AFTE|
00000E40: 52 20 53 50 43 28 22 57 32 24 22 29 22 00 72 16 |R SPC("W2$")".r.|
00000E50: C6 1B 99 22 11 53 41 59 53 3A 4C 45 41 56 45 20 |...".SAYS:LEAVE |
00000E60: 54 48 45 20 43 55 52 53 4F 52 20 54 48 45 52 45 |THE CURSOR THERE|
00000E70: 21 22 00 9F 16 D0 1B 99 22 11 59 4F 55 20 53 45 |!"......".YOU SE|
00000E80: 45 2C 49 20 4E 4F 52 4D 41 4C 4C 59 20 52 45 54 |E,I NORMALLY RET|
00000E90: 55 52 4E 20 54 48 45 20 43 55 52 53 4F 52 22 00 |URN THE CURSOR".|
00000EA0: BC 16 D5 1B 99 22 11 54 4F 20 54 48 45 20 4C 45 |.....".TO THE LE|
00000EB0: 46 54 20 4D 41 52 47 49 4E 2E 2E 22 00 DE 16 DA |FT MARGIN.."....|
00000EC0: 1B 99 22 11 55 4E 4C 45 53 53 20 59 4F 55 20 49 |..".UNLESS YOU I|
00000ED0: 4E 43 4C 55 44 45 20 54 48 45 20 12 3B 22 00 E9 |NCLUDE THE .;"..|
00000EE0: 16 E4 1B 8D 36 33 30 30 30 00 19 17 E9 1B 99 22 |....63000......"|
00000EF0: 93 11 11 54 59 50 45 20 53 54 41 54 45 4D 45 4E |...TYPE STATEMEN|
00000F00: 54 53 20 49 4E 20 41 4E 59 11 9D 9D 9D B8 B8 B8 |TS IN ANY.......|
00000F10: 91 20 4F 52 44 45 52 2E 22 00 41 17 EA 1B 99 22 |. ORDER.".A...."|
00000F20: 11 49 27 4C 4C 20 52 45 4D 45 4D 42 45 52 20 54 |.I'LL REMEMBER T|
00000F30: 48 45 4D 20 49 4E 20 54 48 45 20 4F 52 44 45 52 |HEM IN THE ORDER|
00000F40: 22 00 6B 17 EB 1B 99 22 11 4F 46 20 54 48 45 49 |".k....".OF THEI|
00000F50: 52 20 53 54 41 54 45 4D 45 4E 54 20 23 27 53 21 |R STATEMENT #'S!|
00000F60: 20 59 4F 55 20 54 59 50 45 3A 22 00 7F 17 F8 1B | YOU TYPE:".....|
00000F70: 99 22 11 31 30 59 3D 28 41 2B 42 29 2F 32 22 00 |.".10Y=(A+B)/2".|
00000F80: 92 17 F9 1B 99 22 32 30 3F 59 20 20 20 20 20 20 |....."20?Y |
00000F90: 20 22 00 A5 17 FA 1B 99 22 31 35 3F 20 20 20 20 | "......"15? |
00000FA0: 20 20 20 20 22 00 BB 17 FB 1B 99 22 31 36 3F 53 | "......"16?S|
00000FB0: 50 43 28 22 57 32 24 22 29 3B 22 00 D7 17 02 1C |PC("W2$");".....|
00000FC0: 99 22 11 49 20 52 45 4D 45 4D 42 45 52 20 54 48 |.".I REMEMBER TH|
00000FD0: 45 4D 20 41 53 3A 22 00 ED 17 03 1C 99 22 11 20 |EM AS:"......". |
00000FE0: 31 30 20 59 3D 28 41 2B 42 29 2F 32 22 00 FE 17 |10 Y=(A+B)/2"...|
00000FF0: 04 1C 99 22 20 31 35 20 50 52 49 4E 54 22 00 1A |..." 15 PRINT"..|
00001000: 18 05 1C 99 22 20 31 36 20 50 52 49 4E 54 53 50 |...." 16 PRINTSP|
00001010: 43 28 22 57 32 24 22 29 3B 22 00 2C 18 06 1C 99 |C("W2$");".,....|
00001020: 22 20 32 30 20 50 52 49 4E 54 59 22 00 55 18 0C |" 20 PRINTY".U..|
00001030: 1C 99 22 11 54 52 59 20 49 54 21 2E 2E 54 48 45 |..".TRY IT!..THE|
00001040: 4E 20 54 59 50 45 20 12 40 92 20 54 4F 20 47 4F |N TYPE .@. TO GO|
00001050: 20 4F 4E 2E 22 00 6C 18 5C 1C 53 4E 24 B2 22 30 | ON.".l.\.SN$."0|
00001060: 38 30 30 30 22 3A 89 36 33 33 30 30 00 77 18 40 |8000":.63300.w.@|
00001070: 1F 8D 36 30 30 30 30 00 94 18 4A 1F 99 22 93 20 |..60000...J..". |
00001080: 31 30 20 59 3D 28 41 2B 42 29 2F 32 20 20 20 20 |10 Y=(A+B)/2 |
00001090: 20 20 A6 22 00 BB 18 54 1F 99 22 20 31 35 20 50 | ."...T.." 15 P|
000010A0: 52 49 4E 54 20 20 20 20 20 20 20 20 20 20 A6 54 |RINT .T|
000010B0: 48 45 20 50 52 4F 47 52 41 4D 22 00 E0 18 5E 1F |HE PROGRAM"...^.|
000010C0: 99 22 20 31 36 20 50 52 49 4E 54 53 50 43 28 22 |." 16 PRINTSPC("|
000010D0: 57 32 24 22 29 3B 20 20 A6 53 4F 20 46 41 52 22 |W2$"); .SO FAR"|
000010E0: 00 FC 18 68 1F 99 22 20 32 30 20 50 52 49 4E 54 |...h.." 20 PRINT|
000010F0: 59 20 20 20 20 20 20 20 20 20 A6 22 00 25 19 7C |Y .".%.||
00001100: 1F 99 22 11 54 4F 20 43 4F 4E 56 49 4E 43 45 20 |..".TO CONVINCE |
00001110: 59 4F 55 52 53 45 4C 46 20 54 48 41 54 20 49 20 |YOURSELF THAT I |
00001120: 48 41 56 45 22 00 4E 19 86 1F 99 22 11 41 4C 4C |HAVE".N....".ALL|
00001130: 20 59 4F 55 52 20 49 4E 53 54 52 55 43 54 49 4F | YOUR INSTRUCTIO|
00001140: 4E 53 2C 49 4E 20 4F 52 44 45 52 2E 2E 22 00 6B |NS,IN ORDER..".k|
00001150: 19 9A 1F 99 22 11 4A 55 53 54 20 54 59 50 45 3A |....".JUST TYPE:|
00001160: 12 4C 49 53 54 31 30 2D 32 30 22 00 99 19 AE 1F |.LIST10-20".....|
00001170: 99 22 11 49 27 4C 4C 20 50 52 49 4E 54 20 45 56 |.".I'LL PRINT EV|
00001180: 45 52 59 20 53 54 41 54 45 4D 45 4E 54 20 3A 31 |ERY STATEMENT :1|
00001190: 30 20 54 4F 20 32 30 2E 22 00 BF 19 B8 1F 99 22 |0 TO 20."......"|
000011A0: 11 59 4F 55 20 43 41 4E 20 45 44 49 54 20 53 54 |.YOU CAN EDIT ST|
000011B0: 41 54 45 4D 45 4E 54 53 20 52 49 47 48 54 22 00 |ATEMENTS RIGHT".|
000011C0: EE 19 BD 1F 99 22 11 4F 4E 20 54 48 45 20 53 43 |.....".ON THE SC|
000011D0: 52 45 45 4E 2E 20 4A 55 53 54 20 12 4C 49 53 54 |REEN. JUST .LIST|
000011E0: 92 20 2E 2E 54 48 45 4E 20 4D 4F 56 45 22 00 17 |. ..THEN MOVE"..|
000011F0: 1A CC 1F 99 22 11 54 48 45 20 43 55 52 53 4F 52 |....".THE CURSOR|
00001200: 2E 2E 54 48 45 4E 20 12 49 4E 53 54 2F 44 45 4C |..THEN .INST/DEL|
00001210: 92 20 45 54 43 2E 22 00 42 1A D6 1F 99 22 11 54 |. ETC.".B....".T|
00001220: 4F 20 43 48 45 43 4B 20 54 48 45 20 43 48 41 4E |O CHECK THE CHAN|
00001230: 47 45 53 2C 20 12 4C 49 53 54 92 20 41 47 41 49 |GES, .LIST. AGAI|
00001240: 4E 2E 00 6B 1A DB 1F 99 22 11 57 41 4E 54 20 54 |N..k....".WANT T|
00001250: 4F 20 54 52 59 3F 20 28 43 4F 4E 54 49 4E 55 45 |O TRY? (CONTINUE|
00001260: 20 57 49 54 48 20 12 40 92 29 22 00 82 1A E0 1F | WITH .@.)".....|
00001270: 53 4E 24 B2 22 30 39 30 30 30 22 3A 89 36 33 33 |SN$."09000":.633|
00001280: 30 30 00 A7 1A 28 23 8D 36 30 30 30 30 3A 4D 53 |00...(#.60000:MS|
00001290: 24 B2 22 12 53 4F 4D 45 20 4E 4F 54 45 53 92 22 |$.".SOME NOTES."|
000012A0: 3A 8D 36 33 31 30 30 00 C7 1A 32 23 99 22 93 54 |:.63100...2#.".T|
000012B0: 4F 20 12 43 48 41 4E 47 45 92 20 41 20 53 54 41 |O .CHANGE. A STA|
000012C0: 54 45 4D 45 4E 54 22 00 F5 1A 3C 23 99 22 11 54 |TEMENT"...<#.".T|
000012D0: 59 50 45 20 54 48 45 20 4E 4F 2E 20 41 4E 44 20 |YPE THE NO. AND |
000012E0: 54 48 45 20 4E 45 57 20 49 4E 53 54 52 55 43 54 |THE NEW INSTRUCT|
000012F0: 49 4F 4E 2E 22 00 1F 1B 46 23 99 22 28 49 27 4C |ION."...F#."(I'L|
00001300: 4C 20 46 4F 52 47 45 54 20 54 48 45 20 4F 4C 44 |L FORGET THE OLD|
00001310: 20 49 4E 53 54 52 55 43 54 49 4F 4E 29 2E 22 00 | INSTRUCTION).".|
00001320: 3F 1B 50 23 99 22 11 54 4F 20 12 44 45 4C 45 54 |?.P#.".TO .DELET|
00001330: 45 92 20 41 20 53 54 41 54 45 4D 45 4E 54 22 00 |E. A STATEMENT".|
00001340: 69 1B 5A 23 99 22 11 54 59 50 45 20 54 48 45 20 |i.Z#.".TYPE THE |
00001350: 4E 4F 2E 20 54 48 45 4E 20 50 52 45 53 53 20 27 |NO. THEN PRESS '|
00001360: 52 45 54 55 52 4E 27 21 22 00 84 1B 82 23 99 22 |RETURN'!"....#."|
00001370: 11 57 48 49 43 48 20 52 45 4D 49 4E 44 53 20 4D |.WHICH REMINDS M|
00001380: 45 2E 2E 22 00 AB 1B 8C 23 99 22 11 12 44 4F 20 |E.."....#."..DO |
00001390: 4E 4F 54 92 20 54 59 50 45 20 49 4E 20 53 4F 4D |NOT. TYPE IN SOM|
000013A0: 45 20 4E 55 4D 42 45 52 2E 2E 22 00 D2 1B 96 23 |E NUMBER.."....#|
000013B0: 99 22 43 48 41 4E 47 45 20 59 4F 55 52 20 4D 49 |."CHANGE YOUR MI|
000013C0: 4E 44 2E 2E 2E 48 49 54 20 52 45 54 55 52 4E 2E |ND...HIT RETURN.|
000013D0: 2E 22 00 F4 1B A0 23 99 22 2E 2E 54 48 45 4E 20 |."....#."..THEN |
000013E0: 52 45 45 4E 54 45 52 20 54 48 45 20 4E 55 4D 42 |REENTER THE NUMB|
000013F0: 45 52 2E 22 00 1F 1C AA 23 99 22 59 4F 55 20 4D |ER."....#."YOU M|
00001400: 41 59 20 48 41 56 45 20 57 49 50 45 44 20 4F 55 |AY HAVE WIPED OU|
00001410: 54 20 41 20 53 54 41 54 45 4D 45 4E 54 21 22 00 |T A STATEMENT!".|
00001420: 43 1C B4 23 99 22 11 4E 4F 54 45 2C 54 4F 4F 2C |C..#.".NOTE,TOO,|
00001430: 54 48 41 54 20 59 4F 55 20 4D 41 59 20 55 53 45 |THAT YOU MAY USE|
00001440: 20 3F 22 00 6A 1C B9 23 99 22 11 49 20 57 49 4C | ?".j..#.".I WIL|
00001450: 4C 20 52 45 4D 45 4D 42 45 52 20 49 54 20 41 53 |L REMEMBER IT AS|
00001460: 20 12 50 52 49 4E 54 92 2E 22 00 75 1C C8 23 8D | .PRINT..".u..#.|
00001470: 36 33 30 30 30 00 A1 1C C9 23 99 22 93 41 4C 53 |63000....#.".ALS|
00001480: 4F 2E 2E 49 20 52 45 4D 45 4D 42 45 52 20 4F 4E |O..I REMEMBER ON|
00001490: 4C 59 20 54 48 45 20 46 49 52 53 54 20 54 57 4F |LY THE FIRST TWO|
000014A0: 22 00 CE 1C CA 23 99 22 11 43 48 41 52 41 43 54 |"....#.".CHARACT|
000014B0: 45 52 53 20 49 4E 20 41 4E 59 20 12 4E 41 4D 45 |ERS IN ANY .NAME|
000014C0: 92 20 59 4F 55 20 41 53 53 49 47 4E 2E 22 00 DD |. YOU ASSIGN."..|
000014D0: 1C CB 23 99 22 11 53 41 4D 3D 31 30 22 00 ED 1C |..#.".SAM=10"...|
000014E0: CC 23 99 22 53 41 4C 4C 59 3D 32 30 22 00 17 1D |.#."SALLY=20"...|
000014F0: CD 23 99 22 11 54 4F 20 4D 45 2C 20 12 42 4F 54 |.#.".TO ME, .BOT|
00001500: 48 92 20 48 41 56 45 20 54 48 45 20 53 41 4D 45 |H. HAVE THE SAME|
00001510: 20 4E 41 4D 45 21 22 00 2C 1D CE 23 99 22 11 4E | NAME!".,..#.".N|
00001520: 41 4D 45 4C 59 20 12 53 41 92 21 22 00 58 1D CF |AMELY .SA.!".X..|
00001530: 23 99 22 11 48 45 4E 43 45 20 53 41 3D 31 30 20 |#.".HENCE SA=10 |
00001540: 46 4F 4C 4C 4F 57 45 44 20 42 59 20 53 41 3D 32 |FOLLOWED BY SA=2|
00001550: 30 20 4D 41 4B 45 53 22 00 6E 1D D0 23 99 22 11 |0 MAKES".n..#.".|
00001560: 53 41 4D 3D 53 41 4C 4C 59 3D 32 30 2E 22 00 8A |SAM=SALLY=20."..|
00001570: 1D D1 23 4D 53 24 B2 22 53 41 4D 3D 53 41 4C 4C |..#MS$."SAM=SALL|
00001580: 59 3F 22 3A 8D 36 33 31 30 30 00 95 1D D2 23 8D |Y?":.63100....#.|
00001590: 36 33 30 30 30 00 9B 1D 10 27 3A 00 C8 1D 19 27 |63000....':....'|
000015A0: 99 22 93 20 49 4E 20 41 44 44 49 54 49 4F 4E 20 |.". IN ADDITION |
000015B0: 54 4F 20 4D 41 4E 49 50 55 4C 41 54 49 4E 47 20 |TO MANIPULATING |
000015C0: 4E 55 4D 42 45 52 53 22 00 F7 1D 1A 27 99 22 11 |NUMBERS"....'.".|
000015D0: 49 20 43 41 4E 20 4D 41 4E 49 50 55 4C 41 54 45 |I CAN MANIPULATE|
000015E0: 20 12 53 54 52 49 4E 47 53 92 20 4F 46 20 53 59 | .STRINGS. OF SY|
000015F0: 4D 42 4F 4C 53 2E 22 00 26 1E 24 27 99 22 11 49 |MBOLS.".&.$'.".I|
00001600: 4E 20 54 48 45 20 53 41 4D 45 20 57 41 59 20 54 |N THE SAME WAY T|
00001610: 48 41 54 20 59 4F 55 20 41 53 53 49 47 4E 20 41 |HAT YOU ASSIGN A|
00001620: 20 4E 41 4D 45 22 00 4E 1E 2E 27 99 22 11 54 4F | NAME".N..'.".TO|
00001630: 20 41 20 4E 55 4D 42 45 52 2C 4C 49 4B 45 20 58 | A NUMBER,LIKE X|
00001640: 20 4F 52 20 59 20 4F 52 20 53 41 4D 2C 22 00 77 | OR Y OR SAM,".w|
00001650: 1E 38 27 99 22 11 59 4F 55 20 43 41 4E 20 47 49 |.8'.".YOU CAN GI|
00001660: 56 45 20 41 20 4E 41 4D 45 20 54 4F 20 41 20 12 |VE A NAME TO A .|
00001670: 53 54 52 49 4E 47 22 00 8E 1E 42 27 99 22 11 4F |STRING"...B'.".O|
00001680: 46 20 43 48 41 52 41 43 54 45 52 53 2E 22 00 B6 |F CHARACTERS."..|
00001690: 1E 4C 27 99 22 11 53 4F 20 54 48 41 54 20 49 20 |.L'.".SO THAT I |
000016A0: 44 4F 4E 27 54 20 42 45 43 4F 4D 45 20 43 4F 4E |DON'T BECOME CON|
000016B0: 46 55 53 45 44 22 00 E2 1E 56 27 99 22 11 49 20 |FUSED"...V'.".I |
000016C0: 4D 55 53 54 20 4B 4E 4F 57 20 57 48 45 54 48 45 |MUST KNOW WHETHE|
000016D0: 52 20 32 2A 33 20 49 53 20 41 20 4E 55 4D 42 45 |R 2*3 IS A NUMBE|
000016E0: 52 22 00 08 1F 60 27 99 22 11 4F 52 20 41 20 53 |R"...`'.".OR A S|
000016F0: 54 52 49 4E 47 20 4F 46 20 54 48 52 45 45 20 53 |TRING OF THREE S|
00001700: 59 4D 42 4F 4C 53 2E 22 00 37 1F 6A 27 99 22 11 |YMBOLS.".7.j'.".|
00001710: 48 45 4E 43 45 2C 20 49 20 4D 55 53 54 20 49 4E |HENCE, I MUST IN|
00001720: 53 49 53 54 20 54 48 41 54 20 54 48 45 20 4E 41 |SIST THAT THE NA|
00001730: 4D 45 20 59 4F 55 22 00 61 1F 74 27 99 22 11 47 |ME YOU".a.t'.".G|
00001740: 49 56 45 20 49 54 20 45 4E 44 53 20 57 49 54 48 |IVE IT ENDS WITH|
00001750: 20 41 20 24 20 2E 2E 49 46 20 49 54 27 53 20 41 | A $ ..IF IT'S A|
00001760: 22 00 90 1F 7E 27 99 22 11 53 54 52 49 4E 47 20 |"...~'.".STRING |
00001770: 4F 46 20 53 59 4D 42 4F 4C 53 2E 2E 4C 49 4B 45 |OF SYMBOLS..LIKE|
00001780: 20 58 24 2C 59 24 20 4F 52 20 53 41 4D 24 2E 22 | X$,Y$ OR SAM$."|
00001790: 00 9B 1F 83 27 8D 36 33 30 30 30 00 C3 1F 88 27 |....'.63000....'|
000017A0: 99 22 93 20 59 4F 55 20 43 41 4E 20 4E 4F 57 20 |.". YOU CAN NOW |
000017B0: 54 52 59 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E |TRY THE FOLLOWIN|
000017C0: 47 3A 22 00 D1 1F 92 27 99 22 11 54 59 50 45 3A |G:"....'.".TYPE:|
000017D0: 22 00 DE 1F 9C 27 99 22 58 3D 32 2B 33 22 00 F8 |"....'."X=2+3"..|
000017E0: 1F A6 27 99 22 58 24 3D 22 C7 28 33 34 29 22 32 |..'."X$=".(34)"2|
000017F0: 2B 33 22 C7 28 33 34 29 00 02 20 B0 27 99 22 3F |+3".(34).. .'."?|
00001800: 58 22 00 0D 20 BA 27 99 22 3F 58 24 22 00 2F 20 |X".. .'."?X$"./ |
00001810: C4 27 99 22 11 11 12 2E 2E 53 45 45 20 57 48 41 |.'.".....SEE WHA|
00001820: 54 20 49 27 4C 4C 20 50 52 49 4E 54 92 3F 22 00 |T I'LL PRINT.?".|
00001830: 6B 20 D3 27 99 22 11 11 54 48 45 4E 20 54 59 50 |k .'."..THEN TYP|
00001840: 45 20 12 40 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |E .@. TO CONTINU|
00001850: 45 2E 22 3A 4D 53 24 B2 22 20 20 20 3F 3F 3F 3F |E.":MS$." ????|
00001860: 20 20 20 22 3A 8D 36 33 31 30 30 00 82 20 D8 27 | ":.63100.. .'|
00001870: 53 4E 24 B2 22 31 31 30 30 30 22 3A 89 36 33 33 |SN$."11000":.633|
00001880: 30 30 00 8D 20 F8 2A 8D 36 30 30 30 30 00 A4 20 |00.. .*.60000.. |
00001890: 02 2B 99 22 59 4F 55 20 47 55 45 53 53 45 44 20 |.+."YOU GUESSED |
000018A0: 49 54 21 22 00 B7 20 0C 2B 99 22 49 27 4C 4C 20 |IT!".. .+."I'LL |
000018B0: 50 52 49 4E 54 3A 22 00 C3 20 16 2B 99 3A 99 22 |PRINT:".. .+.:."|
000018C0: 20 35 22 00 D0 20 20 2B 99 22 32 2B 33 22 3A 99 | 5".. +."2+3":.|
000018D0: 00 DB 20 25 2B 8D 36 33 30 30 30 00 07 21 2A 2B |.. %+.63000..!*+|
000018E0: 99 22 93 20 4E 4F 57 20 57 48 41 54 20 44 4F 20 |.". NOW WHAT DO |
000018F0: 59 4F 55 20 54 48 49 4E 4B 20 58 24 2B 59 24 20 |YOU THINK X$+Y$ |
00001900: 4D 45 41 4E 53 3F 22 00 1D 21 34 2B 99 22 11 54 |MEANS?"..!4+.".T|
00001910: 52 59 20 54 59 50 49 4E 47 3A 22 3A 99 00 36 21 |RY TYPING:":..6!|
00001920: 3E 2B 99 22 11 41 24 3D 22 C7 28 33 34 29 22 49 |>+.".A$=".(34)"I|
00001930: 22 C7 28 33 34 29 00 50 21 48 2B 99 22 42 24 3D |".(34).P!H+."B$=|
00001940: 22 C7 28 33 34 29 22 59 4F 55 22 C7 28 33 34 29 |".(34)"YOU".(34)|
00001950: 00 70 21 52 2B 99 22 59 24 3D 22 C7 28 33 34 29 |.p!R+."Y$=".(34)|
00001960: 22 41 4D 20 47 52 45 41 54 21 22 C7 28 33 34 29 |"AM GREAT!".(34)|
00001970: 00 8F 21 5C 2B 99 22 5A 24 3D 22 C7 28 33 34 29 |..!\+."Z$=".(34)|
00001980: 22 41 52 45 20 54 4F 4F 3F 22 C7 28 33 34 29 00 |"ARE TOO?".(34).|
00001990: A4 21 66 2B 99 22 11 54 48 45 4E 20 41 53 4B 20 |.!f+.".THEN ASK |
000019A0: 4D 45 3A 22 00 B3 21 70 2B 99 22 11 3F 41 24 2B |ME:"..!p+.".?A$+|
000019B0: 59 24 22 00 C1 21 7A 2B 99 22 3F 42 24 2B 5A 24 |Y$"..!z+."?B$+Z$|
000019C0: 22 00 DF 21 84 2B 99 22 11 54 52 59 20 49 54 21 |"..!.+.".TRY IT!|
000019D0: 20 20 54 48 45 4E 20 54 59 50 45 20 12 40 22 00 | THEN TYPE .@".|
000019E0: FB 21 89 2B 4D 53 24 B2 22 20 20 47 52 45 41 54 |.!.+MS$." GREAT|
000019F0: 3F 20 20 22 3A 8D 36 33 31 30 30 00 12 22 8E 2B |? ":.63100..".+|
00001A00: 53 4E 24 B2 22 31 32 30 30 30 22 3A 89 36 33 33 |SN$."12000":.633|
00001A10: 30 30 00 46 22 E0 2E 8D 36 30 30 30 30 3A 99 22 |00.F"...60000:."|
00001A20: 93 57 45 4C 4C 2E 2E 49 46 20 59 4F 55 20 54 52 |.WELL..IF YOU TR|
00001A30: 49 45 44 20 49 54 20 59 4F 55 27 4C 4C 20 4E 4F |IED IT YOU'LL NO|
00001A40: 54 49 43 45 22 22 00 75 22 EA 2E 99 22 11 54 48 |TICE"".u"...".TH|
00001A50: 41 54 20 41 24 20 53 54 41 4E 44 53 20 46 4F 52 |AT A$ STANDS FOR|
00001A60: 20 12 45 56 45 52 59 54 48 49 4E 47 92 20 49 4E | .EVERYTHING. IN|
00001A70: 53 49 44 45 22 00 9D 22 F4 2E 99 22 11 54 48 45 |SIDE".."...".THE|
00001A80: 20 51 55 4F 54 45 53 2E 20 49 46 20 59 4F 55 20 | QUOTES. IF YOU |
00001A90: 57 41 4E 54 20 41 20 53 50 41 43 45 22 00 CA 22 |WANT A SPACE".."|
00001AA0: FE 2E 99 22 11 41 46 54 45 52 20 49 2E 2E 54 48 |...".AFTER I..TH|
00001AB0: 45 4E 20 49 4E 43 4C 55 44 45 20 54 48 45 20 53 |EN INCLUDE THE S|
00001AC0: 50 41 43 45 20 54 4F 4F 21 22 00 D9 22 08 2F 99 |PACE TOO!".."./.|
00001AD0: 22 20 20 20 20 20 20 A3 22 00 F4 22 0D 2F 99 22 |" .".."./."|
00001AE0: 11 11 41 24 3D 22 C7 28 33 34 29 22 49 20 22 C7 |..A$=".(34)"I ".|
00001AF0: 28 33 34 29 00 02 23 0E 2F 99 22 20 20 20 20 20 |(34)..#./." |
00001B00: 5E 22 00 13 23 0F 2F 99 22 20 20 20 20 20 53 45 |^"..#./." SE|
00001B10: 45 3F 22 00 1E 23 10 2F 8D 36 33 30 30 30 00 4E |E?"..#./.63000.N|
00001B20: 23 12 2F 99 22 93 4F 4B 2E 2E 4C 45 54 27 53 20 |#./.".OK..LET'S |
00001B30: 57 4F 52 4B 20 41 4C 4C 20 54 48 49 53 20 49 4E |WORK ALL THIS IN|
00001B40: 54 4F 20 41 20 50 52 4F 47 52 41 4D 2E 22 00 61 |TO A PROGRAM.".a|
00001B50: 23 1C 2F 99 22 4C 45 54 27 53 20 54 59 50 45 3A |#./."LET'S TYPE:|
00001B60: 22 00 96 23 26 2F 99 22 11 31 30 3F 22 C7 28 33 |"..#&/.".10?".(3|
00001B70: 34 29 22 43 41 4C 43 55 4C 41 54 49 4F 4E 20 4F |4)"CALCULATION O|
00001B80: 46 20 54 48 45 20 48 59 50 4F 54 45 4E 55 53 45 |F THE HYPOTENUSE|
00001B90: 22 C7 28 33 34 29 00 B9 23 30 2F 99 22 32 30 3F |".(34)..#0/."20?|
00001BA0: 22 C7 28 33 34 29 22 45 4E 54 45 52 20 53 49 44 |".(34)"ENTER SID|
00001BB0: 45 20 41 22 C7 28 33 34 29 00 CB 23 3A 2F 99 22 |E A".(34)..#:/."|
00001BC0: 33 30 20 49 4E 50 55 54 20 41 22 00 EE 23 44 2F |30 INPUT A"..#D/|
00001BD0: 99 22 34 30 3F 22 C7 28 33 34 29 22 45 4E 54 45 |."40?".(34)"ENTE|
00001BE0: 52 20 53 49 44 45 20 42 22 C7 28 33 34 29 00 00 |R SIDE B".(34)..|
00001BF0: 24 4E 2F 99 22 35 30 20 49 4E 50 55 54 20 42 22 |$N/."50 INPUT B"|
00001C00: 00 2E 24 58 2F 99 22 36 30 20 43 3D 53 51 52 28 |..$X/."60 C=SQR(|
00001C10: 41 2A 41 2B 42 2A 42 29 3A 3F 22 C7 28 33 34 29 |A*A+B*B):?".(34)|
00001C20: 22 48 59 50 3D 22 C7 28 33 34 29 22 43 22 00 41 |"HYP=".(34)"C".A|
00001C30: 24 62 2F 99 22 37 30 20 47 4F 20 54 4F 20 32 30 |$b/."70 GO TO 20|
00001C40: 22 00 68 24 6C 2F 99 22 11 54 48 45 20 4F 4E 4C |".h$l/.".THE ONL|
00001C50: 59 20 54 48 49 4E 47 20 4E 45 57 20 49 53 20 12 |Y THING NEW IS .|
00001C60: 49 4E 50 55 54 92 2E 22 00 92 24 8A 2F 99 22 11 |INPUT.."..$./.".|
00001C70: 41 54 20 53 54 41 54 45 4D 45 4E 54 23 33 30 20 |AT STATEMENT#30 |
00001C80: 49 27 4C 4C 20 57 41 49 54 20 46 4F 52 20 59 4F |I'LL WAIT FOR YO|
00001C90: 55 22 00 BE 24 94 2F 99 22 11 54 4F 20 54 59 50 |U"..$./.".TO TYP|
00001CA0: 45 20 49 4E 20 41 20 4E 55 4D 42 45 52 2C 20 41 |E IN A NUMBER, A|
00001CB0: 4E 44 20 20 49 27 4C 4C 20 43 41 4C 4C 22 00 E8 |ND I'LL CALL"..|
00001CC0: 24 9E 2F 99 22 11 54 48 45 20 4E 55 4D 42 45 52 |$./.".THE NUMBER|
00001CD0: 20 41 2C 49 46 20 59 4F 55 20 53 41 59 20 12 49 | A,IF YOU SAY .I|
00001CE0: 4E 50 55 54 41 92 2E 22 00 07 25 0C 30 99 22 11 |NPUTA.."..%.0.".|
00001CF0: 54 52 59 20 49 54 21 28 54 48 45 4E 20 54 59 50 |TRY IT!(THEN TYP|
00001D00: 45 20 12 40 92 29 22 00 23 25 11 30 4D 53 24 B2 |E .@.)".#%.0MS$.|
00001D10: 22 48 59 50 4F 2F 57 48 41 54 3F 22 3A 8D 36 33 |"HYPO/WHAT?":.63|
00001D20: 31 30 30 00 3A 25 16 30 53 4E 24 B2 22 31 33 30 |100.:%.0SN$."130|
00001D30: 30 30 22 3A 89 36 33 33 30 30 00 66 25 C8 32 8D |00":.63300.f%.2.|
00001D40: 36 30 30 30 30 3A 99 22 93 53 55 50 50 4F 53 45 |60000:.".SUPPOSE|
00001D50: 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 53 51 | YOU WANT THE SQ|
00001D60: 55 41 52 45 53 22 00 8D 25 D2 32 99 22 11 4F 46 |UARES"..%.2.".OF|
00001D70: 20 54 48 45 20 49 4E 54 45 47 45 52 53 20 46 52 | THE INTEGERS FR|
00001D80: 4F 4D 20 31 20 54 4F 20 31 30 30 2E 22 00 A5 25 |OM 1 TO 100."..%|
00001D90: DC 32 99 22 11 59 4F 55 20 43 4F 55 4C 44 20 54 |.2.".YOU COULD T|
00001DA0: 59 50 45 3A 22 00 B6 25 E6 32 99 22 11 12 31 30 |YPE:"..%.2."..10|
00001DB0: 20 3F 31 2A 31 22 00 D2 25 F0 32 99 22 12 32 30 | ?1*1"..%.2.".20|
00001DC0: 20 3F 32 2A 32 92 20 20 20 45 54 43 2E 45 54 43 | ?2*2. ETC.ETC|
00001DD0: 2E 22 00 FF 25 04 33 99 22 11 4F 52 2C 59 4F 55 |."..%.3.".OR,YOU|
00001DE0: 20 43 4F 55 4C 44 20 52 45 50 45 41 54 20 54 48 | COULD REPEAT TH|
00001DF0: 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 3A 22 00 |E INSTRUCTION:".|
00001E00: 11 26 0E 33 99 22 11 12 31 30 20 3F 4E 2A 4E 92 |.&.3."..10 ?N*N.|
00001E10: 22 00 3E 26 18 33 99 22 11 41 47 41 49 4E 20 26 |".>&.3.".AGAIN &|
00001E20: 20 41 47 41 49 4E 2C 46 4F 52 20 4E 3D 31 20 54 | AGAIN,FOR N=1 T|
00001E30: 48 45 4E 20 4E 3D 32 2E 2E 45 54 43 2E 22 00 6D |HEN N=2..ETC.".m|
00001E40: 26 22 33 99 22 11 54 4F 20 44 4F 20 54 48 49 53 |&"3.".TO DO THIS|
00001E50: 20 59 4F 55 20 50 55 54 20 54 48 45 20 49 4E 53 | YOU PUT THE INS|
00001E60: 54 52 55 43 54 49 4F 4E 20 54 4F 20 22 00 9B 26 |TRUCTION TO "..&|
00001E70: 2C 33 99 22 11 42 45 20 52 45 50 45 41 54 45 44 |,3.".BE REPEATED|
00001E80: 20 57 49 54 48 49 4E 20 41 20 12 46 4F 52 2D 4E | WITHIN A .FOR-N|
00001E90: 45 58 54 92 20 4C 4F 4F 50 3A 22 00 D3 26 40 33 |EXT. LOOP:"..&@3|
00001EA0: 99 22 11 12 31 30 20 46 4F 52 20 4E 3D 31 20 54 |."..10 FOR N=1 T|
00001EB0: 4F 20 31 30 30 92 20 5F 48 45 52 45 27 53 20 54 |O 100. _HERE'S T|
00001EC0: 48 45 20 22 C7 28 33 34 29 22 46 4F 52 22 C7 28 |HE ".(34)"FOR".(|
00001ED0: 33 34 29 00 ED 26 4A 33 99 22 12 32 30 20 3F 4E |34)..&J3.".20 ?N|
00001EE0: 2A 4E 20 20 20 20 20 20 20 20 20 20 22 00 25 27 |*N ".%'|
00001EF0: 54 33 99 22 12 33 30 20 4E 45 58 54 20 20 20 20 |T3.".30 NEXT |
00001F00: 20 20 20 20 20 20 92 20 5F 48 45 52 45 27 53 20 | . _HERE'S |
00001F10: 54 48 45 20 22 C7 28 33 34 29 22 4E 45 58 54 22 |THE ".(34)"NEXT"|
00001F20: C7 28 33 34 29 00 35 27 5E 33 8D 36 33 30 30 30 |.(34).5'^3.63000|
00001F30: 3A 99 22 93 22 00 51 27 68 33 4D 53 24 B2 22 20 |:.".".Q'h3MS$." |
00001F40: 57 41 54 43 48 21 21 20 20 22 3A 8D 36 33 31 30 |WATCH!! ":.6310|
00001F50: 30 00 7C 27 B0 36 8D 36 30 30 30 30 3A 99 22 93 |0.|'.6.60000:.".|
00001F60: 48 4F 57 27 53 20 54 48 49 53 20 46 4F 52 20 41 |HOW'S THIS FOR A|
00001F70: 20 44 49 56 45 52 53 49 4F 4E 3F 22 00 90 27 BA | DIVERSION?"..'.|
00001F80: 36 81 54 B2 31 A4 35 30 30 3A 82 3A 99 22 93 22 |6.T.1.500:.:."."|
00001F90: 00 9B 27 C4 36 81 49 B2 31 A4 32 00 B2 27 CE 36 |..'.6.I.1.2..'.6|
00001FA0: 81 4A B2 31 A4 57 44 AB 31 3A 81 54 B2 31 A4 35 |.J.1.WD.1:.T.1.5|
00001FB0: 3A 82 00 C0 27 D8 36 99 22 20 2A 9D 22 3B 3A 82 |:...'.6." *.";:.|
00001FC0: 00 D7 27 E2 36 81 4A B2 31 A4 57 44 AB 31 3A 81 |..'.6.J.1.WD.1:.|
00001FD0: 54 B2 31 A4 35 3A 82 00 E7 27 EC 36 99 22 20 9D |T.1.5:...'.6." .|
00001FE0: 9D 2A 9D 22 3B 3A 82 00 FC 27 F6 36 81 4A B2 31 |.*.";:...'.6.J.1|
00001FF0: A4 57 44 3A 81 54 B2 31 A4 35 3A 82 00 0A 28 00 |.WD:.T.1.5:...(.|
00002000: 37 99 22 2A 22 3B 3A 82 3A 82 00 15 28 0A 37 8D |7."*";:.:...(.7.|
00002010: 36 33 30 30 30 00 45 28 14 37 99 22 93 22 3A 4D |63000.E(.7.".":M|
00002020: 53 24 B2 22 20 20 12 4E 49 43 45 20 21 92 20 20 |S$." .NICE !. |
00002030: 22 3A 8D 36 30 30 30 30 3A 8D 36 33 31 30 30 3A |":.60000:.63100:|
00002040: 99 22 93 22 3B 00 5B 28 46 37 99 22 11 4C 45 54 |.".";.[(F7.".LET|
00002050: 27 53 20 54 52 59 20 49 54 21 22 00 85 28 50 37 |'S TRY IT!"..(P7|
00002060: 99 22 11 54 48 45 52 45 20 57 49 4C 4C 20 42 45 |.".THERE WILL BE|
00002070: 20 34 20 12 46 4F 52 2D 4E 45 58 54 92 20 4C 4F | 4 .FOR-NEXT. LO|
00002080: 4F 50 53 2E 22 00 AF 28 5A 37 99 22 11 12 31 92 |OPS."..(Z7."..1.|
00002090: 3A 22 57 33 24 22 20 4D 4F 56 45 4D 45 4E 54 53 |:"W3$" MOVEMENTS|
000020A0: 20 54 4F 20 54 48 45 20 52 49 47 48 54 2E 22 00 | TO THE RIGHT.".|
000020B0: CF 28 64 37 99 22 11 12 32 92 3A 22 57 33 24 22 |.(d7."..2.:"W3$"|
000020C0: 20 54 4F 20 54 48 45 20 4C 45 46 54 2E 2E 22 00 | TO THE LEFT..".|
000020D0: FD 28 6E 37 99 22 11 28 45 41 43 48 20 4F 46 20 |.(n7.".(EACH OF |
000020E0: 54 48 45 20 41 42 4F 56 45 20 57 49 4C 4C 20 50 |THE ABOVE WILL P|
000020F0: 52 49 4E 54 20 41 20 4E 45 57 20 2A 22 00 24 29 |RINT A NEW *".$)|
00002100: 78 37 99 22 11 41 4E 44 20 45 52 41 53 45 20 54 |x7.".AND ERASE T|
00002110: 48 45 20 4F 4C 44 20 2A 2E 2E 47 49 56 49 4E 47 |HE OLD *..GIVING|
00002120: 20 54 48 45 00 43 29 82 37 99 22 11 41 50 50 45 | THE.C).7.".APPE|
00002130: 41 52 41 4E 43 45 20 4F 46 20 4D 4F 54 49 4F 4E |ARANCE OF MOTION|
00002140: 29 2E 22 00 6E 29 8C 37 99 22 11 12 33 92 3A 54 |).".n).7."..3.:T|
00002150: 48 45 4E 2C 20 52 49 47 48 54 20 41 47 41 49 4E |HEN, RIGHT AGAIN|
00002160: 20 28 42 55 54 20 57 49 54 48 4F 55 54 22 00 90 | (BUT WITHOUT"..|
00002170: 29 8D 37 99 22 11 45 52 41 53 49 4E 47 29 20 4C |).7.".ERASING) L|
00002180: 45 41 56 49 4E 47 20 54 48 45 20 2A 27 53 2E 22 |EAVING THE *'S."|
00002190: 00 C8 29 96 37 99 22 11 12 34 92 3A 54 48 45 4E |..).7."..4.:THEN|
000021A0: 11 9D 9D 9D 9D B8 B8 B8 B8 91 20 41 4C 4C 20 33 |.......... ALL 3|
000021B0: 20 4C 4F 4F 50 53 20 57 49 4C 4C 20 42 45 20 52 | LOOPS WILL BE R|
000021C0: 45 50 45 41 54 45 44 22 00 E5 29 97 37 99 22 11 |EPEATED"..).7.".|
000021D0: 32 20 54 49 4D 45 53 2C 46 4F 52 20 32 20 4C 49 |2 TIMES,FOR 2 LI|
000021E0: 4E 45 53 21 22 00 F0 29 A5 37 8D 36 33 30 30 30 |NES!"..).7.63000|
000021F0: 00 0A 2A AA 37 99 22 93 11 11 11 11 11 12 48 45 |..*.7.".......HE|
00002200: 52 45 20 57 45 20 47 4F 21 22 00 19 2A B4 37 81 |RE WE GO!"..*.7.|
00002210: 49 B2 31 A4 35 30 30 3A 82 00 42 2A C8 37 99 22 |I.1.500:..B*.7."|
00002220: 93 41 53 53 55 4D 45 20 54 48 45 20 43 55 52 53 |.ASSUME THE CURS|
00002230: 4F 52 20 49 53 20 27 4F 56 45 52 27 20 41 20 2A |OR IS 'OVER' A *|
00002240: 2E 22 00 65 2A D2 37 99 22 11 54 4F 20 45 52 41 |.".e*.7.".TO ERA|
00002250: 53 45 20 57 45 20 54 59 50 45 20 27 53 50 41 43 |SE WE TYPE 'SPAC|
00002260: 45 27 2E 2E 22 00 89 2A DC 37 99 22 11 54 48 45 |E'.."..*.7.".THE|
00002270: 4E 20 2A 2C 54 48 45 4E 20 41 20 27 43 55 52 53 |N *,THEN A 'CURS|
00002280: 4F 52 2D 4C 45 46 54 27 22 00 B8 2A F0 37 99 22 |OR-LEFT'"..*.7."|
00002290: 11 28 4C 45 41 56 49 4E 47 20 54 48 45 20 43 55 |.(LEAVING THE CU|
000022A0: 52 53 4F 52 20 41 47 41 49 4E 20 27 4F 56 45 52 |RSOR AGAIN 'OVER|
000022B0: 27 20 12 2A 92 29 2E 22 00 D3 2A 0E 38 99 22 11 |' .*.)."..*.8.".|
000022C0: 31 30 3F 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 |10?".(34)" *.".(|
000022D0: 33 34 29 00 E2 2A 18 38 99 22 20 20 20 20 20 20 |34)..*.8." |
000022E0: 5E 22 00 06 2B 1D 38 99 22 20 20 20 20 20 20 54 |^"..+.8." T|
000022F0: 48 49 53 20 49 53 20 12 43 55 52 53 4F 52 2D 4C |HIS IS .CURSOR-L|
00002300: 45 46 54 92 21 22 00 2F 2B 36 38 99 22 11 52 45 |EFT.!"./+68.".RE|
00002310: 50 45 41 54 20 54 48 45 53 45 20 49 4E 53 54 27 |PEAT THESE INST'|
00002320: 4E 53 20 22 57 33 24 22 20 54 49 4D 45 53 22 00 |NS "W3$" TIMES".|
00002330: 48 2B 40 38 99 22 11 57 49 54 48 20 41 20 12 46 |H+@8.".WITH A .F|
00002340: 4F 52 2D 4E 45 58 54 22 00 5B 2B 4A 38 99 22 11 |OR-NEXT".[+J8.".|
00002350: 4C 49 4B 45 20 53 4F 3A 22 3A 99 00 74 2B 54 38 |LIKE SO:":..t+T8|
00002360: 99 22 11 39 20 46 4F 52 20 49 3D 31 20 54 4F 20 |.".9 FOR I=1 TO |
00002370: 22 57 33 24 00 8E 2B 5E 38 99 22 31 30 3F 22 C7 |"W3$..+^8."10?".|
00002380: 28 33 34 29 22 20 2A 9D 22 C7 28 33 34 29 00 9E |(34)" *.".(34)..|
00002390: 2B 68 38 99 22 31 31 20 4E 45 58 54 22 3B 00 A9 |+h8."11 NEXT";..|
000023A0: 2B 72 38 8D 36 33 30 30 30 00 C7 2B 73 38 99 22 |+r8.63000..+s8."|
000023B0: 93 39 20 46 4F 52 20 49 3D 31 20 54 4F 20 22 57 |.9 FOR I=1 TO "W|
000023C0: 33 24 22 20 20 A6 22 00 01 2C 74 38 99 22 31 30 |3$" ."..,t8."10|
000023D0: 3F 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 33 34 |?".(34)" *.".(34|
000023E0: 29 22 20 20 20 20 20 20 20 20 20 A6 20 57 45 20 |)" . WE |
000023F0: 48 41 56 45 20 54 48 49 53 20 53 4F 20 46 41 52 |HAVE THIS SO FAR|
00002400: 22 00 1B 2C 75 38 99 22 31 31 20 4E 45 58 54 20 |"..,u8."11 NEXT |
00002410: 20 20 20 20 20 20 20 20 20 A6 22 00 33 2C 86 38 | .".3,.8|
00002420: 99 22 11 4E 4F 57 20 59 4F 55 27 44 20 54 59 50 |.".NOW YOU'D TYP|
00002430: 45 3A 22 00 4C 2C 90 38 99 22 11 31 39 20 46 4F |E:".L,.8.".19 FO|
00002440: 52 20 49 3D 31 20 54 4F 22 57 33 24 00 68 2C 9A |R I=1 TO"W3$.h,.|
00002450: 38 99 22 32 30 3F 22 C7 28 33 34 29 22 20 9D 9D |8."20?".(34)" ..|
00002460: 2A 9D 22 C7 28 33 34 29 00 77 2C A4 38 99 22 32 |*.".(34).w,.8."2|
00002470: 31 20 4E 45 58 54 22 00 A3 2C B8 38 99 22 11 4E |1 NEXT"..,.8.".N|
00002480: 4F 54 45 20 54 48 45 20 53 45 51 55 45 4E 43 45 |OTE THE SEQUENCE|
00002490: 20 4F 46 20 50 52 49 4E 54 20 49 4E 53 54 27 4E | OF PRINT INST'N|
000024A0: 53 3A 22 00 DB 2C C2 38 99 22 11 12 53 50 41 43 |S:"..,.8."..SPAC|
000024B0: 45 92 2D 12 43 27 53 4F 52 4C 45 46 54 92 2D 12 |E.-.C'SORLEFT.-.|
000024C0: 43 27 53 4F 52 4C 45 46 54 92 2D 12 2A 92 2D 12 |C'SORLEFT.-.*.-.|
000024D0: 43 27 53 4F 52 4C 45 46 54 92 22 00 06 2D CC 38 |C'SORLEFT."..-.8|
000024E0: 99 22 11 4E 4F 57 20 57 45 20 48 41 56 45 20 2A |.".NOW WE HAVE *|
000024F0: 20 4D 4F 56 49 4E 47 20 54 4F 20 54 48 45 20 52 | MOVING TO THE R|
00002500: 49 47 48 54 2C 22 00 27 2D D6 38 99 22 11 41 4E |IGHT,".'-.8.".AN|
00002510: 44 11 9D 9D 9D B8 B8 B8 91 20 54 4F 20 54 48 45 |D........ TO THE|
00002520: 20 4C 45 46 54 2C 22 00 34 2D E0 38 99 22 11 4E | LEFT,".4-.8.".N|
00002530: 4F 57 3A 22 00 4A 2D EA 38 99 22 11 32 39 46 4F |OW:".J-.8.".29FO|
00002540: 52 49 3D 31 54 4F 22 57 31 24 00 62 2D F4 38 99 |RI=1TO"W1$.b-.8.|
00002550: 22 33 30 3F 22 C7 28 33 34 29 22 2A 22 C7 28 33 |"30?".(34)"*".(3|
00002560: 34 29 00 70 2D FE 38 99 22 33 31 4E 45 58 54 22 |4).p-.8."31NEXT"|
00002570: 00 7B 2D 08 39 8D 36 33 30 30 30 00 A9 2D 12 39 |.{-.9.63000..-.9|
00002580: 99 22 93 4E 4F 54 45 20 54 48 41 54 20 59 4F 55 |.".NOTE THAT YOU|
00002590: 20 4E 45 45 44 4E 27 54 20 4C 45 41 56 45 20 41 | NEEDN'T LEAVE A|
000025A0: 4C 4C 20 54 48 4F 53 45 22 00 CE 2D 1C 39 99 22 |LL THOSE"..-.9."|
000025B0: 11 42 4C 41 4E 4B 20 53 50 41 43 45 53 20 49 4E |.BLANK SPACES IN|
000025C0: 20 54 48 45 20 49 4E 53 54 27 4E 53 2E 22 00 E9 | THE INST'NS."..|
000025D0: 2D 26 39 99 22 11 28 4D 45 20 53 4D 41 52 54 20 |-&9.".(ME SMART |
000025E0: 46 45 4C 4C 4F 57 21 29 22 00 10 2E 30 39 99 22 |FELLOW!)"...09."|
000025F0: 11 41 4E 59 57 41 59 2E 2E 54 48 45 20 4C 41 53 |.ANYWAY..THE LAS|
00002600: 54 20 46 4F 52 2D 4E 45 58 54 20 4C 4F 4F 50 22 |T FOR-NEXT LOOP"|
00002610: 00 35 2E 3A 39 99 22 11 52 45 50 45 41 54 53 20 |.5.:9.".REPEATS |
00002620: 41 4C 4C 20 54 48 45 20 41 42 4F 56 45 20 54 57 |ALL THE ABOVE TW|
00002630: 49 43 45 21 22 00 49 2E 44 39 99 22 20 20 20 20 |ICE!".I.D9." |
00002640: 20 20 20 20 A3 A3 A3 20 22 00 60 2E 4E 39 99 22 | ... ".`.N9."|
00002650: 11 53 4F 20 59 4F 55 27 44 20 54 59 50 45 3A 22 |.SO YOU'D TYPE:"|
00002660: 00 86 2E 58 39 99 22 11 35 46 4F 52 4A 3D 31 54 |...X9.".5FORJ=1T|
00002670: 4F 32 20 20 20 5F 46 49 52 53 54 20 53 54 41 54 |O2 _FIRST STAT|
00002680: 45 4D 45 4E 54 22 00 AA 2E 62 39 99 22 34 30 4E |EMENT"...b9."40N|
00002690: 45 58 54 20 20 20 20 20 20 20 5F 4C 41 53 54 20 |EXT _LAST |
000026A0: 53 54 41 54 45 4D 45 4E 54 22 00 B5 2E 6C 39 8D |STATEMENT"...l9.|
000026B0: 36 33 30 30 30 00 E6 2E D0 39 99 22 93 4E 4F 57 |63000....9.".NOW|
000026C0: 20 4F 55 52 20 50 52 4F 47 52 41 4D 28 50 52 4F | OUR PROGRAM(PRO|
000026D0: 47 52 41 4D 4D 45 3F 29 12 4C 49 53 54 92 53 20 |GRAMME?).LIST.S |
000026E0: 4C 49 4B 45 3A 22 00 FB 2E DA 39 99 22 11 20 35 |LIKE:"....9.". 5|
000026F0: 20 46 4F 52 4A 3D 31 54 4F 32 22 00 11 2F E4 39 | FORJ=1TO2"../.9|
00002700: 99 22 20 39 20 46 4F 52 49 3D 31 54 4F 22 57 33 |." 9 FORI=1TO"W3|
00002710: 24 00 31 2F EE 39 99 22 20 31 30 20 50 52 49 4E |$.1/.9." 10 PRIN|
00002720: 54 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 33 34 |T".(34)" *.".(34|
00002730: 29 00 41 2F F8 39 99 22 20 31 31 20 4E 45 58 54 |).A/.9." 11 NEXT|
00002740: 22 00 58 2F 02 3A 99 22 20 31 39 20 46 4F 52 49 |".X/.:." 19 FORI|
00002750: 3D 31 54 4F 22 57 33 24 00 7A 2F 0C 3A 99 22 20 |=1TO"W3$.z/.:." |
00002760: 32 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 20 |20 PRINT".(34)" |
00002770: 9D 9D 2A 9D 22 C7 28 33 34 29 00 8A 2F 16 3A 99 |..*.".(34)../.:.|
00002780: 22 20 32 31 20 4E 45 58 54 22 00 A1 2F 20 3A 99 |" 21 NEXT"../ :.|
00002790: 22 20 32 39 20 46 4F 52 49 3D 31 54 4F 22 57 31 |" 29 FORI=1TO"W1|
000027A0: 24 00 BF 2F 2A 3A 99 22 20 33 30 20 50 52 49 4E |$../*:." 30 PRIN|
000027B0: 54 22 C7 28 33 34 29 22 2A 22 C7 28 33 34 29 00 |T".(34)"*".(34).|
000027C0: CF 2F 34 3A 99 22 20 34 30 20 4E 45 58 54 22 00 |./4:." 40 NEXT".|
000027D0: DF 2F 35 3A 99 22 20 34 30 20 4E 45 58 54 22 00 |./5:." 40 NEXT".|
000027E0: 06 30 48 3A 99 22 11 4E 4F 54 45 20 54 48 41 54 |.0H:.".NOTE THAT|
000027F0: 20 57 45 20 55 53 45 20 22 C7 28 33 34 29 22 4A | WE USE ".(34)"J|
00002800: 22 C7 28 33 34 29 00 35 30 52 3A 99 22 11 46 4F |".(34).50R:.".FO|
00002810: 52 20 54 48 45 20 4C 4F 4F 50 20 54 48 41 54 20 |R THE LOOP THAT |
00002820: 52 45 50 45 41 54 53 20 46 4F 52 20 32 20 4C 49 |REPEATS FOR 2 LI|
00002830: 4E 45 53 2E 22 00 5C 30 5C 3A 99 22 11 28 54 48 |NES.".\0\:.".(TH|
00002840: 41 54 20 49 53 2C 20 54 48 45 20 4F 55 54 45 52 |AT IS, THE OUTER|
00002850: 4D 4F 53 54 20 4C 4F 4F 50 29 2E 22 00 8C 30 66 |MOST LOOP)."..0f|
00002860: 3A 99 22 11 57 49 54 48 49 4E 20 54 48 49 53 20 |:.".WITHIN THIS |
00002870: 4C 4F 4F 50 20 12 44 4F 4E 27 54 92 20 55 53 45 |LOOP .DON'T. USE|
00002880: 20 12 4A 92 20 41 47 41 49 4E 21 22 00 A5 30 75 | .J. AGAIN!"..0u|
00002890: 3A 99 22 11 28 53 4F 20 57 45 20 55 53 45 44 20 |:.".(SO WE USED |
000028A0: 12 49 92 29 22 00 B0 30 7B 3A 8D 36 33 30 30 30 |.I.)"..0{:.63000|
000028B0: 00 C8 30 84 3A 99 22 93 11 11 11 20 35 20 46 4F |..0.:.".... 5 FO|
000028C0: 52 4A 3D 31 54 4F 32 22 00 DE 30 85 3A 99 22 20 |RJ=1TO2"..0.:." |
000028D0: 39 20 46 4F 52 49 3D 31 54 4F 22 57 33 24 00 FE |9 FORI=1TO"W3$..|
000028E0: 30 86 3A 99 22 20 31 30 20 50 52 49 4E 54 22 C7 |0.:." 10 PRINT".|
000028F0: 28 33 34 29 22 20 2A 9D 22 C7 28 33 34 29 00 1F |(34)" *.".(34)..|
00002900: 31 87 3A 99 22 20 31 31 20 4E 45 58 54 20 49 20 |1.:." 11 NEXT I |
00002910: 20 20 20 20 20 20 5F C0 C0 C0 4E 4F 54 45 22 00 | _...NOTE".|
00002920: 36 31 88 3A 99 22 20 31 39 20 46 4F 52 49 3D 31 |61.:." 19 FORI=1|
00002930: 54 4F 22 57 33 24 00 58 31 89 3A 99 22 20 32 30 |TO"W3$.X1.:." 20|
00002940: 20 50 52 49 4E 54 22 C7 28 33 34 29 22 20 9D 9D | PRINT".(34)" ..|
00002950: 2A 9D 22 C7 28 33 34 29 00 79 31 8A 3A 99 22 20 |*.".(34).y1.:." |
00002960: 32 31 20 4E 45 58 54 20 49 20 20 20 20 20 20 20 |21 NEXT I |
00002970: 5F C0 C0 C0 4E 4F 54 45 22 00 90 31 8B 3A 99 22 |_...NOTE"..1.:."|
00002980: 20 32 39 20 46 4F 52 49 3D 31 54 4F 22 57 31 24 | 29 FORI=1TO"W1$|
00002990: 00 AE 31 8C 3A 99 22 20 33 30 20 50 52 49 4E 54 |..1.:." 30 PRINT|
000029A0: 22 C7 28 33 34 29 22 2A 22 C7 28 33 34 29 00 CF |".(34)"*".(34)..|
000029B0: 31 8D 3A 99 22 20 33 31 20 4E 45 58 54 20 49 20 |1.:." 31 NEXT I |
000029C0: 20 20 20 20 20 20 5F C0 C0 C0 4E 4F 54 45 22 00 | _...NOTE".|
000029D0: F0 31 8E 3A 99 22 20 34 30 20 4E 45 58 54 20 4A |.1.:." 40 NEXT J|
000029E0: 20 20 20 20 20 20 20 5F C0 C0 C0 4E 4F 54 45 22 | _...NOTE"|
000029F0: 00 11 32 8F 3A 99 22 11 49 46 20 59 4F 55 20 47 |..2.:.".IF YOU G|
00002A00: 45 54 20 43 4F 4E 46 55 53 45 44 20 57 49 54 48 |ET CONFUSED WITH|
00002A10: 22 00 2E 32 90 3A 99 22 11 41 4C 4C 20 54 48 4F |"..2.:.".ALL THO|
00002A20: 53 45 20 12 4E 45 58 54 92 53 2E 2E 2E 22 00 4F |SE .NEXT.S...".O|
00002A30: 32 93 3A 99 22 11 54 59 50 45 3A 20 12 4E 45 58 |2.:.".TYPE: .NEX|
00002A40: 54 20 49 92 20 26 20 12 4E 45 58 54 20 4A 22 00 |T I. & .NEXT J".|
00002A50: 5A 32 96 3A 8D 36 33 30 30 30 00 71 32 98 3A 99 |Z2.:.63000.q2.:.|
00002A60: 22 93 12 57 41 4E 54 20 54 4F 20 54 52 59 92 3F |"..WANT TO TRY.?|
00002A70: 22 00 97 32 A2 3A 99 22 11 49 27 4C 4C 20 52 45 |"..2.:.".I'LL RE|
00002A80: 50 45 41 54 20 54 48 45 20 49 4E 53 54 52 55 43 |PEAT THE INSTRUC|
00002A90: 54 49 4F 4E 53 2E 22 00 C4 32 0B 3B 99 22 11 59 |TIONS."..2.;.".Y|
00002AA0: 4F 55 20 43 41 4E 20 45 4E 54 45 52 20 54 48 45 |OU CAN ENTER THE|
00002AB0: 20 49 4E 53 54 27 4E 53 20 42 59 20 50 55 54 54 | INST'NS BY PUTT|
00002AC0: 49 4E 47 22 00 EC 32 0C 3B 99 22 11 54 48 45 20 |ING"..2.;.".THE |
00002AD0: 43 55 52 53 4F 52 20 41 54 20 54 48 45 20 46 49 |CURSOR AT THE FI|
00002AE0: 52 53 54 20 49 4E 53 54 52 27 4E 22 00 16 33 0D |RST INSTR'N"..3.|
00002AF0: 3B 99 22 11 54 48 45 4E 20 52 45 50 45 41 54 45 |;.".THEN REPEATE|
00002B00: 44 4C 59 20 50 52 45 53 53 49 4E 47 20 27 52 45 |DLY PRESSING 'RE|
00002B10: 54 55 52 4E 27 22 00 41 33 0E 3B 99 22 11 53 4F |TURN'".A3.;.".SO|
00002B20: 20 49 27 4C 4C 20 54 48 49 4E 4B 20 12 59 4F 55 | I'LL THINK .YOU|
00002B30: 92 20 54 59 50 45 44 20 54 48 45 4D 20 49 4E 2E |. TYPED THEM IN.|
00002B40: 22 00 4C 33 10 3B 8D 36 33 30 30 30 00 64 33 C2 |".L3.;.63000.d3.|
00002B50: 3D 99 22 93 22 3B 3A 99 22 35 46 4F 52 4A 3D 31 |=.".";:."5FORJ=1|
00002B60: 54 4F 32 22 00 78 33 CC 3D 99 22 39 46 4F 52 49 |TO2".x3.=."9FORI|
00002B70: 3D 31 54 4F 22 57 33 24 00 92 33 D6 3D 99 22 31 |=1TO"W3$..3.=."1|
00002B80: 30 3F 22 C7 28 33 34 29 22 20 2A 9D 22 C7 28 33 |0?".(34)" *.".(3|
00002B90: 34 29 00 A0 33 E0 3D 99 22 31 31 4E 45 58 54 22 |4)..3.=."11NEXT"|
00002BA0: 00 B5 33 EA 3D 99 22 31 39 46 4F 52 49 3D 31 54 |..3.=."19FORI=1T|
00002BB0: 4F 22 57 33 24 00 D1 33 F4 3D 99 22 32 30 3F 22 |O"W3$..3.=."20?"|
00002BC0: C7 28 33 34 29 22 20 9D 9D 2A 9D 22 C7 28 33 34 |.(34)" ..*.".(34|
00002BD0: 29 00 DF 33 FE 3D 99 22 32 31 4E 45 58 54 22 00 |)..3.=."21NEXT".|
00002BE0: F4 33 08 3E 99 22 32 39 46 4F 52 49 3D 31 54 4F |.3.>."29FORI=1TO|
00002BF0: 22 57 31 24 00 0C 34 12 3E 99 22 33 30 3F 22 C7 |"W1$..4.>."30?".|
00002C00: 28 33 34 29 22 2A 22 C7 28 33 34 29 00 1A 34 1C |(34)"*".(34)..4.|
00002C10: 3E 99 22 33 31 4E 45 58 54 22 00 28 34 1D 3E 99 |>."31NEXT".(4.>.|
00002C20: 22 34 30 4E 45 58 54 22 00 55 34 21 3E 99 22 11 |"40NEXT".U4!>.".|
00002C30: 41 46 54 45 52 20 45 4E 54 45 52 49 4E 47 20 53 |AFTER ENTERING S|
00002C40: 54 41 54 45 4D 45 4E 54 53 20 35 2D 34 30 20 54 |TATEMENTS 5-40 T|
00002C50: 59 50 45 3A 22 00 7A 34 22 3E 99 22 11 12 52 55 |YPE:".z4">."..RU|
00002C60: 4E 92 20 54 4F 20 52 55 4E 20 59 4F 55 52 20 50 |N. TO RUN YOUR P|
00002C70: 52 4F 47 52 41 4D 4D 45 2E 22 00 B5 34 26 3E 99 |ROGRAMME."..4&>.|
00002C80: 22 11 28 54 59 50 45 20 12 40 92 20 54 4F 20 43 |".(TYPE .@. TO C|
00002C90: 4F 4E 54 49 4E 55 45 20 54 55 54 4F 52 20 31 29 |ONTINUE TUTOR 1)|
00002CA0: 2E 22 3A 53 4E 24 B2 22 31 36 30 30 30 22 3A 89 |.":SN$."16000":.|
00002CB0: 36 33 33 30 30 00 DB 34 80 3E 8D 36 30 30 30 30 |63300..4.>.60000|
00002CC0: 3A 99 22 93 12 44 4F 45 53 4E 27 54 20 57 4F 52 |:."..DOESN'T WOR|
00002CD0: 4B 20 44 4F 45 53 20 49 54 3F 22 00 E6 34 81 3E |K DOES IT?"..4.>|
00002CE0: 8D 31 38 30 30 30 00 10 35 85 3E 99 22 93 4E 4F |.18000..5.>.".NO|
00002CF0: 57 20 53 55 50 50 4F 53 45 20 59 4F 55 27 44 20 |W SUPPOSE YOU'D |
00002D00: 4C 49 4B 45 20 54 4F 20 53 50 45 43 49 46 59 22 |LIKE TO SPECIFY"|
00002D10: 00 37 35 8A 3E 99 22 11 54 48 45 20 53 59 4D 42 |.75.>.".THE SYMB|
00002D20: 4F 4C 20 55 53 45 44 2E 2E 49 4E 53 54 45 41 44 |OL USED..INSTEAD|
00002D30: 20 4F 46 20 2A 2E 22 00 5D 35 F8 3E 99 22 11 49 | OF *.".]5.>.".I|
00002D40: 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 52 |N THE PROGRAM, R|
00002D50: 45 50 4C 41 43 45 20 2A 20 49 4E 20 22 00 84 35 |EPLACE * IN "..5|
00002D60: 02 3F 99 22 11 53 54 41 54 45 4D 45 4E 54 53 20 |.?.".STATEMENTS |
00002D70: 23 31 30 2C 32 30 26 33 30 20 42 59 2C 53 41 59 |#10,20&30 BY,SAY|
00002D80: 2C 53 24 22 00 A9 35 0C 3F 99 22 11 54 48 45 4E |,S$"..5.?.".THEN|
00002D90: 20 49 4E 43 4C 55 44 45 20 54 48 45 20 53 54 41 | INCLUDE THE STA|
00002DA0: 54 45 4D 45 4E 54 53 3A 22 00 C7 35 16 3F 99 22 |TEMENTS:"..5.?."|
00002DB0: 11 33 3F 22 C7 28 33 34 29 22 53 59 4D 42 4F 4C |.3?".(34)"SYMBOL|
00002DC0: 3F 22 C7 28 33 34 29 00 D9 35 20 3F 99 22 34 20 |?".(34)..5 ?."4 |
00002DD0: 49 4E 50 55 54 20 53 24 22 00 04 36 2A 3F 99 22 |INPUT S$"..6*?."|
00002DE0: 11 4E 4F 57 20 49 27 4C 4C 20 57 41 49 54 20 46 |.NOW I'LL WAIT F|
00002DF0: 4F 52 20 59 4F 55 20 54 4F 20 45 4E 54 45 52 20 |OR YOU TO ENTER |
00002E00: 54 48 45 22 00 2C 36 34 3F 99 22 11 53 59 4D 42 |THE".,64?.".SYMB|
00002E10: 4F 4C 28 4F 52 20 53 54 52 49 4E 47 29 57 48 49 |OL(OR STRING)WHI|
00002E20: 43 48 20 49 53 20 4C 41 54 45 52 22 00 47 36 3E |CH IS LATER".G6>|
00002E30: 3F 99 22 11 52 45 46 45 52 52 45 44 20 54 4F 20 |?.".REFERRED TO |
00002E40: 41 53 20 53 24 2E 22 00 52 36 43 3F 8D 36 33 30 |AS S$.".R6C?.630|
00002E50: 30 30 00 6A 36 48 3F 99 22 93 41 4E 4F 54 48 45 |00.j6H?.".ANOTHE|
00002E60: 52 20 54 48 49 4E 47 2E 2E 22 00 8E 36 52 3F 99 |R THING.."..6R?.|
00002E70: 22 11 59 4F 55 20 57 49 4C 4C 20 57 41 4E 54 20 |".YOU WILL WANT |
00002E80: 54 4F 20 43 4C 45 41 52 20 54 48 45 20 22 00 B8 |TO CLEAR THE "..|
00002E90: 36 5C 3F 99 22 11 53 43 52 45 45 4E 20 41 54 20 |6\?.".SCREEN AT |
00002EA0: 54 48 45 20 53 54 41 52 54 20 4F 46 20 54 48 45 |THE START OF THE|
00002EB0: 20 50 52 4F 47 27 4D 22 00 CF 36 66 3F 99 22 11 | PROG'M"..6f?.".|
00002EC0: 53 4F 20 53 54 41 52 54 20 57 49 54 48 3A 22 00 |SO START WITH:".|
00002ED0: E7 36 70 3F 99 22 11 31 3F 22 C7 28 33 34 29 22 |.6p?.".1?".(34)"|
00002EE0: 93 22 C7 28 33 34 29 00 06 37 7A 3F 99 22 11 54 |.".(34)..7z?.".T|
00002EF0: 48 49 53 20 53 41 59 53 3A 20 50 52 49 4E 54 20 |HIS SAYS: PRINT |
00002F00: 41 20 43 4C 52 22 00 24 37 84 3F 99 22 20 20 20 |A CLR".$7.?." |
00002F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F20: A3 A3 A3 22 00 2F 37 85 3F 8D 36 33 30 30 30 00 |..."./7.?.63000.|
00002F30: 5C 37 8E 3F 99 22 93 41 4C 53 4F 2C 20 59 4F 55 |\7.?.".ALSO, YOU|
00002F40: 20 57 4F 4E 27 54 20 57 41 4E 54 20 4D 45 20 54 | WON'T WANT ME T|
00002F50: 4F 20 43 4F 4D 45 20 42 41 43 4B 22 00 7E 37 98 |O COME BACK".~7.|
00002F60: 3F 99 22 11 57 49 54 48 20 4D 59 20 22 C7 28 33 |?.".WITH MY ".(3|
00002F70: 34 29 22 52 45 41 44 59 22 C7 28 33 34 29 00 94 |4)"READY".(34)..|
00002F80: 37 A2 3F 99 22 20 20 20 20 20 20 20 20 20 A3 A3 |7.?." ..|
00002F90: A3 A3 A3 22 00 BD 37 AC 3F 99 22 11 53 4F 20 47 |..."..7.?.".SO G|
00002FA0: 49 56 45 20 4D 45 20 53 4F 4D 45 54 48 49 4E 47 |IVE ME SOMETHING|
00002FB0: 20 54 4F 20 44 4F 2C 4C 49 4B 45 3A 22 00 DF 37 | TO DO,LIKE:"..7|
00002FC0: B6 3F 99 22 11 12 35 30 20 46 4F 52 49 3D 31 54 |.?."..50 FORI=1T|
00002FD0: 4F 35 30 30 30 3A 47 3D 30 3A 4E 45 58 54 22 00 |O5000:G=0:NEXT".|
00002FE0: 09 38 C0 3F 99 22 11 54 48 41 54 20 57 41 59 20 |.8.?.".THAT WAY |
00002FF0: 49 27 4C 4C 20 47 4F 20 41 57 41 59 20 41 4E 44 |I'LL GO AWAY AND|
00003000: 20 53 45 54 20 47 3D 30 22 00 1D 38 CA 3F 99 22 | SET G=0"..8.?."|
00003010: 11 35 30 30 30 20 54 49 4D 45 53 21 22 00 3A 38 |.5000 TIMES!".:8|
00003020: CF 3F 99 22 11 2E 2E 4F 52 20 59 4F 55 20 43 4F |.?."...OR YOU CO|
00003030: 55 4C 44 20 48 41 56 45 3A 22 00 4F 38 D0 3F 99 |ULD HAVE:".O8.?.|
00003040: 22 11 12 35 30 20 47 4F 20 54 4F 20 35 30 22 00 |"..50 GO TO 50".|
00003050: 7B 38 D1 3F 99 22 11 54 48 45 4E 20 49 27 44 20 |{8.?.".THEN I'D |
00003060: 27 4C 4F 4F 50 27 20 4F 4E 20 53 54 41 54 45 4D |'LOOP' ON STATEM|
00003070: 45 4E 54 23 35 30 20 41 4E 44 22 00 A0 38 D2 3F |ENT#50 AND"..8.?|
00003080: 99 22 11 54 4F 20 53 54 4F 50 20 4D 45 20 59 4F |.".TO STOP ME YO|
00003090: 55 27 44 20 48 49 54 20 12 53 54 4F 50 92 2E 22 |U'D HIT .STOP.."|
000030A0: 00 AB 38 DE 3F 8D 36 33 30 30 30 00 D8 38 F2 3F |..8.?.63000..8.?|
000030B0: 99 22 93 41 4E 4F 54 48 45 52 20 54 48 49 4E 47 |.".ANOTHER THING|
000030C0: 2C 59 4F 55 20 4D 41 59 20 57 41 4E 54 20 54 4F |,YOU MAY WANT TO|
000030D0: 20 43 48 41 4E 47 45 22 00 01 39 FC 3F 99 22 11 | CHANGE"..9.?.".|
000030E0: 59 4F 55 52 20 4D 49 4E 44 20 41 42 4F 55 54 20 |YOUR MIND ABOUT |
000030F0: 54 48 45 20 4E 4F 2E 20 4F 46 20 4C 49 4E 45 53 |THE NO. OF LINES|
00003100: 22 00 26 39 06 40 99 22 11 50 52 49 4E 54 45 44 |".&9.@.".PRINTED|
00003110: 28 49 4E 53 54 45 41 44 20 4F 46 20 41 4C 57 41 |(INSTEAD OF ALWA|
00003120: 59 53 20 32 29 22 00 46 39 10 40 99 22 11 53 4F |YS 2)".F9.@.".SO|
00003130: 20 43 48 41 4E 47 45 3A 20 12 46 4F 52 20 4A 3D | CHANGE: .FOR J=|
00003140: 31 54 4F 20 32 22 00 66 39 1A 40 99 22 11 54 4F |1TO 2".f9.@.".TO|
00003150: 20 52 45 41 44 3A 20 20 20 12 46 4F 52 20 4A 3D | READ: .FOR J=|
00003160: 31 54 4F 20 4C 22 00 71 39 24 40 8D 36 33 30 30 |1TO L".q9$@.6300|
00003170: 30 00 A5 39 2E 40 99 22 93 4F 46 20 43 4F 55 52 |0..9.@.".OF COUR|
00003180: 53 45 20 59 4F 55 27 4C 4C 20 48 41 56 45 20 54 |SE YOU'LL HAVE T|
00003190: 4F 20 49 4E 50 55 54 22 C7 28 33 34 29 22 4C 22 |O INPUT".(34)"L"|
000031A0: C7 28 33 34 29 00 C6 39 38 40 99 22 11 53 4F 20 |.(34)..98@.".SO |
000031B0: 49 4E 53 45 52 54 20 54 48 45 20 53 54 41 54 45 |INSERT THE STATE|
000031C0: 4D 45 4E 54 3A 22 00 ED 39 42 40 99 22 11 12 32 |MENT:"..9B@."..2|
000031D0: 20 49 4E 50 55 54 22 C7 28 33 34 29 22 4C 49 4E | INPUT".(34)"LIN|
000031E0: 45 53 3D 22 C7 28 33 34 29 22 3B 4C 22 00 16 3A |ES=".(34)";L"..:|
000031F0: 56 40 99 22 11 49 27 4C 4C 20 50 52 49 4E 54 20 |V@.".I'LL PRINT |
00003200: 54 48 45 20 50 52 4F 4D 50 54 49 4E 47 20 52 45 |THE PROMPTING RE|
00003210: 4D 41 52 4B 3A 22 00 26 3A 60 40 99 22 11 4C 49 |MARK:".&:`@.".LI|
00003220: 4E 45 53 3D 3F 22 00 52 3A 61 40 99 22 11 41 4E |NES=?".R:a@.".AN|
00003230: 44 20 57 49 4C 4C 20 57 41 49 54 20 46 4F 52 20 |D WILL WAIT FOR |
00003240: 4C 20 54 4F 20 42 45 20 54 59 50 45 44 20 49 4E |L TO BE TYPED IN|
00003250: 2E 22 00 5D 3A 6A 40 8D 36 33 30 30 30 00 88 3A |.".]:j@.63000..:|
00003260: 74 40 99 22 93 54 48 45 4E 20 59 4F 55 20 4D 41 |t@.".THEN YOU MA|
00003270: 59 20 57 41 4E 54 20 54 4F 20 55 53 45 20 4D 59 |Y WANT TO USE MY|
00003280: 20 43 4C 41 53 53 59 22 00 AA 3A 7E 40 99 22 11 | CLASSY"..:~@.".|
00003290: 22 C7 28 33 34 29 22 52 45 56 45 52 53 45 20 46 |".(34)"REVERSE F|
000032A0: 49 45 4C 44 22 C7 28 33 34 29 00 C0 3A 88 40 99 |IELD".(34)..:.@.|
000032B0: 22 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |" ............."|
000032C0: 00 E2 3A 92 40 99 22 11 2E 2E 54 48 41 54 27 53 |..:.@."...THAT'S|
000032D0: 20 12 43 54 52 4C 2D 39 92 3D 12 52 56 53 20 4F | .CTRL-9.=.RVS O|
000032E0: 4E 22 00 07 3B A6 40 99 22 11 53 4F 20 49 4E 53 |N"..;.@.".SO INS|
000032F0: 45 52 54 20 54 48 49 53 20 50 52 49 4E 54 20 43 |ERT THIS PRINT C|
00003300: 4F 4D 4D 41 4E 44 22 00 2E 3B B0 40 99 22 11 41 |OMMAND"..;.@.".A|
00003310: 54 20 54 48 45 20 42 45 47 49 4E 4E 49 4E 47 20 |T THE BEGINNING |
00003320: 4F 46 20 45 41 43 48 20 50 52 49 4E 54 22 00 40 |OF EACH PRINT".@|
00003330: 3B B1 40 99 22 11 53 45 51 55 45 4E 43 45 2E 22 |;.@.".SEQUENCE."|
00003340: 00 4B 3B BA 40 8D 36 33 30 30 30 00 5C 3B C4 40 |.K;.@.63000.\;.@|
00003350: 99 22 93 52 45 50 4C 41 43 45 3A 22 00 77 3B CE |.".REPLACE:".w;.|
00003360: 40 99 22 11 20 3F 22 C7 28 33 34 29 22 20 2A 9D |@.". ?".(34)" *.|
00003370: 22 C7 28 33 34 29 3B 00 8A 3B D8 40 99 A6 35 29 |".(34);..;.@..5)|
00003380: 22 11 20 20 2E 2E 42 59 3A 22 00 A5 3B E2 40 99 |". ..BY:"..;.@.|
00003390: 22 11 20 3F 22 C7 28 33 34 29 22 12 20 2A 9D 22 |". ?".(34)". *."|
000033A0: C7 28 33 34 29 00 B1 3B E7 40 99 22 20 20 20 5E |.(34)..;.@." ^|
000033B0: 22 00 D0 3B E8 40 99 22 54 48 41 54 27 53 20 41 |"..;.@."THAT'S A|
000033C0: 20 27 52 56 53 27 20 43 4F 4D 4D 41 4E 44 21 22 | 'RVS' COMMAND!"|
000033D0: 00 DB 3B EC 40 8D 36 33 30 30 30 00 03 3C F6 40 |..;.@.63000..<.@|
000033E0: 99 22 93 11 11 11 49 27 4C 4C 20 50 52 49 4E 54 |."....I'LL PRINT|
000033F0: 20 4C 4F 54 53 20 4F 46 20 54 48 49 4E 47 53 20 | LOTS OF THINGS |
00003400: 49 4E 22 00 1A 3C 00 41 99 22 20 20 52 45 56 45 |IN"..<.A." REVE|
00003410: 52 53 45 20 46 49 45 4C 44 22 00 31 3C 0A 41 99 |RSE FIELD".1<.A.|
00003420: 22 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |" .............|
00003430: 22 00 5B 3C 14 41 99 22 20 53 4F 20 49 46 20 59 |".[<.A." SO IF Y|
00003440: 4F 55 20 57 41 4E 54 20 49 54 20 22 C7 28 33 34 |OU WANT IT ".(34|
00003450: 29 22 4F 46 46 22 C7 28 33 34 29 00 7C 3C 1E 41 |)"OFF".(34).|<.A|
00003460: 99 22 20 20 49 4E 53 45 52 54 20 41 20 50 52 49 |." INSERT A PRI|
00003470: 4E 54 20 43 4F 4D 4D 41 4E 44 3A 22 00 96 3C 28 |NT COMMAND:"..<(|
00003480: 41 99 3A 99 22 34 31 3F 22 C7 28 33 34 29 22 92 |A.:."41?".(34)".|
00003490: 22 C7 28 33 34 29 00 B5 3C 32 41 99 22 20 20 20 |".(34)..<2A." |
000034A0: 20 5E 20 54 48 41 54 27 53 20 12 52 56 53 20 4F | ^ THAT'S .RVS O|
000034B0: 46 46 92 21 22 00 C0 3C CD 41 8D 36 33 30 30 30 |FF.!"..<.A.63000|
000034C0: 00 EE 3C D2 41 99 22 93 54 48 45 4E 2E 2E 49 46 |..<.A.".THEN..IF|
000034D0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 4C 4F | YOU WANT TO SLO|
000034E0: 57 20 54 48 49 4E 47 53 20 44 4F 57 4E 22 00 09 |W THINGS DOWN"..|
000034F0: 3D DC 41 99 22 11 54 52 59 20 12 53 55 42 52 4F |=.A.".TRY .SUBRO|
00003500: 55 54 49 4E 45 53 92 21 22 00 35 3D E6 41 99 22 |UTINES.!".5=.A."|
00003510: 11 49 4E 43 4C 55 44 45 20 41 20 46 45 57 20 27 |.INCLUDE A FEW '|
00003520: 47 4F 53 55 42 35 30 30 27 20 53 54 41 54 45 4D |GOSUB500' STATEM|
00003530: 45 4E 54 53 22 00 63 3D F0 41 99 22 11 41 4E 44 |ENTS".c=.A.".AND|
00003540: 20 49 27 4C 4C 20 47 4F 20 54 4F 20 53 54 41 54 | I'LL GO TO STAT|
00003550: 45 4D 45 4E 54 20 35 30 30 20 41 4E 44 20 4F 42 |EMENT 500 AND OB|
00003560: 45 59 22 00 83 3D FA 41 99 22 11 54 48 45 20 49 |EY"..=.A.".THE I|
00003570: 4E 53 54 52 55 43 54 49 4F 4E 53 20 54 48 45 52 |NSTRUCTIONS THER|
00003580: 45 2E 22 00 A8 3D 04 42 99 22 11 53 4F 2C 20 50 |E."..=.B.".SO, P|
00003590: 55 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |UT INSTRUCTIONS |
000035A0: 41 54 20 35 30 30 3A 22 00 C3 3D 0E 42 99 22 11 |AT 500:"..=.B.".|
000035B0: 12 35 30 30 20 46 4F 52 54 3D 31 20 54 4F 31 30 |.500 FORT=1 TO10|
000035C0: 30 30 22 00 DD 3D 18 42 99 22 12 35 31 30 20 4E |00"..=.B.".510 N|
000035D0: 45 58 54 20 20 20 20 20 20 20 20 20 22 00 F7 3D |EXT "..=|
000035E0: 22 42 99 22 12 35 32 30 20 52 45 54 55 52 4E 20 |"B.".520 RETURN |
000035F0: 20 20 20 20 20 20 22 00 25 3E 2C 42 99 22 11 41 | ".%>,B.".A|
00003600: 46 54 45 52 20 44 4F 49 4E 47 20 27 4E 4F 54 48 |FTER DOING 'NOTH|
00003610: 49 4E 47 27 20 31 30 30 30 20 54 49 4D 45 53 20 |ING' 1000 TIMES |
00003620: 49 27 4C 4C 22 00 54 3E 36 42 99 22 11 27 52 45 |I'LL".T>6B.".'RE|
00003630: 54 55 52 4E 27 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN' TO CONTINU|
00003640: 45 20 54 48 45 20 4D 41 49 4E 20 50 52 4F 47 52 |E THE MAIN PROGR|
00003650: 41 4D 2E 22 00 66 3E 40 42 8D 36 33 30 30 30 3A |AM.".f>@B.63000:|
00003660: 89 31 39 30 30 30 00 91 3E 50 46 99 22 11 4F 46 |.19000..>PF.".OF|
00003670: 20 43 4F 55 52 53 45 20 57 45 20 46 4F 52 47 4F | COURSE WE FORGO|
00003680: 54 20 54 4F 20 49 4E 43 4C 55 44 45 20 41 4C 4C |T TO INCLUDE ALL|
00003690: 22 00 AE 3E 5A 46 99 22 11 54 48 4F 53 45 20 53 |"..>ZF.".THOSE S|
000036A0: 45 4D 49 2D 43 4F 4C 4F 4E 53 21 21 21 22 00 C9 |EMI-COLONS!!!"..|
000036B0: 3E 64 46 99 22 20 20 20 20 20 20 A3 A3 A3 A3 A3 |>dF." .....|
000036C0: A3 A3 A3 A3 A3 A3 20 20 22 00 ED 3E 6E 46 99 22 |...... "..>nF."|
000036D0: 11 53 4F 20 45 4E 44 20 45 41 43 48 20 50 52 49 |.SO END EACH PRI|
000036E0: 4E 54 20 53 54 41 54 45 4D 45 4E 54 22 00 0F 3F |NT STATEMENT"..?|
000036F0: 78 46 99 22 11 2E 2E 4E 41 4D 45 4C 59 20 23 31 |xF."...NAMELY #1|
00003700: 30 2C 23 32 30 20 26 20 23 33 30 2E 2E 2E 22 00 |0,#20 & #30...".|
00003710: 2E 3F 82 46 99 22 11 57 49 54 48 20 41 20 53 45 |.?.F.".WITH A SE|
00003720: 4D 49 2D 43 4F 4C 4F 4E 21 20 20 20 3B 22 00 60 |MI-COLON! ;".`|
00003730: 3F 8C 46 99 22 11 42 55 54 20 46 49 52 53 54 2C |?.F.".BUT FIRST,|
00003740: 20 4C 45 54 27 53 20 46 4F 52 47 45 20 41 48 45 | LET'S FORGE AHE|
00003750: 41 44 21 22 3A 8D 36 33 30 30 30 3A 99 22 93 22 |AD!":.63000:."."|
00003760: 00 74 3F 91 46 4D 53 24 B2 22 47 4F 21 47 4F 21 |.t?.FMS$."GO!GO!|
00003770: 47 4F 21 22 00 7F 3F 96 46 8D 36 33 31 30 30 00 |GO!"..?.F.63100.|
00003780: 85 3F 9B 46 8E 00 A2 3F 38 4A 99 22 93 22 3B 3A |.?.F...?8J.".";:|
00003790: 99 22 31 3F 22 C7 28 33 34 29 22 93 22 C7 28 33 |."1?".(34)".".(3|
000037A0: 34 29 00 C6 3F 42 4A 99 22 32 49 4E 50 55 54 22 |4)..?BJ."2INPUT"|
000037B0: C7 28 33 34 29 22 4C 49 4E 45 53 3D 22 C7 28 33 |.(34)"LINES=".(3|
000037C0: 34 29 22 3B 4C 22 00 E3 3F 4C 4A 99 22 33 3F 22 |4)";L"..?LJ."3?"|
000037D0: C7 28 33 34 29 22 53 59 4D 42 4F 4C 3F 22 C7 28 |.(34)"SYMBOL?".(|
000037E0: 33 34 29 00 F3 3F 56 4A 99 22 34 49 4E 50 55 54 |34)..?VJ."4INPUT|
000037F0: 53 24 22 00 05 40 62 4D 99 22 35 46 4F 52 4A 3D |S$"..@bM."5FORJ=|
00003800: 31 54 4F 4C 22 00 24 40 6C 4D 99 22 39 46 4F 52 |1TOL".$@lM."9FOR|
00003810: 49 3D 31 54 4F 22 57 33 24 22 3A 47 4F 53 55 42 |I=1TO"W3$":GOSUB|
00003820: 35 30 30 22 00 51 40 76 4D 99 22 31 30 3F 22 C7 |500".Q@vM."10?".|
00003830: 28 33 34 29 22 12 20 22 C7 28 33 34 29 22 53 24 |(34)". ".(34)"S$|
00003840: 22 C7 28 33 34 29 22 9D 22 C7 28 33 34 29 22 3B |".(34)".".(34)";|
00003850: 22 00 5F 40 80 4D 99 22 31 31 4E 45 58 54 22 00 |"._@.M."11NEXT".|
00003860: 7F 40 8A 4D 99 22 31 39 46 4F 52 49 3D 31 54 4F |.@.M."19FORI=1TO|
00003870: 22 57 33 24 22 3A 47 4F 53 55 42 35 30 30 22 00 |"W3$":GOSUB500".|
00003880: AE 40 94 4D 99 22 32 30 3F 22 C7 28 33 34 29 22 |.@.M."20?".(34)"|
00003890: 12 20 9D 9D 22 C7 28 33 34 29 22 53 24 22 C7 28 |. ..".(34)"S$".(|
000038A0: 33 34 29 22 9D 22 C7 28 33 34 29 22 3B 22 00 BC |34)".".(34)";"..|
000038B0: 40 9E 4D 99 22 32 31 4E 45 58 54 22 00 DC 40 A8 |@.M."21NEXT"..@.|
000038C0: 4D 99 22 32 39 46 4F 52 49 3D 31 54 4F 22 57 31 |M."29FORI=1TO"W1|
000038D0: 24 22 3A 47 4F 53 55 42 35 30 30 22 00 F9 40 B2 |$":GOSUB500"..@.|
000038E0: 4D 99 22 33 30 3F 22 C7 28 33 34 29 22 12 22 C7 |M."30?".(34)".".|
000038F0: 28 33 34 29 22 53 24 3B 22 00 07 41 BC 4D 99 22 |(34)"S$;"..A.M."|
00003900: 33 31 4E 45 58 54 22 00 20 41 BD 4D 99 22 34 30 |31NEXT". A.M."40|
00003910: 4E 45 58 54 22 3A 99 22 35 30 47 4F 54 4F 31 22 |NEXT":."50GOTO1"|
00003920: 00 40 41 BE 4D 99 22 35 30 30 46 4F 52 54 3D 31 |.@A.M."500FORT=1|
00003930: 54 4F 35 3A 4E 45 58 54 3A 52 45 54 55 52 4E 22 |TO5:NEXT:RETURN"|
00003940: 00 66 41 C6 4D 99 22 11 54 59 50 45 20 49 54 20 |.fA.M.".TYPE IT |
00003950: 49 4E 20 26 20 12 52 55 4E 92 20 54 4F 20 52 55 |IN & .RUN. TO RU|
00003960: 4E 20 49 54 2E 22 00 9B 41 DA 4D 99 22 11 54 48 |N IT."..A.M.".TH|
00003970: 45 4E 20 12 54 59 50 45 20 40 92 20 54 4F 20 43 |EN .TYPE @. TO C|
00003980: 4F 4E 54 49 4E 55 45 22 3A 53 4E 24 B2 22 32 30 |ONTINUE":SN$."20|
00003990: 30 30 30 22 3A 89 36 33 33 30 30 00 C5 41 20 4E |000":.63300..A N|
000039A0: 8D 36 30 30 30 30 3A 99 22 93 41 20 46 49 4E 41 |.60000:.".A FINA|
000039B0: 4C 20 57 4F 52 44 20 28 2E 2E 4F 52 20 54 57 4F |L WORD (..OR TWO|
000039C0: 2E 2E 29 3A 22 00 EF 41 2A 4E 99 22 11 53 4F 4D |..):"..A*N.".SOM|
000039D0: 45 54 49 4D 45 53 20 59 4F 55 20 52 55 4E 20 41 |ETIMES YOU RUN A|
000039E0: 20 50 52 4F 47 52 41 4D 20 57 49 54 48 3A 22 00 | PROGRAM WITH:".|
000039F0: FF 41 34 4E 99 22 11 12 52 55 4E 20 31 30 22 00 |.A4N."..RUN 10".|
00003A00: 17 42 3E 4E 99 22 11 53 4F 4D 45 54 49 4D 45 53 |.B>N.".SOMETIMES|
00003A10: 20 57 49 54 48 3A 22 00 27 42 48 4E 99 22 11 12 | WITH:".'BHN."..|
00003A20: 47 4F 54 4F 31 30 22 00 46 42 52 4E 99 22 11 57 |GOTO10".FBRN.".W|
00003A30: 48 41 54 27 53 20 54 48 45 20 44 49 46 46 45 52 |HAT'S THE DIFFER|
00003A40: 45 4E 43 45 3F 22 00 71 42 5C 4E 99 22 11 57 45 |ENCE?".qB\N.".WE|
00003A50: 4C 4C 2E 2E 49 46 20 59 4F 55 20 54 59 50 45 20 |LL..IF YOU TYPE |
00003A60: 12 52 55 4E 2E 2E 92 20 49 20 46 4F 52 47 45 54 |.RUN... I FORGET|
00003A70: 22 00 9D 42 66 4E 99 22 11 54 48 45 20 56 41 4C |"..BfN.".THE VAL|
00003A80: 55 45 53 20 4F 46 20 27 58 27 20 41 4E 44 20 27 |UES OF 'X' AND '|
00003A90: 59 27 20 41 4E 44 20 27 53 41 4D 27 22 00 C2 42 |Y' AND 'SAM'"..B|
00003AA0: 70 4E 99 22 11 41 4E 44 20 57 49 4C 4C 20 53 54 |pN.".AND WILL ST|
00003AB0: 41 52 54 20 46 52 4F 4D 20 53 43 52 41 54 43 48 |ART FROM SCRATCH|
00003AC0: 2E 22 00 EB 42 7A 4E 99 22 11 12 47 4F 54 4F 2E |."..BzN."..GOTO.|
00003AD0: 2E 92 20 41 4E 44 20 49 27 4C 4C 20 52 45 4D 45 |.. AND I'LL REME|
00003AE0: 4D 42 45 52 20 54 48 45 4D 21 22 00 F6 42 84 4E |MBER THEM!"..B.N|
00003AF0: 8D 36 33 30 30 30 00 0D 43 8E 4E 99 22 93 54 48 |.63000..C.N.".TH|
00003B00: 49 53 20 49 53 20 48 41 4E 44 59 3A 22 00 39 43 |IS IS HANDY:".9C|
00003B10: 98 4E 99 22 11 12 53 54 4F 50 92 20 41 20 50 52 |.N."..STOP. A PR|
00003B20: 4F 47 52 41 4D 20 57 48 49 4C 45 20 49 54 27 53 |OGRAM WHILE IT'S|
00003B30: 20 52 55 4E 4E 49 4E 47 22 00 4B 43 A2 4E 99 22 | RUNNING".KC.N."|
00003B40: 11 41 4E 44 20 54 59 50 45 3A 22 00 5E 43 AC 4E |.AND TYPE:".^C.N|
00003B50: 99 22 11 3F 58 3A 3F 59 3A 3F 53 41 4D 22 00 89 |.".?X:?Y:?SAM"..|
00003B60: 43 B6 4E 99 22 11 41 4E 44 20 49 27 4C 4C 20 50 |C.N.".AND I'LL P|
00003B70: 52 49 4E 54 20 54 48 45 20 56 41 4C 55 45 53 20 |RINT THE VALUES |
00003B80: 4F 46 20 54 48 45 53 45 22 00 B8 43 C0 4E 99 22 |OF THESE"..C.N."|
00003B90: 11 56 41 52 49 41 42 4C 45 53 20 41 54 20 54 48 |.VARIABLES AT TH|
00003BA0: 45 20 54 49 4D 45 20 49 20 57 41 53 20 12 53 54 |E TIME I WAS .ST|
00003BB0: 4F 50 92 50 45 44 2E 22 00 E0 43 CA 4E 99 22 11 |OP.PED."..C.N.".|
00003BC0: 59 4F 55 20 43 41 4E 20 54 59 50 45 20 12 43 4F |YOU CAN TYPE .CO|
00003BD0: 4E 54 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |NT. TO CONTINUE"|
00003BE0: 00 00 44 D4 4E 99 22 11 57 48 45 52 45 20 49 20 |..D.N.".WHERE I |
00003BF0: 4C 45 46 54 20 4F 46 46 2E 2E 2E 4F 52 2E 2E 22 |LEFT OFF...OR.."|
00003C00: 00 2F 44 DE 4E 99 22 11 12 47 4F 54 4F 31 30 30 |./D.N."..GOTO100|
00003C10: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 41 54 |. TO CONTINUE AT|
00003C20: 20 53 54 41 54 45 4D 45 4E 54 20 31 30 30 22 00 | STATEMENT 100".|
00003C30: 5B 44 E8 4E 99 22 11 57 49 54 48 4F 55 54 20 46 |[D.N.".WITHOUT F|
00003C40: 4F 52 47 45 54 54 49 4E 47 20 27 58 27 20 41 4E |ORGETTING 'X' AN|
00003C50: 44 20 27 59 27 20 45 54 43 2E 22 00 6A 44 F2 4E |D 'Y' ETC.".jD.N|
00003C60: 99 22 B8 B8 B8 B8 B8 B8 B8 22 00 75 44 FC 4E 8D |.".......".uD.N.|
00003C70: 36 33 30 30 30 00 A1 44 06 4F 99 22 93 22 3A 4D |63000..D.O.".":M|
00003C80: 53 24 B2 22 12 41 55 20 52 45 56 4F 49 52 21 92 |S$.".AU REVOIR!.|
00003C90: 22 3A 8D 36 33 31 30 30 3A 8D 36 33 35 30 30 3A |":.63100:.63500:|
00003CA0: 80 00 AA 44 78 E6 99 22 93 22 00 D3 44 79 E6 99 |...Dx.."."..Dy..|
00003CB0: 22 13 44 55 52 49 4E 47 20 54 48 45 20 54 55 54 |".DURING THE TUT|
00003CC0: 4F 52 49 41 4C 20 59 4F 55 20 4D 41 59 20 57 49 |ORIAL YOU MAY WI|
00003CD0: 53 48 22 00 FB 44 7A E6 99 22 11 54 4F 20 52 45 |SH"..Dz..".TO RE|
00003CE0: 54 55 52 4E 20 54 4F 20 41 4E 20 45 41 52 4C 49 |TURN TO AN EARLI|
00003CF0: 45 52 20 27 50 41 47 45 27 2E 22 00 26 45 7B E6 |ER 'PAGE'.".&E{.|
00003D00: 99 22 11 4A 55 53 54 20 12 48 49 54 20 54 48 45 |.".JUST .HIT THE|
00003D10: 20 40 2D 4B 45 59 92 2C 20 41 54 20 41 4E 59 20 | @-KEY., AT ANY |
00003D20: 54 49 4D 45 2C 22 00 4C 45 7C E6 99 22 11 41 4E |TIME,".LE|..".AN|
00003D30: 44 20 54 48 45 20 54 55 54 4F 52 49 41 4C 20 57 |D THE TUTORIAL W|
00003D40: 49 4C 4C 20 42 41 43 4B 20 55 50 22 00 63 45 7D |ILL BACK UP".cE}|
00003D50: E6 99 22 11 41 20 50 41 47 45 20 4F 52 20 54 57 |..".A PAGE OR TW|
00003D60: 4F 2E 22 00 8C 45 7E E6 99 22 11 41 4C 53 4F 2C |O."..E~..".ALSO,|
00003D70: 20 59 4F 55 20 48 41 56 45 20 41 4E 20 4F 50 50 | YOU HAVE AN OPP|
00003D80: 4F 52 54 55 4E 49 54 59 20 54 4F 22 00 AF 45 7F |ORTUNITY TO"..E.|
00003D90: E6 99 22 11 43 4F 4D 50 4F 53 45 20 59 4F 55 52 |..".COMPOSE YOUR|
00003DA0: 20 4F 57 4E 20 50 52 4F 47 52 41 4D 53 2E 22 00 | OWN PROGRAMS.".|
00003DB0: D6 45 80 E6 99 22 11 57 48 45 4E 20 59 4F 55 20 |.E...".WHEN YOU |
00003DC0: 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |WISH TO CONTINUE|
00003DD0: 20 57 49 54 48 22 00 04 46 81 E6 99 22 11 54 48 | WITH"..F...".TH|
00003DE0: 45 20 54 55 54 4F 52 49 41 4C 2C 20 12 48 49 54 |E TUTORIAL, .HIT|
00003DF0: 20 54 48 45 20 40 2D 4B 45 59 92 21 22 3A 8D 36 | THE @-KEY.!":.6|
00003E00: 33 30 30 30 00 22 46 82 E6 4D 53 24 B2 22 12 40 |3000."F..MS$.".@|
00003E10: 92 5F 52 45 4D 45 4D 42 45 52 22 3A 8D 36 33 31 |._REMEMBER":.631|
00003E20: 30 30 00 2F 46 8C E6 8D 36 33 30 30 30 3A 8E 00 |00./F...63000:..|
00003E30: 47 46 60 EA 97 32 30 34 2C 31 3A 8F 20 49 4E 49 |GF`..204,1:. INI|
00003E40: 54 49 41 4C 49 5A 45 00 69 46 61 EA 42 54 24 B2 |TIALIZE.iFa.BT$.|
00003E50: 22 13 22 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 |".":.I.1.24:BT$.|
00003E60: 42 54 24 AA 22 11 22 3A 82 00 B3 46 62 EA 50 54 |BT$.".":...Fb.PT|
00003E70: 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE |$.".............|
00003E80: 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D |................|
00003E90: 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D |................|
00003EA0: 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003EB0: B2 BD 22 00 FB 46 63 EA 50 54 24 B2 50 54 24 AA |.."..Fc.PT$.PT$.|
00003EC0: 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE |"...............|
00003ED0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D |................|
00003EE0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D |.............===|
00003EF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 37 47 64 EA |=========.".7Gd.|
00003F00: 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D |PT$.PT$.".......|
00003F10: 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 |................|
00003F20: A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D |................|
00003F30: 9D 9D 9D 9D 9D 9D 22 00 6E 47 65 EA 50 54 24 B2 |......".nGe.PT$.|
00003F40: 42 54 24 AA 22 91 91 91 91 91 91 1D 1D 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 22 AA 50 54 24 AA 22 90 22 00 9E |.....".PT$."."..|
00003F70: 47 67 EA 4D 4C 24 B2 22 13 11 11 11 11 11 11 11 |Gg.ML$."........|
00003F80: 11 11 1D 1D 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 22 00 B9 |............."..|
00003FA0: 47 68 EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 |Gh.WD.40:CRT.102|
00003FB0: 34 3A 99 C7 28 31 34 32 29 00 DD 47 69 EA 57 32 |4:..(142)..Gi.W2|
00003FC0: B2 57 44 AD 32 3A 57 33 B2 57 44 AB 31 3A 57 31 |.WD.2:W3.WD.1:W1|
00003FD0: 24 B2 CA 28 C4 28 57 44 29 2C 32 29 3A 00 FF 47 |$..(.(WD),2):..G|
00003FE0: 6A EA 57 32 24 B2 CA 28 C4 28 57 32 29 2C 32 29 |j.W2$..(.(W2),2)|
00003FF0: 3A 57 33 24 B2 CA 28 C4 28 57 33 29 2C 32 29 00 |:W3$..(.(W3),2).|
00004000: 21 48 74 EA 99 22 93 22 3A 97 35 33 32 38 31 2C |!Ht..".":.53281,|
00004010: 31 35 3A 97 35 33 32 38 30 2C 31 32 3A 99 22 90 |15:.53280,12:.".|
00004020: 22 00 4F 48 46 EE 8B C2 28 37 38 39 29 B3 B1 37 |".OHF...(789)..7|
00004030: AC 31 36 AA 31 35 A7 9E 28 37 AC 34 30 39 36 AA |.16.15..(7.4096.|
00004040: 31 35 AC 32 35 36 AA 31 32 AC 31 36 AA 33 29 00 |15.256.12.16.3).|
00004050: 55 48 47 EE 8E 00 69 48 48 EE 8F 2A 4E 45 57 20 |UHG...iHH..*NEW |
00004060: 57 4F 52 4B 53 50 41 43 45 00 83 48 49 EE 4D B2 |WORKSPACE..HI.M.|
00004070: 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 35 |7.4096.15.256.15|
00004080: AC 31 36 00 89 48 4A EE 8C 00 A1 48 4B EE 81 49 |.16..HJ....HK..I|
00004090: B2 4D A4 4D AA 31 35 3A 87 4B 3A 97 49 2C 4B 3A |.M.M.15:.K:.I,K:|
000040A0: 82 00 BB 48 4C EE 83 20 31 2C 39 36 2C 33 2C 39 |...HL.. 1,96,3,9|
000040B0: 36 2C 33 2C 39 36 2C 33 2C 39 36 00 D9 48 4D EE |6,3,96,3,96..HM.|
000040C0: 83 20 31 34 34 2C 31 32 37 2C 30 2C 30 2C 31 34 |. 144,127,0,0,14|
000040D0: 34 2C 31 32 37 2C 30 2C 30 00 F6 48 4E EE 4D B2 |4,127,0,0..HN.M.|
000040E0: 36 AC 34 30 39 36 3A 81 49 B2 30 A4 32 3A 97 4D |6.4096:.I.0.2:.M|
000040F0: AA 49 2C 30 3A 82 00 FC 48 4F EE 8E 00 36 49 18 |.I,0:...HO...6I.|
00004100: F6 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00004110: 11 11 11 11 11 11 11 11 11 11 11 11 48 49 54 20 |............HIT |
00004120: 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 |.RETURN. TO CONT|
00004130: 49 4E 55 45 22 3B 00 4C 49 19 F6 A1 41 24 3A 8B |INUE";.LI...A$:.|
00004140: 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 61 49 1A |A$.."".63001.aI.|
00004150: F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 30 |..A$:.A$."".6300|
00004160: 32 00 67 49 1B F6 8E 00 7B 49 7C F6 81 54 B2 31 |2.gI....{I|..T.1|
00004170: A4 35 3A 99 50 54 24 4D 53 24 3B 00 91 49 7D F6 |.5:.PT$MS$;..I}.|
00004180: 99 50 54 24 22 20 20 20 20 20 20 20 20 20 20 22 |.PT$" "|
00004190: 3B 00 A0 49 7E F6 99 50 54 24 4D 53 24 3B 3A 82 |;..I~..PT$MS$;:.|
000041A0: 00 A8 49 7F F6 99 3A 8E 00 CD 49 E0 F6 97 35 36 |..I...:...I...56|
000041B0: 2C 39 36 3A 97 35 32 2C 39 36 3A 97 35 35 2C 30 |,96:.52,96:.55,0|
000041C0: 3A 97 35 31 2C 30 3A 8D 36 31 30 30 30 00 DF 49 |:.51,0:.61000..I|
000041D0: E1 F6 57 44 B2 34 30 3A 99 C7 28 31 34 32 29 00 |..WD.40:..(142).|
000041E0: F8 49 E2 F6 4D B2 37 AC 34 30 39 36 AA 31 35 AC |.I..M.7.4096.15.|
000041F0: 32 35 36 AA 39 AC 31 36 00 10 4A E3 F6 81 49 B2 |256.9.16..J...I.|
00004200: 4D A4 4D AA 39 31 3A 87 4B 3A 97 49 2C 4B 3A 82 |M.M.91:.K:.I,K:.|
00004210: 00 57 4A E4 F6 83 31 36 35 2C 32 30 33 2C 32 30 |.WJ...165,203,20|
00004220: 31 2C 34 36 2C 32 30 38 2C 38 33 2C 33 32 2C 31 |1,46,208,83,32,1|
00004230: 39 35 2C 31 32 37 2C 31 36 35 2C 34 34 2C 32 30 |95,127,165,44,20|
00004240: 31 2C 38 2C 32 34 30 2C 33 2C 33 32 2C 31 37 37 |1,8,240,3,32,177|
00004250: 2C 31 32 37 2C 33 32 00 9C 4A E5 F6 83 31 34 32 |,127,32..J...142|
00004260: 2C 31 36 36 2C 31 36 35 2C 34 34 2C 32 30 31 2C |,166,165,44,201,|
00004270: 38 2C 32 34 30 2C 33 2C 37 36 2C 31 32 38 2C 31 |8,240,3,76,128,1|
00004280: 36 34 2C 37 36 2C 31 37 34 2C 31 36 37 2C 31 36 |64,76,174,167,16|
00004290: 32 2C 31 36 2C 31 38 39 2C 32 33 39 00 E5 4A E6 |2,16,189,239..J.|
000042A0: F6 83 31 32 37 2C 37 32 2C 31 38 31 2C 34 32 2C |..127,72,181,42,|
000042B0: 31 35 37 2C 32 33 39 2C 31 32 37 2C 31 30 34 2C |157,239,127,104,|
000042C0: 31 34 39 2C 34 32 2C 32 30 32 2C 32 30 38 2C 32 |149,42,202,208,2|
000042D0: 34 31 2C 39 36 2C 31 32 30 2C 31 37 33 2C 32 33 |41,96,120,173,23|
000042E0: 38 2C 31 32 37 00 2A 4B E7 F6 83 37 37 2C 32 30 |8,127.*K...77,20|
000042F0: 2C 33 2C 31 34 31 2C 32 30 2C 33 2C 31 37 33 2C |,3,141,20,3,173,|
00004300: 32 33 39 2C 31 32 37 2C 37 37 2C 32 31 2C 33 2C |239,127,77,21,3,|
00004310: 31 34 31 2C 32 31 2C 33 2C 38 38 2C 39 36 2C 31 |141,21,3,88,96,1|
00004320: 37 33 2C 32 30 2C 33 2C 37 33 00 69 4B E8 F6 83 |73,20,3,73.iK...|
00004330: 31 34 34 2C 31 34 31 2C 32 33 38 2C 31 32 37 2C |144,141,238,127,|
00004340: 31 37 33 2C 32 31 2C 33 2C 37 33 2C 31 32 37 2C |173,21,3,73,127,|
00004350: 31 34 31 2C 32 33 39 2C 31 32 37 2C 39 36 2C 37 |141,239,127,96,7|
00004360: 36 2C 32 35 35 2C 32 35 35 00 87 4B F0 F6 97 4D |6,255,255..K...M|
00004370: AA 39 30 2C C2 28 37 38 38 29 3A 97 4D AA 39 31 |.90,.(788):.M.91|
00004380: 2C C2 28 37 38 39 29 00 A5 4B F4 F6 4B 45 59 B2 |,.(789)..K..KEY.|
00004390: 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 33 |7.4096.15.256.13|
000043A0: AC 31 36 AA 38 00 C3 4B F5 F6 9E 28 4B 45 59 29 |.16.8..K...(KEY)|
000043B0: 3A 8F 20 4B 45 59 20 46 4F 52 20 49 52 51 20 53 |:. KEY FOR IRQ S|
000043C0: 57 41 50 00 C9 4B 43 F7 8E 00 E7 4B 44 F7 8F 2A |WAP..KC....KD..*|
000043D0: 53 57 49 54 43 48 20 54 4F 20 4E 45 57 20 57 4F |SWITCH TO NEW WO|
000043E0: 52 4B 53 50 41 43 45 00 FF 4B 45 F7 8D 36 33 36 |RKSPACE..KE..636|
000043F0: 30 30 3A 8F 20 52 55 4E 20 4E 55 4D 42 45 52 00 |00:. RUN NUMBER.|
00004400: 1E 4C 46 F7 8D 36 31 30 30 30 3A 8F 20 4E 45 57 |.LF..61000:. NEW|
00004410: 20 54 48 45 20 57 4F 52 4B 53 50 41 43 45 00 29 | THE WORKSPACE.)|
00004420: 4C 47 F7 89 36 33 34 30 33 00 47 4C A8 F7 8F 2A |LG..63403.GL...*|
00004430: 53 57 49 54 43 48 20 54 4F 20 4F 4C 44 20 57 4F |SWITCH TO OLD WO|
00004440: 52 4B 53 50 41 43 45 00 52 4C A9 F7 8D 36 33 36 |RKSPACE.RL...636|
00004450: 30 30 00 72 4C AB F7 53 57 54 43 48 B2 37 AC 34 |00.rL..SWTCH.7.4|
00004460: 30 39 36 AA 31 35 AC 32 35 36 AA 39 AC 31 36 AA |096.15.256.9.16.|
00004470: 31 35 00 8F 4C AC F7 9E 28 53 57 54 43 48 29 3A |15..L...(SWTCH):|
00004480: 8F 20 53 57 41 50 20 50 4F 49 4E 54 45 52 53 00 |. SWAP POINTERS.|
00004490: 9C 4C AD F7 97 32 30 34 2C 32 3A 80 00 AE 4C 0C |.L...204,2:...L.|
000044A0: F8 8F 2A 52 45 53 54 4F 52 45 20 50 45 54 00 C3 |..*RESTORE PET..|
000044B0: 4C 0D F8 53 4E 24 B2 22 31 30 30 22 3A 8D 36 33 |L..SN$."100":.63|
000044C0: 36 30 30 00 F2 4C 0E F8 4D B2 37 AC 34 30 39 36 |600..L..M.7.4096|
000044D0: AA 31 35 AC 32 35 36 AA 31 32 AC 31 36 AA 33 3A |.15.256.12.16.3:|
000044E0: 8B C2 28 37 38 39 29 B2 37 AC 31 36 AA 31 35 A7 |..(789).7.16.15.|
000044F0: 9E 4D 00 F8 4C 0F F8 8E 00 10 4D 70 F8 8F 2A 49 |.M..L.....Mp..*I|
00004500: 4E 53 45 52 54 20 52 55 4E 20 4E 55 4D 42 45 52 |NSERT RUN NUMBER|
00004510: 00 2B 4D 71 F8 4D B2 32 30 35 39 3A 53 4E 24 B2 |.+Mq.M.2059:SN$.|
00004520: 22 30 30 30 30 30 22 AA 53 4E 24 00 4B 4D 72 F8 |"00000".SN$.KMr.|
00004530: 81 49 B2 31 A4 35 3A 97 4D AB 49 2C C6 28 C9 28 |.I.1.5:.M.I,.(.(|
00004540: 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:.".":.". ..C6
4 TUTOR-1...E.."........................
................"...F..". ..
C64 BASICS .. .":MS$." WELCO
ME! ".&.G.."............................
.............".C.H.SN$."1000":.63200:.63
600.\.I..60000:.63100:.59000.G....60000.
....."..HI.! LET ME TELL YOU ABOUT MYSEL
F."......"I'M A CLASSY CALCULATOR:".....
.".I CAN ADD: .2+2=4. SUBTRACT:.2-3=-1".
.....".MULTIPLY:.3*17=51. DIVIDE:.4/16=.
25".2.8..".I COMPUTE SINES AND LOGARITHM
S".X.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)".Z....".(THE ? IN FRONT MEA
NS PRINT)"......" . .
....".(.(.."..HIT .RETURN...I PRINT THE
ANSWER!".J.2.."..TRY IT.. WHEN FINISHED.
.".O.3.."..TYPE @._..................".
..4.MS$.".@_REMEMBER.":.63100...7.SN$."0
2000":.63300.O.P..".":MS$." GOOD":.600
00:.63100:.".";...4..".TO CORRECT A MIST
YPED SYMBOL "...>..".JUST PRESS THE KEY
MARKED .DEL...9.F.." ...
".].Z.."SUPPOSE YOU TYPED 2SIN(./3)."...
...".TO INSERT A * BETWEEN 2 AND SIN(./3
)"......".TO INDICATE MULTIPLY.....G....
".PRESS SHIFT AND DEL!"...`.." ....
. ... ......D.."DO THIS AFTER YOU HAVE T
HE CURSOR".%.N..".OVER THE S IN SIN.".I.
(..".THAT WAY YOU INSERT A SPACE".A.2.."
.TO TYPE IN '*'.".....".TRY IT! THEN .T
YPE @".....SN$."03000":.63300.D....6000
0:.".IF YOU WANT ME TO REMEMBER THE"...B
..".RESULT OF SOME CALCULATION.."...L.."
.THEN GIVE IT A NAME!".!.V..".TYPE:.SAM=
2*3/4+5.".B....".THEN I'LL REMEMBER SAM
.".L....".YOU CAN ASK FOR THE VALUE OF S
AM.".....".TYPE:.?SAM"......".YOU CAN A
LSO TYPE:"......".JOE=SAM^2+SIN(.*SAM/3)
".X....".?JOE "...&..".
THEN I'LL PRINT THE VALUE OF JOE.".!.0..
".TRY IT!THEN TYPE.. .@".8.:.SN$."04000
":.63300.E. ..60000:.".OK..IF YOU TELL M
E THE VALUES"......".OF A,B & C THEN TYP
E:"...H..".Y=(-B+SQR(B*B-4*A*C))/(2*A)".
K.L..".?Y "...0.
.".I'LL CALCULATE Y AND PRINT IT."......
".UNFORTUNATELY, IF YOU GIVE ME".@....".
NEW VALUES FOR A,B & C...WELL..".K....".
YOU'LL HAVE TO RETYPE THE FORMULA!".....
.".(BUT WAIT TILL WE WRITE 'PROGRAMS')."
......".WANT TO TRY THIS?".U.V..".THEN:.
TYPE @. TO CONTINUE."...[.MS$."@_.......
.":.63100...J.SN$."05000":.63300.<....60
000:.".IF YOU GIVE ME NEW VALUES FOR A,B
&C".C....".BY TYPING .A=5.3:B=-2.1:C=.0
11"......".(YOU CAN GIVE ME SEVERAL INST
R'NS"...|.."ON THE SAME LINE,SEPARATED B
Y A COLON:)"...D..".I'LL REMEMBER THESE
NEW VALUES"...N..".AND IF YOU WANT Y REC
ALCULATED"......".JUST MOVE THE CURSOR T
O THE".]....".STATEMENT DEFINING Y AND H
IT 'RETURN'."...P..".I'LL THINK YOU JUST
TYPED IT IN!"...Z..".THEN YOU CAN ASK .
?Y"......".TRY IT! THEN .TYPE @".W.O.SN$
."06000":.63300...P..60000:.".NOW ...MY
MORE IMPRESSIVE TALENT..".!.U..". .P
ROGRAMS.".6.Z.." ........".P.{.MS$."
AHEM...":.63100.[...63000......".IF YO
U GIVE EACH INSTRUCTION A 'NUMBER'".....
.".I'LL REMEMBER THE INSTRUCTION!".M....
".FOR EXAMPLE, TYPE:"......"..10 Y=(A+B)
/2"......".20 ?Y ". ....".#10 SAYS
:COMPUTE THE AVERAGE OF".J.E..".TWO NUMB
ERS A & B, AND CALL IT Y.".Q.T..".#20 SA
YS:PRINT THE VALUE OF Y."......".NOW I'L
L 'REMEMBER' THESE INSTRUCTIONS!".K...."
.CLEAR THE SCREEN,TYPE .A=1.5:B=-4".....
.".THEN .GOTO 10....I'LL OBEY!"......".T
RY IT! THEN .TYPE @".(...MS$." GOTO 10
":.63100.?...SN$."07000":.63300.N.X..600
00:.".SUPPOSE YOU WANT THE VALUE OF Y"..
.B..".PRINTED IN THE MIDDLE OF THE SCREE
N."......".TYPE:"......".15?".K...."16?S
PC("W2$");"......".#15 SAYS:PRINT NOTHIN
G..A BLANK LINE.".$....".#16 SAYS:SPACE
RIGHT "W2$" PLACES.".M....".>THE SEMI-CO
LON AFTER SPC("W2$")".R.F..".SAYS:LEAVE
THE CURSOR THERE!"...P..".YOU SEE,I NORM
ALLY RETURN THE CURSOR"...U..".TO THE LE
FT MARGIN.."...Z..".UNLESS YOU INCLUDE T
HE .;"......63000......"...TYPE STATEMEN
TS IN ANY........ ORDER.".A....".I'LL RE
MEMBER THEM IN THE ORDER".K....".OF THEI
R STATEMENT #'S! YOU TYPE:".....".10Y=(
A+B)/2"......"20?Y "......"15?
"......"16?SPC("W2$");".W....".I REM
EMBER THEM AS:"......". 10 Y=(A+B)/2"...
..." 15 PRINT"......" 16 PRINTSPC("W2$")
;".,...." 20 PRINTY".U....".TRY IT!..THE
N TYPE .@. TO GO ON.".L.\.SN$."08000":.6
3300.W.@..60000...J..". 10 Y=(A+B)/2
."...T.." 15 PRINT .THE PROGR
AM"...^.." 16 PRINTSPC("W2$"); .SO FAR"
...H.." 20 PRINTY .".%.|..".TO C
ONVINCE YOURSELF THAT I HAVE".N....".ALL
YOUR INSTRUCTIONS,IN ORDER..".K....".JU
ST TYPE:.LIST10-20"......".I'LL PRINT EV
ERY STATEMENT :10 TO 20."......".YOU CAN
EDIT STATEMENTS RIGHT"......".ON THE SC
REEN. JUST .LIST. ..THEN MOVE"...L..".TH
E CURSOR..THEN .INST/DEL. ETC.".B.V..".T
O CHECK THE CHANGES, .LIST. AGAIN..K....
".WANT TO TRY? (CONTINUE WITH .@.)".....
SN$."09000":.63300...(#.60000:MS$.".SOME
NOTES.":.63100.G.2#.".TO .CHANGE. A STA
TEMENT"...<#.".TYPE THE NO. AND THE NEW
INSTRUCTION."...F#."(I'LL FORGET THE OLD
INSTRUCTION).".?.P#.".TO .DELETE. A STA
TEMENT".I.Z#.".TYPE THE NO. THEN PRESS '
RETURN'!"....#.".WHICH REMINDS ME.."....
#."..DO NOT. TYPE IN SOME NUMBER..".R..#
."CHANGE YOUR MIND...HIT RETURN.."... #.
"..THEN REENTER THE NUMBER."....#."YOU M
AY HAVE WIPED OUT A STATEMENT!".C..#.".N
OTE,TOO,THAT YOU MAY USE ?".J..#.".I WIL
L REMEMBER IT AS .PRINT..".U.H#.63000...
I#.".ALSO..I REMEMBER ONLY THE FIRST TWO
".N.J#.".CHARACTERS IN ANY .NAME. YOU AS
SIGN."...K#.".SAM=10"...L#."SALLY=20"...
M#.".TO ME, .BOTH. HAVE THE SAME NAME!".
,.N#.".NAMELY .SA.!".X.O#.".HENCE SA=10
FOLLOWED BY SA=20 MAKES".N.P#.".SAM=SALL
Y=20."...Q#MS$."SAM=SALLY?":.63100...R#.
63000....':.H..'.". IN ADDITION TO MANIP
ULATING NUMBERS"....'.".I CAN MANIPULATE
.STRINGS. OF SYMBOLS.".&.$'.".IN THE SA
ME WAY THAT YOU ASSIGN A NAME".N..'.".TO
A NUMBER,LIKE X OR Y OR SAM,".W.8'.".YO
U CAN GIVE A NAME TO A .STRING"...B'.".O
F CHARACTERS."...L'.".SO THAT I DON'T BE
COME CONFUSED"...V'.".I MUST KNOW WHETHE
R 2*3 IS A NUMBER"...`'.".OR A STRING OF
THREE SYMBOLS.".7.J'.".HENCE, I MUST IN
SIST THAT THE NAME YOU".A.T'.".GIVE IT E
NDS WITH A $ ..IF IT'S A"...~'.".STRING
OF SYMBOLS..LIKE X$,Y$ OR SAM$."....'.63
000.C..'.". YOU CAN NOW TRY THE FOLLOWIN
G:".Q..'.".TYPE:"....'."X=2+3"....'."X$=
"G(34)"2+3"G(34).. .'."?X".. .'."?X$"./
D'.".....SEE WHAT I'LL PRINT.?".K S'."..
THEN TYPE .@. TO CONTINUE.":MS$." ????
":.63100.. X'SN$."11000":.63300.. .*.
60000.. .+."YOU GUESSED IT!".. .+."I'LL
PRINT:".C .+.:." 5".P +."2+3":... %+.63
000..!*+.". NOW WHAT DO YOU THINK X$+Y$
MEANS?"..!4+.".TRY TYPING:":..6!>+.".A$=
"G(34)"I"G(34).P!H+."B$="G(34)"YOU"G(34)
.P!R+."Y$="G(34)"AM GREAT!"G(34)..!\+."Z
$="G(34)"ARE TOO?"G(34)..!F+.".THEN ASK
ME:"..!P+.".?A$+Y$".A!Z+."?B$+Z$"..!.+."
.TRY IT! THEN TYPE .@"..!.+MS$." GREAT
? ":.63100..".+SN$."12000":.63300.F"...
60000:.".WELL..IF YOU TRIED IT YOU'LL NO
TICE"".U"...".THAT A$ STANDS FOR .EVERYT
HING. INSIDE".."...".THE QUOTES. IF YOU
WANT A SPACE".J"...".AFTER I..THEN INCLU
DE THE SPACE TOO!".Y"./." .".."./."
..A$="G(34)"I "G(34)..#./." ^"..#./.
" SEE?"..#./.63000.N#./.".OK..LET'S
WORK ALL THIS INTO A PROGRAM.".A#./."LET
'S TYPE:"..#&/.".10?"G(34)"CALCULATION O
F THE HYPOTENUSE"G(34)..#0/."20?"G(34)"E
NTER SIDE A"G(34).K#:/."30 INPUT A"..#D/
."40?"G(34)"ENTER SIDE B"G(34)..$N/."50
INPUT B"..$X/."60 C=SQR(A*A+B*B):?"G(34)
"HYP="G(34)"C".A$B/."70 GO TO 20".H$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":.633
00.F%H2.60000:.".SUPPOSE YOU WANT THE SQ
UARES"..%R2.".OF THE INTEGERS FROM 1 TO
100."..%.2.".YOU COULD TYPE:"..%.2."..10
?1*1".R%.2.".20 ?2*2. ETC.ETC."..%.3.
".OR,YOU COULD REPEAT THE INSTRUCTION:".
.&.3."..10 ?N*N.".>&.3.".AGAIN & AGAIN,F
OR N=1 THEN N=2..ETC.".M&"3.".TO DO THIS
YOU PUT THE INSTRUCTION TO "..&,3.".BE
REPEATED WITHIN A .FOR-NEXT. LOOP:".S&@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(3
4)"NEXT"G(34).5'^3.63000:.".".Q'H3MS$."
WATCH!! ":.63100.|'.6.60000:.".HOW'S TH
IS FOR A DIVERSION?"..'.6.T.1.500:.:."."
..'D6.I.1.2..'N6.J.1.WD.1:.T.1.5:...'X6.
" *.";:..W'.6.J.1.WD.1:.T.1.5:...'.6." .
.*.";:...'.6.J.1.WD:.T.1.5:...(.7."*";:.
:...(.7.63000.E(.7.".":MS$." .NICE !.
":.60000:.63100:.".";.[(F7.".LET'S TRY I
T!"..(P7.".THERE WILL BE 4 .FOR-NEXT. LO
OPS."..(Z7."..1.:"W3$" MOVEMENTS TO THE
RIGHT.".O(D7."..2.:"W3$" TO THE LEFT..".
.(N7.".(EACH OF THE ABOVE WILL PRINT A N
EW *".$)X7.".AND ERASE THE OLD *..GIVING
THE.C).7.".APPEARANCE OF MOTION).".N).7
."..3.:THEN, RIGHT AGAIN (BUT WITHOUT"..
).7.".ERASING) LEAVING THE *'S.".H).7.".
.4.:THEN.......... ALL 3 LOOPS WILL BE R
EPEATED"..).7.".2 TIMES,FOR 2 LINES!"..)
.7.63000..*.7.".......HERE WE GO!"..*.7.
I.1.500:..B*H7.".ASSUME THE CURSOR IS 'O
VER' A *.".E*R7.".TO ERASE WE TYPE 'SPAC
E'.."..*.7.".THEN *,THEN A 'CURSOR-LEFT'
"..*.7.".(LEAVING THE CURSOR AGAIN 'OVER
' .*.).".S*.8.".10?"G(34)" *."G(34)..*.8
." ^"..+.8." THIS IS .CURSOR-L
EFT.!"./+68.".REPEAT THESE INST'NS "W3$"
TIMES".H+@8.".WITH A .FOR-NEXT".[+J8.".
LIKE SO:":..T+T8.".9 FOR I=1 TO "W3$..+^
8."10?"G(34)" *."G(34)..+H8."11 NEXT";..
+R8.63000.G+S8.".9 FOR I=1 TO "W3$" .".
.,T8."10?"G(34)" *."G(34)" . WE
HAVE THIS SO FAR"..,U8."11 NEXT
.".3,.8.".NOW YOU'D TYPE:".L,.8.".19 FO
R I=1 TO"W3$.H,.8."20?"G(34)" ..*."G(34)
.W,.8."21 NEXT"..,.8.".NOTE THE SEQUENCE
OF PRINT INST'NS:"..,B8."..SPACE.-.C'SO
RLEFT.-.C'SORLEFT.-.*.-.C'SORLEFT."..-L8
.".NOW WE HAVE * MOVING TO THE RIGHT,".'
-V8.".AND........ TO THE LEFT,".4-.8.".N
OW:".J-.8.".29FORI=1TO"W1$.B-.8."30?"G(3
4)"*"G(34).P-.8."31NEXT".{-.9.63000..-.9
.".NOTE THAT YOU NEEDN'T LEAVE ALL THOSE
".N-.9.".BLANK SPACES IN THE INST'NS."..
-&9.".(ME SMART FELLOW!)"...09.".ANYWAY.
.THE LAST FOR-NEXT LOOP".5.:9.".REPEATS
ALL THE ABOVE TWICE!".I.D9." ...
".`.N9.".SO YOU'D TYPE:"...X9.".5FORJ=1T
O2 _FIRST STATEMENT"...B9."40NEXT
_LAST STATEMENT"...L9.63000...P9.".NOW
OUR PROGRAM(PROGRAMME?).LIST.S LIKE:"..
.Z9.". 5 FORJ=1TO2"../.9." 9 FORI=1TO"W3
$.1/.9." 10 PRINT"G(34)" *."G(34).A/.9."
11 NEXT".X/.:." 19 FORI=1TO"W3$.Z/.:."
20 PRINT"G(34)" ..*."G(34)../.:." 21 NEX
T"../ :." 29 FORI=1TO"W1$../*:." 30 PRIN
T"G(34)"*"G(34).O/4:." 40 NEXT"../5:." 4
0 NEXT"..0H:.".NOTE THAT WE USE "G(34)"J
"G(34).50R:.".FOR THE LOOP THAT REPEATS
FOR 2 LINES.".\0\:.".(THAT IS, THE OUTER
MOST LOOP)."..0F:.".WITHIN THIS LOOP .DO
N'T. USE .J. AGAIN!"..0U:.".(SO WE USED
.I.)"..0{:.63000.H0.:.".... 5 FORJ=1TO2"
..0.:." 9 FORI=1TO"W3$..0.:." 10 PRINT"G
(34)" *."G(34)..1.:." 11 NEXT I _.
..NOTE".61.:." 19 FORI=1TO"W3$.X1.:." 20
PRINT"G(34)" ..*."G(34).Y1.:." 21 NEXT
I _...NOTE"..1.:." 29 FORI=1TO"W1$
..1.:." 30 PRINT"G(34)"*"G(34).O1.:." 31
NEXT I _...NOTE"..1.:." 40 NEXT J
_...NOTE"..2.:.".IF YOU GET CONFU
SED WITH"..2.:.".ALL THOSE .NEXT.S...".O
2.:.".TYPE: .NEXT I. & .NEXT J".Z2.:.630
00.Q2.:."..WANT TO TRY.?"..2.:.".I'LL RE
PEAT THE INSTRUCTIONS.".D2.;.".YOU CAN E
NTER THE INST'NS BY PUTTING"..2.;.".THE
CURSOR AT THE FIRST INSTR'N"..3.;.".THEN
REPEATEDLY PRESSING 'RETURN'".A3.;.".SO
I'LL THINK .YOU. TYPED THEM IN.".L3.;.6
3000.D3B=.".";:."5FORJ=1TO2".X3L=."9FORI
=1TO"W3$..3V=."10?"G(34)" *."G(34). 3.=.
"11NEXT"..3.=."19FORI=1TO"W3$.Q3.=."20?"
G(34)" ..*."G(34)..3.=."21NEXT"..3.>."29
FORI=1TO"W1$..4.>."30?"G(34)"*"G(34)..4.
>."31NEXT".(4.>."40NEXT".U4!>.".AFTER EN
TERING STATEMENTS 5-40 TYPE:".Z4">."..RU
N. TO RUN YOUR PROGRAMME."..4&>.".(TYPE
.@. TO CONTINUE TUTOR 1).":SN$."16000":.
63300..4.>.60000:."..DOESN'T WORK DOES I
T?"..4.>.18000..5.>.".NOW SUPPOSE YOU'D
LIKE TO SPECIFY".75.>.".THE SYMBOL USED.
.INSTEAD OF *.".]5.>.".IN THE PROGRAM, R
EPLACE * IN "..5.?.".STATEMENTS #10,20&3
0 BY,SAY,S$"..5.?.".THEN INCLUDE THE STA
TEMENTS:".G5.?.".3?"G(34)"SYMBOL?"G(34).
Y5 ?."4 INPUT S$"..6*?.".NOW I'LL WAIT F
OR YOU TO ENTER THE".,64?.".SYMBOL(OR ST
RING)WHICH IS LATER".G6>?.".REFERRED TO
AS S$.".R6C?.63000.J6H?.".ANOTHER THING.
."..6R?.".YOU WILL WANT TO CLEAR THE "..
6\?.".SCREEN AT THE START OF THE PROG'M"
.O6F?.".SO START WITH:"..6P?.".1?"G(34)"
."G(34)..7Z?.".THIS SAYS: PRINT A CLR".$
7.?." ..."./7.?.63000.
\7.?.".ALSO, YOU WON'T WANT ME TO COME B
ACK".~7.?.".WITH MY "G(34)"READY"G(34)..
7.?." ....."..7.?.".SO GIVE ME S
OMETHING TO DO,LIKE:"..7.?."..50 FORI=1T
O5000:G=0:NEXT"..8.?.".THAT WAY I'LL GO
AWAY AND SET G=0"..8J?.".5000 TIMES!".:8
O?."...OR YOU COULD HAVE:".O8P?."..50 GO
TO 50".{8Q?.".THEN I'D 'LOOP' ON STATEM
ENT#50 AND". 8R?.".TO STOP ME YOU'D HIT
.STOP.."..8.?.63000.X8.?.".ANOTHER THING
,YOU MAY WANT TO CHANGE"..9.?.".YOUR MIN
D ABOUT THE NO. OF LINES".&9.@.".PRINTED
(INSTEAD OF ALWAYS 2)".F9.@.".SO CHANGE:
.FOR J=1TO 2".F9.@.".TO READ: .FOR J=
1TO L".Q9$@.63000..9.@.".OF COURSE YOU'L
L HAVE TO INPUT"G(34)"L"G(34).F98@.".SO
INSERT THE STATEMENT:"..9B@."..2 INPUT"G
(34)"LINES="G(34)";L"..:V@.".I'LL PRINT
THE PROMPTING REMARK:".&:`@.".LINES=?".R
:A@.".AND WILL WAIT FOR L TO BE TYPED IN
.".]:J@.63000..:T@.".THEN YOU MAY WANT T
O USE MY CLASSY"..:~@."."G(34)"REVERSE F
IELD"G(34)..:.@." ............."..:.@.".
..THAT'S .CTRL-9.=.RVS ON"..;.@.".SO INS
ERT THIS PRINT COMMAND"..;.@.".AT THE BE
GINNING OF EACH PRINT".@;.@.".SEQUENCE."
.K;.@.63000.\;D@.".REPLACE:".W;N@.". ?"G
(34)" *."G(34);..;X@..5)". ..BY:"..;.@.
". ?"G(34)". *."G(34)..;.@." ^".P;.@."
THAT'S A 'RVS' COMMAND!"..;.@.63000..<.@
."....I'LL PRINT LOTS OF THINGS IN"..<.A
." REVERSE FIELD".1<.A." .............
".[<.A." SO IF YOU WANT IT "G(34)"OFF"G(
34).|<.A." INSERT A PRINT COMMAND:"..<(
A.:."41?"G(34)"."G(34)..<2A." ^ THAT'
S .RVS OFF.!"..<MA.63000..<RA.".THEN..IF
YOU WANT TO SLOW THINGS DOWN"..=.A.".TR
Y .SUBROUTINES.!".5=.A.".INCLUDE A FEW '
GOSUB500' STATEMENTS".C=.A.".AND I'LL GO
TO STATEMENT 500 AND OBEY"..=.A.".THE I
NSTRUCTIONS THERE."..=.B.".SO, PUT INSTR
UCTIONS AT 500:".C=.B."..500 FORT=1 TO10
00"..=.B.".510 NEXT "..="B.".520
RETURN ".%>,B.".AFTER DOING 'NOTH
ING' 1000 TIMES I'LL".T>6B.".'RETURN' TO
CONTINUE THE MAIN PROGRAM.".F>@B.63000:
.19000..>PF.".OF COURSE WE FORGOT TO INC
LUDE ALL"..>ZF.".THOSE SEMI-COLONS!!!".I
>DF." ........... "..>NF.".SO END
EACH PRINT STATEMENT"..?XF."...NAMELY #1
0,#20 & #30..."..?.F.".WITH A SEMI-COLON
! ;".`?.F.".BUT FIRST, LET'S FORGE AHE
AD!":.63000:.".".T?.FMS$."GO!GO!GO!".?.
F.63100..?.F...?8J.".";:."1?"G(34)"."G(3
4).F?BJ."2INPUT"G(34)"LINES="G(34)";L"..
?LJ."3?"G(34)"SYMBOL?"G(34)..?VJ."4INPUT
S$"..@BM."5FORJ=1TOL".$@LM."9FORI=1TO"W3
$":GOSUB500".Q@VM."10?"G(34)". "G(34)"S$
"G(34)"."G(34)";"._@.M."11NEXT".@.M."19
FORI=1TO"W3$":GOSUB500"..@.M."20?"G(34)"
. .."G(34)"S$"G(34)"."G(34)";"..@.M."21N
EXT"..@.M."29FORI=1TO"W1$":GOSUB500"..@.
M."30?"G(34)"."G(34)"S$;"..A.M."31NEXT".
A.M."40NEXT":."50GOTO1".@A.M."500FORT=1
TO5:NEXT:RETURN".FAFM.".TYPE IT IN & .RU
N. TO RUN IT."..AZM.".THEN .TYPE @. TO C
ONTINUE":SN$."20000":.63300.EA N.60000:.
".A FINAL WORD (..OR TWO..):"..A*N.".SOM
ETIMES YOU RUN A PROGRAM WITH:"..A4N."..
RUN 10"..B>N.".SOMETIMES WITH:".'BHN."..
GOTO10".FBRN.".WHAT'S THE DIFFERENCE?".Q
B\N.".WELL..IF YOU TYPE .RUN... I FORGET
"..BFN.".THE VALUES OF 'X' AND 'Y' AND '
SAM'".BBPN.".AND WILL START FROM SCRATCH
."..BZN."..GOTO... AND I'LL REMEMBER THE
M!"..B.N.63000..C.N.".THIS IS HANDY:".9C
.N."..STOP. A PROGRAM WHILE IT'S RUNNING
".KC.N.".AND TYPE:".^C.N.".?X:?Y:?SAM"..
C.N.".AND I'LL PRINT THE VALUES OF THESE
"..C.N.".VARIABLES AT THE TIME I WAS .ST
OP.PED."..CJN.".YOU CAN TYPE .CONT. TO C
ONTINUE"..DTN.".WHERE I LEFT OFF...OR.."
./D.N."..GOTO100. TO CONTINUE AT STATEME
NT 100".[D.N.".WITHOUT FORGETTING 'X' AN
D 'Y' ETC.".JD.N.".......".UD.N.63000..D
.O.".":MS$.".AU REVOIR!.":.63100:.63500:
...DX..".".SDY..".DURING THE TUTORIAL YO
U MAY WISH"..DZ..".TO RETURN TO AN EARLI
ER 'PAGE'.".&E{..".JUST .HIT THE @-KEY.,
AT ANY TIME,".LE|..".AND THE TUTORIAL W
ILL BACK UP".CE}..".A PAGE OR TWO."..E~.
.".ALSO, YOU HAVE AN OPPORTUNITY TO"..E
..".COMPOSE YOUR OWN PROGRAMS.".VE...".W
HEN YOU WISH TO CONTINUE WITH"..F...".TH
E TUTORIAL, .HIT THE @-KEY.!":.63000."F.
.MS$.".@._REMEMBER":.63100./F...63000:..
GF`..204,1:. INITIALIZE.IFA.BT$.".":.I.1
.24:BT$.BT$.".":...FB.PT$.".............
........................................
.........."..FC.PT$.PT$."..............N
............M................===========
=.".7GD.PT$.PT$."...............PO......
....PO................".NGE.PT$.BT$."...
.............................".PT$."."..
GG.ML$."................................
....."..GH.WD.40:CRT.1024:.G(142)..GI.W2
.WD.2:W3.WD.1:W1$.J(D(WD),2):..GJ.W2$.J(
D(W2),2):W3$.J(D(W3),2).!HT..".":.53281,
15:.53280,12:.".".OHF..B(789)..7.16.15..
(7.4096.15.256.12.16.3).UHG...IHH..*NEW
WORKSPACE..HI.M.7.4096.15.256.15.16..HJ.
...HK..I.M.M.15:.K:.I,K:...HL.. 1,96,3,9
6,3,96,3,96.YHM.. 144,127,0,0,144,127,0,
0..HN.M.6.4096:.I.0.2:.M.I,0:...HO...6I.
..".........................HIT .RETURN.
TO CONTINUE";.LI...A$:.A$.."".63001.AI.
..A$:.A$."".63002.GI....{I|..T.1.5:.PT$M
S$;..I}..PT$" ";. I~..PT$MS$;:.
..I..:..MI...56,96:.52,96:.55,0:.51,0:.
61000..I..WD.40:.G(142)..I..M.7.4096.15.
256.9.16..J...I.M.M.91:.K:.I,K:..WJ...16
5,203,201,46,208,83,32,195,127,165,44,20
1,8,240,3,32,177,127,32..J...142,166,165
,44,201,8,240,3,76,128,164,76,174,167,16
2,16,189,239..J...127,72,181,42,157,239,
127,104,149,42,202,208,241,96,120,173,23
8,127.*K...77,20,3,141,20,3,173,239,127,
77,21,3,141,21,3,88,96,173,20,3,73.IK...
144,141,238,127,173,21,3,73,127,141,239,
127,96,76,255,255..K...M.90,B(788):.M.91
,B(789)..K..KEY.7.4096.15.256.13.16.8.CK
...(KEY):. KEY FOR IRQ SWAP.IKC....KD..*
SWITCH TO NEW WORKSPACE..KE..63600:. RUN
NUMBER..LF..61000:. NEW THE WORKSPACE.)
LG..63403.GL...*SWITCH TO OLD WORKSPACE.
RL...63600.RL..SWTCH.7.4096.15.256.9.16.
15..L...(SWTCH):. SWAP POINTERS..L...204
,2:...L...*RESTORE PET.CL..SN$."100":.63
600..L..M.7.4096.15.256.12.16.3:.B(789).
7.16.15..M..L.....MP..*INSERT RUN NUMBER
.+MQ.M.2059:SN$."00000".SN$.KMR..I.1.5:.
M.I,F(I(SN$,I)):.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL