PONZO TUTOR-3.C
FILE INFORMATION
FILENAME(S): PONZO TUTOR-3.C
FILE TYPE(S): PRG
FILE SIZE: 18.3K
FIRST SEEN: 2025-10-19 22:48:26
APPEARS ON: 1 disk(s)
FILE HASH
b6c31602d9699c0e951e64f57c5fc73e4cc323c5b4883004ab3f293ffc3684de
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 83 C | PONZO TUTOR-3.C | PRG | Radd Maxx | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 8A 30 30 31 30 30 00 19 08 01 |.......00100....|
00000010: 00 8F 22 14 14 14 14 14 14 00 3B 08 02 00 8F 22 |..".......;...."|
00000020: 14 14 14 14 14 14 14 20 50 4F 4E 5A 30 2A 31 39 |....... PONZ0*19|
00000030: 38 33 2A 57 41 54 45 52 4C 4F 4F 00 48 08 03 00 |83*WATERLOO.H...|
00000040: 8F 22 14 14 14 14 14 14 00 84 08 64 00 97 35 33 |.".........d..53|
00000050: 32 38 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 32 |281,15:.53280,12|
00000060: 3A 99 22 90 22 3A 99 22 93 20 20 20 20 20 20 20 |:.".":.". |
00000070: 20 20 20 20 20 20 20 12 1F 43 36 34 20 54 55 54 | ..C64 TUT|
00000080: 4F 52 2D 33 00 B4 08 65 00 99 22 1C B0 C0 C0 C0 |OR-3...e..".....|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000B0: C0 C0 AE 22 00 F8 08 66 00 99 22 DD 20 12 1F 20 |..."...f..". .. |
000000C0: 20 20 20 20 20 20 20 20 20 4D 4F 52 45 20 4F 4E | MORE ON|
000000D0: 20 54 48 45 20 43 36 34 20 20 20 20 20 20 20 20 | THE C64 |
000000E0: 20 20 1C 92 20 DD 22 3A 4D 53 24 B2 22 20 57 45 | .. .":MS$." WE|
000000F0: 4C 43 4F 4D 45 21 20 22 00 29 09 67 00 99 22 1C |LCOME! ".).g..".|
00000100: AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000120: C0 C0 C0 C0 C0 C0 BD 90 22 00 46 09 68 00 53 4E |........".F.h.SN|
00000130: 24 B2 22 31 30 30 30 22 3A 8D 36 33 32 30 30 3A |$."1000":.63200:|
00000140: 8D 36 33 36 30 30 00 58 09 69 00 8D 36 30 30 30 |.63600.X.i..6000|
00000150: 30 3A 8D 35 39 30 30 30 00 63 09 E8 03 8D 36 30 |0:.59000.c....60|
00000160: 30 30 30 00 A0 09 F2 03 99 22 93 D1 49 20 53 54 |000......"..I ST|
00000170: 4F 52 45 20 49 4E 46 4F 20 49 4E 20 38 20 28 42 |ORE INFO IN 8 (B|
00000180: 49 4E 41 52 59 29 20 42 49 54 20 22 C7 28 33 34 |INARY) BIT ".(34|
00000190: 29 22 42 59 54 45 53 22 C7 28 33 34 29 22 2E 22 |)"BYTES".(34)"."|
000001A0: 00 CC 09 FC 03 99 22 D1 53 49 4E 43 45 20 32 5E |......".SINCE 2^|
000001B0: 38 3D 32 35 36 2C 20 45 41 43 48 20 42 59 54 45 |8=256, EACH BYTE|
000001C0: 20 43 41 4E 20 48 4F 4C 44 20 41 22 00 F4 09 06 | CAN HOLD A"....|
000001D0: 04 99 22 20 4E 55 4D 42 45 52 20 46 52 4F 4D 20 |.." NUMBER FROM |
000001E0: 30 20 54 4F 20 32 35 35 20 49 4E 43 4C 55 53 49 |0 TO 255 INCLUSI|
000001F0: 56 45 2E 22 00 1A 0A 10 04 99 22 D1 54 57 4F 20 |VE."......".TWO |
00000200: 42 59 54 45 53 20 41 52 45 20 55 53 45 44 20 54 |BYTES ARE USED T|
00000210: 4F 20 41 44 44 52 45 53 53 22 00 48 0A 1A 04 99 |O ADDRESS".H....|
00000220: 22 20 32 5E 31 36 20 4D 45 4D 4F 52 59 20 4C 4F |" 2^16 MEMORY LO|
00000230: 43 41 54 49 4F 4E 53 3A 30 2C 31 2C 32 2C 2E 2E |CATIONS:0,1,2,..|
00000240: 2E 2C 36 35 35 33 35 22 00 7A 0A 24 04 99 22 D1 |.,65535".z.$..".|
00000250: 59 4F 55 20 43 41 4E 20 46 49 4E 44 20 57 48 41 |YOU CAN FIND WHA|
00000260: 54 27 53 20 49 4E 20 45 41 43 48 20 42 59 20 12 |T'S IN EACH BY .|
00000270: 50 45 45 4B 92 49 4E 47 3A 22 00 A8 0A 2E 04 99 |PEEK.ING:"......|
00000280: 22 11 12 46 4F 52 20 49 3D 31 30 30 20 54 4F 20 |"..FOR I=100 TO |
00000290: 32 30 30 3A 50 52 49 4E 54 20 50 45 45 4B 28 49 |200:PRINT PEEK(I|
000002A0: 29 3B 3A 4E 45 58 54 22 00 CE 0A 38 04 99 22 11 |);:NEXT"...8..".|
000002B0: D1 54 48 49 53 20 4D 41 59 20 42 45 20 45 4E 54 |.THIS MAY BE ENT|
000002C0: 45 52 45 44 20 44 49 52 45 43 54 4C 59 22 00 F2 |ERED DIRECTLY"..|
000002D0: 0A 42 04 99 22 20 41 4E 44 20 57 49 4C 4C 20 50 |.B.." AND WILL P|
000002E0: 52 49 4E 54 20 54 48 45 20 43 4F 4E 54 45 4E 54 |RINT THE CONTENT|
000002F0: 53 22 00 13 0B 4C 04 99 22 20 4F 46 20 4C 4F 43 |S"...L.." OF LOC|
00000300: 41 54 49 4F 4E 53 20 31 30 30 20 54 4F 20 32 30 |ATIONS 100 TO 20|
00000310: 30 2E 22 00 43 0B 56 04 99 22 D1 53 4F 4D 45 20 |0.".C.V..".SOME |
00000320: 4F 46 20 12 4D 92 45 4D 4F 52 59 20 49 53 20 12 |OF .M.EMORY IS .|
00000330: 52 92 45 41 44 20 12 4F 92 4E 4C 59 28 52 4F 4D |R.EAD .O.NLY(ROM|
00000340: 29 2E 22 00 6B 0B 60 04 99 22 D1 53 4F 4D 45 20 |).".k.`..".SOME |
00000350: 49 53 20 12 52 92 41 4E 44 4F 4D 20 12 41 92 43 |IS .R.ANDOM .A.C|
00000360: 43 45 53 53 28 52 41 4D 29 2E 22 00 98 0B 6A 04 |CESS(RAM)."...j.|
00000370: 99 22 D1 59 4F 55 20 43 41 4E 20 57 52 49 54 45 |.".YOU CAN WRITE|
00000380: 20 49 4E 54 4F 20 52 41 4D 20 42 59 20 12 50 4F | INTO RAM BY .PO|
00000390: 4B 45 92 49 4E 47 2E 22 00 AE 0B 74 04 99 22 11 |KE.ING."...t..".|
000003A0: 20 20 12 50 4F 4B 45 31 31 30 30 2C 31 22 00 DE | .POKE1100,1"..|
000003B0: 0B 79 04 99 22 11 D1 54 48 49 53 20 57 49 4C 4C |.y.."..THIS WILL|
000003C0: 20 50 55 54 20 54 48 45 20 4E 4F 2E 20 31 20 49 | PUT THE NO. 1 I|
000003D0: 4E 20 4C 4F 43 27 4E 20 31 31 30 30 2E 22 00 E9 |N LOC'N 1100."..|
000003E0: 0B 7A 04 8D 36 33 30 30 30 00 08 0C 88 04 99 22 |.z..63000......"|
000003F0: 93 12 4E 4F 54 45 92 3A 20 46 4F 52 20 12 50 4F |..NOTE.: FOR .PO|
00000400: 4B 45 20 4D 2C 4E 20 22 00 3B 0C 92 04 99 3A 99 |KE M,N ".;....:.|
00000410: 22 D1 12 4D 92 20 4D 55 53 54 20 42 45 20 49 4E |"..M. MUST BE IN|
00000420: 20 5B 30 2C 36 35 35 33 35 5D 2C 12 4E 92 20 49 | [0,65535],.N. I|
00000430: 4E 20 5B 30 2C 32 35 35 5D 2E 22 00 67 0C 9C 04 |N [0,255].".g...|
00000440: 99 22 D1 49 20 55 53 45 20 30 20 54 48 52 55 27 |.".I USE 0 THRU'|
00000450: 20 31 30 32 33 20 4D 59 53 45 4C 46 2E 2E 59 4F | 1023 MYSELF..YO|
00000460: 55 20 55 53 45 20 22 00 94 0C A6 04 99 22 20 32 |U USE "......" 2|
00000470: 30 34 38 20 54 4F 20 34 30 39 35 39 20 46 4F 52 |048 TO 40959 FOR|
00000480: 20 12 42 41 53 49 43 92 20 50 52 4F 47 52 41 4D | .BASIC. PROGRAM|
00000490: 53 2E 2E 22 00 B1 0C AB 04 99 22 D1 49 20 55 53 |S.."......".I US|
000004A0: 45 20 31 30 32 34 20 54 48 52 55 27 20 32 30 34 |E 1024 THRU' 204|
000004B0: 37 00 E0 0C B0 04 99 22 20 54 4F 20 53 54 4F 52 |7......" TO STOR|
000004C0: 45 20 54 48 45 20 31 30 30 30 20 43 48 41 52 41 |E THE 1000 CHARA|
000004D0: 43 54 45 52 53 20 41 50 50 45 41 52 49 4E 47 22 |CTERS APPEARING"|
000004E0: 00 FE 0C BA 04 99 22 20 4F 4E 20 54 48 45 20 53 |......" ON THE S|
000004F0: 43 52 45 45 4E 2C 45 54 43 2E 45 54 43 22 00 24 |CREEN,ETC.ETC".$|
00000500: 0D BB 04 99 22 28 4E 4F 54 45 3A 38 30 20 43 4F |...."(NOTE:80 CO|
00000510: 4C 55 4D 4E 20 50 45 54 53 20 48 41 56 45 20 32 |LUMN PETS HAVE 2|
00000520: 30 30 30 29 00 3C 0D C4 04 99 22 11 12 53 43 52 |000).<...."..SCR|
00000530: 45 45 4E 20 4D 45 4D 4F 52 59 92 22 00 65 0D CE |EEN MEMORY.".e..|
00000540: 04 99 22 D1 54 48 45 53 45 20 31 30 30 30 20 4C |..".THESE 1000 L|
00000550: 4F 43 27 4E 53 20 53 54 41 52 54 20 41 54 20 24 |OC'NS START AT $|
00000560: 30 34 30 30 22 00 93 0D D8 04 99 22 20 30 34 30 |0400"......" 040|
00000570: 30 28 48 45 58 41 44 45 43 49 4D 41 4C 29 3D 34 |0(HEXADECIMAL)=4|
00000580: 2A 32 35 36 3D 31 30 32 34 28 44 45 43 49 4D 41 |*256=1024(DECIMA|
00000590: 4C 29 22 00 B1 0D DD 04 99 22 D1 59 4F 55 20 43 |L)"......".YOU C|
000005A0: 41 4E 20 43 48 41 4E 47 45 20 57 48 41 54 27 53 |AN CHANGE WHAT'S|
000005B0: 22 00 E0 0D E2 04 99 22 20 4F 4E 20 54 48 45 20 |"......" ON THE |
000005C0: 53 43 52 45 45 4E 20 57 49 54 48 20 41 20 12 50 |SCREEN WITH A .P|
000005D0: 52 49 4E 54 92 20 53 54 41 54 45 4D 45 4E 54 22 |RINT. STATEMENT"|
000005E0: 00 FF 0D EC 04 99 22 20 12 50 52 49 4E 54 20 22 |......" .PRINT "|
000005F0: C7 28 33 34 29 22 41 42 43 22 C7 28 33 34 29 00 |.(34)"ABC".(34).|
00000600: 26 0E F6 04 99 22 20 4F 52 20 42 59 20 27 50 4F |&...." OR BY 'PO|
00000610: 4B 45 49 4E 47 27 20 53 43 52 45 45 4E 20 4D 45 |KEING' SCREEN ME|
00000620: 4D 4F 52 59 3A 22 00 3A 0E 00 05 99 22 20 12 50 |MORY:".:...." .P|
00000630: 4F 4B 45 31 31 30 30 2C 31 22 00 69 0E 0A 05 99 |OKE1100,1".i....|
00000640: 22 D1 54 48 49 53 20 50 55 54 53 20 12 31 92 20 |".THIS PUTS .1. |
00000650: 49 4E 54 4F 20 53 43 52 45 45 4E 20 4D 45 4D 4F |INTO SCREEN MEMO|
00000660: 52 59 20 4C 4F 43 27 4E 22 00 9F 0E 14 05 99 22 |RY LOC'N"......"|
00000670: 20 31 31 30 30 2C 20 41 4E 44 20 12 31 92 20 43 | 1100, AND .1. C|
00000680: 4F 52 52 45 53 50 4F 4E 44 53 20 54 4F 20 41 4E |ORRESPONDS TO AN|
00000690: 20 22 C7 28 33 34 29 22 41 22 C7 28 33 34 29 00 | ".(34)"A".(34).|
000006A0: CE 0E 1E 05 99 22 20 53 4F 20 49 27 4C 4C 20 50 |....." SO I'LL P|
000006B0: 52 49 4E 54 20 54 48 45 20 4C 45 54 54 45 52 20 |RINT THE LETTER |
000006C0: 22 C7 28 33 34 29 22 41 22 C7 28 33 34 29 00 D9 |".(34)"A".(34)..|
000006D0: 0E 24 05 8D 36 33 30 30 30 00 08 0F 28 05 99 22 |.$..63000...(.."|
000006E0: 93 54 4F 20 53 45 45 20 57 48 41 54 20 4E 4F 2E |.TO SEE WHAT NO.|
000006F0: 20 49 4E 20 5B 30 2C 32 35 35 5D 20 43 4F 52 52 | IN [0,255] CORR|
00000700: 45 53 50 4F 4E 44 53 22 00 32 0F 32 05 99 22 54 |ESPONDS".2.2.."T|
00000710: 4F 20 57 48 49 43 48 20 53 59 4D 42 4F 4C 2C 20 |O WHICH SYMBOL, |
00000720: 59 4F 55 20 43 41 4E 20 54 52 59 20 54 48 49 53 |YOU CAN TRY THIS|
00000730: 3A 22 00 4D 0F 3C 05 99 22 11 12 31 30 20 46 4F |:".M.<.."..10 FO|
00000740: 52 20 49 3D 30 20 54 4F 20 32 35 35 22 00 67 0F |R I=0 TO 255".g.|
00000750: 46 05 99 22 12 32 30 20 50 4F 4B 45 31 30 32 34 |F..".20 POKE1024|
00000760: 2B 49 2C 49 20 20 22 00 81 0F 50 05 99 22 12 33 |+I,I "...P..".3|
00000770: 30 20 4E 45 58 54 20 20 20 20 20 20 20 20 20 20 |0 NEXT |
00000780: 22 00 A4 0F 5A 05 99 22 11 11 11 11 11 2E 2E 41 |"...Z..".......A|
00000790: 4E 44 20 54 52 59 20 12 50 4F 4B 45 31 31 30 30 |ND TRY .POKE1100|
000007A0: 2C 4E 92 22 00 D8 0F 5B 05 99 22 11 57 49 54 48 |,N."...[..".WITH|
000007B0: 20 27 4E 27 3D 30 2C 31 2C 32 2C 2E 2E 2E 4F 52 | 'N'=0,1,2,...OR|
000007C0: 20 32 35 35 2E 22 3A 4D 53 24 B2 22 20 20 12 54 | 255.":MS$." .T|
000007D0: 52 59 20 49 54 21 92 22 00 03 10 64 05 99 22 11 |RY IT!."...d..".|
000007E0: 11 54 48 45 4E 20 12 54 59 50 45 20 40 92 20 54 |.THEN .TYPE @. T|
000007F0: 4F 20 43 4F 4E 54 49 4E 55 45 21 22 3A 8D 36 33 |O CONTINUE!":.63|
00000800: 31 30 30 00 15 10 69 05 8D 36 33 30 30 30 3A 99 |100...i..63000:.|
00000810: 22 13 11 11 22 00 2C 10 6E 05 53 4E 24 B2 22 30 |"...".,.n.SN$."0|
00000820: 32 30 30 30 22 3A 89 36 33 33 30 30 00 5E 10 D0 |2000":.63300.^..|
00000830: 07 8D 36 30 30 30 30 3A 99 22 93 A6 A6 A6 A6 A6 |..60000:."......|
00000840: A6 12 53 4F 4D 45 20 53 50 45 43 49 41 4C 20 4C |..SOME SPECIAL L|
00000850: 4F 43 41 54 49 4F 4E 53 92 A6 A6 A6 A6 22 00 8B |OCATIONS....."..|
00000860: 10 DA 07 99 3A 99 22 D1 49 4E 20 31 39 37 20 49 |....:.".IN 197 I|
00000870: 20 4B 45 45 50 20 54 52 41 43 4B 20 4F 46 20 57 | KEEP TRACK OF W|
00000880: 48 41 54 20 4B 45 59 20 49 53 22 00 BC 10 E4 07 |HAT KEY IS".....|
00000890: 99 22 11 20 44 45 50 52 45 53 53 45 44 2E 20 54 |.". DEPRESSED. T|
000008A0: 4F 20 53 45 45 20 54 48 45 20 12 4B 45 59 92 20 |O SEE THE .KEY. |
000008B0: 56 53 2E 20 12 4E 55 4D 42 45 52 22 00 DA 10 EE |VS. .NUMBER"....|
000008C0: 07 99 22 11 20 43 4F 52 52 45 53 50 4F 4E 44 45 |..". CORRESPONDE|
000008D0: 4E 43 45 2C 20 54 52 59 3A 22 00 F8 10 F8 07 99 |NCE, TRY:"......|
000008E0: 22 11 11 12 35 30 20 50 52 49 4E 54 20 50 45 45 |"...50 PRINT PEE|
000008F0: 4B 28 31 39 37 29 3B 22 00 14 11 02 08 99 22 12 |K(197);"......".|
00000900: 36 30 20 47 4F 20 54 4F 20 35 30 20 20 20 20 20 |60 GO TO 50 |
00000910: 20 20 20 22 00 39 11 0C 08 99 22 11 11 54 48 45 | ".9...."..THE|
00000920: 4E 20 52 55 4E 20 41 4E 44 20 42 41 4E 47 20 4F |N RUN AND BANG O|
00000930: 4E 20 41 20 4B 45 59 21 22 00 5D 11 11 08 99 22 |N A KEY!".]...."|
00000940: 11 11 54 48 45 4E 20 54 59 50 45 20 12 40 92 20 |..THEN TYPE .@. |
00000950: 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 74 11 |TO CONTINUE.".t.|
00000960: 16 08 53 4E 24 B2 22 30 33 30 30 30 22 3A 89 36 |..SN$."03000":.6|
00000970: 33 33 30 30 00 7F 11 B8 0B 8D 36 30 30 30 30 00 |3300......60000.|
00000980: A1 11 C2 0B 99 22 93 11 50 52 49 4E 54 43 48 52 |....."..PRINTCHR|
00000990: 24 28 31 34 29 20 57 49 4C 4C 20 43 41 55 53 45 |$(14) WILL CAUSE|
000009A0: 22 00 D2 11 E0 0B 99 22 4D 45 20 54 4F 20 53 57 |"......"ME TO SW|
000009B0: 49 54 43 48 20 54 4F 20 22 C7 28 33 34 29 22 4C |ITCH TO ".(34)"L|
000009C0: 4F 57 45 52 22 C7 28 33 34 29 22 20 43 41 53 45 |OWER".(34)" CASE|
000009D0: 2E 22 00 F4 11 EA 0B 99 22 11 59 4F 55 20 4D 49 |."......".YOU MI|
000009E0: 47 48 54 20 4C 49 4B 45 20 54 4F 20 54 52 59 20 |GHT LIKE TO TRY |
000009F0: 49 54 21 22 00 18 12 F4 0B 99 22 11 49 4E 20 50 |IT!"......".IN P|
00000A00: 41 52 54 49 43 55 4C 41 52 2C 20 54 52 59 20 52 |ARTICULAR, TRY R|
00000A10: 55 4E 4E 49 4E 47 3A 22 00 35 12 FE 0B 99 22 11 |UNNING:".5....".|
00000A20: 12 31 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 32 |.10 FOR I=0 TO 2|
00000A30: 35 35 20 20 22 00 51 12 FF 0B 99 22 12 32 30 20 |55 ".Q....".20 |
00000A40: 50 4F 4B 45 31 30 32 34 2B 49 2C 49 20 20 20 20 |POKE1024+I,I |
00000A50: 22 00 6D 12 00 0C 99 22 12 33 30 20 50 52 49 4E |".m....".30 PRIN|
00000A60: 54 43 48 52 24 28 31 34 2B 4B 29 3B 22 00 89 12 |TCHR$(14+K);"...|
00000A70: 01 0C 99 22 12 34 30 20 4B 3D 31 32 38 2D 4B 3A |...".40 K=128-K:|
00000A80: 4E 45 58 54 20 20 20 20 22 00 A7 12 08 0C 4D 53 |NEXT ".....MS|
00000A90: 24 B2 22 12 44 4F 20 41 20 43 48 52 24 92 21 22 |$.".DO A CHR$.!"|
00000AA0: 3A 8D 36 33 31 30 30 00 DE 12 0D 0C 99 22 13 11 |:.63100......"..|
00000AB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000AC0: 11 2E 2E 2E 54 48 45 4E 20 54 59 50 45 20 12 40 |....THEN TYPE .@|
00000AD0: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 F5 |. TO CONTINUE"..|
00000AE0: 12 12 0C 53 4E 24 B2 22 30 34 30 30 30 22 3A 89 |...SN$."04000":.|
00000AF0: 36 33 33 30 30 00 0A 13 A0 0F 97 35 39 34 36 38 |63300......59468|
00000B00: 2C 31 32 3A 8D 36 30 30 30 30 00 20 13 B4 0F 99 |,12:.60000. ....|
00000B10: 22 12 50 52 49 4E 54 43 48 52 24 28 31 34 32 29 |".PRINTCHR$(142)|
00000B20: 00 47 13 BE 0F 99 22 57 49 4C 4C 20 50 55 54 20 |.G...."WILL PUT |
00000B30: 4D 45 20 42 41 43 4B 20 54 4F 20 55 50 50 45 52 |ME BACK TO UPPER|
00000B40: 20 43 41 53 45 2E 22 00 70 13 C8 0F 99 22 D1 49 | CASE.".p....".I|
00000B50: 4E 20 31 36 30 2C 31 36 31 20 26 20 31 36 32 20 |N 160,161 & 162 |
00000B60: 49 20 4B 45 45 50 20 54 48 45 20 54 49 4D 45 22 |I KEEP THE TIME"|
00000B70: 00 9B 13 D2 0F 99 22 20 2E 2E 2E 46 52 4F 4D 20 |......" ...FROM |
00000B80: 54 48 45 20 4D 4F 4D 45 4E 54 20 59 4F 55 20 54 |THE MOMENT YOU T|
00000B90: 55 52 4E 20 4D 45 20 4F 4E 2E 22 00 B9 13 DC 0F |URN ME ON.".....|
00000BA0: 99 22 11 D1 49 27 56 45 20 47 4F 54 20 41 20 42 |."..I'VE GOT A B|
00000BB0: 55 49 4C 54 2D 49 4E 20 22 00 DB 13 E6 0F 99 22 |UILT-IN "......"|
00000BC0: 20 43 52 59 53 54 41 4C 2D 43 4F 4E 54 52 4F 4C | CRYSTAL-CONTROL|
00000BD0: 4C 45 44 20 43 4C 4F 43 4B 2E 22 00 05 14 F0 0F |LED CLOCK.".....|
00000BE0: 99 22 20 49 20 4B 45 45 50 20 54 48 45 20 4E 55 |." I KEEP THE NU|
00000BF0: 4D 42 45 52 20 4F 46 20 12 4A 49 46 46 49 45 53 |MBER OF .JIFFIES|
00000C00: 92 20 49 4E 22 00 27 14 FA 0F 99 22 20 4D 45 4D |. IN".'...." MEM|
00000C10: 4F 52 59 20 4C 4F 43 27 4E 53 20 31 36 30 2C 31 |ORY LOC'NS 160,1|
00000C20: 36 31 2C 31 36 32 22 00 4A 14 04 10 99 22 20 41 |61,162".J...." A|
00000C30: 20 12 4A 49 46 46 49 45 92 20 49 53 20 31 2F 36 | .JIFFIE. IS 1/6|
00000C40: 30 20 53 45 43 4F 4E 44 2E 22 00 78 14 0E 10 99 |0 SECOND.".x....|
00000C50: 22 11 D1 59 4F 55 20 43 4F 55 4C 44 20 57 52 49 |"..YOU COULD WRI|
00000C60: 54 45 20 41 20 50 52 4F 47 52 41 4D 20 54 4F 20 |TE A PROGRAM TO |
00000C70: 43 4F 4E 56 45 52 54 22 00 A0 14 18 10 99 22 20 |CONVERT"......" |
00000C80: 54 48 49 53 20 54 4F 20 48 4F 55 52 53 3A 4D 49 |THIS TO HOURS:MI|
00000C90: 4E 55 54 45 53 3A 53 45 43 4F 4E 44 53 2E 2E 22 |NUTES:SECONDS.."|
00000CA0: 00 CE 14 22 10 99 22 20 4F 52 20 59 4F 55 20 43 |...".." OR YOU C|
00000CB0: 4F 55 4C 44 20 55 53 45 20 4D 59 20 42 55 49 4C |OULD USE MY BUIL|
00000CC0: 54 2D 49 4E 20 52 4F 55 54 49 4E 45 21 22 00 E4 |T-IN ROUTINE!"..|
00000CD0: 14 2C 10 99 22 12 31 30 30 20 50 52 49 4E 54 20 |.,..".100 PRINT |
00000CE0: 54 49 24 22 00 1C 15 36 10 99 22 11 20 48 45 52 |TI$"...6..". HER|
00000CF0: 45 2E 54 49 24 20 57 49 4C 4C 20 47 49 56 45 20 |E.TI$ WILL GIVE |
00000D00: 48 48 4D 4D 53 53 20 4C 49 4B 45 20 53 4F 3A 22 |HHMMSS LIKE SO:"|
00000D10: 3A 99 22 11 12 30 31 35 32 30 39 22 00 51 15 3B |:."..015209".Q.;|
00000D20: 10 99 22 11 12 30 31 92 3D 48 4F 55 52 53 20 12 |.."..01.=HOURS .|
00000D30: 35 32 92 3D 4D 49 4E 55 54 45 53 20 12 30 39 92 |52.=MINUTES .09.|
00000D40: 3D 53 45 43 4F 4E 44 53 2E 22 3A 8D 36 33 30 30 |=SECONDS.":.6300|
00000D50: 30 00 87 15 40 10 99 22 93 11 11 11 11 11 11 11 |0...@.."........|
00000D60: 49 27 4C 4C 20 50 52 49 4E 54 20 4F 55 54 20 54 |I'LL PRINT OUT T|
00000D70: 49 24 20 53 4F 20 59 4F 55 20 43 41 4E 20 53 45 |I$ SO YOU CAN SE|
00000D80: 45 20 48 49 4D 3A 22 00 B9 15 4A 10 41 41 24 B2 |E HIM:"...J.AA$.|
00000D90: 54 49 24 3A 48 24 B2 C8 28 41 41 24 2C 32 29 3A |TI$:H$..(AA$,2):|
00000DA0: 4D 24 B2 CA 28 41 41 24 2C 33 2C 32 29 3A 53 24 |M$..(AA$,3,2):S$|
00000DB0: B2 C9 28 41 41 24 2C 32 29 00 C8 15 4F 10 81 54 |..(AA$,2)...O..T|
00000DC0: B2 31 A4 35 30 30 3A 82 00 E8 15 54 10 99 22 11 |.1.500:....T..".|
00000DD0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000DE0: 20 20 20 12 22 41 41 24 00 13 16 5E 10 99 22 20 | ."AA$...^.." |
00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E00: 20 20 20 20 20 5E 20 54 48 41 54 27 53 20 48 49 | ^ THAT'S HI|
00000E10: 4D 21 22 00 27 16 63 10 99 22 11 11 49 54 27 53 |M!".'.c.."..IT'S|
00000E20: 20 42 45 45 4E 3A 22 00 5C 16 64 10 99 22 11 12 | BEEN:".\.d.."..|
00000E30: 22 48 24 22 92 20 48 4F 55 52 53 2C 12 22 4D 24 |"H$". HOURS,."M$|
00000E40: 22 92 20 4D 49 4E 55 54 45 53 20 26 20 12 22 53 |". MINUTES & ."S|
00000E50: 24 22 92 20 53 45 43 4F 4E 44 53 22 00 83 16 65 |$". SECONDS"...e|
00000E60: 10 99 22 11 53 49 4E 43 45 20 59 4F 55 20 54 55 |..".SINCE YOU TU|
00000E70: 52 4E 45 44 20 54 48 45 20 12 43 36 34 92 20 4F |RNED THE .C64. O|
00000E80: 4E 21 22 00 9E 16 68 10 99 22 11 11 12 52 45 54 |N!"...h.."...RET|
00000E90: 55 52 4E 92 2E 2E 22 3A 8D 36 33 30 30 31 00 CE |URN...":.63001..|
00000EA0: 16 90 10 99 22 93 59 4F 55 20 43 41 4E 20 53 45 |....".YOU CAN SE|
00000EB0: 54 20 54 48 45 20 43 4F 52 52 45 43 54 20 54 49 |T THE CORRECT TI|
00000EC0: 4D 45 20 42 59 20 54 59 50 49 4E 47 3A 22 00 EE |ME BY TYPING:"..|
00000ED0: 16 9A 10 99 22 11 12 54 49 24 3D 22 C7 28 33 34 |...."..TI$=".(34|
00000EE0: 29 22 30 39 33 30 30 30 22 C7 28 33 34 29 00 1C |)"093000".(34)..|
00000EF0: 17 A4 10 99 22 11 54 48 45 4E 20 49 27 4C 4C 20 |....".THEN I'LL |
00000F00: 43 4F 55 4E 54 20 4A 49 46 46 49 45 53 20 53 54 |COUNT JIFFIES ST|
00000F10: 41 52 54 49 4E 47 20 57 49 54 48 22 00 47 17 AE |ARTING WITH".G..|
00000F20: 10 99 22 11 41 20 43 4F 55 4E 54 20 43 4F 52 52 |..".A COUNT CORR|
00000F30: 45 53 50 4F 4E 44 49 4E 47 20 54 4F 20 39 3A 33 |ESPONDING TO 9:3|
00000F40: 30 20 41 2E 4D 2E 22 00 6A 17 B8 10 99 22 11 28 |0 A.M.".j....".(|
00000F50: 30 30 30 30 30 30 3D 4D 49 44 4E 49 47 48 54 21 |000000=MIDNIGHT!|
00000F60: 21 29 22 3A 8D 36 33 30 30 30 00 9B 17 C2 10 99 |!)":.63000......|
00000F70: 22 93 54 48 45 20 56 41 52 49 41 42 4C 45 20 12 |".THE VARIABLE .|
00000F80: 54 49 92 20 47 49 56 45 53 20 54 48 45 20 4A 49 |TI. GIVES THE JI|
00000F90: 46 46 49 45 2D 43 4F 55 4E 54 22 00 C8 17 CC 10 |FFIE-COUNT".....|
00000FA0: 99 22 11 49 27 4C 4C 20 50 52 49 4E 54 20 48 49 |.".I'LL PRINT HI|
00000FB0: 4D 20 54 4F 4F 3A 22 3A 81 54 B2 31 A4 35 30 30 |M TOO:":.T.1.500|
00000FC0: 3A 82 3A 99 22 11 11 22 00 E4 17 D6 10 99 22 20 |:.:.".."......" |
00000FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FE0: 12 22 54 49 00 0C 18 E0 10 99 22 20 20 20 20 20 |."TI......" |
00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5E 20 | ^ |
00001000: 54 48 41 54 27 53 20 48 49 4D 21 22 00 3C 18 EA |THAT'S HIM!".<..|
00001010: 10 99 22 11 50 4C 45 41 53 45 2C 20 44 4F 4E 27 |..".PLEASE, DON'|
00001020: 54 20 55 53 45 20 12 54 49 24 92 20 4F 52 20 12 |T USE .TI$. OR .|
00001030: 54 49 92 20 46 4F 52 20 41 4E 59 22 00 5C 18 F4 |TI. FOR ANY".\..|
00001040: 10 99 22 11 4F 46 20 59 4F 55 52 20 56 41 52 49 |..".OF YOUR VARI|
00001050: 41 42 4C 45 20 4E 41 4D 45 53 21 22 00 6A 18 FE |ABLE NAMES!".j..|
00001060: 10 99 22 20 20 20 B7 B7 B7 B7 00 85 18 09 11 99 |.." ..........|
00001070: 22 11 11 12 52 45 54 55 52 4E 92 2E 2E 22 3A 8D |"...RETURN...":.|
00001080: 36 33 30 30 31 00 AE 18 30 11 99 22 93 A6 A6 A6 |63001...0.."....|
00001090: A6 A6 A6 A6 A6 A6 12 49 4E 50 55 54 2F 4F 55 54 |.......INPUT/OUT|
000010A0: 50 55 54 92 92 A6 A6 A6 A6 A6 A6 A6 A6 22 00 D2 |PUT.........."..|
000010B0: 18 3A 11 99 22 11 D1 54 4F 20 57 52 49 54 45 20 |.:.."..TO WRITE |
000010C0: 44 41 54 41 20 4F 4E 20 54 41 50 45 20 59 4F 55 |DATA ON TAPE YOU|
000010D0: 20 22 00 01 19 44 11 99 22 11 20 12 4F 50 45 4E | "...D..". .OPEN|
000010E0: 20 41 20 57 52 49 54 45 20 43 48 41 4E 4E 45 4C | A WRITE CHANNEL|
000010F0: 20 54 4F 20 54 48 45 20 43 41 53 53 45 54 54 45 | TO THE CASSETTE|
00001100: 22 00 33 19 4E 11 99 22 D1 59 4F 55 27 4C 4C 20 |".3.N..".YOU'LL |
00001110: 57 41 4E 54 20 54 4F 20 47 49 56 45 20 54 48 45 |WANT TO GIVE THE|
00001120: 20 44 41 54 41 20 41 20 12 4E 41 4D 45 92 2C 54 | DATA A .NAME.,T|
00001130: 4F 4F 22 00 62 19 58 11 99 22 20 41 4E 44 20 59 |OO".b.X.." AND Y|
00001140: 4F 55 27 4C 4C 20 57 41 4E 54 20 54 4F 20 44 49 |OU'LL WANT TO DI|
00001150: 53 54 49 4E 47 55 49 53 48 20 42 45 54 57 45 45 |STINGUISH BETWEE|
00001160: 4E 22 00 95 19 62 11 99 22 20 12 57 52 49 54 49 |N"...b.." .WRITI|
00001170: 4E 47 92 20 54 4F 20 54 41 50 45 20 41 4E 44 20 |NG. TO TAPE AND |
00001180: 12 52 45 41 44 49 4E 47 92 20 46 52 4F 4D 20 54 |.READING. FROM T|
00001190: 41 50 45 2E 22 00 C0 19 6C 11 99 22 11 12 32 30 |APE."...l.."..20|
000011A0: 30 20 4F 50 45 4E 33 2C 31 2C 31 2C 22 C7 28 33 |0 OPEN3,1,1,".(3|
000011B0: 34 29 22 44 41 54 41 22 C7 28 33 34 29 22 92 22 |4)"DATA".(34)"."|
000011C0: 00 F0 19 76 11 99 22 11 4F 50 45 4E 20 41 20 43 |...v..".OPEN A C|
000011D0: 48 41 4E 4E 45 4C 28 23 33 29 54 4F 20 54 48 45 |HANNEL(#3)TO THE|
000011E0: 20 54 41 50 45 20 44 52 49 56 45 28 23 31 29 22 | TAPE DRIVE(#1)"|
000011F0: 00 22 1A 80 11 99 22 20 46 4F 52 20 12 57 52 49 |."...." FOR .WRI|
00001200: 54 49 4E 47 92 20 28 54 48 45 20 4C 41 53 54 20 |TING. (THE LAST |
00001210: 23 31 20 4D 45 41 4E 53 20 12 57 52 49 54 45 92 |#1 MEANS .WRITE.|
00001220: 29 22 00 3B 1A 8A 11 99 22 11 12 32 31 30 20 46 |)".;...."..210 F|
00001230: 4F 52 20 49 3D 31 54 4F 31 30 22 00 53 1A 94 11 |OR I=1TO10".S...|
00001240: 99 22 12 32 32 30 20 50 52 49 4E 54 23 33 2C 49 |.".220 PRINT#3,I|
00001250: 20 20 22 00 6B 1A 9E 11 99 22 12 32 33 30 20 4E | ".k....".230 N|
00001260: 45 58 54 20 20 20 20 20 20 20 22 00 83 1A A8 11 |EXT ".....|
00001270: 99 22 12 32 34 30 20 43 4C 4F 53 45 20 33 20 20 |.".240 CLOSE 3 |
00001280: 20 20 22 00 AD 1A B2 11 99 22 11 D1 54 48 49 53 | "......"..THIS|
00001290: 20 57 52 49 54 45 53 20 54 48 45 20 4E 55 4D 42 | WRITES THE NUMB|
000012A0: 45 52 53 20 31 2C 32 2C 2E 2E 31 30 22 00 DE 1A |ERS 1,2,..10"...|
000012B0: BC 11 99 22 20 4F 4E 20 54 48 45 20 54 41 50 45 |..." ON THE TAPE|
000012C0: 2D 46 49 4C 45 20 43 41 4C 4C 45 44 20 22 C7 28 |-FILE CALLED ".(|
000012D0: 33 34 29 22 44 41 54 41 22 C7 28 33 34 29 00 E9 |34)"DATA".(34)..|
000012E0: 1A D0 11 8D 36 33 30 30 30 00 15 1B DA 11 99 22 |....63000......"|
000012F0: 93 49 54 27 53 20 56 45 52 59 20 49 4D 50 4F 52 |.IT'S VERY IMPOR|
00001300: 54 41 4E 54 20 54 4F 20 12 43 4C 4F 53 45 92 20 |TANT TO .CLOSE. |
00001310: 54 48 45 20 22 00 44 1B E4 11 99 22 11 57 52 49 |THE ".D....".WRI|
00001320: 54 45 20 43 48 41 4E 4E 45 4C 20 41 46 54 45 52 |TE CHANNEL AFTER|
00001330: 20 50 52 49 4E 54 49 4E 47 20 54 4F 20 54 41 50 | PRINTING TO TAP|
00001340: 45 21 21 22 00 6E 1B EE 11 99 22 11 28 45 4C 53 |E!!".n....".(ELS|
00001350: 45 20 49 20 57 4F 4E 27 54 20 50 52 49 4E 54 20 |E I WON'T PRINT |
00001360: 41 4E 20 45 4E 44 2D 4D 41 52 4B 45 52 22 00 9E |AN END-MARKER"..|
00001370: 1B F8 11 99 22 41 4E 44 20 4D 41 59 20 4E 4F 54 |...."AND MAY NOT|
00001380: 20 57 52 49 54 45 20 54 48 45 20 4C 41 53 54 20 | WRITE THE LAST |
00001390: 42 49 54 20 4F 46 20 44 41 54 41 29 2E 22 00 CA |BIT OF DATA)."..|
000013A0: 1B 0C 12 99 22 D1 54 4F 20 12 52 45 41 44 92 20 |....".TO .READ. |
000013B0: 41 20 46 49 4C 45 28 43 41 4C 4C 45 44 2C 53 41 |A FILE(CALLED,SA|
000013C0: 59 2C 27 44 41 54 41 27 29 22 00 F2 1B 16 12 99 |Y,'DATA')"......|
000013D0: 22 11 12 33 30 30 20 4F 50 45 4E 32 2C 31 2C 30 |"..300 OPEN2,1,0|
000013E0: 2C 22 C7 28 33 34 29 22 44 41 54 41 22 C7 28 33 |,".(34)"DATA".(3|
000013F0: 34 29 00 0F 1C 1B 12 99 22 12 33 31 30 20 46 4F |4)......".310 FO|
00001400: 52 20 49 3D 31 54 4F 31 30 20 20 20 20 20 22 00 |R I=1TO10 ".|
00001410: 2C 1C 20 12 99 22 12 33 32 30 20 49 4E 50 55 54 |,. ..".320 INPUT|
00001420: 23 32 2C 41 28 49 29 20 20 20 20 22 00 49 1C 2A |#2,A(I) ".I.*|
00001430: 12 99 22 12 33 33 30 20 4E 45 58 54 20 20 20 20 |..".330 NEXT |
00001440: 20 20 20 20 20 20 20 20 22 00 6F 1C 34 12 99 22 | ".o.4.."|
00001450: 11 48 45 52 45 20 54 48 45 20 12 52 45 41 44 92 |.HERE THE .READ.|
00001460: 20 43 48 41 4E 4E 45 4C 20 49 53 20 23 32 22 00 | CHANNEL IS #2".|
00001470: 91 1C 3E 12 99 22 2E 2E 54 48 45 20 4C 41 53 54 |..>.."..THE LAST|
00001480: 20 23 30 20 4D 45 41 4E 53 20 12 52 45 41 44 92 | #0 MEANS .READ.|
00001490: 22 00 C2 1C 48 12 99 22 11 49 54 20 49 53 20 41 |"...H..".IT IS A|
000014A0: 53 53 55 4D 45 44 20 54 48 45 52 45 20 41 52 45 |SSUMED THERE ARE|
000014B0: 20 31 30 20 4E 4F 27 53 20 54 4F 20 52 45 41 44 | 10 NO'S TO READ|
000014C0: 2E 22 00 CD 1C 5C 12 8D 36 33 30 30 30 00 E9 1C |."...\..63000...|
000014D0: 66 12 99 22 93 41 20 50 52 49 4E 54 23 20 53 54 |f..".A PRINT# ST|
000014E0: 41 54 45 4D 45 4E 54 3A 22 00 00 1D 70 12 99 22 |ATEMENT:"...p.."|
000014F0: 11 12 32 32 30 20 50 52 49 4E 54 23 33 2C 49 22 |..220 PRINT#3,I"|
00001500: 00 2E 1D 7A 12 99 22 11 57 49 4C 4C 20 57 52 49 |...z..".WILL WRI|
00001510: 54 45 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 |TE THE VALUE OF |
00001520: 49 2C 46 4F 4C 4C 4F 57 45 44 20 42 59 22 00 4D |I,FOLLOWED BY".M|
00001530: 1D 84 12 99 22 11 41 20 12 52 45 54 55 52 4E 92 |....".A .RETURN.|
00001540: 20 26 20 12 53 50 41 43 45 53 92 21 22 00 74 1D | & .SPACES.!".t.|
00001550: 89 12 99 22 11 12 59 4F 55 20 44 4F 4E 27 54 20 |..."..YOU DON'T |
00001560: 57 41 4E 54 20 54 48 45 20 27 53 50 41 43 45 53 |WANT THE 'SPACES|
00001570: 27 92 21 22 00 90 1D 8E 12 99 22 11 54 48 45 20 |'.!"......".THE |
00001580: 43 4F 52 52 45 43 54 20 57 41 59 20 49 53 3A 22 |CORRECT WAY IS:"|
00001590: 00 B1 1D 98 12 99 22 11 12 32 32 30 20 50 52 49 |......"..220 PRI|
000015A0: 4E 54 23 33 2C 49 3B 43 48 52 24 28 31 33 29 3B |NT#3,I;CHR$(13);|
000015B0: 22 00 E2 1D A2 12 99 22 11 48 45 52 45 20 12 59 |"......".HERE .Y|
000015C0: 4F 55 92 20 53 50 45 43 49 46 59 20 54 48 45 20 |OU. SPECIFY THE |
000015D0: 12 52 45 54 55 52 4E 92 3D 43 48 52 24 28 31 33 |.RETURN.=CHR$(13|
000015E0: 29 22 00 FF 1D A7 12 99 22 11 2E 2E 57 49 54 48 |)"......"...WITH|
000015F0: 4F 55 54 20 53 50 41 43 45 53 2E 2E 2E 2E 22 00 |OUT SPACES....".|
00001600: 39 1E AC 12 99 22 11 54 48 45 20 12 3B 92 20 41 |9....".THE .;. A|
00001610: 54 20 54 48 45 20 45 4E 44 20 41 56 4F 49 44 53 |T THE END AVOIDS|
00001620: 20 27 4C 49 4E 45 20 46 45 45 44 27 20 54 4F 4F | 'LINE FEED' TOO|
00001630: 21 22 3A 8D 36 33 30 30 30 00 50 1E B6 12 99 22 |!":.63000.P...."|
00001640: 93 54 48 45 20 53 54 41 54 45 4D 45 4E 54 3A 22 |.THE STATEMENT:"|
00001650: 00 65 1E C0 12 99 22 11 12 32 34 30 20 43 4C 4F |.e...."..240 CLO|
00001660: 53 45 20 33 22 00 93 1E CA 12 99 22 11 57 52 49 |SE 3"......".WRI|
00001670: 54 45 53 20 41 4E 20 45 4E 44 2D 4F 46 2D 46 49 |TES AN END-OF-FI|
00001680: 4C 45 20 4D 41 52 4B 45 52 20 4F 4E 20 54 41 50 |LE MARKER ON TAP|
00001690: 45 2E 22 00 C3 1E D4 12 99 22 11 57 48 45 4E 20 |E."......".WHEN |
000016A0: 12 52 45 41 44 92 49 4E 47 20 44 41 54 41 20 59 |.READ.ING DATA Y|
000016B0: 4F 55 20 43 48 45 43 4B 20 46 4F 52 20 54 48 49 |OU CHECK FOR THI|
000016C0: 53 3A 22 00 DF 1E DE 12 99 22 11 12 49 46 20 53 |S:"......"..IF S|
000016D0: 54 3D 36 34 20 54 48 45 4E 20 92 2E 2E 2E 22 00 |T=64 THEN ....".|
000016E0: FC 1E E8 12 4D 53 24 B2 22 20 20 20 12 43 4C 4F |....MS$." .CLO|
000016F0: 53 45 92 21 22 3A 8D 36 33 31 30 30 00 07 1F F2 |SE.!":.63100....|
00001700: 12 8D 36 33 30 30 30 00 34 1F FC 12 99 22 93 54 |..63000.4....".T|
00001710: 48 45 20 12 57 52 49 54 45 20 54 4F 20 54 41 50 |HE .WRITE TO TAP|
00001720: 45 92 20 52 4F 55 54 49 4E 45 20 49 53 20 54 48 |E. ROUTINE IS TH|
00001730: 45 4E 3A 22 00 61 1F 06 13 99 22 11 12 32 30 30 |EN:".a...."..200|
00001740: 20 4F 50 45 4E 33 2C 31 2C 31 2C 22 C7 28 33 35 | OPEN3,1,1,".(35|
00001750: 29 22 44 41 54 41 22 C7 28 33 34 29 22 20 20 20 |)"DATA".(34)" |
00001760: 22 00 81 1F 10 13 99 22 12 32 31 30 20 46 4F 52 |"......".210 FOR|
00001770: 20 49 3D 31 54 4F 31 30 20 20 20 20 20 20 20 20 | I=1TO10 |
00001780: 22 00 A1 1F 1A 13 99 22 12 32 32 30 20 50 52 49 |"......".220 PRI|
00001790: 4E 54 23 33 2C 49 3B 43 48 52 24 28 31 33 29 3B |NT#3,I;CHR$(13);|
000017A0: 22 00 C1 1F 24 13 99 22 12 32 33 30 20 4E 45 58 |"...$..".230 NEX|
000017B0: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T |
000017C0: 22 00 E1 1F 2E 13 99 22 12 32 34 30 20 43 4C 4F |"......".240 CLO|
000017D0: 53 45 20 33 20 20 20 20 20 20 20 20 20 20 20 20 |SE 3 |
000017E0: 22 00 0A 20 38 13 99 22 11 54 48 45 20 12 52 45 |".. 8..".THE .RE|
000017F0: 41 44 20 46 52 4F 4D 20 54 41 50 45 92 20 52 4F |AD FROM TAPE. RO|
00001800: 55 54 49 4E 45 20 49 53 3A 22 00 3E 20 42 13 99 |UTINE IS:".> B..|
00001810: 22 11 12 33 30 30 20 4F 50 45 4E 32 2C 31 2C 30 |"..300 OPEN2,1,0|
00001820: 2C 22 C7 28 33 34 29 22 44 41 54 41 22 C7 28 33 |,".(34)"DATA".(3|
00001830: 34 29 22 20 20 20 20 20 20 20 20 20 20 22 00 65 |4)" ".e|
00001840: 20 4C 13 99 22 12 33 31 30 20 49 4E 50 55 54 23 | L..".310 INPUT#|
00001850: 32 2C 41 28 4A 29 20 20 20 20 20 20 20 20 20 20 |2,A(J) |
00001860: 20 20 20 20 22 00 8C 20 56 13 99 22 12 33 32 30 | ".. V..".320|
00001870: 20 49 46 20 53 54 3C 3E 36 34 54 48 45 4E 4A 3D | IF ST<>64THENJ=|
00001880: 4A 2B 31 3A 47 4F 54 4F 33 31 30 22 00 B3 20 60 |J+1:GOTO310".. `|
00001890: 13 99 22 12 33 33 30 20 43 4C 4F 53 45 32 20 20 |..".330 CLOSE2 |
000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018B0: 20 20 22 00 D1 20 6A 13 8D 36 33 30 30 30 3A 53 | ".. j..63000:S|
000018C0: 4E 24 B2 22 30 35 30 30 30 22 3A 8D 36 33 36 30 |N$."05000":.6360|
000018D0: 30 00 DC 20 88 13 8D 36 30 30 30 30 00 F8 20 8D |0.. ...60000.. .|
000018E0: 13 99 22 93 12 54 4F 20 43 52 45 41 54 45 20 41 |.."..TO CREATE A|
000018F0: 20 46 49 4C 45 92 3A 22 00 2D 21 92 13 99 22 11 | FILE.:".-!...".|
00001900: 12 31 30 20 4F 50 45 4E 31 35 2C 38 2C 31 35 2C |.10 OPEN15,8,15,|
00001910: 22 C7 28 33 34 29 22 49 22 C7 28 33 34 29 22 2B |".(34)"I".(34)"+|
00001920: 44 52 24 20 20 20 20 20 20 20 20 20 22 00 6B 21 |DR$ ".k!|
00001930: 9C 13 99 22 12 32 30 20 4F 50 45 4E 32 2C 38 2C |...".20 OPEN2,8,|
00001940: 32 2C 44 52 24 2B 22 C7 28 33 34 29 22 3A 22 C7 |2,DR$+".(34)":".|
00001950: 28 33 34 29 22 2B 4E 4D 24 2B 22 C7 28 33 34 29 |(34)"+NM$+".(34)|
00001960: 22 2C 53 2C 57 22 C7 28 33 34 29 00 93 21 A6 13 |",S,W".(34)..!..|
00001970: 99 22 12 33 30 20 50 52 49 4E 54 23 32 2C 41 3B |.".30 PRINT#2,A;|
00001980: 43 48 52 24 28 31 33 29 3B 20 20 20 20 20 20 20 |CHR$(13); |
00001990: 20 20 22 00 BA 21 B0 13 99 22 11 12 44 52 24 92 | "..!..."..DR$.|
000019A0: 20 49 53 20 44 52 49 56 45 20 23 20 20 20 C9 50 | IS DRIVE # .P|
000019B0: 52 45 56 49 4F 55 53 4C 59 22 00 DE 21 BA 13 99 |REVIOUSLY"..!...|
000019C0: 22 12 4E 4D 24 92 20 49 53 20 46 49 4C 45 20 4E |".NM$. IS FILE N|
000019D0: 41 4D 45 20 CB 44 45 46 49 4E 45 44 21 22 00 09 |AME .DEFINED!"..|
000019E0: 22 C4 13 99 22 11 12 31 30 92 20 4F 50 45 4E 53 |"..."..10. OPENS|
000019F0: 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 43 48 41 | THE COMMAND CHA|
00001A00: 4E 4E 45 4C 20 23 31 35 22 00 31 22 CE 13 99 22 |NNEL #15".1"..."|
00001A10: 41 4E 44 20 12 49 92 4E 49 54 49 41 4C 49 5A 45 |AND .I.NITIALIZE|
00001A20: 53 20 54 48 45 20 44 52 49 56 45 20 44 52 24 2E |S THE DRIVE DR$.|
00001A30: 22 00 5B 22 D3 13 99 22 28 4E 4F 54 20 4E 45 43 |".["..."(NOT NEC|
00001A40: 45 53 53 41 52 59 20 4F 4E 20 27 4E 45 57 45 52 |ESSARY ON 'NEWER|
00001A50: 27 20 44 52 49 56 45 53 29 2E 22 00 84 22 D8 13 |' DRIVES).".."..|
00001A60: 99 22 11 12 32 30 92 20 4F 50 45 4E 53 20 41 20 |."..20. OPENS A |
00001A70: 12 57 92 52 49 54 45 20 43 48 41 4E 4E 45 4C 2C |.W.RITE CHANNEL,|
00001A80: 23 32 2C 22 00 B4 22 E2 13 99 22 46 4F 52 20 41 |#2,".."..."FOR A|
00001A90: 20 12 53 92 45 51 55 45 4E 54 49 41 4C 28 44 41 | .S.EQUENTIAL(DA|
00001AA0: 54 41 29 20 46 49 4C 45 20 43 41 4C 4C 45 44 20 |TA) FILE CALLED |
00001AB0: 4E 4D 24 22 00 E7 22 EC 13 99 22 11 12 33 30 92 |NM$".."..."..30.|
00001AC0: 20 50 52 49 4E 54 53 20 41 20 4E 55 4D 42 45 52 | PRINTS A NUMBER|
00001AD0: 2C 12 41 92 2C 54 4F 20 54 48 45 20 44 41 54 41 |,.A.,TO THE DATA|
00001AE0: 20 46 49 4C 45 2E 22 00 2A 23 F6 13 99 22 11 D1 | FILE.".*#..."..|
00001AF0: 59 4F 55 20 4D 41 59 20 52 45 50 45 41 54 20 53 |YOU MAY REPEAT S|
00001B00: 54 41 54 45 4D 45 4E 54 20 33 30 22 3A 99 22 11 |TATEMENT 30":.".|
00001B10: 57 49 54 48 20 56 41 52 49 4F 55 53 20 12 41 92 |WITH VARIOUS .A.|
00001B20: 27 53 2C 54 48 45 4E 2E 2E 22 00 47 23 00 14 99 |'S,THEN..".G#...|
00001B30: 22 11 12 34 30 20 43 4C 4F 53 45 32 3A 43 4C 4F |"..40 CLOSE2:CLO|
00001B40: 53 45 31 35 22 3A 99 00 52 23 0A 14 8D 36 33 30 |SE15":..R#...630|
00001B50: 30 30 00 71 23 14 14 99 22 93 12 54 4F 20 52 45 |00.q#..."..TO RE|
00001B60: 41 44 20 46 52 4F 4D 20 41 20 46 49 4C 45 92 3A |AD FROM A FILE.:|
00001B70: 22 00 A6 23 1E 14 99 22 11 12 36 30 20 4F 50 45 |"..#..."..60 OPE|
00001B80: 4E 31 35 2C 38 2C 31 35 2C 22 C7 28 33 34 29 22 |N15,8,15,".(34)"|
00001B90: 49 22 C7 28 33 34 29 22 2B 44 52 24 20 20 20 20 |I".(34)"+DR$ |
00001BA0: 20 20 20 20 20 22 00 E4 23 28 14 99 22 12 37 30 | "..#(..".70|
00001BB0: 20 4F 50 45 4E 32 2C 38 2C 32 2C 44 52 24 2B 22 | OPEN2,8,2,DR$+"|
00001BC0: C7 28 33 34 29 22 3A 22 C7 28 33 34 29 22 2B 4E |.(34)":".(34)"+N|
00001BD0: 4D 24 2B 22 C7 28 33 34 29 22 2C 53 2C 52 22 C7 |M$+".(34)",S,R".|
00001BE0: 28 33 34 29 00 0C 24 32 14 99 22 12 38 30 20 49 |(34)..$2..".80 I|
00001BF0: 4E 50 55 54 23 32 2C 41 28 4A 29 20 20 20 20 20 |NPUT#2,A(J) |
00001C00: 20 20 20 20 20 20 20 20 20 20 20 22 00 34 24 3C | ".4$<|
00001C10: 14 99 22 12 39 30 20 49 46 53 54 3C 3E 36 34 54 |..".90 IFST<>64T|
00001C20: 48 45 4E 4A 3D 4A 2B 31 3A 47 4F 54 4F 38 30 20 |HENJ=J+1:GOTO80 |
00001C30: 20 20 20 22 00 5C 24 46 14 99 22 12 31 30 30 20 | ".\$F..".100 |
00001C40: 43 4C 4F 53 45 32 3A 43 4C 4F 53 45 31 35 20 20 |CLOSE2:CLOSE15 |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 22 00 7A 24 4B | ".z$K|
00001C60: 14 99 22 11 12 36 30 92 20 49 4E 49 54 49 41 4C |.."..60. INITIAL|
00001C70: 49 5A 45 53 20 45 54 43 2E 22 00 AA 24 50 14 99 |IZES ETC."..$P..|
00001C80: 22 12 37 30 92 20 4F 50 45 4E 53 20 41 20 12 52 |".70. OPENS A .R|
00001C90: 92 45 41 44 20 43 48 41 4E 4E 45 4C 20 54 4F 20 |.EAD CHANNEL TO |
00001CA0: 46 49 4C 45 20 4E 4D 24 2E 22 00 D9 24 5A 14 99 |FILE NM$."..$Z..|
00001CB0: 22 12 39 30 92 20 43 48 45 43 4B 53 20 46 4F 52 |".90. CHECKS FOR|
00001CC0: 20 45 4E 44 2D 4F 46 2D 46 49 4C 45 28 53 54 41 | END-OF-FILE(STA|
00001CD0: 54 55 53 3D 36 34 29 2E 22 00 E4 24 60 14 8D 36 |TUS=64)."..$`..6|
00001CE0: 33 30 30 30 00 20 25 62 14 99 22 93 12 54 4F 20 |3000. %b.."..TO |
00001CF0: 52 45 49 54 45 52 41 54 45 92 3A 20 57 48 45 4E |REITERATE.: WHEN|
00001D00: 20 57 52 49 54 49 4E 47 20 44 41 54 41 11 22 3A | WRITING DATA.":|
00001D10: 99 22 44 4F 20 12 4E 4F 54 92 20 55 53 45 3A 22 |."DO .NOT. USE:"|
00001D20: 00 4E 25 63 14 99 22 11 12 50 52 49 4E 54 23 31 |.N%c.."..PRINT#1|
00001D30: 2C 41 2C 42 24 2C 43 92 20 4F 52 20 12 50 52 49 |,A,B$,C. OR .PRI|
00001D40: 4E 54 23 31 2C 41 3B 42 24 3B 43 3B 92 22 00 63 |NT#1,A;B$;C;.".c|
00001D50: 25 64 14 99 22 11 49 4E 53 54 45 41 44 20 55 53 |%d..".INSTEAD US|
00001D60: 45 3A 22 00 91 25 65 14 99 22 11 12 50 52 49 4E |E:"..%e.."..PRIN|
00001D70: 54 23 31 2C 41 3B 43 48 52 24 28 31 33 29 3B 42 |T#1,A;CHR$(13);B|
00001D80: 24 3B 43 48 52 24 28 31 33 29 3B 2E 2E 45 54 43 |$;CHR$(13);..ETC|
00001D90: 22 00 C2 25 66 14 99 22 11 49 46 20 49 54 27 53 |"..%f..".IF IT'S|
00001DA0: 20 50 41 49 4E 46 55 4C 4C 20 54 4F 20 54 59 50 | PAINFULL TO TYP|
00001DB0: 45 20 27 43 48 52 24 28 31 33 29 27 20 54 48 45 |E 'CHR$(13)' THE|
00001DC0: 4E 22 00 E8 25 67 14 99 22 11 44 45 46 49 4E 45 |N"..%g..".DEFINE|
00001DD0: 20 20 43 52 24 3D 43 48 52 24 28 31 33 29 20 41 | CR$=CHR$(13) A|
00001DE0: 4E 44 20 55 53 45 3A 22 00 0E 26 68 14 99 22 11 |ND USE:"..&h..".|
00001DF0: 12 50 52 49 4E 54 23 31 2C 41 3B 43 52 24 3B 42 |.PRINT#1,A;CR$;B|
00001E00: 24 3B 43 52 24 3B 43 3B 43 52 24 3B 92 22 00 19 |$;CR$;C;CR$;."..|
00001E10: 26 6A 14 8D 36 33 30 30 30 00 45 26 DC 14 99 22 |&j..63000.E&..."|
00001E20: 93 A6 A6 A6 A6 A6 A6 A6 A6 12 52 41 4E 44 4F 4D |..........RANDOM|
00001E30: 20 4E 55 4D 42 45 52 53 92 A6 A6 A6 A6 A6 A6 A6 | NUMBERS........|
00001E40: A6 A6 A6 A6 22 00 72 26 E6 14 99 22 11 D1 49 20 |....".r&..."..I |
00001E50: 48 41 56 45 20 41 20 12 52 41 4E 44 4F 4D 20 4E |HAVE A .RANDOM N|
00001E60: 55 4D 42 45 52 20 47 45 4E 45 52 41 54 4F 52 92 |UMBER GENERATOR.|
00001E70: 2E 22 00 87 26 F0 14 99 22 11 12 31 30 20 58 3D |."..&..."..10 X=|
00001E80: 52 4E 44 28 4B 29 22 00 AF 26 F5 14 99 22 11 D1 |RND(K)"..&..."..|
00001E90: 45 41 43 48 20 12 4E 45 47 41 54 49 56 45 92 20 |EACH .NEGATIVE. |
00001EA0: 4B 20 44 45 54 45 52 4D 49 4E 45 53 20 41 22 00 |K DETERMINES A".|
00001EB0: CC 26 FA 14 99 22 20 55 4E 49 51 55 45 20 12 53 |.&..." UNIQUE .S|
00001EC0: 45 45 44 92 2E 20 54 48 45 4E 3A 22 00 E2 26 FF |EED.. THEN:"..&.|
00001ED0: 14 99 22 11 12 32 30 20 58 31 3D 52 4E 44 28 31 |.."..20 X1=RND(1|
00001EE0: 29 22 00 F7 26 04 15 99 22 12 33 30 20 58 32 3D |)"..&...".30 X2=|
00001EF0: 52 4E 44 28 31 29 22 00 0C 27 09 15 99 22 12 34 |RND(1)"..'...".4|
00001F00: 30 20 58 33 3D 52 4E 44 28 31 29 22 00 3C 27 0E |0 X3=RND(1)".<'.|
00001F10: 15 99 22 11 D1 48 45 52 45 20 58 31 2C 58 32 2C |.."..HERE X1,X2,|
00001F20: 58 33 2C 2E 2E 49 53 20 41 20 27 52 41 4E 44 4F |X3,..IS A 'RANDO|
00001F30: 4D 20 53 45 51 55 45 4E 43 45 27 22 00 59 27 0F |M SEQUENCE'".Y'.|
00001F40: 15 99 22 20 4F 46 20 4E 55 4D 42 45 52 53 20 49 |.." OF NUMBERS I|
00001F50: 4E 20 30 3C 58 3C 31 2E 22 00 87 27 13 15 99 22 |N 0<X<1."..'..."|
00001F60: 11 D1 53 55 42 53 45 51 55 45 4E 54 20 27 52 4E |..SUBSEQUENT 'RN|
00001F70: 44 28 31 29 27 20 53 54 41 54 45 4D 45 4E 54 53 |D(1)' STATEMENTS|
00001F80: 20 59 49 45 4C 44 22 00 BA 27 18 15 99 22 20 53 | YIELD"..'..." S|
00001F90: 55 43 43 45 53 53 49 56 45 20 4D 45 4D 42 45 52 |UCCESSIVE MEMBER|
00001FA0: 53 20 4F 46 20 54 48 45 20 53 45 51 55 45 4E 43 |S OF THE SEQUENC|
00001FB0: 45 2E 22 3A 8D 36 33 30 30 30 00 DF 27 22 15 99 |E.":.63000..'"..|
00001FC0: 22 93 D1 54 4F 20 47 45 54 20 41 20 12 52 41 4E |"..TO GET A .RAN|
00001FD0: 44 4F 4D 92 20 53 45 45 44 2C 55 53 45 3A 22 00 |DOM. SEED,USE:".|
00001FE0: F6 27 27 15 99 22 11 12 31 30 20 58 3D 52 4E 44 |.''.."..10 X=RND|
00001FF0: 28 2D 54 49 29 22 00 1F 28 2C 15 99 22 11 57 48 |(-TI)"..(,..".WH|
00002000: 45 52 45 20 12 54 49 92 20 49 53 20 54 48 45 20 |ERE .TI. IS THE |
00002010: 12 4A 49 46 46 59 92 20 43 4F 55 4E 54 21 22 00 |.JIFFY. COUNT!".|
00002020: 47 28 36 15 99 22 11 D1 59 4F 55 20 43 41 4E 20 |G(6.."..YOU CAN |
00002030: 4F 42 54 41 49 4E 2C 20 55 53 49 4E 47 20 12 52 |OBTAIN, USING .R|
00002040: 4E 44 28 2D 4B 29 22 00 6F 28 37 15 99 22 11 46 |ND(-K)".o(7..".F|
00002050: 4F 4C 4C 4F 57 45 44 20 42 59 20 4C 4F 54 53 20 |OLLOWED BY LOTS |
00002060: 4F 46 20 12 52 4E 44 28 31 29 92 27 53 2C 22 00 |OF .RND(1).'S,".|
00002070: A2 28 3B 15 99 22 11 41 20 12 52 45 50 52 4F 44 |.(;..".A .REPROD|
00002080: 55 43 49 42 4C 45 92 20 27 52 41 4E 44 4F 4D 20 |UCIBLE. 'RANDOM |
00002090: 53 45 51 55 45 4E 43 45 27 2E 22 3A 8D 36 33 30 |SEQUENCE'.":.630|
000020A0: 30 30 00 D2 28 40 15 99 22 93 49 46 20 59 4F 55 |00..(@..".IF YOU|
000020B0: 20 12 52 45 41 4C 4C 59 92 20 57 41 4E 54 20 41 | .REALLY. WANT A|
000020C0: 20 12 52 41 4E 44 4F 4D 92 20 4E 55 4D 42 45 52 | .RANDOM. NUMBER|
000020D0: 3A 22 00 E7 28 45 15 99 22 11 12 31 30 20 58 3D |:"..(E.."..10 X=|
000020E0: 52 4E 44 28 30 29 22 00 16 29 4A 15 99 22 11 57 |RND(0)"..)J..".W|
000020F0: 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 4F 4E 45 |ILL GIVE YOU ONE|
00002100: 2E 20 53 55 43 43 45 53 53 49 56 45 20 27 52 4E |. SUCCESSIVE 'RN|
00002110: 44 28 30 29 27 22 00 47 29 4F 15 99 22 11 53 54 |D(0)'".G)O..".ST|
00002120: 41 54 45 4D 45 4E 54 53 20 59 49 45 4C 44 20 4E |ATEMENTS YIELD N|
00002130: 4F 27 53 20 54 4F 54 41 4C 4C 59 20 55 4E 52 45 |O'S TOTALLY UNRE|
00002140: 4C 41 54 45 44 2E 22 00 63 29 50 15 4D 53 24 B2 |LATED.".c)P.MS$.|
00002150: 22 53 4F 20 49 54 20 53 41 59 53 22 3A 8D 36 33 |"SO IT SAYS":.63|
00002160: 31 30 30 00 6E 29 59 15 8D 36 33 30 30 30 00 9D |100.n)Y..63000..|
00002170: 29 5E 15 99 22 93 11 11 11 4F 46 20 43 4F 55 52 |)^.."....OF COUR|
00002180: 53 45 20 12 58 3D 31 30 30 2B 31 30 30 2A 52 4E |SE .X=100+100*RN|
00002190: 44 28 30 29 92 20 47 49 56 45 53 20 22 00 C2 29 |D(0). GIVES "..)|
000021A0: 63 15 99 22 11 20 41 20 4E 55 4D 42 45 52 20 49 |c..". A NUMBER I|
000021B0: 4E 20 54 48 45 20 52 41 4E 47 45 3A 30 2D 31 30 |N THE RANGE:0-10|
000021C0: 30 22 00 D1 29 64 15 81 54 B2 31 A4 35 30 30 3A |0"..)d..T.1.500:|
000021D0: 82 00 07 2A 65 15 97 35 34 32 37 32 2C 30 3A 97 |...*e..54272,0:.|
000021E0: 35 34 32 37 33 2C 30 3A 97 35 34 32 37 34 2C 34 |54273,0:.54274,4|
000021F0: 30 30 30 AF 32 35 35 3A 97 35 34 32 37 35 2C 34 |000.255:.54275,4|
00002200: 30 30 30 AD 32 35 36 00 28 2A 66 15 97 35 34 32 |000.256.(*f..542|
00002210: 37 36 2C 30 3A 97 35 34 32 37 37 2C 30 3A 97 35 |76,0:.54277,0:.5|
00002220: 34 32 37 38 2C 32 34 30 00 4F 2A 68 15 99 22 11 |4278,240.O*h..".|
00002230: 12 31 30 20 50 4F 4B 45 35 34 32 39 36 2C 31 35 |.10 POKE54296,15|
00002240: 3A 50 4F 4B 45 35 34 32 37 38 2C 32 34 30 22 00 |:POKE54278,240".|
00002250: 75 2A 6D 15 99 22 12 32 30 20 46 4F 52 49 3D 31 |u*m..".20 FORI=1|
00002260: 54 4F 31 30 30 3A 50 4F 4B 45 35 34 32 37 36 2C |TO100:POKE54276,|
00002270: 31 37 20 20 22 00 9B 2A 72 15 99 22 12 33 30 20 |17 "..*r..".30 |
00002280: 50 4F 4B 45 35 34 32 37 33 2C 31 30 30 2B 31 30 |POKE54273,100+10|
00002290: 30 2A 52 4E 44 28 30 29 20 20 22 00 C1 2A 77 15 |0*RND(0) "..*w.|
000022A0: 99 22 12 34 30 20 4E 45 58 54 20 20 20 20 20 20 |.".40 NEXT |
000022B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022C0: 22 00 F3 2A 78 15 99 22 11 11 43 41 4E 20 59 4F |"..*x.."..CAN YO|
000022D0: 55 20 47 55 45 53 53 20 57 48 41 54 20 12 5E 92 |U GUESS WHAT .^.|
000022E0: 20 57 49 4C 4C 20 44 4F 3F 3F 3F 22 3A 8D 36 33 | WILL DO???":.63|
000022F0: 30 30 30 00 14 2B 81 15 97 35 34 32 39 36 2C 31 |000..+...54296,1|
00002300: 35 3A 97 35 34 32 37 36 2C 31 37 3A 81 49 B2 30 |5:.54276,17:.I.0|
00002310: A4 31 30 30 00 2E 2B 86 15 97 35 34 32 37 33 2C |.100..+...54273,|
00002320: 31 30 30 AA 31 30 30 AC BB 28 30 29 3A 82 00 44 |100.100..(0):..D|
00002330: 2B 90 15 97 35 34 32 39 36 2C 30 3A 97 35 34 32 |+...54296,0:.542|
00002340: 37 37 2C 30 00 67 2B 9A 15 4D 53 24 B2 22 42 45 |77,0.g+..MS$."BE|
00002350: 41 55 54 49 46 55 4C 21 22 3A 8D 36 33 31 30 30 |AUTIFUL!":.63100|
00002360: 3A 8D 36 33 30 30 30 00 91 2B 70 17 99 22 93 A6 |:.63000..+p.."..|
00002370: A6 A6 A6 A6 A6 A6 A6 A6 12 4F 44 44 53 20 27 4E |.........ODDS 'N|
00002380: 27 20 45 4E 44 53 92 A6 A6 A6 A6 A6 A6 A6 A6 A6 |' ENDS..........|
00002390: 22 00 A9 2B 75 17 99 22 11 A6 A6 A6 A6 A6 A6 12 |"..+u.."........|
000023A0: 31 92 A6 A6 A6 A6 A6 A6 22 00 BE 2B 7A 17 99 22 |1......."..+z.."|
000023B0: 11 12 31 30 20 49 4E 50 55 54 20 41 24 22 00 EB |..10 INPUT A$"..|
000023C0: 2B 84 17 99 22 11 20 48 49 54 20 27 52 45 54 55 |+...". HIT 'RETU|
000023D0: 52 4E 27 20 57 48 45 4E 20 41 53 4B 45 44 20 54 |RN' WHEN ASKED T|
000023E0: 4F 20 27 49 4E 50 55 54 27 2C 22 00 0D 2C 8E 17 |O 'INPUT',"..,..|
000023F0: 99 22 11 41 4E 44 20 49 20 4C 45 41 56 45 20 41 |.".AND I LEAVE A|
00002400: 25 20 55 4E 43 48 41 4E 47 45 44 2E 22 00 30 2C |% UNCHANGED.".0,|
00002410: 98 17 99 22 11 54 4F 20 41 56 4F 49 44 20 54 48 |...".TO AVOID TH|
00002420: 49 53 2C 20 59 4F 55 20 43 41 4E 20 55 53 45 3A |IS, YOU CAN USE:|
00002430: 00 46 2C A2 17 99 22 11 31 30 20 49 4E 50 55 54 |.F,...".10 INPUT|
00002440: 22 C7 28 33 34 29 00 68 2C AC 17 99 22 91 22 A3 |".(34).h,...".".|
00002450: 31 30 29 22 20 20 20 37 12 C8 C8 C8 92 22 C7 28 |10)" 7.....".(|
00002460: 33 34 29 22 3B 41 24 22 00 7A 2C B6 17 99 A3 31 |34)";A$".z,....1|
00002470: 30 29 22 20 5E 20 20 20 5E 22 00 8C 2C C0 17 99 |0)" ^ ^"..,...|
00002480: A3 31 30 29 22 20 33 20 20 20 33 22 00 A5 2C CA |.10)" 3 3"..,.|
00002490: 17 99 A3 31 30 29 22 53 50 43 20 43 52 53 52 20 |...10)"SPC CRSR |
000024A0: 4C 45 46 54 22 00 BA 2C D4 17 99 22 11 54 48 49 |LEFT"..,...".THI|
000024B0: 53 20 47 49 56 45 53 2E 2E 22 00 CD 2C DE 17 85 |S GIVES.."..,...|
000024C0: 22 11 20 20 20 37 9D 9D 9D 22 3B 41 24 00 F9 2C |". 7...";A$..,|
000024D0: E8 17 99 22 11 11 11 11 91 91 91 48 49 54 20 27 |...".......HIT '|
000024E0: 52 45 54 55 52 4E 27 20 41 4E 44 20 49 20 53 45 |RETURN' AND I SE|
000024F0: 54 20 41 24 3D 27 37 27 22 00 04 2D F2 17 8D 36 |T A$='7'"..-...6|
00002500: 33 30 30 30 00 16 2D FC 17 99 22 93 4F 46 20 43 |3000..-...".OF C|
00002510: 4F 55 52 53 45 22 00 2C 2D 06 18 99 22 11 31 30 |OURSE".,-...".10|
00002520: 20 49 4E 50 55 54 22 C7 28 33 34 29 00 4F 2D 10 | INPUT".(34).O-.|
00002530: 18 99 22 91 22 A3 39 29 22 4F 4B 20 20 20 59 12 |..".".9)"OK Y.|
00002540: C8 C8 C8 92 22 C7 28 33 34 29 22 3B 41 24 22 00 |....".(34)";A$".|
00002550: 65 2D 1A 18 99 22 11 11 49 53 20 4E 49 43 45 20 |e-..."..IS NICE |
00002560: 54 4F 4F 2E 22 00 7B 2D 24 18 85 22 11 11 4F 4B |TOO.".{-$.."..OK|
00002570: 20 20 20 59 9D 9D 9D 22 3B 41 24 00 86 2D 2E 18 | Y...";A$..-..|
00002580: 8D 36 33 30 30 30 00 9F 2D 58 1B 99 22 93 A6 A6 |.63000..-X.."...|
00002590: A6 A6 A6 A6 12 32 92 A6 A6 A6 A6 A6 A6 11 22 00 |.....2........".|
000025A0: AF 2D 62 1B 99 22 12 3F 46 52 45 28 30 29 22 00 |.-b..".?FRE(0)".|
000025B0: D0 2D 6C 1B 99 22 11 41 4E 44 20 49 20 47 49 56 |.-l..".AND I GIV|
000025C0: 45 20 59 4F 55 20 54 48 45 20 4E 55 4D 42 45 52 |E YOU THE NUMBER|
000025D0: 00 F3 2D 76 1B 99 22 11 4F 46 20 27 46 52 45 45 |..-v..".OF 'FREE|
000025E0: 27 20 42 59 54 45 53 20 4F 46 20 4D 45 4D 4F 52 |' BYTES OF MEMOR|
000025F0: 59 2E 22 00 0D 2E 80 1B 99 22 11 11 A6 A6 A6 A6 |Y."......"......|
00002600: A6 A6 12 33 92 A6 A6 A6 A6 A6 A6 11 22 00 27 2E |...3........".'.|
00002610: 8A 1B 99 22 12 4F 50 45 4E 34 2C 34 3A 43 4D 44 |...".OPEN4,4:CMD|
00002620: 34 3A 4C 49 53 54 22 00 52 2E 94 1B 99 22 11 4C |4:LIST".R....".L|
00002630: 49 53 54 53 20 59 4F 55 52 20 50 52 4F 47 52 41 |ISTS YOUR PROGRA|
00002640: 4D 20 4F 4E 20 54 48 45 20 50 52 49 4E 54 45 52 |M ON THE PRINTER|
00002650: 2E 22 00 75 2E 9E 1B 99 22 11 28 42 55 54 2C 20 |.".u....".(BUT, |
00002660: 41 46 54 45 52 20 4C 49 53 54 49 4E 47 2C 20 54 |AFTER LISTING, T|
00002670: 59 50 45 3A 22 00 8D 2E A8 1B 99 22 11 12 50 52 |YPE:"......"..PR|
00002680: 49 4E 54 23 34 3A 43 4C 4F 53 45 34 22 00 BC 2E |INT#4:CLOSE4"...|
00002690: B2 1B 99 22 11 54 4F 20 50 52 4F 50 45 52 4C 59 |...".TO PROPERLY|
000026A0: 20 43 4C 4F 53 45 20 54 48 45 20 50 52 49 4E 54 | CLOSE THE PRINT|
000026B0: 45 52 20 43 48 41 4E 4E 45 4C 2E 22 00 C7 2E BC |ER CHANNEL."....|
000026C0: 1B 8D 36 33 30 30 30 00 E0 2E 40 1F 99 22 93 A6 |..63000...@.."..|
000026D0: A6 A6 A6 A6 A6 12 34 92 A6 A6 A6 A6 A6 A6 11 22 |......4........"|
000026E0: 00 FD 2E 4A 1F 99 22 12 31 30 20 46 4F 52 49 3D |...J..".10 FORI=|
000026F0: 31 54 4F 31 30 30 30 3A 4E 45 58 54 22 00 25 2F |1TO1000:NEXT".%/|
00002700: 54 1F 99 22 11 49 53 20 47 4F 4F 44 20 46 4F 52 |T..".IS GOOD FOR|
00002710: 20 42 55 49 4C 44 49 4E 47 20 49 4E 20 44 45 4C | BUILDING IN DEL|
00002720: 41 59 53 2E 22 00 4A 2F 5E 1F 99 22 11 42 55 54 |AYS.".J/^..".BUT|
00002730: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 49 | THE FOLLOWING I|
00002740: 53 20 4F 4B 20 54 4F 4F 3A 22 00 7B 2F 6A 1F 99 |S OK TOO:".{/j..|
00002750: 22 11 12 31 30 20 41 3D 54 49 20 20 20 20 20 20 |"..10 A=TI |
00002760: 20 20 20 20 20 92 20 20 41 3D 54 48 45 20 43 55 | . A=THE CU|
00002770: 52 52 45 4E 54 20 54 49 4D 45 22 00 96 2F 72 1F |RRENT TIME"../r.|
00002780: 99 22 12 32 30 20 49 46 54 49 3C 41 2B 36 30 54 |.".20 IFTI<A+60T|
00002790: 48 45 4E 32 30 22 00 C1 2F 7C 1F 99 22 11 54 48 |HEN20"../|..".TH|
000027A0: 49 53 20 57 41 49 54 53 20 46 4F 52 20 36 30 20 |IS WAITS FOR 60 |
000027B0: 4A 49 46 46 49 45 53 3D 31 53 45 43 4F 4E 44 2E |JIFFIES=1SECOND.|
000027C0: 22 00 CC 2F 86 1F 8D 36 33 30 30 30 00 E4 2F 28 |"../...63000../(|
000027D0: 23 99 22 93 A6 A6 A6 A6 A6 A6 12 35 92 A6 A6 A6 |#."........5....|
000027E0: A6 A6 A6 22 00 16 30 32 23 99 22 11 54 48 45 20 |..."..02#.".THE |
000027F0: 43 36 34 20 27 4B 45 59 42 4F 41 52 44 20 42 55 |C64 'KEYBOARD BU|
00002800: 46 46 45 52 27 20 48 4F 4C 44 53 20 31 30 20 42 |FFER' HOLDS 10 B|
00002810: 59 54 45 53 2E 22 00 2A 30 3C 23 99 22 11 49 46 |YTES.".*0<#.".IF|
00002820: 20 59 4F 55 20 52 55 4E 3A 22 00 48 30 46 23 99 | YOU RUN:".H0F#.|
00002830: 22 11 12 31 30 20 46 4F 52 49 3D 31 54 4F 33 30 |"..10 FORI=1TO30|
00002840: 30 30 3A 4E 45 58 54 22 00 6E 30 50 23 99 22 12 |00:NEXT".n0P#.".|
00002850: 32 30 20 46 4F 52 49 3D 31 54 4F 31 30 3A 47 45 |20 FORI=1TO10:GE|
00002860: 54 41 24 3A 3F 41 24 3B 3A 4E 45 58 54 22 00 9A |TA$:?A$;:NEXT"..|
00002870: 30 5A 23 99 22 11 54 48 45 4E 2C 20 44 55 52 49 |0Z#.".THEN, DURI|
00002880: 4E 47 20 54 48 45 20 44 45 4C 41 59 2C 20 59 4F |NG THE DELAY, YO|
00002890: 55 20 43 41 4E 20 48 49 54 22 00 C6 30 64 23 99 |U CAN HIT"..0d#.|
000028A0: 22 11 31 30 20 4B 45 59 53 20 28 4F 52 20 4C 45 |".10 KEYS (OR LE|
000028B0: 53 53 29 20 41 4E 44 20 54 48 45 59 20 57 49 4C |SS) AND THEY WIL|
000028C0: 4C 20 42 45 20 22 00 E3 30 6E 23 99 22 11 53 41 |L BE "..0n#.".SA|
000028D0: 56 45 44 20 49 4E 20 54 48 45 20 42 55 46 46 45 |VED IN THE BUFFE|
000028E0: 52 2E 22 00 0D 31 78 23 99 22 11 42 55 54 11 9D |R."..1x#.".BUT..|
000028F0: 9D 9D B8 BA B8 91 2E 2E 44 4F 4E 27 54 20 48 49 |........DON'T HI|
00002900: 54 20 3E 20 31 30 20 4B 45 59 53 21 22 00 31 31 |T > 10 KEYS!".11|
00002910: 7D 23 99 22 11 28 45 4C 53 45 20 49 20 57 4F 4E |}#.".(ELSE I WON|
00002920: 27 54 20 47 45 54 20 54 48 45 4D 20 41 4C 4C 29 |'T GET THEM ALL)|
00002930: 22 00 47 31 82 23 99 22 11 54 52 59 20 49 54 3F |".G1.#.".TRY IT?|
00002940: 20 54 48 45 4E 3A 22 00 6C 31 8C 23 99 22 11 12 | THEN:".l1.#."..|
00002950: 54 59 50 45 20 40 20 92 22 3A 53 4E 24 B2 22 31 |TYPE @ .":SN$."1|
00002960: 30 30 30 30 22 3A 89 36 33 33 30 30 00 8B 31 10 |0000":.63300..1.|
00002970: 27 8D 36 30 30 30 30 3A 99 22 93 A6 A6 A6 A6 A6 |'.60000:."......|
00002980: A6 12 36 92 A6 A6 A6 A6 A6 A6 22 00 B7 31 1A 27 |..6......."..1.'|
00002990: 99 22 11 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 |.".MEMORY LOCATI|
000029A0: 4F 4E 20 31 39 38 20 28 44 45 43 49 4D 41 4C 29 |ON 198 (DECIMAL)|
000029B0: 20 48 4F 4C 44 53 22 00 E0 31 24 27 99 22 11 54 | HOLDS"..1$'.".T|
000029C0: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 |HE NUMBER OF CHA|
000029D0: 52 41 43 54 45 52 53 20 49 4E 20 54 48 45 20 22 |RACTERS IN THE "|
000029E0: 00 F9 31 2E 27 99 22 11 4B 45 59 42 4F 41 52 44 |..1.'.".KEYBOARD|
000029F0: 20 42 55 46 46 45 52 2E 22 00 20 32 38 27 99 22 | BUFFER.". 28'."|
00002A00: 11 59 4F 55 20 43 41 4E 20 43 4C 45 41 52 20 54 |.YOU CAN CLEAR T|
00002A10: 48 45 20 42 55 46 46 45 52 20 57 49 54 48 3A 22 |HE BUFFER WITH:"|
00002A20: 00 42 32 42 27 99 22 11 12 31 30 20 46 4F 52 49 |.B2B'."..10 FORI|
00002A30: 3D 31 54 4F 31 30 3A 47 45 54 41 24 3A 4E 45 58 |=1TO10:GETA$:NEX|
00002A40: 54 22 00 4E 32 4C 27 99 22 11 4F 52 11 22 00 78 |T".N2L'.".OR.".x|
00002A50: 32 56 27 99 22 12 31 30 20 47 45 54 41 24 3A 49 |2V'.".10 GETA$:I|
00002A60: 46 41 24 3C 3E 22 C7 28 33 34 29 C7 28 33 34 29 |FA$<>".(34).(34)|
00002A70: 22 54 48 45 4E 31 30 22 00 84 32 60 27 99 22 11 |"THEN10"..2`'.".|
00002A80: 4F 52 11 22 00 99 32 6A 27 99 22 12 31 30 20 50 |OR."..2j'.".10 P|
00002A90: 4F 4B 45 31 39 38 2C 30 22 00 A4 32 74 27 8D 36 |OKE198,0"..2t'.6|
00002AA0: 33 30 30 30 00 BC 32 F8 2A 99 22 93 A6 A6 A6 A6 |3000..2.*.".....|
00002AB0: A6 A6 12 37 92 A6 A6 A6 A6 A6 A6 22 00 E8 32 02 |...7......."..2.|
00002AC0: 2B 99 22 11 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 |+.".MEMORY LOCAT|
00002AD0: 49 4F 4E 53 20 35 35 20 41 4E 44 20 35 36 20 48 |IONS 55 AND 56 H|
00002AE0: 4F 4C 44 20 54 48 45 22 00 17 33 0C 2B 99 22 11 |OLD THE"..3.+.".|
00002AF0: 4C 4F 43 41 54 49 4F 4E 20 4F 46 20 54 48 45 20 |LOCATION OF THE |
00002B00: 27 45 4E 44 20 4F 46 20 42 41 53 49 43 20 4D 45 |'END OF BASIC ME|
00002B10: 4D 4F 52 59 27 2E 22 00 37 33 16 2B 99 22 11 50 |MORY'.".73.+.".P|
00002B20: 52 49 4E 54 20 49 54 20 4F 55 54 20 42 59 20 54 |RINT IT OUT BY T|
00002B30: 59 50 49 4E 47 3A 22 00 57 33 20 2B 99 22 11 12 |YPING:".W3 +."..|
00002B40: 3F 50 45 45 4B 28 35 35 29 2B 32 35 36 2A 50 45 |?PEEK(55)+256*PE|
00002B50: 45 4B 28 35 36 29 22 00 6F 33 2A 2B 99 22 11 11 |EK(56)".o3*+."..|
00002B60: 54 48 45 4E 20 20 20 12 54 59 50 45 20 40 22 00 |THEN .TYPE @".|
00002B70: A4 33 34 2B 99 22 11 11 11 3F 50 45 45 4B 28 35 |.34+."...?PEEK(5|
00002B80: 35 29 2B 32 35 36 2A 50 45 45 4B 28 35 36 29 91 |5)+256*PEEK(56).|
00002B90: 22 3A 53 4E 24 B2 22 31 32 30 30 30 22 3A 89 36 |":SN$."12000":.6|
00002BA0: 33 33 30 30 00 B7 33 E0 2E 8D 36 30 30 30 30 3A |3300..3...60000:|
00002BB0: 58 B2 33 32 37 36 38 00 D4 33 F4 2E 99 22 93 A6 |X.32768..3..."..|
00002BC0: A6 A6 A6 A6 A6 12 38 92 A6 A6 A6 A6 A6 A6 54 4F |......8.......TO|
00002BD0: 50 3D 22 58 00 FE 33 FE 2E 99 22 11 49 46 20 59 |P="X..3...".IF Y|
00002BE0: 4F 55 20 57 41 4E 54 20 54 4F 20 53 54 4F 52 45 |OU WANT TO STORE|
00002BF0: 20 53 4F 4D 45 20 4E 55 4D 42 45 52 53 22 00 2B | SOME NUMBERS".+|
00002C00: 34 08 2F 99 22 11 46 4F 52 20 53 41 46 45 20 4B |4./.".FOR SAFE K|
00002C10: 45 45 50 49 4E 47 2C 20 59 4F 55 20 43 41 4E 20 |EEPING, YOU CAN |
00002C20: 43 48 41 4E 47 45 20 54 48 45 22 00 5F 34 12 2F |CHANGE THE"._4./|
00002C30: 99 22 11 54 4F 50 20 4F 46 20 42 41 53 49 43 20 |.".TOP OF BASIC |
00002C40: 4D 45 4D 4F 52 59 2C 20 42 59 20 50 4F 4B 49 4E |MEMORY, BY POKIN|
00002C50: 47 20 41 20 4E 45 57 11 9D 9D 9D B8 B8 B8 22 00 |G A NEW.......".|
00002C60: 9D 34 1C 2F 99 22 27 54 4F 50 27 20 49 4E 54 4F |.4./."'TOP' INTO|
00002C70: 20 35 35 20 26 20 35 36 2C 20 53 4F 20 54 48 45 | 55 & 56, SO THE|
00002C80: 20 4E 45 57 20 54 4F 50 20 49 53 22 3A 58 24 B2 | NEW TOP IS":X$.|
00002C90: CA 28 C4 28 58 AB 31 30 30 29 2C 32 29 00 C6 34 |.(.(X.100),2)..4|
00002CA0: 26 2F 99 22 11 53 41 59 2C 20 22 58 24 22 2C 20 |&/.".SAY, "X$", |
00002CB0: 47 49 56 49 4E 47 20 59 4F 55 20 31 30 30 20 50 |GIVING YOU 100 P|
00002CC0: 4C 41 43 45 53 22 00 E5 34 30 2F 99 22 11 54 4F |LACES"..40/.".TO|
00002CD0: 20 53 54 4F 52 45 20 59 4F 55 52 20 4E 55 4D 42 | STORE YOUR NUMB|
00002CE0: 45 52 53 2E 22 00 16 35 3A 2F 99 22 11 48 4F 57 |ERS."..5:/.".HOW|
00002CF0: 20 54 4F 20 53 54 4F 52 45 20 54 48 45 4D 3F 20 | TO STORE THEM? |
00002D00: 12 50 4F 4B 45 92 20 54 48 45 4D 20 49 4E 54 4F |.POKE. THEM INTO|
00002D10: 20 52 41 4D 21 22 00 4A 35 44 2F 99 22 11 12 31 | RAM!".J5D/."..1|
00002D20: 30 20 46 4F 52 49 3D 30 54 4F 39 39 3A 50 4F 4B |0 FORI=0TO99:POK|
00002D30: 45 22 58 24 22 12 2B 49 2C 41 28 49 29 3A 4E 45 |E"X$".+I,A(I):NE|
00002D40: 58 54 22 3A 8D 36 33 30 30 30 00 62 35 C8 32 99 |XT":.63000.b5.2.|
00002D50: 22 93 A6 A6 A6 A6 A6 A6 12 39 92 A6 A6 A6 A6 A6 |"........9......|
00002D60: A6 22 00 8A 35 D2 32 99 22 11 45 56 45 52 59 20 |."..5.2.".EVERY |
00002D70: 4A 49 46 46 59 20 28 36 30 20 54 49 4D 45 53 2F |JIFFY (60 TIMES/|
00002D80: 53 45 43 4F 4E 44 29 20 49 22 00 B5 35 DC 32 99 |SECOND) I"..5.2.|
00002D90: 22 11 53 54 4F 50 20 57 48 41 54 20 49 27 4D 20 |".STOP WHAT I'M |
00002DA0: 44 4F 49 4E 47 20 41 4E 44 20 55 50 44 41 54 45 |DOING AND UPDATE|
00002DB0: 20 54 48 45 22 00 E3 35 E6 32 99 22 11 4A 49 46 | THE"..5.2.".JIF|
00002DC0: 46 59 20 43 4C 4F 43 4B 2C 41 4E 44 2E 2E 41 4D |FY CLOCK,AND..AM|
00002DD0: 4F 4E 47 20 4F 54 48 45 52 20 54 48 49 4E 47 53 |ONG OTHER THINGS|
00002DE0: 2E 2E 22 00 0B 36 F0 32 99 22 11 43 48 45 43 4B |.."..6.2.".CHECK|
00002DF0: 20 54 4F 20 53 45 45 20 49 46 20 59 4F 55 20 50 | TO SEE IF YOU P|
00002E00: 52 45 53 53 45 44 20 54 48 45 22 00 25 36 FA 32 |RESSED THE".%6.2|
00002E10: 99 22 11 12 52 55 4E 2F 53 54 4F 50 92 20 4B 45 |."..RUN/STOP. KE|
00002E20: 59 2E 2E 2E 22 00 57 36 04 33 99 22 11 2E 2E 41 |Y...".W6.3."...A|
00002E30: 4E 44 2C 20 49 46 20 53 4F 2C 20 54 48 45 4E 20 |ND, IF SO, THEN |
00002E40: 49 20 57 49 4C 4C 20 53 54 4F 50 21 11 9D 9D 9D |I WILL STOP!....|
00002E50: 9D 9D B8 B8 B8 B8 22 00 83 36 0E 33 99 22 11 49 |......"..6.3.".I|
00002E60: 20 44 4F 20 54 48 45 53 45 20 54 48 49 4E 47 53 | DO THESE THINGS|
00002E70: 20 28 36 30 20 54 49 4D 45 53 2F 53 45 43 4F 4E | (60 TIMES/SECON|
00002E80: 44 29 22 00 B2 36 18 33 99 22 11 42 59 20 4A 55 |D)"..6.3.".BY JU|
00002E90: 4D 50 49 4E 47 20 54 4F 20 41 20 4D 41 47 49 43 |MPING TO A MAGIC|
00002EA0: 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E | MEMORY LOCATION|
00002EB0: 2E 22 00 BD 36 22 33 8D 36 33 30 30 30 00 E6 36 |."..6"3.63000..6|
00002EC0: 2C 33 99 22 93 54 48 49 53 20 4D 41 47 49 43 20 |,3.".THIS MAGIC |
00002ED0: 4C 4F 43 41 54 49 4F 4E 20 49 53 20 53 54 4F 52 |LOCATION IS STOR|
00002EE0: 45 44 20 49 4E 22 00 0A 37 36 33 99 22 11 4D 45 |ED IN"..763.".ME|
00002EF0: 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E 53 20 37 |MORY LOCATIONS 7|
00002F00: 38 38 20 26 20 37 38 39 2E 22 00 35 37 40 33 99 |88 & 789.".57@3.|
00002F10: 22 11 49 20 4A 55 4D 50 20 54 4F 20 12 50 45 45 |".I JUMP TO .PEE|
00002F20: 4B 28 37 38 38 29 2B 32 35 36 2A 50 45 45 4B 28 |K(788)+256*PEEK(|
00002F30: 37 38 39 29 22 00 6C 37 4A 33 99 22 11 11 48 4F |789)".l7J3."..HO|
00002F40: 4C 44 20 4F 4E 2E 2E 49 27 4C 4C 20 54 45 4C 4C |LD ON..I'LL TELL|
00002F50: 20 59 4F 55 20 57 48 45 52 45 20 49 20 4A 55 4D | YOU WHERE I JUM|
00002F60: 50 2E 2E 2E 22 3A 8D 36 33 30 30 30 00 83 37 54 |P...":.63000..7T|
00002F70: 33 99 22 93 11 11 2E 2E 2E 2E 49 54 27 53 20 54 |3.".......IT'S T|
00002F80: 4F 22 3B 00 BD 37 5E 33 41 39 B2 37 AC 34 30 39 |O";..7^3A9.7.409|
00002F90: 36 AA 31 35 AC 32 35 36 AA 31 34 AC 31 36 AA 31 |6.15.256.14.16.1|
00002FA0: 30 3A 4D 4C B2 C2 28 41 39 29 AA 32 35 36 AC C2 |0:ML..(A9).256..|
00002FB0: 28 41 39 AA 31 29 3A 99 22 12 22 4D 4C 00 E6 37 |(A9.1):."."ML..7|
00002FC0: 68 33 99 22 11 41 54 20 4C 4F 43 41 54 49 4F 4E |h3.".AT LOCATION|
00002FD0: 22 4D 4C 22 20 41 52 45 20 49 4E 53 54 52 55 43 |"ML" ARE INSTRUC|
00002FE0: 54 49 4F 4E 53 22 00 0C 38 72 33 99 22 11 57 48 |TIONS"..8r3.".WH|
00002FF0: 49 43 48 20 43 48 45 43 4B 20 46 4F 52 20 12 53 |ICH CHECK FOR .S|
00003000: 54 4F 50 92 2C 20 45 54 43 2E 2E 22 00 38 38 7C |TOP., ETC..".88||
00003010: 33 99 22 11 59 4F 55 20 43 41 4E 20 42 59 50 41 |3.".YOU CAN BYPA|
00003020: 53 53 20 54 48 45 20 27 43 48 45 43 4B 20 46 4F |SS THE 'CHECK FO|
00003030: 52 20 53 54 4F 50 27 22 00 60 38 86 33 99 22 11 |R STOP'".`8.3.".|
00003040: 42 59 20 48 41 56 49 4E 47 20 4D 45 20 4A 55 4D |BY HAVING ME JUM|
00003050: 50 20 54 4F 20 12 22 4D 4C AA 33 22 92 21 21 22 |P TO ."ML.3".!!"|
00003060: 00 86 38 90 33 99 22 11 2E 2E 53 49 4D 50 4C 59 |..8.3."...SIMPLY|
00003070: 20 12 50 4F 4B 45 37 38 38 2C 50 45 45 4B 28 37 | .POKE788,PEEK(7|
00003080: 38 38 29 2B 33 22 00 B7 38 9A 33 99 22 11 49 4E |88)+3"..8.3.".IN|
00003090: 20 41 20 50 52 4F 47 52 41 4D 20 41 4E 44 20 12 | A PROGRAM AND .|
000030A0: 53 54 4F 50 92 20 57 49 4C 4C 20 42 45 20 49 47 |STOP. WILL BE IG|
000030B0: 4E 4F 52 45 44 21 22 00 C2 38 A4 33 8D 36 33 30 |NORED!"..8.3.630|
000030C0: 30 30 00 F0 38 AE 33 99 22 93 12 42 55 54 20 52 |00..8.3."..BUT R|
000030D0: 45 4D 45 4D 42 45 52 20 54 4F 20 12 50 4F 4B 45 |EMEMBER TO .POKE|
000030E0: 37 38 38 2C 50 45 45 4B 28 37 38 38 29 2D 33 22 |788,PEEK(788)-3"|
000030F0: 00 0F 39 B8 33 99 22 11 4C 41 54 45 52 20 49 4E |..9.3.".LATER IN|
00003100: 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 2E 22 00 | THE PROGRAM..".|
00003110: 30 39 C2 33 99 22 11 11 43 41 52 45 20 28 44 41 |09.3."..CARE (DA|
00003120: 52 45 29 20 54 4F 20 54 52 59 20 49 54 3F 3F 22 |RE) TO TRY IT??"|
00003130: 00 42 39 CC 33 99 22 11 52 45 4D 45 4D 42 45 52 |.B9.3.".REMEMBER|
00003140: 3A 22 00 5F 39 D6 33 99 22 11 12 50 4F 4B 45 37 |:"._9.3."..POKE7|
00003150: 38 38 2C 50 45 45 4B 28 37 38 38 29 2B 33 22 00 |88,PEEK(788)+3".|
00003160: 82 39 E0 33 99 22 11 54 48 45 4E 20 57 52 49 54 |.9.3.".THEN WRIT|
00003170: 45 20 41 20 50 52 4F 47 52 41 4D 20 4C 49 4B 45 |E A PROGRAM LIKE|
00003180: 3A 22 00 A0 39 EA 33 99 22 11 31 30 20 46 4F 52 |:"..9.3.".10 FOR|
00003190: 49 3D 31 54 4F 31 30 30 30 30 3A 4E 45 58 54 22 |I=1TO10000:NEXT"|
000031A0: 00 BC 39 F4 33 99 22 11 41 4E 44 20 54 52 59 20 |..9.3.".AND TRY |
000031B0: 54 4F 20 53 54 4F 50 20 49 54 2E 22 00 D6 39 58 |TO STOP IT."..9X|
000031C0: 34 99 22 11 45 56 45 4E 54 55 41 4C 4C 59 2E 2E |4.".EVENTUALLY..|
000031D0: 54 59 50 45 3A 22 00 F3 39 62 34 99 22 11 12 50 |TYPE:"..9b4."..P|
000031E0: 4F 4B 45 37 38 38 2C 50 45 45 4B 28 37 38 38 29 |OKE788,PEEK(788)|
000031F0: 2D 33 22 00 13 3A 6C 34 99 22 11 2E 2E 43 4F 4D |-3"..:l4."...COM|
00003200: 45 20 54 4F 20 54 48 49 4E 4B 20 4F 46 20 49 54 |E TO THINK OF IT|
00003210: 2E 2E 22 00 47 3A 76 34 99 22 11 54 52 59 20 49 |..".G:v4.".TRY I|
00003220: 54 20 12 41 46 54 45 52 92 20 59 4F 55 27 56 45 |T .AFTER. YOU'VE|
00003230: 20 45 4E 44 45 44 20 12 54 55 54 4F 52 92 21 22 | ENDED .TUTOR.!"|
00003240: 3A 8D 36 33 30 30 30 00 60 3A B0 36 99 22 93 12 |:.63000.`:.6."..|
00003250: 54 48 45 20 53 59 53 20 43 4F 4D 4D 41 4E 44 22 |THE SYS COMMAND"|
00003260: 00 84 3A BA 36 99 22 11 49 20 44 4F 4E 27 54 20 |..:.6.".I DON'T |
00003270: 55 4E 44 45 52 53 54 41 4E 44 20 27 42 41 53 49 |UNDERSTAND 'BASI|
00003280: 43 27 2E 22 00 AD 3A C4 36 99 22 11 49 20 55 4E |C'."..:.6.".I UN|
00003290: 44 45 52 53 54 41 4E 44 20 27 4D 41 43 48 49 4E |DERSTAND 'MACHIN|
000032A0: 45 20 4C 41 4E 47 55 41 47 45 27 2E 22 00 DB 3A |E LANGUAGE'."..:|
000032B0: CE 36 99 22 11 48 4F 57 45 56 45 52 20 49 20 48 |.6.".HOWEVER I H|
000032C0: 41 56 45 20 41 20 42 55 49 4C 54 2D 49 4E 20 49 |AVE A BUILT-IN I|
000032D0: 4E 54 45 52 50 52 45 54 45 52 22 00 F9 3A D8 36 |NTERPRETER"..:.6|
000032E0: 99 22 11 57 48 4F 20 55 4E 44 45 52 53 54 41 4E |.".WHO UNDERSTAN|
000032F0: 44 53 20 42 4F 54 48 21 22 00 23 3B E2 36 99 22 |DS BOTH!".#;.6."|
00003300: 11 48 45 20 54 52 41 4E 53 4C 41 54 45 53 20 59 |.HE TRANSLATES Y|
00003310: 4F 55 52 20 42 41 53 49 43 20 43 4F 4D 4D 41 4E |OUR BASIC COMMAN|
00003320: 44 53 22 00 52 3B EC 36 99 22 11 49 4E 54 4F 20 |DS".R;.6.".INTO |
00003330: 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 |MACHINE LANGUAGE|
00003340: 20 43 4F 4D 4D 41 4E 44 53 20 46 4F 52 20 4D 45 | COMMANDS FOR ME|
00003350: 2E 22 00 7F 3B F6 36 99 22 11 54 48 49 53 20 27 |."..;.6.".THIS '|
00003360: 42 41 53 49 43 20 49 4E 54 45 52 50 52 45 54 45 |BASIC INTERPRETE|
00003370: 52 27 20 49 53 20 41 20 53 45 54 20 4F 46 22 00 |R' IS A SET OF".|
00003380: AB 3B 00 37 99 22 11 4D 41 43 48 49 4E 45 20 4C |.;.7.".MACHINE L|
00003390: 41 4E 47 55 41 47 45 20 49 4E 53 54 52 55 43 54 |ANGUAGE INSTRUCT|
000033A0: 49 4F 4E 53 20 57 48 49 43 48 22 00 D0 3B 0A 37 |IONS WHICH"..;.7|
000033B0: 99 22 11 52 45 53 49 44 45 20 49 4E 20 4D 45 4D |.".RESIDE IN MEM|
000033C0: 4F 52 59 20 46 52 4F 4D 20 34 30 39 36 30 2E 22 |ORY FROM 40960."|
000033D0: 00 E7 3B 19 37 99 22 11 54 48 41 54 20 49 53 3A |..;.7.".THAT IS:|
000033E0: 20 24 41 30 30 30 22 00 F2 3B 1E 37 8D 36 33 30 | $A000"..;.7.630|
000033F0: 30 30 00 1C 3C 28 37 99 22 93 4D 41 43 48 49 4E |00..<(7.".MACHIN|
00003400: 45 20 4C 41 4E 47 55 41 47 45 20 49 4E 53 54 52 |E LANGUAGE INSTR|
00003410: 55 43 54 49 4F 4E 53 20 41 52 45 22 00 4A 3C 32 |UCTIONS ARE".J<2|
00003420: 37 99 22 11 4E 55 4D 42 45 52 53 20 46 52 4F 4D |7.".NUMBERS FROM|
00003430: 20 30 20 54 4F 20 32 35 35 2E 2E 41 4E 44 20 45 | 0 TO 255..AND E|
00003440: 41 43 48 20 4D 45 41 4E 53 22 00 65 3C 3C 37 99 |ACH MEANS".e<<7.|
00003450: 22 11 53 4F 4D 45 54 48 49 4E 47 20 53 50 45 43 |".SOMETHING SPEC|
00003460: 49 41 4C 2E 22 00 92 3C 46 37 99 22 11 46 4F 52 |IAL."..<F7.".FOR|
00003470: 20 45 58 41 4D 50 4C 45 20 54 48 45 20 53 45 51 | EXAMPLE THE SEQ|
00003480: 55 45 4E 43 45 20 4F 46 20 4E 55 4D 42 45 52 53 |UENCE OF NUMBERS|
00003490: 3A 22 00 B4 3C 50 37 99 22 11 12 31 36 3B 92 20 |:"..<P7."..16;. |
000034A0: 12 31 37 30 92 20 12 31 34 31 92 20 12 30 92 20 |.170. .141. .0. |
000034B0: 12 34 92 22 00 E1 3C 5A 37 99 22 11 53 41 59 53 |.4."..<Z7.".SAYS|
000034C0: 20 54 4F 20 50 55 54 20 41 4E 20 41 53 54 45 52 | TO PUT AN ASTER|
000034D0: 49 53 4B 20 49 4E 20 54 48 45 20 55 50 50 45 52 |ISK IN THE UPPER|
000034E0: 22 00 04 3D 64 37 99 22 11 4C 45 46 54 20 43 4F |"..=d7.".LEFT CO|
000034F0: 52 4E 45 52 20 4F 46 20 54 48 45 20 53 43 52 45 |RNER OF THE SCRE|
00003500: 45 4E 2E 22 00 35 3D 6E 37 99 22 11 11 48 45 52 |EN.".5=n7."..HER|
00003510: 45 20 41 52 45 20 53 4F 4D 45 20 27 49 4E 53 54 |E ARE SOME 'INST|
00003520: 52 55 43 54 49 4F 4E 53 27 20 54 41 4B 45 4E 20 |RUCTIONS' TAKEN |
00003530: 46 52 4F 4D 22 00 74 3D 78 37 99 22 54 48 45 20 |FROM".t=x7."THE |
00003540: 49 4E 54 45 52 50 52 45 54 45 52 20 27 48 49 4D |INTERPRETER 'HIM|
00003550: 53 45 4C 46 27 20 28 48 45 52 53 45 4C 46 3F 29 |SELF' (HERSELF?)|
00003560: 3A 22 3A 8D 36 33 30 30 30 3A 99 22 91 91 91 91 |:":.63000:."....|
00003570: 91 91 91 22 00 9A 3D 82 37 81 49 B2 30 A4 31 35 |..."..=.7.I.0.15|
00003580: 3A 99 C2 28 34 30 39 36 30 AA 49 29 3B 3A 81 4A |:..(40960.I);:.J|
00003590: B2 31 A4 31 30 30 3A 82 3A 82 00 A5 3D 96 37 8D |.1.100:.:...=.7.|
000035A0: 36 33 30 30 30 00 D3 3D A0 37 99 22 93 4F 4B 2E |63000..=.7.".OK.|
000035B0: 2E 2E 49 46 20 59 4F 55 20 43 41 4E 20 54 41 4C |..IF YOU CAN TAL|
000035C0: 4B 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 |K MACHINE LANGUA|
000035D0: 47 45 22 00 FD 3D AA 37 99 22 11 54 48 45 4E 20 |GE"..=.7.".THEN |
000035E0: 59 4F 55 20 43 41 4E 20 50 55 54 20 59 4F 55 52 |YOU CAN PUT YOUR|
000035F0: 20 4D 2D 4C 20 50 52 4F 47 52 41 4D 22 00 22 3E | M-L PROGRAM".">|
00003600: B4 37 99 22 11 49 4E 54 4F 20 4D 45 4D 4F 52 59 |.7.".INTO MEMORY|
00003610: 20 53 54 41 52 54 49 4E 47 20 41 54 20 53 4F 4D | STARTING AT SOM|
00003620: 45 22 00 4F 3E BE 37 99 22 11 4C 4F 43 41 54 49 |E".O>.7.".LOCATI|
00003630: 4F 4E 2C 20 53 41 59 20 32 30 30 30 30 2C 20 54 |ON, SAY 20000, T|
00003640: 48 45 4E 20 12 53 59 53 20 32 30 30 30 30 22 00 |HEN .SYS 20000".|
00003650: 73 3E CA 37 99 22 11 57 49 4C 4C 20 53 45 4E 44 |s>.7.".WILL SEND|
00003660: 20 4D 45 20 54 48 45 52 45 20 54 4F 20 4F 42 45 | ME THERE TO OBE|
00003670: 59 2E 22 00 A2 3E D2 37 99 22 11 59 4F 55 20 4D |Y."..>.7.".YOU M|
00003680: 49 47 48 54 20 53 54 49 43 4B 20 59 4F 55 52 20 |IGHT STICK YOUR |
00003690: 50 52 4F 47 52 41 4D 20 55 50 20 41 54 20 54 48 |PROGRAM UP AT TH|
000036A0: 45 22 00 CB 3E DC 37 99 22 11 27 54 4F 50 20 4F |E"..>.7.".'TOP O|
000036B0: 46 20 42 41 53 49 43 20 52 41 4D 27 20 53 4F 4D |F BASIC RAM' SOM|
000036C0: 45 57 48 45 52 45 20 41 4E 44 22 00 F5 3E E6 37 |EWHERE AND"..>.7|
000036D0: 99 22 11 50 52 4F 54 45 43 54 20 49 54 20 46 52 |.".PROTECT IT FR|
000036E0: 4F 4D 20 42 45 49 4E 47 20 4F 56 45 52 57 52 49 |OM BEING OVERWRI|
000036F0: 54 54 45 4E 22 00 24 3F F0 37 99 22 11 42 59 20 |TTEN".$?.7.".BY |
00003700: 43 48 41 4E 47 49 4E 47 20 27 54 4F 50 27 20 28 |CHANGING 'TOP' (|
00003710: 41 54 20 35 35 2F 35 36 20 52 45 4D 45 4D 42 45 |AT 55/56 REMEMBE|
00003720: 52 3F 29 22 00 2F 3F FA 37 8D 36 33 30 30 30 00 |R?)"./?.7.63000.|
00003730: 3A 3F 04 38 99 22 93 11 11 22 00 6D 3F 0E 38 99 |:?.8."...".m?.8.|
00003740: 22 31 30 20 46 4F 52 49 3D 32 35 30 30 30 54 4F |"10 FORI=25000TO|
00003750: 32 35 30 32 34 3A 52 45 41 44 4B 3A 50 4F 4B 45 |25024:READK:POKE|
00003760: 49 2C 4B 3A 4E 45 58 54 3A 45 4E 44 22 00 AD 3F |I,K:NEXT:END"..?|
00003770: 18 38 99 22 32 30 20 44 41 54 41 20 31 36 32 2C |.8."20 DATA 162,|
00003780: 34 2C 31 36 30 2C 34 2C 31 33 32 2C 31 37 37 2C |4,160,4,132,177,|
00003790: 31 36 30 2C 30 2C 31 33 32 2C 31 37 36 2C 31 37 |160,0,132,176,17|
000037A0: 37 2C 31 37 36 2C 37 33 2C 31 32 38 22 00 E7 3F |7,176,73,128"..?|
000037B0: 22 38 99 22 33 30 20 44 41 54 41 20 31 34 35 2C |"8."30 DATA 145,|
000037C0: 31 37 36 2C 32 30 30 2C 32 30 38 2C 32 34 37 2C |176,200,208,247,|
000037D0: 32 33 30 2C 31 37 37 2C 32 30 32 2C 32 30 38 2C |230,177,202,208,|
000037E0: 32 34 32 2C 39 36 22 00 F4 3F 23 38 99 22 52 55 |242,96"..?#8."RU|
000037F0: 4E 31 30 22 00 06 40 24 38 99 22 11 11 53 59 53 |N10"..@$8."..SYS|
00003800: 32 35 30 30 30 22 00 31 40 27 38 99 22 11 11 12 |25000".1@'8."...|
00003810: 48 45 52 45 27 53 20 41 20 4D 2D 4C 20 50 52 4F |HERE'S A M-L PRO|
00003820: 47 52 41 4D 20 59 4F 55 20 43 41 4E 20 54 52 59 |GRAM YOU CAN TRY|
00003830: 22 00 64 40 2C 38 99 22 11 11 45 4E 54 45 52 20 |".d@,8."..ENTER |
00003840: 54 48 45 53 45 2C 20 54 48 45 4E 20 12 52 55 4E |THESE, THEN .RUN|
00003850: 31 30 92 2C 20 54 48 45 4E 20 12 53 59 53 32 35 |10., THEN .SYS25|
00003860: 30 30 30 22 00 89 40 36 38 99 22 11 11 28 54 48 |000"..@68."..(TH|
00003870: 45 4E 20 12 54 59 50 45 20 40 92 20 54 4F 20 43 |EN .TYPE @. TO C|
00003880: 4F 4E 54 49 4E 55 45 29 22 00 A7 40 40 38 99 22 |ONTINUE)"..@@8."|
00003890: 13 11 11 22 3A 53 4E 24 B2 22 31 35 30 30 30 22 |...":SN$."15000"|
000038A0: 3A 89 36 33 33 30 30 00 D1 40 98 3A 8D 36 30 30 |:.63300..@.:.600|
000038B0: 30 30 3A 99 22 93 22 3A 4D 53 24 B2 22 20 12 53 |00:.".":MS$." .S|
000038C0: 4C 49 43 4B 20 45 48 3F 92 22 3A 8D 36 33 31 30 |LICK EH?.":.6310|
000038D0: 30 00 FB 40 A2 3A 99 22 93 4F 4E 45 20 4D 2D 4C |0..@.:.".ONE M-L|
000038E0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 57 48 49 | INSTRUCTION WHI|
000038F0: 43 48 20 49 53 20 4E 49 43 45 22 00 17 41 AC 3A |CH IS NICE"..A.:|
00003900: 99 22 11 49 53 20 5A 45 52 4F 20 28 49 20 4D 45 |.".IS ZERO (I ME|
00003910: 41 4E 20 30 29 2E 22 00 48 41 B6 3A 99 22 11 54 |AN 0).".HA.:.".T|
00003920: 48 49 53 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 |HIS INSTRUCTION |
00003930: 54 45 4C 4C 53 20 4D 45 20 54 4F 20 4A 55 4D 50 |TELLS ME TO JUMP|
00003940: 20 54 4F 20 54 48 45 22 00 72 41 C0 3A 99 22 11 | TO THE".rA.:.".|
00003950: 27 12 4D 92 41 43 48 49 4E 45 20 12 4C 92 41 4E |'.M.ACHINE .L.AN|
00003960: 47 55 41 47 45 20 12 4D 92 4F 4E 49 54 4F 52 27 |GUAGE .M.ONITOR'|
00003970: 2E 22 00 A0 41 CA 3A 99 22 11 28 49 20 4C 49 4B |."..A.:.".(I LIK|
00003980: 45 20 54 48 45 20 12 4D 4C 4D 92 20 53 4F 20 4D |E THE .MLM. SO M|
00003990: 55 43 48 20 49 20 53 4F 4D 45 54 49 4D 45 53 22 |UCH I SOMETIMES"|
000039A0: 00 BF 41 D4 3A 99 22 11 4A 55 4D 50 20 54 48 45 |..A.:.".JUMP THE|
000039B0: 52 45 20 4F 4E 20 4D 59 20 4F 57 4E 21 29 22 00 |RE ON MY OWN!)".|
000039C0: EE 41 DE 3A 99 22 11 54 4F 20 47 45 54 20 4F 55 |.A.:.".TO GET OU|
000039D0: 54 20 4F 46 20 54 48 45 20 4D 4C 4D 20 4A 55 53 |T OF THE MLM JUS|
000039E0: 54 20 54 59 50 45 20 41 4E 20 27 58 27 22 00 10 |T TYPE AN 'X'"..|
000039F0: 42 E8 3A 99 22 11 41 4E 44 20 48 49 54 20 54 48 |B.:.".AND HIT TH|
00003A00: 45 20 27 52 45 54 55 52 4E 27 20 4B 45 59 2E 22 |E 'RETURN' KEY."|
00003A10: 00 1B 42 ED 3A 8D 36 33 30 30 30 00 41 42 F2 3A |..B.:.63000.AB.:|
00003A20: 99 22 93 4C 45 54 27 53 20 54 52 59 20 4A 55 4D |.".LET'S TRY JUM|
00003A30: 50 49 4E 47 20 54 4F 20 54 48 45 20 4D 4C 4D 2E |PING TO THE MLM.|
00003A40: 22 00 6D 42 FC 3A 99 22 11 48 49 54 20 41 20 4B |".mB.:.".HIT A K|
00003A50: 45 59 20 57 48 45 4E 20 59 4F 55 27 52 45 20 52 |EY WHEN YOU'RE R|
00003A60: 45 41 44 59 20 54 4F 20 54 52 59 2E 22 00 91 42 |EADY TO TRY."..B|
00003A70: 06 3B 99 22 11 12 20 52 45 4D 45 4D 42 45 52 20 |.;.".. REMEMBER |
00003A80: 48 4F 57 20 54 4F 20 47 45 54 20 4F 55 54 21 20 |HOW TO GET OUT! |
00003A90: 22 00 B7 42 0B 3B 99 22 11 12 20 54 59 50 45 20 |"..B.;.".. TYPE |
00003AA0: 27 58 27 20 54 48 45 4E 20 48 49 54 20 27 52 45 |'X' THEN HIT 'RE|
00003AB0: 54 55 52 4E 27 20 22 00 EC 42 10 3B 99 22 11 11 |TURN' "..B.;."..|
00003AC0: 11 11 54 48 45 4E 20 12 40 92 20 54 4F 20 43 4F |..THEN .@. TO CO|
00003AD0: 4E 54 49 4E 55 45 2E 2E 22 3A 53 4E 24 B2 22 31 |NTINUE..":SN$."1|
00003AE0: 36 30 30 30 22 3A 8D 36 33 36 30 30 00 0A 43 1A |6000":.63600..C.|
00003AF0: 3B 8D 36 33 30 30 31 3A 53 4E 24 B2 22 31 36 30 |;.63001:SN$."160|
00003B00: 30 30 22 3A 8D 36 33 36 30 30 00 1B 43 24 3B 9E |00":.63600..C$;.|
00003B10: 32 30 34 38 3A 8D 36 33 30 30 30 00 53 43 80 3E |2048:.63000.SC.>|
00003B20: 8D 36 30 30 30 30 3A 99 22 93 4F 4B 2E 2E 49 46 |.60000:.".OK..IF|
00003B30: 20 59 4F 55 11 9D 9D 9D B8 B8 B8 91 20 57 41 4E | YOU........ WAN|
00003B40: 54 20 54 4F 20 45 4E 54 45 52 20 54 48 45 20 4D |T TO ENTER THE M|
00003B50: 4C 4D 22 00 82 43 8A 3E 99 22 11 59 4F 55 20 43 |LM"..C.>.".YOU C|
00003B60: 41 4E 20 46 49 4E 44 20 41 4E 59 20 4D 45 4D 4F |AN FIND ANY MEMO|
00003B70: 52 59 20 4C 4F 43 41 54 49 4F 4E 20 57 48 49 43 |RY LOCATION WHIC|
00003B80: 48 22 00 B5 43 94 3E 99 22 11 43 4F 4E 54 41 49 |H"..C.>.".CONTAI|
00003B90: 4E 53 20 27 30 27 20 41 4E 44 20 53 45 4E 44 20 |NS '0' AND SEND |
00003BA0: 4D 45 20 54 48 45 52 45 20 57 49 54 48 20 12 53 |ME THERE WITH .S|
00003BB0: 59 53 92 2E 22 00 E1 43 9E 3E 99 22 11 4F 4E 45 |YS.."..C.>.".ONE|
00003BC0: 20 47 4F 4F 44 20 50 4C 41 43 45 20 49 53 20 32 | GOOD PLACE IS 2|
00003BD0: 30 34 38 2E 20 49 54 20 41 4C 57 41 59 53 2E 2E |048. IT ALWAYS..|
00003BE0: 22 00 07 44 A8 3E 99 22 11 2E 2E 2E 2E 2E 57 45 |"..D.>."......WE|
00003BF0: 4C 4C 20 2C 20 41 4C 4D 4F 53 54 20 41 4C 57 41 |LL , ALMOST ALWA|
00003C00: 59 53 2E 2E 2E 2E 22 00 1D 44 B2 3E 99 22 11 43 |YS...."..D.>.".C|
00003C10: 4F 4E 54 41 49 4E 53 20 27 30 27 2E 22 00 4C 44 |ONTAINS '0'.".LD|
00003C20: BC 3E 99 22 11 11 54 52 59 20 12 53 59 53 32 30 |.>."..TRY .SYS20|
00003C30: 34 38 92 2E 20 28 52 45 4D 45 4D 42 45 52 20 27 |48.. (REMEMBER '|
00003C40: 58 27 20 54 4F 20 45 58 49 54 29 22 00 84 44 C6 |X' TO EXIT)"..D.|
00003C50: 3E 99 22 11 11 54 48 45 4E 20 12 54 59 50 45 20 |>."..THEN .TYPE |
00003C60: 40 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 2E |@. TO CONTINUE..|
00003C70: 22 3A 53 4E 24 B2 22 31 37 30 30 30 22 3A 8B 36 |":SN$."17000":.6|
00003C80: 33 33 30 30 00 B7 44 68 42 8D 36 30 30 30 30 3A |3300..DhB.60000:|
00003C90: 99 22 93 4F 4E 43 45 20 49 4E 20 54 48 45 20 4F |.".ONCE IN THE O|
00003CA0: 4C 4D 20 59 4F 55 20 43 41 4E 20 44 49 53 50 4C |LM YOU CAN DISPL|
00003CB0: 41 59 20 54 48 45 22 00 E3 44 72 42 99 22 11 43 |AY THE"..DrB.".C|
00003CC0: 4F 4E 54 45 4E 54 53 20 4F 46 20 4D 45 4D 4F 52 |ONTENTS OF MEMOR|
00003CD0: 59 20 4D 4F 52 45 20 45 41 53 49 4C 59 20 54 48 |Y MORE EASILY TH|
00003CE0: 41 4E 22 00 0B 45 7C 42 99 22 11 57 49 54 48 20 |AN"..E|B.".WITH |
00003CF0: 50 45 45 4B 28 54 48 49 53 29 20 41 4E 44 20 50 |PEEK(THIS) AND P|
00003D00: 45 45 4B 28 54 48 41 54 29 2E 22 00 39 45 86 42 |EEK(THAT).".9E.B|
00003D10: 99 22 11 48 41 56 49 4E 47 20 44 4F 4E 45 20 59 |.".HAVING DONE Y|
00003D20: 4F 55 52 20 12 53 59 53 32 30 34 38 92 20 49 27 |OUR .SYS2048. I'|
00003D30: 4C 4C 20 47 49 56 45 11 22 00 43 45 90 42 99 22 |LL GIVE.".CE.B."|
00003D40: 42 2A 22 00 61 45 9A 42 99 22 20 20 20 20 20 50 |B*".aE.B." P|
00003D50: 43 20 20 53 52 20 41 43 20 58 52 20 59 52 20 53 |C SR AC XR YR S|
00003D60: 50 00 7F 45 A4 42 99 22 2E 3B 20 20 30 38 30 31 |P..E.B.".; 0801|
00003D70: 20 33 30 20 33 30 20 33 41 20 32 41 20 46 37 00 | 30 30 3A 2A F7.|
00003D80: 87 45 AE 42 99 22 2E 00 A1 45 B8 42 99 22 11 4E |.E.B."...E.B.".N|
00003D90: 4F 57 20 49 46 20 59 4F 55 20 54 59 50 45 20 3A |OW IF YOU TYPE :|
00003DA0: 22 00 B7 45 C2 42 99 22 11 2E 12 4D 20 41 30 30 |"..E.B."...M A00|
00003DB0: 30 20 41 30 30 46 22 00 D1 45 CC 42 99 22 11 53 |0 A00F"..E.B.".S|
00003DC0: 4F 20 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 3A |O IT LOOKS LIKE:|
00003DD0: 22 00 DC 45 D1 42 8D 36 33 30 30 30 00 E8 45 D6 |"..E.B.63000..E.|
00003DE0: 42 99 22 93 11 42 2A 22 00 06 46 E0 42 99 22 20 |B."..B*"..F.B." |
00003DF0: 20 20 20 20 50 43 20 20 53 52 20 41 43 20 58 52 | PC SR AC XR|
00003E00: 20 59 52 20 53 50 00 24 46 EA 42 99 22 2E 3B 20 | YR SP.$F.B.".; |
00003E10: 20 30 38 30 31 20 33 32 20 30 34 20 35 45 20 30 | 0801 32 04 5E 0|
00003E20: 30 20 46 38 00 37 46 F4 42 99 22 2E 4D 20 41 30 |0 F8.7F.B.".M A0|
00003E30: 30 30 20 41 30 30 46 00 68 46 FE 42 99 22 11 11 |00 A00F.hF.B."..|
00003E40: 54 48 45 4E 20 48 49 54 20 27 52 45 54 55 52 4E |THEN HIT 'RETURN|
00003E50: 27 2E 2E 2E 49 27 4C 4C 20 44 49 53 50 4C 41 59 |'...I'LL DISPLAY|
00003E60: 20 4D 45 4D 4F 52 59 22 00 98 46 08 43 99 22 11 | MEMORY"..F.C.".|
00003E70: 46 52 4F 4D 20 41 30 30 30 20 54 4F 20 41 30 30 |FROM A000 TO A00|
00003E80: 46 20 28 54 48 41 54 27 53 20 48 45 58 41 44 45 |F (THAT'S HEXADE|
00003E90: 43 49 4D 41 4C 21 29 22 00 D6 46 12 43 99 22 11 |CIMAL!)"..F.C.".|
00003EA0: 54 52 59 20 49 54 21 20 28 52 45 4D 45 4D 42 45 |TRY IT! (REMEMBE|
00003EB0: 52 20 27 58 27 20 54 4F 20 45 58 49 54 20 4D 4C |R 'X' TO EXIT ML|
00003EC0: 4D 29 22 3A 99 22 11 11 54 48 45 4E 20 12 54 59 |M)":."..THEN .TY|
00003ED0: 50 45 20 40 92 22 00 ED 46 1C 43 53 4E 24 B2 22 |PE @."..F.CSN$."|
00003EE0: 31 38 30 30 30 22 3A 89 36 33 33 30 30 00 24 47 |18000":.63300.$G|
00003EF0: 50 46 8D 36 30 30 30 30 3A 99 22 91 91 A6 A6 A6 |PF.60000:.".....|
00003F00: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
00003F10: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
00003F20: A6 A6 A6 22 00 52 47 55 46 99 22 11 4E 4F 54 49 |...".RGUF.".NOTI|
00003F30: 43 45 20 54 48 41 54 20 54 48 45 20 4E 55 4D 42 |CE THAT THE NUMB|
00003F40: 45 52 53 20 49 20 44 49 53 50 4C 41 59 20 41 52 |ERS I DISPLAY AR|
00003F50: 45 22 00 6E 47 5A 46 99 22 11 49 4E 20 12 48 45 |E".nGZF.".IN .HE|
00003F60: 58 41 44 45 43 49 4D 41 4C 92 21 22 00 95 47 64 |XADECIMAL.!"..Gd|
00003F70: 46 99 22 11 49 4E 20 46 41 43 54 20 59 4F 55 27 |F.".IN FACT YOU'|
00003F80: 56 45 20 53 45 45 4E 20 54 48 45 4D 20 42 45 46 |VE SEEN THEM BEF|
00003F90: 4F 52 45 2E 22 00 BD 47 6E 46 99 22 11 54 48 45 |ORE."..GnF.".THE|
00003FA0: 59 27 52 45 20 46 52 4F 4D 20 27 54 48 45 20 49 |Y'RE FROM 'THE I|
00003FB0: 4E 54 45 52 50 52 45 54 45 52 27 2E 22 00 EB 47 |NTERPRETER'."..G|
00003FC0: 78 46 99 22 11 49 20 4C 41 53 54 20 47 41 56 45 |xF.".I LAST GAVE|
00003FD0: 20 54 48 45 4D 20 54 4F 20 59 4F 55 20 49 4E 20 | THEM TO YOU IN |
00003FE0: 27 44 45 43 49 4D 41 4C 27 2E 22 00 12 48 82 46 |'DECIMAL'."..H.F|
00003FF0: 99 22 11 28 12 50 45 45 4B 92 20 41 4C 57 41 59 |.".(.PEEK. ALWAY|
00004000: 53 20 47 49 56 45 53 20 44 45 43 49 4D 41 4C 29 |S GIVES DECIMAL)|
00004010: 11 22 00 22 4A 8C 46 8D 36 33 30 30 30 3A 99 22 |."."J.F.63000:."|
00004020: 93 22 00 49 48 96 46 4D 53 24 B2 22 12 41 55 20 |.".IH.FMS$.".AU |
00004030: 52 45 56 4F 49 52 21 92 22 3A 8D 36 33 31 30 30 |REVOIR!.":.63100|
00004040: 3A 8D 36 33 35 30 30 3A 80 00 59 48 78 E6 99 22 |:.63500:..YHx.."|
00004050: 93 22 3A 8D 36 33 31 30 30 00 82 48 79 E6 99 22 |.":.63100..Hy.."|
00004060: 13 44 55 52 49 4E 47 20 54 48 45 20 54 55 54 4F |.DURING THE TUTO|
00004070: 52 49 41 4C 20 59 4F 55 20 4D 41 59 20 57 49 53 |RIAL YOU MAY WIS|
00004080: 48 22 00 AA 48 7A E6 99 22 11 54 4F 20 52 45 54 |H"..Hz..".TO RET|
00004090: 55 52 4E 20 54 4F 20 41 4E 20 45 41 52 4C 49 45 |URN TO AN EARLIE|
000040A0: 52 20 27 50 41 47 45 27 2E 22 00 D5 48 7B E6 99 |R 'PAGE'."..H{..|
000040B0: 22 11 4A 55 53 54 20 12 48 49 54 20 54 48 45 20 |".JUST .HIT THE |
000040C0: 40 2D 4B 45 59 92 2C 20 41 54 20 41 4E 59 20 54 |@-KEY., AT ANY T|
000040D0: 49 4D 45 2C 22 00 FB 48 7C E6 99 22 11 41 4E 44 |IME,"..H|..".AND|
000040E0: 20 54 48 45 20 54 55 54 4F 52 49 41 4C 20 57 49 | THE TUTORIAL WI|
000040F0: 4C 4C 20 42 41 43 4B 20 55 50 22 00 12 49 7D E6 |LL BACK UP"..I}.|
00004100: 99 22 11 41 20 50 41 47 45 20 4F 52 20 54 57 4F |.".A PAGE OR TWO|
00004110: 2E 22 00 3B 49 7E E6 99 22 11 41 4C 53 4F 2C 20 |.".;I~..".ALSO, |
00004120: 59 4F 55 20 48 41 56 45 20 41 4E 20 4F 50 50 4F |YOU HAVE AN OPPO|
00004130: 52 54 55 4E 49 54 59 20 54 4F 22 00 5E 49 7F E6 |RTUNITY TO".^I..|
00004140: 99 22 11 43 4F 4D 50 4F 53 45 20 59 4F 55 52 20 |.".COMPOSE YOUR |
00004150: 4F 57 4E 20 50 52 4F 47 52 41 4D 53 2E 22 00 85 |OWN PROGRAMS."..|
00004160: 49 80 E6 99 22 11 57 48 45 4E 20 59 4F 55 20 57 |I...".WHEN YOU W|
00004170: 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |ISH TO CONTINUE |
00004180: 57 49 54 48 22 00 B3 49 81 E6 99 22 11 54 48 45 |WITH"..I...".THE|
00004190: 20 54 55 54 4F 52 49 41 4C 2C 20 12 48 49 54 20 | TUTORIAL, .HIT |
000041A0: 54 48 45 20 40 2D 4B 45 59 92 21 22 3A 8D 36 33 |THE @-KEY.!":.63|
000041B0: 30 30 30 00 D1 49 82 E6 4D 53 24 B2 22 12 40 92 |000..I..MS$.".@.|
000041C0: 5F 52 45 4D 45 4D 42 45 52 22 3A 8D 36 33 31 30 |_REMEMBER":.6310|
000041D0: 30 00 DE 49 8C E6 8D 36 33 30 30 30 3A 8E 00 F6 |0..I...63000:...|
000041E0: 49 60 EA 97 32 30 34 2C 31 3A 8F 20 49 4E 49 54 |I`..204,1:. INIT|
000041F0: 49 41 4C 49 5A 45 00 18 4A 61 EA 42 54 24 B2 22 |IALIZE..Ja.BT$."|
00004200: 13 22 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 |.":.I.1.24:BT$.B|
00004210: 54 24 AA 22 11 22 3A 82 00 62 4A 62 EA 50 54 24 |T$.".":..bJb.PT$|
00004220: B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 |."..............|
00004230: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D |................|
00004240: 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D |................|
00004250: 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 |................|
00004260: BD 22 00 AA 4A 63 EA 50 54 24 B2 50 54 24 AA 22 |."..Jc.PT$.PT$."|
00004270: 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 |................|
00004280: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D |................|
00004290: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D |............====|
000042A0: 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 E6 4A 64 EA 50 |========."..Jd.P|
000042B0: 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D |T$.PT$."........|
000042C0: 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 |................|
000042D0: A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D 9D |................|
000042E0: 9D 9D 9D 9D 9D 22 00 1D 4B 65 EA 50 54 24 B2 42 |....."..Ke.PT$.B|
000042F0: 54 24 AA 22 91 91 91 91 91 91 1D 1D 1D 1D 1D 1D |T$."............|
00004300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004310: 1D 1D 1D 1D 22 AA 50 54 24 AA 22 90 22 00 4D 4B |....".PT$.".".MK|
00004320: 67 EA 4D 4C 24 B2 22 13 11 11 11 11 11 11 11 11 |g.ML$.".........|
00004330: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004340: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 68 4B |............".hK|
00004350: 68 EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 |h.WD.40:CRT.1024|
00004360: 3A 99 C7 28 31 34 32 29 00 8C 4B 69 EA 57 32 B2 |:..(142)..Ki.W2.|
00004370: 57 44 AD 32 3A 57 33 B2 57 44 AB 31 3A 57 31 24 |WD.2:W3.WD.1:W1$|
00004380: B2 CA 28 C4 28 57 44 29 2C 32 29 3A 00 AE 4B 6A |..(.(WD),2):..Kj|
00004390: EA 57 32 24 B2 CA 28 C4 28 57 32 29 2C 32 29 3A |.W2$..(.(W2),2):|
000043A0: 57 33 24 B2 CA 28 C4 28 57 33 29 2C 32 29 00 D0 |W3$..(.(W3),2)..|
000043B0: 4B 74 EA 99 22 93 22 3A 97 35 33 32 38 31 2C 31 |Kt..".":.53281,1|
000043C0: 35 3A 97 35 33 32 38 30 2C 31 32 3A 99 22 90 22 |5:.53280,12:."."|
000043D0: 00 FE 4B 46 EE 8B C2 28 37 38 39 29 B3 B1 37 AC |..KF...(789)..7.|
000043E0: 31 36 AA 31 35 A7 9E 28 37 AC 34 30 39 36 AA 31 |16.15..(7.4096.1|
000043F0: 35 AC 32 35 36 AA 31 32 AC 31 36 AA 33 29 00 04 |5.256.12.16.3)..|
00004400: 4C 47 EE 8E 00 18 4C 48 EE 8F 2A 4E 45 57 20 57 |LG....LH..*NEW W|
00004410: 4F 52 4B 53 50 41 43 45 00 32 4C 49 EE 4D B2 37 |ORKSPACE.2LI.M.7|
00004420: AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 35 AC |.4096.15.256.15.|
00004430: 31 36 00 38 4C 4A EE 8C 00 50 4C 4B EE 81 49 B2 |16.8LJ...PLK..I.|
00004440: 4D A4 4D AA 31 35 3A 87 4B 3A 97 49 2C 4B 3A 82 |M.M.15:.K:.I,K:.|
00004450: 00 6A 4C 4C EE 83 20 31 2C 39 36 2C 33 2C 39 36 |.jLL.. 1,96,3,96|
00004460: 2C 33 2C 39 36 2C 33 2C 39 36 00 88 4C 4D EE 83 |,3,96,3,96..LM..|
00004470: 20 31 34 34 2C 31 32 37 2C 30 2C 30 2C 31 34 34 | 144,127,0,0,144|
00004480: 2C 31 32 37 2C 30 2C 30 00 A5 4C 4E EE 4D B2 36 |,127,0,0..LN.M.6|
00004490: AC 34 30 39 36 3A 81 49 B2 30 A4 32 3A 97 4D AA |.4096:.I.0.2:.M.|
000044A0: 49 2C 30 3A 82 00 AB 4C 4F EE 8E 00 E5 4C 18 F6 |I,0:...LO....L..|
000044B0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000044C0: 11 11 11 11 11 11 11 11 11 11 11 48 49 54 20 12 |...........HIT .|
000044D0: 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 |RETURN. TO CONTI|
000044E0: 4E 55 45 22 3B 00 FB 4C 19 F6 A1 41 24 3A 8B 41 |NUE";..L...A$:.A|
000044F0: 24 B3 B1 22 22 A7 36 33 30 30 31 00 10 4D 1A F6 |$.."".63001..M..|
00004500: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 30 32 |.A$:.A$."".63002|
00004510: 00 16 4D 1B F6 8E 00 2A 4D 7C F6 81 54 B2 31 A4 |..M....*M|..T.1.|
00004520: 35 3A 99 50 54 24 4D 53 24 3B 00 40 4D 7D F6 99 |5:.PT$MS$;.@M}..|
00004530: 50 54 24 22 20 20 20 20 20 20 20 20 20 20 22 3B |PT$" ";|
00004540: 00 4F 4D 7E F6 99 50 54 24 4D 53 24 3B 3A 82 00 |.OM~..PT$MS$;:..|
00004550: 57 4D 7F F6 99 3A 8E 00 7C 4D E0 F6 97 35 36 2C |WM...:..|M...56,|
00004560: 39 36 3A 97 35 32 2C 39 36 3A 97 35 35 2C 30 3A |96:.52,96:.55,0:|
00004570: 97 35 31 2C 30 3A 8D 36 31 30 30 30 00 B6 4D E1 |.51,0:.61000..M.|
00004580: F6 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 3A |.WD.40:CRT.1024:|
00004590: 97 43 52 54 2C 39 36 3A 8B C2 28 43 52 54 AA 31 |.CRT,96:..(CRT.1|
000045A0: 30 32 34 29 B3 B1 39 36 A7 57 44 B2 38 30 3A 99 |024)..96.WD.80:.|
000045B0: C7 28 31 34 32 29 00 CF 4D E2 F6 4D B2 37 AC 34 |.(142)..M..M.7.4|
000045C0: 30 39 36 AA 31 35 AC 32 35 36 AA 39 AC 31 36 00 |096.15.256.9.16.|
000045D0: E7 4D E3 F6 81 49 B2 4D A4 4D AA 39 31 3A 87 4B |.M...I.M.M.91:.K|
000045E0: 3A 97 49 2C 4B 3A 82 00 2E 4E E4 F6 83 31 36 35 |:.I,K:...N...165|
000045F0: 2C 32 30 33 2C 32 30 31 2C 34 36 2C 32 30 38 2C |,203,201,46,208,|
00004600: 38 33 2C 33 32 2C 31 39 35 2C 31 32 37 2C 31 36 |83,32,195,127,16|
00004610: 35 2C 34 34 2C 32 30 31 2C 38 2C 32 34 30 2C 33 |5,44,201,8,240,3|
00004620: 2C 33 32 2C 31 37 37 2C 31 32 37 2C 33 32 00 73 |,32,177,127,32.s|
00004630: 4E E5 F6 83 31 34 32 2C 31 36 36 2C 31 36 35 2C |N...142,166,165,|
00004640: 34 34 2C 32 30 31 2C 38 2C 32 34 30 2C 33 2C 37 |44,201,8,240,3,7|
00004650: 36 2C 31 32 38 2C 31 36 34 2C 37 36 2C 31 37 34 |6,128,164,76,174|
00004660: 2C 31 36 37 2C 31 36 32 2C 31 36 2C 31 38 39 2C |,167,162,16,189,|
00004670: 32 33 39 00 BC 4E E6 F6 83 31 32 37 2C 37 32 2C |239..N...127,72,|
00004680: 31 38 31 2C 34 32 2C 31 35 37 2C 32 33 39 2C 31 |181,42,157,239,1|
00004690: 32 37 2C 31 30 34 2C 31 34 39 2C 34 32 2C 32 30 |27,104,149,42,20|
000046A0: 32 2C 32 30 38 2C 32 34 31 2C 39 36 2C 31 32 30 |2,208,241,96,120|
000046B0: 2C 31 37 33 2C 32 33 38 2C 31 32 37 00 01 4F E7 |,173,238,127..O.|
000046C0: F6 83 37 37 2C 32 30 2C 33 2C 31 34 31 2C 32 30 |..77,20,3,141,20|
000046D0: 2C 33 2C 31 37 33 2C 32 33 39 2C 31 32 37 2C 37 |,3,173,239,127,7|
000046E0: 37 2C 32 31 2C 33 2C 31 34 31 2C 32 31 2C 33 2C |7,21,3,141,21,3,|
000046F0: 38 38 2C 39 36 2C 31 37 33 2C 32 30 2C 33 2C 37 |88,96,173,20,3,7|
00004700: 33 00 40 4F E8 F6 83 31 34 34 2C 31 34 31 2C 32 |3.@O...144,141,2|
00004710: 33 38 2C 31 32 37 2C 31 37 33 2C 32 31 2C 33 2C |38,127,173,21,3,|
00004720: 37 33 2C 31 32 37 2C 31 34 31 2C 32 33 39 2C 31 |73,127,141,239,1|
00004730: 32 37 2C 39 36 2C 37 36 2C 32 35 35 2C 32 35 35 |27,96,76,255,255|
00004740: 00 5E 4F F0 F6 97 4D AA 39 30 2C C2 28 37 38 38 |.^O...M.90,.(788|
00004750: 29 3A 97 4D AA 39 31 2C C2 28 37 38 39 29 00 7C |):.M.91,.(789).||
00004760: 4F F4 F6 4B 45 59 B2 37 AC 34 30 39 36 AA 31 35 |O..KEY.7.4096.15|
00004770: AC 32 35 36 AA 31 33 AC 31 36 AA 38 00 9A 4F F5 |.256.13.16.8..O.|
00004780: F6 9E 28 4B 45 59 29 3A 8F 20 4B 45 59 20 46 4F |..(KEY):. KEY FO|
00004790: 52 20 49 52 51 20 53 57 41 50 00 A0 4F 43 F7 8E |R IRQ SWAP..OC..|
000047A0: 00 BE 4F 44 F7 8F 2A 53 57 49 54 43 48 20 54 4F |..OD..*SWITCH TO|
000047B0: 20 4E 45 57 20 57 4F 52 4B 53 50 41 43 45 00 D6 | NEW WORKSPACE..|
000047C0: 4F 45 F7 8D 36 33 36 30 30 3A 8F 20 52 55 4E 20 |OE..63600:. RUN |
000047D0: 4E 55 4D 42 45 52 00 F5 4F 46 F7 8D 36 31 30 30 |NUMBER..OF..6100|
000047E0: 30 3A 8F 20 4E 45 57 20 54 48 45 20 57 4F 52 4B |0:. NEW THE WORK|
000047F0: 53 50 41 43 45 00 00 50 47 F7 89 36 33 34 30 33 |SPACE..PG..63403|
00004800: 00 1E 50 A8 F7 8F 2A 53 57 49 54 43 48 20 54 4F |..P...*SWITCH TO|
00004810: 20 4F 4C 44 20 57 4F 52 4B 53 50 41 43 45 00 29 | OLD WORKSPACE.)|
00004820: 50 A9 F7 8D 36 33 36 30 30 00 49 50 AB F7 53 57 |P...63600.IP..SW|
00004830: 54 43 48 B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 |TCH.7.4096.15.25|
00004840: 36 AA 39 AC 31 36 AA 31 35 00 66 50 AC F7 9E 28 |6.9.16.15.fP...(|
00004850: 53 57 54 43 48 29 3A 8F 20 53 57 41 50 20 50 4F |SWTCH):. SWAP PO|
00004860: 49 4E 54 45 52 53 00 73 50 AD F7 97 32 30 34 2C |INTERS.sP...204,|
00004870: 32 3A 80 00 85 50 0C F8 8F 2A 52 45 53 54 4F 52 |2:...P...*RESTOR|
00004880: 45 20 50 45 54 00 9A 50 0D F8 53 4E 24 B2 22 31 |E PET..P..SN$."1|
00004890: 30 30 22 3A 8D 36 33 36 30 30 00 C9 50 0E F8 4D |00":.63600..P..M|
000048A0: B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 AA 31 |.7.4096.15.256.1|
000048B0: 32 AC 31 36 AA 33 3A 8B C2 28 37 38 39 29 B2 37 |2.16.3:..(789).7|
000048C0: AC 31 36 AA 31 35 A7 9E 4D 00 CF 50 0F F8 8E 00 |.16.15..M..P....|
000048D0: E7 50 70 F8 8F 2A 49 4E 53 45 52 54 20 52 55 4E |.Pp..*INSERT RUN|
000048E0: 20 4E 55 4D 42 45 52 00 02 51 71 F8 4D B2 32 30 | NUMBER..Qq.M.20|
000048F0: 35 39 3A 53 4E 24 B2 22 30 30 30 30 30 22 AA 53 |59:SN$."00000".S|
00004900: 4E 24 00 22 51 72 F8 81 49 B2 31 A4 35 3A 97 4D |N$."Qr..I.1.5:.M|
00004910: AB 49 2C C6 28 C9 28 53 4E 24 2C 49 29 29 3A 82 |.I,.(.(SN$,I)):.|
00004920: 3A 8E 00 00 00 |:.... |
.......00100......".......;....".......
PONZ0*1983*WATERLOO.H....".........D..53
281,15:.53280,12:.".":.". .
.C64 TUTOR-3...E..".....................
..................."...F..". ..
MORE ON THE C64 .. .":MS$." WE
LCOME! ".).G..".........................
................".F.H.SN$."1000":.63200:
.63600.X.I..60000:.59000.C....60000. ...
.".QI STORE INFO IN 8 (BINARY) BIT "G(34
)"BYTES"G(34)".".L...."QSINCE 2^8=256, E
ACH BYTE CAN HOLD A"......" NUMBER FROM
0 TO 255 INCLUSIVE."......"QTWO BYTES AR
E USED TO ADDRESS".H...." 2^16 MEMORY LO
CATIONS:0,1,2,...,65535".Z.$.."QYOU CAN
FIND WHAT'S IN EACH BY .PEEK.ING:"......
"..FOR I=100 TO 200:PRINT PEEK(I);:NEXT"
.N.8..".QTHIS MAY BE ENTERED DIRECTLY"..
.B.." AND WILL PRINT THE CONTENTS"...L..
" OF LOCATIONS 100 TO 200.".C.V.."QSOME
OF .M.EMORY IS .R.EAD .O.NLY(ROM).".K.`.
."QSOME IS .R.ANDOM .A.CCESS(RAM)."...J.
."QYOU CAN WRITE INTO RAM BY .POKE.ING."
...T..". .POKE1100,1"...Y..".QTHIS WILL
PUT THE NO. 1 IN LOC'N 1100."...Z..6300
0......"..NOTE.: FOR .POKE M,N ".;....:.
"Q.M. MUST BE IN [0,65535],.N. IN [0,255
].".G...."QI USE 0 THRU' 1023 MYSELF..YO
U USE "......" 2048 TO 40959 FOR .BASIC.
PROGRAMS.."......"QI USE 1024 THRU' 204
7......" TO STORE THE 1000 CHARACTERS AP
PEARING"......" ON THE SCREEN,ETC.ETC".$
...."(NOTE:80 COLUMN PETS HAVE 2000).<.D
.."..SCREEN MEMORY.".E.N.."QTHESE 1000 L
OC'NS START AT $0400"...X.." 0400(HEXADE
CIMAL)=4*256=1024(DECIMAL)"......"QYOU C
AN CHANGE WHAT'S"......" ON THE SCREEN W
ITH A .PRINT. STATEMENT"......" .PRINT "
G(34)"ABC"G(34).&...." OR BY 'POKEING' S
CREEN MEMORY:".:...." .POKE1100,1".I....
"QTHIS PUTS .1. INTO SCREEN MEMORY LOC'N
"......" 1100, AND .1. CORRESPONDS TO AN
"G(34)"A"G(34).N...." SO I'LL PRINT THE
LETTER "G(34)"A"G(34).Y.$..63000...(.."
.TO SEE WHAT NO. IN [0,255] CORRESPONDS"
.2.2.."TO WHICH SYMBOL, YOU CAN TRY THIS
:".M.<.."..10 FOR I=0 TO 255".G.F..".20
POKE1024+I,I "...P..".30 NEXT
"...Z..".......AND TRY .POKE1100,N.".X.[
..".WITH 'N'=0,1,2,...OR 255.":MS$." .T
RY IT!."...D.."..THEN .TYPE @. TO CONTIN
UE!":.63100...I..63000:."...".,.N.SN$."0
2000":.63300.^.P..60000:."........SOME S
PECIAL LOCATIONS....."...Z..:."QIN 197 I
KEEP TRACK OF WHAT KEY IS"......". DEPR
ESSED. TO SEE THE .KEY. VS. .NUMBER".Z..
..". CORRESPONDENCE, TRY:"......"...50 P
RINT PEEK(197);"......".60 GO TO 50
".9...."..THEN RUN AND BANG ON A KEY!
".]...."..THEN TYPE .@. TO CONTINUE.".T.
..SN$."03000":.63300.....60000...B.."..
PRINTCHR$(14) WILL CAUSE".R...."ME TO SW
ITCH TO "G(34)"LOWER"G(34)" CASE."......
".YOU MIGHT LIKE TO TRY IT!"......".IN P
ARTICULAR, TRY RUNNING:".5...."..10 FOR
I=0 TO 255 ".Q....".20 POKE1024+I,I
".M....".30 PRINTCHR$(14+K);"......".40
K=128-K:NEXT ".....MS$.".DO A CHR$.!"
:.63100......"......................THEN
TYPE .@. TO CONTINUE".....SN$."04000":.
63300... ..59468,12:.60000. ....".PRINTC
HR$(142).G...."WILL PUT ME BACK TO UPPER
CASE.".P.H.."QIN 160,161 & 162 I KEEP T
HE TIME"...R.." ...FROM THE MOMENT YOU T
URN ME ON."......".QI'VE GOT A BUILT-IN
"......" CRYSTAL-CONTROLLED CLOCK.".....
." I KEEP THE NUMBER OF .JIFFIES. IN".'.
..." MEMORY LOC'NS 160,161,162".J...." A
.JIFFIE. IS 1/60 SECOND.".X....".QYOU C
OULD WRITE A PROGRAM TO CONVERT". ...."
THIS TO HOURS:MINUTES:SECONDS..".N.".."
OR YOU COULD USE MY BUILT-IN ROUTINE!"..
.,..".100 PRINT TI$"...6..". HERE.TI$ WI
LL GIVE HHMMSS LIKE SO:":."..015209".Q.;
.."..01.=HOURS .52.=MINUTES .09.=SECONDS
.":.63000...@.."........I'LL PRINT OUT T
I$ SO YOU CAN SEE HIM:"...J.AA$.TI$:H$.H
(AA$,2):M$.J(AA$,3,2):S$.I(AA$,2).H.O..T
.1.500:....T..".. ."AA$
...^.." ^ THAT'S HI
M!".'.C.."..IT'S BEEN:".\.D..".."H$". HO
URS,."M$". MINUTES & ."S$". SECONDS"...E
..".SINCE YOU TURNED THE .C64. ON!"...H.
."...RETURN...":.63001.N....".YOU CAN SE
T THE CORRECT TIME BY TYPING:"......"..T
I$="G(34)"093000"G(34)......".THEN I'LL
COUNT JIFFIES STARTING WITH".G....".A CO
UNT CORRESPONDING TO 9:30 A.M.".J....".(
000000=MIDNIGHT!!)":.63000...B..".THE VA
RIABLE .TI. GIVES THE JIFFIE-COUNT".H.L.
.".I'LL PRINT HIM TOO:":.T.1.500:.:.".."
...V.." ."TI......"
^ THAT'S HIM!".<....".PLEA
SE, DON'T USE .TI$. OR .TI. FOR ANY".\..
..".OF YOUR VARIABLE NAMES!".J...." ..
........"...RETURN...":.63001...0.."....
.......INPUT/OUTPUT..........".R.:..".QT
O WRITE DATA ON TAPE YOU "...D..". .OPEN
A WRITE CHANNEL TO THE CASSETTE".3.N.."
QYOU'LL WANT TO GIVE THE DATA A .NAME.,T
OO".B.X.." AND YOU'LL WANT TO DISTINGUIS
H BETWEEN"...B.." .WRITING. TO TAPE AND
.READING. FROM TAPE."...L.."..200 OPEN3,
1,1,"G(34)"DATA"G(34)"."...V..".OPEN A C
HANNEL(#3)TO THE TAPE DRIVE(#1)"."...."
FOR .WRITING. (THE LAST #1 MEANS .WRITE.
)".;...."..210 FOR I=1TO10".S....".220 P
RINT#3,I ".K....".230 NEXT ".....
.".240 CLOSE 3 "......".QTHIS WRITES
THE NUMBERS 1,2,..10"......" ON THE TAPE
-FILE CALLED "G(34)"DATA"G(34)...P..6300
0...Z..".IT'S VERY IMPORTANT TO .CLOSE.
THE ".D....".WRITE CHANNEL AFTER PRINTIN
G TO TAPE!!".N....".(ELSE I WON'T PRINT
AN END-MARKER"......"AND MAY NOT WRITE T
HE LAST BIT OF DATA).".J...."QTO .READ.
A FILE(CALLED,SAY,'DATA')"......"..300 O
PEN2,1,0,"G(34)"DATA"G(34)......".310 FO
R I=1TO10 ".,. ..".320 INPUT#2,A(I)
".I.*..".330 NEXT ".O.4.."
.HERE THE .READ. CHANNEL IS #2"...>.."..
THE LAST #0 MEANS .READ.".B.H..".IT IS A
SSUMED THERE ARE 10 NO'S TO READ.".M.\..
63000...F..".A PRINT# STATEMENT:"...P.."
..220 PRINT#3,I"...Z..".WILL WRITE THE V
ALUE OF I,FOLLOWED BY".M....".A .RETURN.
& .SPACES.!".T...."..YOU DON'T WANT THE
'SPACES'.!"......".THE CORRECT WAY IS:"
......"..220 PRINT#3,I;CHR$(13);"......"
.HERE .YOU. SPECIFY THE .RETURN.=CHR$(13
)"......"...WITHOUT SPACES....".9....".T
HE .;. AT THE END AVOIDS 'LINE FEED' TOO
!":.63000.P....".THE STATEMENT:".E....".
.240 CLOSE 3"...J..".WRITES AN END-OF-FI
LE MARKER ON TAPE.".C.T..".WHEN .READ.IN
G DATA YOU CHECK FOR THIS:"......"..IF S
T=64 THEN ....".....MS$." .CLOSE.!":.6
3100......63000.4....".THE .WRITE TO TAP
E. ROUTINE IS THEN:".A...."..200 OPEN3,1
,1,"G(35)"DATA"G(34)" "......".210 FOR
I=1TO10 "......".220 PRINT#3,I;C
HR$(13);".A.$..".230 NEXT
"......".240 CLOSE 3 ".. 8.."
.THE .READ FROM TAPE. ROUTINE IS:".> B..
"..300 OPEN2,1,0,"G(34)"DATA"G(34)"
".E L..".310 INPUT#2,A(J)
".. V..".320 IF ST<>64THENJ=J+1:GOTO
310".. `..".330 CLOSE2
".Q J..63000:SN$."05000":.63600.. ...6
0000.. ..."..TO CREATE A FILE.:".-!...".
.10 OPEN15,8,15,"G(34)"I"G(34)"+DR$
".K!...".20 OPEN2,8,2,DR$+"G(34)":"G
(34)"+NM$+"G(34)",S,W"G(34)..!...".30 PR
INT#2,A;CHR$(13); "..!..."..DR$.
IS DRIVE # IPREVIOUSLY"..!...".NM$. I
S FILE NAME KDEFINED!".."D.."..10. OPENS
THE COMMAND CHANNEL #15".1"N.."AND .I.N
ITIALIZES THE DRIVE DR$.".["S.."(NOT NEC
ESSARY ON 'NEWER' DRIVES).".."X.."..20.
OPENS A .W.RITE CHANNEL,#2,".."..."FOR A
.S.EQUENTIAL(DATA) FILE CALLED NM$"..".
.."..30. PRINTS A NUMBER,.A.,TO THE DATA
FILE.".*#...".QYOU MAY REPEAT STATEMENT
30":.".WITH VARIOUS .A.'S,THEN..".G#...
"..40 CLOSE2:CLOSE15":..R#...63000.Q#...
"..TO READ FROM A FILE.:"..#..."..60 OPE
N15,8,15,"G(34)"I"G(34)"+DR$ "..
#(..".70 OPEN2,8,2,DR$+"G(34)":"G(34)"+N
M$+"G(34)",S,R"G(34)..$2..".80 INPUT#2,A
(J) ".4$<..".90 IFST<>64T
HENJ=J+1:GOTO80 ".\$F..".100 CLOSE2:C
LOSE15 ".Z$K.."..60. INITIAL
IZES ETC."..$P..".70. OPENS A .R.EAD CHA
NNEL TO FILE NM$.".Y$Z..".90. CHECKS FOR
END-OF-FILE(STATUS=64)."..$`..63000. %B
.."..TO REITERATE.: WHEN WRITING DATA.":
."DO .NOT. USE:".N%C.."..PRINT#1,A,B$,C.
OR .PRINT#1,A;B$;C;.".C%D..".INSTEAD US
E:"..%E.."..PRINT#1,A;CHR$(13);B$;CHR$(1
3);..ETC".B%F..".IF IT'S PAINFULL TO TYP
E 'CHR$(13)' THEN"..%G..".DEFINE CR$=CH
R$(13) AND USE:"..&H.."..PRINT#1,A;CR$;B
$;CR$;C;CR$;."..&J..63000.E&..."........
..RANDOM NUMBERS............".R&...".QI
HAVE A .RANDOM NUMBER GENERATOR.."..&...
"..10 X=RND(K)"..&...".QEACH .NEGATIVE.
K DETERMINES A".L&..." UNIQUE .SEED.. TH
EN:"..&..."..20 X1=RND(1)"..&...".30 X2=
RND(1)"..'...".40 X3=RND(1)".<'...".QHER
E X1,X2,X3,..IS A 'RANDOM SEQUENCE'".Y'.
.." OF NUMBERS IN 0<X<1."..'...".QSUBSEQ
UENT 'RND(1)' STATEMENTS YIELD"..'..." S
UCCESSIVE MEMBERS OF THE SEQUENCE.":.630
00..'"..".QTO GET A .RANDOM. SEED,USE:".
.''.."..10 X=RND(-TI)"..(,..".WHERE .TI.
IS THE .JIFFY. COUNT!".G(6..".QYOU CAN
OBTAIN, USING .RND(-K)".O(7..".FOLLOWED
BY LOTS OF .RND(1).'S,"..(;..".A .REPROD
UCIBLE. 'RANDOM SEQUENCE'.":.63000.R(@..
".IF YOU .REALLY. WANT A .RANDOM. NUMBER
:"..(E.."..10 X=RND(0)"..)J..".WILL GIVE
YOU ONE. SUCCESSIVE 'RND(0)'".G)O..".ST
ATEMENTS YIELD NO'S TOTALLY UNRELATED.".
C)P.MS$."SO IT SAYS":.63100.N)Y..63000..
)^.."....OF COURSE .X=100+100*RND(0). GI
VES ".B)C..". A NUMBER IN THE RANGE:0-10
0".Q)D..T.1.500:...*E..54272,0:.54273,0:
.54274,4000.255:.54275,4000.256.(*F..542
76,0:.54277,0:.54278,240.O*H.."..10 POKE
54296,15:POKE54278,240".U*M..".20 FORI=1
TO100:POKE54276,17 "..*R..".30 POKE5427
3,100+100*RND(0) ".A*W..".40 NEXT
"..*X.."..CAN YOU GUESS
WHAT .^. WILL DO???":.63000..+...54296,1
5:.54276,17:.I.0.100..+...54273,100.100.
.(0):..D+...54296,0:.54277,0.G+..MS$."BE
AUTIFUL!":.63100:.63000..+P.."..........
.ODDS 'N' ENDS.........."..+U.."........
1......."..+Z.."..10 INPUT A$"..+...". H
IT 'RETURN' WHEN ASKED TO 'INPUT',"..,..
.".AND I LEAVE A% UNCHANGED.".0,...".TO
AVOID THIS, YOU CAN USE:.F,...".10 INPUT
"G(34).H,...".".10)" 7.HHH."G(34)";A$"
.Z,....10)" ^ ^"..,....10)" 3 3"..,J
...10)"SPC CRSR LEFT"..,T..".THIS GIVES.
.".M,...". 7...";A$..,...".......HIT '
RETURN' AND I SET A$='7'"..-...63000..-.
..".OF COURSE".,-...".10 INPUT"G(34).O-.
..".".9)"OK Y.HHH."G(34)";A$".E-..."..
IS NICE TOO.".{-$.."..OK Y...";A$..-..
.63000..-X.."........2........"..-B..".?
FRE(0)".P-L..".AND I GIVE YOU THE NUMBER
..-V..".OF 'FREE' BYTES OF MEMORY.".....
.".........3........".'....".OPEN4,4:CMD
4:LIST".R....".LISTS YOUR PROGRAM ON THE
PRINTER.".U....".(BUT, AFTER LISTING, T
YPE:"......"..PRINT#4:CLOSE4"......".TO
PROPERLY CLOSE THE PRINTER CHANNEL.".G..
..63000...@.."........4........"...J..".
10 FORI=1TO1000:NEXT".%/T..".IS GOOD FOR
BUILDING IN DELAYS.".J/^..".BUT THE FOL
LOWING IS OK TOO:".{/J.."..10 A=TI
. A=THE CURRENT TIME"../R..".20 IF
TI<A+60THEN20".A/|..".THIS WAITS FOR 60
JIFFIES=1SECOND.".L/...63000../(#.".....
...5......."..02#.".THE C64 'KEYBOARD BU
FFER' HOLDS 10 BYTES.".*0<#.".IF YOU RUN
:".H0F#."..10 FORI=1TO3000:NEXT".N0P#.".
20 FORI=1TO10:GETA$:?A$;:NEXT"..0Z#.".TH
EN, DURING THE DELAY, YOU CAN HIT".F0D#.
".10 KEYS (OR LESS) AND THEY WILL BE "..
0N#.".SAVED IN THE BUFFER."..1X#.".BUT..
........DON'T HIT > 10 KEYS!".11}#.".(EL
SE I WON'T GET THEM ALL)".G1.#.".TRY IT?
THEN:".L1.#."..TYPE @ .":SN$."10000":.6
3300..1.'.60000:."........6......."..1.'
.".MEMORY LOCATION 198 (DECIMAL) HOLDS".
.1$'.".THE NUMBER OF CHARACTERS IN THE "
..1.'.".KEYBOARD BUFFER.". 28'.".YOU CAN
CLEAR THE BUFFER WITH:".B2B'."..10 FORI
=1TO10:GETA$:NEXT".N2L'.".OR.".X2V'.".10
GETA$:IFA$<>"G(34)G(34)"THEN10"..2`'.".
OR."..2J'.".10 POKE198,0"..2T'.63000..2.
*."........7......."..2.+.".MEMORY LOCAT
IONS 55 AND 56 HOLD THE"..3.+.".LOCATION
OF THE 'END OF BASIC MEMORY'.".73.+.".P
RINT IT OUT BY TYPING:".W3 +."..?PEEK(55
)+256*PEEK(56)".O3*+."..THEN .TYPE @".
.34+."...?PEEK(55)+256*PEEK(56).":SN$."1
2000":.63300..3...60000:X.32768.T3..."..
......8.......TOP="X..3...".IF YOU WANT
TO STORE SOME NUMBERS".+4./.".FOR SAFE K
EEPING, YOU CAN CHANGE THE"._4./.".TOP O
F BASIC MEMORY, BY POKING A NEW.......".
.4./."'TOP' INTO 55 & 56, SO THE NEW TOP
IS":X$.J(D(X.100),2).F4&/.".SAY, "X$",
GIVING YOU 100 PLACES"..40/.".TO STORE Y
OUR NUMBERS."..5:/.".HOW TO STORE THEM?
.POKE. THEM INTO RAM!".J5D/."..10 FORI=0
TO99:POKE"X$".+I,A(I):NEXT":.63000.B5H2.
"........9......."..5R2.".EVERY JIFFY (6
0 TIMES/SECOND) I"..5.2.".STOP WHAT I'M
DOING AND UPDATE THE"..5.2.".JIFFY CLOCK
,AND..AMONG OTHER THINGS.."..6.2.".CHECK
TO SEE IF YOU PRESSED THE".%6.2."..RUN/
STOP. KEY...".W6.3."...AND, IF SO, THEN
I WILL STOP!.........."..6.3.".I DO THES
E THINGS (60 TIMES/SECOND)"..6.3.".BY JU
MPING TO A MAGIC MEMORY LOCATION."..6"3.
63000..6,3.".THIS MAGIC LOCATION IS STOR
ED IN"..763.".MEMORY LOCATIONS 788 & 789
.".57@3.".I JUMP TO .PEEK(788)+256*PEEK(
789)".L7J3."..HOLD ON..I'LL TELL YOU WHE
RE I JUMP...":.63000..7T3.".......IT'S T
O";..7^3A9.7.4096.15.256.14.16.10:ML.B(A
9).256.B(A9.1):."."ML..7H3.".AT LOCATION
"ML" ARE INSTRUCTIONS"..8R3.".WHICH CHEC
K FOR .STOP., ETC..".88|3.".YOU CAN BYPA
SS THE 'CHECK FOR STOP'".`8.3.".BY HAVIN
G ME JUMP TO ."ML.3".!!"..8.3."...SIMPLY
.POKE788,PEEK(788)+3"..8.3.".IN A PROGR
AM AND .STOP. WILL BE IGNORED!".B8.3.630
00..8.3."..BUT REMEMBER TO .POKE788,PEEK
(788)-3"..9.3.".LATER IN THE PROGRAM..".
09B3."..CARE (DARE) TO TRY IT??".B9L3.".
REMEMBER:"._9V3."..POKE788,PEEK(788)+3".
.9.3.".THEN WRITE A PROGRAM LIKE:". 9.3.
".10 FORI=1TO10000:NEXT"..9.3.".AND TRY
TO STOP IT.".V9X4.".EVENTUALLY..TYPE:"..
9B4."..POKE788,PEEK(788)-3"..:L4."...COM
E TO THINK OF IT..".G:V4.".TRY IT .AFTER
. YOU'VE ENDED .TUTOR.!":.63000.`:.6."..
THE SYS COMMAND"..:.6.".I DON'T UNDERSTA
ND 'BASIC'."..:D6.".I UNDERSTAND 'MACHIN
E LANGUAGE'."..:N6.".HOWEVER I HAVE A BU
ILT-IN INTERPRETER"..:X6.".WHO UNDERSTAN
DS BOTH!".#;.6.".HE TRANSLATES YOUR BASI
C COMMANDS".R;.6.".INTO MACHINE LANGUAGE
COMMANDS FOR ME.".;.6.".THIS 'BASIC IN
TERPRETER' IS A SET OF"..;.7.".MACHINE L
ANGUAGE INSTRUCTIONS WHICH".P;.7.".RESID
E IN MEMORY FROM 40960."..;.7.".THAT IS:
$A000"..;.7.63000..<(7.".MACHINE LANGUA
GE INSTRUCTIONS ARE".J<27.".NUMBERS FROM
0 TO 255..AND EACH MEANS".E<<7.".SOMETH
ING SPECIAL."..<F7.".FOR EXAMPLE THE SEQ
UENCE OF NUMBERS:"..<P7."..16;. .170. .1
41. .0. .4."..<Z7.".SAYS TO PUT AN ASTER
ISK IN THE UPPER"..=D7.".LEFT CORNER OF
THE SCREEN.".5=N7."..HERE ARE SOME 'INST
RUCTIONS' TAKEN FROM".T=X7."THE INTERPRE
TER 'HIMSELF' (HERSELF?):":.63000:."....
..."..=.7.I.0.15:.B(40960.I);:.J.1.100:.
:...=.7.63000.S= 7.".OK...IF YOU CAN TAL
K MACHINE LANGUAGE"..=.7.".THEN YOU CAN
PUT YOUR M-L PROGRAM".">.7.".INTO MEMORY
STARTING AT SOME".O>.7.".LOCATION, SAY
20000, THEN .SYS 20000".S>J7.".WILL SEND
ME THERE TO OBEY."..>R7.".YOU MIGHT STI
CK YOUR PROGRAM UP AT THE".K>.7.".'TOP O
F BASIC RAM' SOMEWHERE AND"..>.7.".PROTE
CT IT FROM BEING OVERWRITTEN".$?.7.".BY
CHANGING 'TOP' (AT 55/56 REMEMBER?)"./?.
7.63000.:?.8."...".M?.8."10 FORI=25000TO
25024:READK:POKEI,K:NEXT:END"..?.8."20 D
ATA 162,4,160,4,132,177,160,0,132,176,17
7,176,73,128"..?"8."30 DATA 145,176,200,
208,247,230,177,202,208,242,96"..?#8."RU
N10"..@$8."..SYS25000".1@'8."...HERE'S A
M-L PROGRAM YOU CAN TRY".D@,8."..ENTER
THESE, THEN .RUN10., THEN .SYS25000"..@6
8."..(THEN .TYPE @. TO CONTINUE)"..@@8."
...":SN$."15000":.63300.Q@.:.60000:.".":
MS$." .SLICK EH?.":.63100..@.:.".ONE M-L
INSTRUCTION WHICH IS NICE"..A.:.".IS ZE
RO (I MEAN 0).".HA.:.".THIS INSTRUCTION
TELLS ME TO JUMP TO THE".RA.:.".'.M.ACHI
NE .L.ANGUAGE .M.ONITOR'.". AJ:.".(I LIK
E THE .MLM. SO MUCH I SOMETIMES"..AT:.".
JUMP THERE ON MY OWN!)"..A.:.".TO GET OU
T OF THE MLM JUST TYPE AN 'X'"..B.:.".AN
D HIT THE 'RETURN' KEY."..B.:.63000.AB.:
.".LET'S TRY JUMPING TO THE MLM.".MB.:."
.HIT A KEY WHEN YOU'RE READY TO TRY."..B
.;.".. REMEMBER HOW TO GET OUT! "..B.;."
.. TYPE 'X' THEN HIT 'RETURN' "..B.;."..
..THEN .@. TO CONTINUE..":SN$."16000":.6
3600..C.;.63001:SN$."16000":.63600..C$;.
2048:.63000.SC.>.60000:.".OK..IF YOU....
.... WANT TO ENTER THE MLM"..C.>.".YOU C
AN FIND ANY MEMORY LOCATION WHICH"..C.>.
".CONTAINS '0' AND SEND ME THERE WITH .S
YS.."..C.>.".ONE GOOD PLACE IS 2048. IT
ALWAYS.."..D.>."......WELL , ALMOST ALWA
YS...."..D.>.".CONTAINS '0'.".LD.>."..TR
Y .SYS2048.. (REMEMBER 'X' TO EXIT)"..DF
>."..THEN .TYPE @. TO CONTINUE..":SN$."1
7000":.63300..DHB.60000:.".ONCE IN THE O
LM YOU CAN DISPLAY THE"..DRB.".CONTENTS
OF MEMORY MORE EASILY THAN"..E|B.".WITH
PEEK(THIS) AND PEEK(THAT).".9E.B.".HAVIN
G DONE YOUR .SYS2048. I'LL GIVE.".CE.B."
B*".AE.B." PC SR AC XR YR SP.E.B."
.; 0801 30 30 3A 2A F7..E.B."...E.B.".N
OW IF YOU TYPE :"..EBB."...M A000 A00F".
QELB.".SO IT LOOKS LIKE:"..EQB.63000..EV
B."..B*"..F.B." PC SR AC XR YR SP.$
F.B.".; 0801 32 04 5E 00 F8.7F.B.".M A0
00 A00F.HF.B."..THEN HIT 'RETURN'...I'LL
DISPLAY MEMORY"..F.C.".FROM A000 TO A00
F (THAT'S HEXADECIMAL!)".VF.C.".TRY IT!
(REMEMBER 'X' TO EXIT MLM)":."..THEN .TY
PE @."..F.CSN$."18000":.63300.$GPF.60000
:.".....................................
...".RGUF.".NOTICE THAT THE NUMBERS I DI
SPLAY ARE".NGZF.".IN .HEXADECIMAL.!"..GD
F.".IN FACT YOU'VE SEEN THEM BEFORE."..G
NF.".THEY'RE FROM 'THE INTERPRETER'."..G
XF.".I LAST GAVE THEM TO YOU IN 'DECIMAL
'."..H.F.".(.PEEK. ALWAYS GIVES DECIMAL)
."."J.F.63000:.".".IH.FMS$.".AU REVOIR!.
":.63100:.63500:..YHX..".":.63100..HY.."
.DURING THE TUTORIAL YOU MAY WISH"..HZ..
".TO RETURN TO AN EARLIER 'PAGE'.".UH{..
".JUST .HIT THE @-KEY., AT ANY TIME,"..H
|..".AND THE TUTORIAL WILL BACK UP"..I}.
.".A PAGE OR TWO.".;I~..".ALSO, YOU HAVE
AN OPPORTUNITY TO".^I..".COMPOSE YOUR
OWN PROGRAMS."..I...".WHEN YOU WISH TO C
ONTINUE WITH"..I...".THE TUTORIAL, .HIT
THE @-KEY.!":.63000.QI..MS$.".@._REMEMBE
R":.63100..I...63000:...I`..204,1:. INIT
IALIZE..JA.BT$.".":.I.1.24:BT$.BT$.".":.
.BJB.PT$."..............................
................................."..JC.P
T$.PT$."..............N............M....
............============."..JD.PT$.PT$."
...............PO..........PO...........
....."..KE.PT$.BT$."....................
............".PT$.".".MKG.ML$.".........
............................".HKH.WD.40:
CRT.1024:.G(142)..KI.W2.WD.2:W3.WD.1:W1$
.J(D(WD),2):..KJ.W2$.J(D(W2),2):W3$.J(D(
W3),2).PKT..".":.53281,15:.53280,12:."."
..KF..B(789)..7.16.15..(7.4096.15.256.12
.16.3)..LG....LH..*NEW WORKSPACE.2LI.M.7
.4096.15.256.15.16.8LJ...PLK..I.M.M.15:.
K:.I,K:..JLL.. 1,96,3,96,3,96,3,96..LM..
144,127,0,0,144,127,0,0..LN.M.6.4096:.I
.0.2:.M.I,0:...LO....L..."..............
...........HIT .RETURN. TO CONTINUE";..L
...A$:.A$.."".63001..M...A$:.A$."".63002
..M....*M|..T.1.5:.PT$MS$;.@M}..PT$"
";.OM~..PT$MS$;:..WM..:..|M...56,
96:.52,96:.55,0:.51,0:.61000..M..WD.40:C
RT.1024:.CRT,96:.B(CRT.1024)..96.WD.80:.
G(142).OM..M.7.4096.15.256.9.16..M...I.M
.M.91:.K:.I,K:...N...165,203,201,46,208,
83,32,195,127,165,44,201,8,240,3,32,177,
127,32.SN...142,166,165,44,201,8,240,3,7
6,128,164,76,174,167,162,16,189,239..N..
.127,72,181,42,157,239,127,104,149,42,20
2,208,241,96,120,173,238,127..O...77,20,
3,141,20,3,173,239,127,77,21,3,141,21,3,
88,96,173,20,3,73.@O...144,141,238,127,1
73,21,3,73,127,141,239,127,96,76,255,255
.^O...M.90,B(788):.M.91,B(789).|O..KEY.7
.4096.15.256.13.16.8..O...(KEY):. KEY FO
R IRQ SWAP. OC....OD..*SWITCH TO NEW WOR
KSPACE.VOE..63600:. RUN NUMBER..OF..6100
0:. NEW THE WORKSPACE..PG..63403..P...*S
WITCH TO OLD WORKSPACE.)P...63600.IP..SW
TCH.7.4096.15.256.9.16.15.FP...(SWTCH):.
SWAP POINTERS.SP...204,2:...P...*RESTOR
E PET..P..SN$."100":.63600.IP..M.7.4096.
15.256.12.16.3:.B(789).7.16.15..M.OP....
.PP..*INSERT RUN NUMBER..QQ.M.2059:SN$."
00000".SN$."QR..I.1.5:.M.I,F(I(SN$,I)):.
:....
> CLICK IMAGE PREVIEW FOR FULL MODAL