PONZO TUTOR-4.64
FILE INFORMATION
FILENAME(S): PONZO TUTOR-4.64
FILE TYPE(S): PRG
FILE SIZE: 15.9K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
6798f1b9afdb43aa889c9c714dfe6773140e2fe564eccba1413e1b411ee4a0ad
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TUTORIALS C | PONZO TUTOR-4.64 | PRG | DuncanTwain | 22 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..!...."....... |
00000010: 50 4F 4E 5A 4F 2A 38 32 2A 57 41 54 45 52 4C 4F |PONZO*82*WATERLO|
00000020: 4F 00 2E 08 01 00 8F 22 14 14 14 14 14 14 00 4B |O......".......K|
00000030: 08 32 00 97 35 33 32 38 31 2C 31 35 3A 97 35 33 |.2..53281,15:.53|
00000040: 32 38 30 2C 31 32 3A 99 22 90 22 00 6E 08 64 00 |280,12:.".".n.d.|
00000050: 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000060: 20 12 1F 43 36 34 20 54 55 54 4F 52 2D 34 00 9E | ..C64 TUTOR-4..|
00000070: 08 65 00 99 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.e.."...........|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 E2 |............."..|
000000A0: 08 66 00 99 22 DD 20 12 1F 20 20 20 20 20 20 20 |.f..". .. |
000000B0: 20 20 20 49 4E 53 49 44 45 20 54 48 45 20 43 36 | INSIDE THE C6|
000000C0: 34 20 20 20 20 20 20 20 20 20 20 20 1C 92 20 DD |4 .. .|
000000D0: 22 3A 4D 53 24 B2 22 20 57 45 4C 43 4F 4D 45 21 |":MS$." WELCOME!|
000000E0: 20 22 00 13 09 67 00 99 22 1C AD C0 C0 C0 C0 C0 | "...g..".......|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: BD 90 22 00 2C 09 E8 03 8D 36 30 30 30 30 3A 8D |..".,....60000:.|
00000120: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 4C 09 ED |63100:.63000.L..|
00000130: 03 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000140: 12 43 36 34 20 4D 45 4D 4F 52 59 22 00 7A 09 F2 |.C64 MEMORY".z..|
00000150: 03 99 22 11 4D 45 4D 4F 52 59 20 52 55 4E 53 20 |..".MEMORY RUNS |
00000160: 46 52 4F 4D 20 30 20 54 4F 20 36 35 35 33 35 20 |FROM 0 TO 65535 |
00000170: 28 44 45 43 49 4D 41 4C 29 22 00 A0 09 FC 03 99 |(DECIMAL)"......|
00000180: 22 11 4F 52 20 30 30 30 30 20 54 4F 20 46 46 46 |".OR 0000 TO FFF|
00000190: 46 20 28 48 45 58 41 44 45 43 49 4D 41 4C 29 22 |F (HEXADECIMAL)"|
000001A0: 00 BE 09 06 04 99 22 11 28 57 52 49 54 54 45 4E |......".(WRITTEN|
000001B0: 20 24 30 30 30 30 20 24 46 46 46 46 29 22 00 E4 | $0000 $FFFF)"..|
000001C0: 09 10 04 99 22 11 53 4F 4D 45 20 49 53 20 46 4F |....".SOME IS FO|
000001D0: 52 20 59 4F 55 2E 2E 53 4F 4D 45 20 46 4F 52 20 |R YOU..SOME FOR |
000001E0: 4D 45 2E 22 00 FE 09 1A 04 99 22 11 28 41 42 4F |ME."......".(ABO|
000001F0: 55 54 20 48 41 4C 46 2F 48 41 4C 46 29 22 00 19 |UT HALF/HALF)"..|
00000200: 0A 24 04 99 22 11 4C 45 54 20 4D 45 20 53 48 4F |.$..".LET ME SHO|
00000210: 57 20 59 4F 55 2E 2E 2E 22 00 24 0A 2E 04 8D 36 |W YOU...".$....6|
00000220: 33 30 30 30 00 4A 0A 38 04 99 22 93 1D 1D 1D 1D |3000.J.8..".....|
00000230: 1D 1D 1D 12 42 4F 54 54 4F 4D 20 48 41 4C 46 20 |....BOTTOM HALF |
00000240: 4F 46 20 4D 45 4D 4F 52 59 22 00 5D 0A 42 04 99 |OF MEMORY".].B..|
00000250: 22 44 45 43 49 4D 41 4C 20 48 45 58 22 00 8B 0A |"DECIMAL HEX"...|
00000260: 4C 04 99 22 34 30 39 36 30 3D 24 41 30 30 30 2D |L.."40960=$A000-|
00000270: A6 A6 A6 A6 A6 A6 5F 54 4F 50 20 4F 46 20 42 41 |......_TOP OF BA|
00000280: 53 49 43 20 4D 45 4D 4F 52 59 22 00 A7 0A 56 04 |SIC MEMORY"...V.|
00000290: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 |." ..|
000002A0: A6 A6 A6 A6 5F C9 22 00 C3 0A 60 04 99 22 20 20 |...._."...`.." |
000002B0: 20 20 20 20 20 20 20 20 20 20 2D 20 2D 20 2D 20 | - - - |
000002C0: 20 2B 22 00 DF 0A 65 04 99 22 20 20 20 20 20 20 | +"...e.." |
000002D0: 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 20 DD 22 00 | ...... .".|
000002E0: 00 0B 6A 04 99 22 20 20 20 20 20 20 20 20 20 20 |..j.." |
000002F0: 20 20 A6 A6 A6 A6 A6 A6 20 DD 42 41 53 49 43 22 | ...... .BASIC"|
00000300: 00 24 0B 74 04 99 22 20 20 20 20 20 20 20 20 20 |.$.t.." |
00000310: 20 20 20 A6 A6 A6 A6 A6 A6 20 DD 50 52 4F 47 52 | ...... .PROGR|
00000320: 41 4D 53 22 00 47 0B 7E 04 99 22 20 20 20 20 20 |AMS".G.~.." |
00000330: 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 5F CB 49 | ......_.I|
00000340: 4E 20 48 45 52 45 22 00 75 0B 83 04 99 22 20 32 |N HERE".u...." 2|
00000350: 30 34 38 3D 24 30 38 30 30 2D A6 A6 A6 A6 A6 A6 |048=$0800-......|
00000360: 5F 42 41 53 49 43 20 4D 45 4D 4F 52 59 20 53 54 |_BASIC MEMORY ST|
00000370: 41 52 54 53 22 00 9E 0B 88 04 99 22 20 32 30 34 |ARTS"......" 204|
00000380: 37 3D 24 30 37 46 46 2D A6 A6 A6 A6 A6 A6 5F C9 |7=$07FF-......_.|
00000390: 53 43 52 45 45 4E 20 4D 45 4D 4F 52 59 22 00 BA |SCREEN MEMORY"..|
000003A0: 0B 92 04 99 22 20 31 30 32 34 3D 24 30 34 30 30 |...." 1024=$0400|
000003B0: 2D A6 A6 A6 A6 A6 A6 5F CB 22 00 D6 0B A6 04 99 |-......_."......|
000003C0: 22 20 31 30 32 33 3D 24 30 33 46 46 20 A6 A6 A6 |" 1023=$03FF ...|
000003D0: A6 A6 A6 5F C9 22 00 FE 0B B0 04 99 22 20 20 20 |..._."......" |
000003E0: 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 20 | ...... |
000003F0: 20 4D 59 20 57 4F 52 4B 53 50 41 43 45 22 00 1A | MY WORKSPACE"..|
00000400: 0C BA 04 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000410: 20 A6 A6 A6 A6 A6 A6 20 DD 22 00 36 0C C4 04 99 | ...... .".6....|
00000420: 22 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 |" ...|
00000430: A6 A6 A6 20 20 22 00 58 0C CE 04 99 22 20 20 20 |... ".X...." |
00000440: 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 5F | ......_|
00000450: 50 4F 49 4E 54 45 52 53 00 7A 0C D8 04 99 22 20 |POINTERS.z...." |
00000460: 20 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 | .....|
00000470: A6 5F 54 4F 20 4D 41 47 49 43 00 A2 0C E2 04 99 |._TO MAGIC......|
00000480: 22 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 |" ...|
00000490: A6 A6 A6 5F 4D 45 4D 4F 52 59 20 4C 4F 43 27 4E |..._MEMORY LOC'N|
000004A0: 53 22 00 C7 0C EC 04 99 22 20 20 20 20 20 20 20 |S"......" |
000004B0: 20 20 20 20 20 A6 A6 A6 A6 A6 A6 5F 46 4C 41 47 | ......_FLAG|
000004C0: 53 2C 45 54 43 2E 22 00 E1 0C F6 04 99 22 20 20 |S,ETC."......" |
000004D0: 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 | ......|
000004E0: 22 00 03 0D 00 05 99 22 20 20 20 20 30 3D 24 30 |"......" 0=$0|
000004F0: 30 30 30 2D A6 A6 A6 A6 A6 A6 5F CB 42 4F 54 54 |000-......_.BOTT|
00000500: 4F 4D 22 00 0E 0D 0A 05 8D 36 33 30 30 30 00 3A |OM"......63000.:|
00000510: 0D 14 05 99 22 93 49 20 53 54 4F 52 45 20 42 59 |....".I STORE BY|
00000520: 54 45 53 20 52 45 41 44 20 46 52 4F 4D 20 41 20 |TES READ FROM A |
00000530: 44 41 54 41 53 45 54 54 45 22 00 62 0D 1E 05 99 |DATASETTE".b....|
00000540: 22 11 49 4E 20 27 42 55 46 46 45 52 53 27 20 55 |".IN 'BUFFERS' U|
00000550: 4E 54 49 4C 20 49 20 47 45 54 20 45 4E 4F 55 47 |NTIL I GET ENOUG|
00000560: 48 22 00 87 0D 28 05 99 22 11 54 4F 20 53 54 55 |H"...(..".TO STU|
00000570: 46 46 20 49 4E 54 4F 20 27 42 41 53 49 43 20 4D |FF INTO 'BASIC M|
00000580: 45 4D 4F 52 59 27 22 00 AC 0D 32 05 99 22 11 28 |EMORY'"...2..".(|
00000590: 49 46 20 54 48 45 59 27 52 45 20 42 41 53 49 43 |IF THEY'RE BASIC|
000005A0: 20 50 52 4F 47 52 41 4D 53 29 2E 22 00 DB 0D 3C | PROGRAMS)."...<|
000005B0: 05 99 22 11 54 48 45 53 45 20 41 52 45 20 28 55 |..".THESE ARE (U|
000005C0: 53 55 41 4C 4C 59 29 20 4E 49 43 45 20 50 4C 41 |SUALLY) NICE PLA|
000005D0: 43 45 53 20 54 4F 20 50 55 54 22 00 FE 0D 46 05 |CES TO PUT"...F.|
000005E0: 99 22 11 4D 41 43 48 49 4E 45 20 4C 41 4E 47 55 |.".MACHINE LANGU|
000005F0: 41 47 45 20 50 52 4F 47 52 41 4D 53 2E 22 00 2E |AGE PROGRAMS."..|
00000600: 0E 50 05 99 22 11 57 48 45 4E 20 59 4F 55 20 44 |.P..".WHEN YOU D|
00000610: 45 46 49 4E 45 20 56 41 52 49 41 42 4C 45 53 20 |EFINE VARIABLES |
00000620: 58 2C 59 2C 41 28 49 29 2C 45 54 43 2E 22 00 5D |X,Y,A(I),ETC.".]|
00000630: 0E 5A 05 99 22 11 49 20 53 54 4F 52 45 20 54 48 |.Z..".I STORE TH|
00000640: 45 4D 20 41 46 54 45 52 20 59 4F 55 52 20 42 41 |EM AFTER YOUR BA|
00000650: 53 49 43 20 50 52 4F 47 52 41 4D 2E 22 00 8B 0E |SIC PROGRAM."...|
00000660: 64 05 99 22 11 57 48 45 4E 20 59 4F 55 20 44 45 |d..".WHEN YOU DE|
00000670: 46 49 4E 45 20 53 54 52 49 4E 47 53 20 41 24 2C |FINE STRINGS A$,|
00000680: 43 24 28 49 29 2C 45 54 43 2E 22 00 AE 0E 6E 05 |C$(I),ETC."...n.|
00000690: 99 22 11 49 20 53 54 4F 52 45 20 54 48 45 4D 20 |.".I STORE THEM |
000006A0: 41 54 20 54 48 45 20 27 54 4F 50 27 2E 22 00 DA |AT THE 'TOP'."..|
000006B0: 0E 78 05 99 22 11 54 4F 20 4B 45 45 50 20 54 52 |.x..".TO KEEP TR|
000006C0: 41 43 4B 20 4F 46 20 57 48 45 52 45 20 49 20 50 |ACK OF WHERE I P|
000006D0: 55 54 20 54 48 49 4E 47 53 22 00 02 0F 82 05 99 |UT THINGS"......|
000006E0: 22 11 49 20 53 54 4F 52 45 20 50 4F 49 4E 54 45 |".I STORE POINTE|
000006F0: 52 53 20 49 4E 20 4C 4F 57 20 4D 45 4D 4F 52 59 |RS IN LOW MEMORY|
00000700: 3A 22 00 0D 0F 8C 05 8D 36 33 30 30 30 00 37 0F |:"......63000.7.|
00000710: 96 05 99 22 93 54 48 45 20 41 44 44 52 45 53 53 |...".THE ADDRESS|
00000720: 20 4F 46 22 A3 32 35 29 22 20 49 53 20 53 54 4F | OF".25)" IS STO|
00000730: 52 45 44 20 41 54 22 00 62 0F A0 05 99 22 B8 B8 |RED AT".b...."..|
00000740: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 A3 32 |.............".2|
00000750: 35 29 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |5)".............|
00000760: B8 22 00 8D 0F AA 05 99 22 12 53 54 41 52 54 20 |."......".START |
00000770: 4F 46 20 42 41 53 49 43 22 A3 32 35 29 22 34 33 |OF BASIC".25)"43|
00000780: 2F 34 34 20 3D 24 32 42 2F 24 32 43 22 00 AA 0F |/44 =$2B/$2C"...|
00000790: B4 05 99 22 5E 28 55 53 55 41 4C 4C 59 20 32 30 |..."^(USUALLY 20|
000007A0: 34 39 3D 24 30 38 30 31 29 22 00 D5 0F BE 05 99 |49=$0801)"......|
000007B0: 22 12 45 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D |".END OF PROGRAM|
000007C0: 22 A3 32 35 29 22 34 35 2F 34 36 20 3D 24 32 44 |".25)"45/46 =$2D|
000007D0: 2F 24 32 45 22 00 F3 0F C8 05 99 22 5E 28 56 41 |/$2E"......"^(VA|
000007E0: 52 49 45 53 20 57 49 54 48 20 50 52 4F 47 52 41 |RIES WITH PROGRA|
000007F0: 4D 29 22 00 11 10 CD 05 99 22 20 28 41 4E 44 20 |M)"......" (AND |
00000800: 47 49 56 45 53 20 53 54 41 52 54 20 4F 46 20 29 |GIVES START OF )|
00000810: 22 00 29 10 CE 05 99 22 20 28 56 41 52 49 41 42 |".)...." (VARIAB|
00000820: 4C 45 53 20 54 4F 4F 29 22 00 57 10 CF 05 99 22 |LES TOO)".W...."|
00000830: 12 42 4F 54 54 4F 4D 20 4F 46 20 53 54 52 49 4E |.BOTTOM OF STRIN|
00000840: 47 53 22 A3 32 35 29 22 35 31 2F 35 32 20 3D 24 |GS".25)"51/52 =$|
00000850: 33 33 2F 24 33 34 22 00 75 10 D0 05 99 22 5E 28 |33/$34".u...."^(|
00000860: 56 41 52 49 45 53 20 57 49 54 48 20 50 52 4F 47 |VARIES WITH PROG|
00000870: 52 41 4D 29 22 00 94 10 D1 05 99 22 20 28 24 37 |RAM)"......" ($7|
00000880: 46 46 46 20 26 20 44 4F 57 4E 5F 53 54 52 49 4E |FFF & DOWN_STRIN|
00000890: 47 53 29 22 00 C1 10 D2 05 99 22 12 54 4F 50 20 |GS)"......".TOP |
000008A0: 4F 46 20 42 41 53 49 43 20 52 41 4D 22 A3 32 35 |OF BASIC RAM".25|
000008B0: 29 22 35 35 2F 35 36 20 3D 24 33 37 2F 24 33 38 |)"55/56 =$37/$38|
000008C0: 22 00 DF 10 DC 05 99 22 5E 28 55 53 55 41 4C 4C |"......"^(USUALL|
000008D0: 59 20 34 30 39 36 30 3D 24 41 30 30 30 29 22 00 |Y 40960=$A000)".|
000008E0: 10 11 DD 05 99 22 11 11 11 4E 4F 54 45 3A 20 54 |....."...NOTE: T|
000008F0: 48 45 20 27 54 4F 50 20 4F 46 20 42 41 53 49 43 |HE 'TOP OF BASIC|
00000900: 20 52 41 4D 27 20 4D 41 59 20 42 45 20 41 54 22 | RAM' MAY BE AT"|
00000910: 00 3D 11 DE 05 99 22 24 41 30 30 30 2E 2E 49 46 |.=...."$A000..IF|
00000920: 20 4E 4F 20 27 43 41 52 54 52 49 44 47 45 27 20 | NO 'CARTRIDGE' |
00000930: 49 53 20 49 4E 56 4F 4C 56 45 44 2E 22 00 6F 11 |IS INVOLVED.".o.|
00000940: E1 05 99 22 11 12 57 45 27 4C 4C 20 43 4F 4D 45 |..."..WE'LL COME|
00000950: 20 42 41 43 4B 20 54 4F 20 54 48 45 53 45 20 50 | BACK TO THESE P|
00000960: 4F 49 4E 54 45 52 53 20 4C 41 54 45 52 21 22 00 |OINTERS LATER!".|
00000970: 7A 11 E6 05 8D 36 33 30 30 30 00 A0 11 F0 05 99 |z....63000......|
00000980: 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 54 4F 50 |"............TOP|
00000990: 20 48 41 4C 46 20 4F 46 20 4D 45 4D 4F 52 59 22 | HALF OF MEMORY"|
000009A0: 00 B3 11 FA 05 99 22 44 45 43 49 4D 41 4C 20 48 |......"DECIMAL H|
000009B0: 45 58 22 00 DB 11 04 06 99 22 36 35 35 33 35 3D |EX"......"65535=|
000009C0: 24 46 46 46 46 2D A6 A6 A6 A6 A6 A6 5F 54 4F 50 |$FFFF-......_TOP|
000009D0: 20 4F 46 20 4D 45 4D 4F 52 59 22 00 F7 11 0E 06 | OF MEMORY".....|
000009E0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 |." ..|
000009F0: A6 A6 A6 A6 5F C9 22 00 18 12 18 06 99 22 20 20 |...._."......" |
00000A00: 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 | ......|
00000A10: 20 DD 52 41 4D 20 26 22 00 37 12 1D 06 99 22 20 | .RAM &".7...." |
00000A20: 20 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 | .....|
00000A30: A6 20 DD 52 4F 4D 22 00 53 12 22 06 99 22 34 39 |. .ROM".S.".."49|
00000A40: 31 35 32 3D 24 43 30 30 30 20 A6 A6 A6 A6 A6 A6 |152=$C000 ......|
00000A50: 5F CB 22 00 6F 12 27 06 99 22 20 20 20 20 20 20 |_.".o.'.." |
00000A60: 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 5F C9 22 00 | ......_.".|
00000A70: 90 12 28 06 99 22 20 20 20 20 20 20 20 20 20 20 |..(.." |
00000A80: 20 20 A6 A6 A6 A6 A6 A6 20 DD 42 41 53 49 43 22 | ...... .BASIC"|
00000A90: 00 B7 12 29 06 99 22 20 20 20 20 20 20 20 20 20 |...).." |
00000AA0: 20 20 20 A6 A6 A6 A6 A6 A6 20 DD 49 4E 54 45 52 | ...... .INTER|
00000AB0: 50 52 45 54 45 52 22 00 D3 12 2A 06 99 22 20 20 |PRETER"...*.." |
00000AC0: 20 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 | ......|
00000AD0: 20 DD 22 00 EF 12 2C 06 99 22 34 30 39 36 30 3D | ."...,.."40960=|
00000AE0: 24 41 30 30 30 20 A6 A6 A6 A6 A6 A6 5F CB 22 00 |$A000 ......_.".|
00000AF0: 13 13 36 06 99 22 20 20 20 20 20 20 20 20 20 20 |..6.." |
00000B00: 20 20 A6 A6 A6 A6 A6 A6 5F C9 5F 20 4D 41 59 20 | ......_._ MAY |
00000B10: 42 45 22 00 36 13 3B 06 99 22 20 20 20 20 20 20 |BE".6.;.." |
00000B20: 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 20 DD 55 53 | ...... .US|
00000B30: 45 44 20 42 59 22 00 5B 13 3C 06 99 22 20 20 20 |ED BY".[.<.." |
00000B40: 20 20 20 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 20 | ...... |
00000B50: DD 43 41 52 54 52 49 44 47 45 22 00 77 13 40 06 |.CARTRIDGE".w.@.|
00000B60: 99 22 33 32 37 36 38 3D 24 38 30 30 30 20 A6 A6 |."32768=$8000 ..|
00000B70: A6 A6 A6 A6 5F CB 22 00 82 13 7C 06 8D 36 33 30 |...._."...|..630|
00000B80: 30 30 00 AE 13 D6 06 99 22 93 20 20 20 20 20 12 |00......". .|
00000B90: 48 4F 57 20 42 41 53 49 43 20 50 52 4F 47 52 41 |HOW BASIC PROGRA|
00000BA0: 4D 53 20 41 52 45 20 53 54 4F 52 45 44 22 00 DC |MS ARE STORED"..|
00000BB0: 13 E0 06 99 22 11 52 45 43 41 4C 4C 20 54 48 41 |....".RECALL THA|
00000BC0: 54 20 42 41 53 49 43 20 50 52 4F 47 52 41 4D 53 |T BASIC PROGRAMS|
00000BD0: 20 28 4E 4F 52 4D 41 4C 4C 59 29 22 00 0B 14 EA | (NORMALLY)"....|
00000BE0: 06 99 22 11 47 4F 20 49 4E 54 4F 20 4D 45 4D 4F |..".GO INTO MEMO|
00000BF0: 52 59 20 53 54 41 52 54 49 4E 47 20 41 54 20 24 |RY STARTING AT $|
00000C00: 30 38 30 31 28 48 45 58 29 2E 22 00 39 14 F4 06 |0801(HEX).".9...|
00000C10: 99 22 11 4C 45 54 27 53 20 4C 4F 4F 4B 20 41 54 |.".LET'S LOOK AT|
00000C20: 20 54 48 45 20 42 59 54 45 53 20 54 48 45 52 45 | THE BYTES THERE|
00000C30: 20 46 4F 52 20 54 48 45 22 00 51 14 FE 06 99 22 | FOR THE".Q...."|
00000C40: 11 53 49 4D 50 4C 45 20 50 52 4F 47 52 41 4D 3A |.SIMPLE PROGRAM:|
00000C50: 22 00 6B 14 08 07 99 22 11 12 31 30 20 46 4F 52 |".k...."..10 FOR|
00000C60: 49 3D 31 54 4F 31 30 20 20 20 22 00 90 14 12 07 |I=1TO10 ".....|
00000C70: 99 22 12 32 30 20 50 52 49 4E 54 22 C7 28 33 34 |.".20 PRINT".(34|
00000C80: 29 22 2A 22 C7 28 33 34 29 22 3A 4E 45 58 54 22 |)"*".(34)":NEXT"|
00000C90: 00 BA 14 1C 07 99 22 11 57 45 27 4C 4C 20 12 53 |......".WE'LL .S|
00000CA0: 59 53 32 30 34 38 92 20 54 4F 20 47 45 54 20 54 |YS2048. TO GET T|
00000CB0: 4F 20 54 48 45 20 4D 4C 4D 22 00 E7 14 26 07 99 |O THE MLM"...&..|
00000CC0: 22 11 54 48 45 4E 20 57 45 27 4C 4C 20 2E 12 4D |".THEN WE'LL ..M|
00000CD0: 20 30 38 30 30 2D 30 38 32 30 92 20 54 4F 20 44 | 0800-0820. TO D|
00000CE0: 49 53 50 4C 41 59 22 00 17 15 30 07 99 22 11 54 |ISPLAY"...0..".T|
00000CF0: 48 45 20 4D 45 4D 4F 52 59 20 48 4F 4C 44 49 4E |HE MEMORY HOLDIN|
00000D00: 47 20 54 48 49 53 20 53 49 4D 50 4C 45 20 50 52 |G THIS SIMPLE PR|
00000D10: 4F 47 52 41 4D 2E 22 00 2B 15 35 07 8D 36 33 30 |OGRAM.".+.5..630|
00000D20: 30 30 3A 99 22 93 46 4F 52 3A 22 00 45 15 36 07 |00:.".FOR:".E.6.|
00000D30: 99 22 11 12 31 30 20 46 4F 52 49 3D 31 54 4F 31 |."..10 FORI=1TO1|
00000D40: 30 20 20 20 22 00 6A 15 37 07 99 22 12 32 30 20 |0 ".j.7..".20 |
00000D50: 50 52 49 4E 54 22 C7 28 33 34 29 22 2A 22 C7 28 |PRINT".(34)"*".(|
00000D60: 33 34 29 22 3A 4E 45 58 54 22 00 7D 15 38 07 99 |34)":NEXT".}.8..|
00000D70: 22 11 57 45 27 4C 4C 20 47 45 54 3A 22 00 A6 15 |".WE'LL GET:"...|
00000D80: 3A 07 99 22 11 20 2E 3A 20 20 30 38 30 30 20 30 |:..". .: 0800 0|
00000D90: 30 20 30 44 20 30 38 20 30 41 20 30 30 20 38 31 |0 0D 08 0A 00 81|
00000DA0: 20 34 39 20 42 32 00 CE 15 44 07 99 22 20 2E 3A | 49 B2...D.." .:|
00000DB0: 20 20 30 38 30 38 20 33 31 20 41 34 20 33 31 20 | 0808 31 A4 31 |
00000DC0: 33 30 20 30 30 20 31 38 20 30 38 20 31 34 00 F6 |30 00 18 08 14..|
00000DD0: 15 4E 07 99 22 20 2E 3A 20 20 30 38 31 30 20 30 |.N.." .: 0810 0|
00000DE0: 30 20 39 39 20 32 32 20 32 41 20 32 32 20 33 41 |0 99 22 2A 22 3A|
00000DF0: 20 38 32 20 30 30 00 1E 16 58 07 99 22 20 2E 3A | 82 00...X.." .:|
00000E00: 20 20 30 38 31 38 20 30 30 20 30 30 20 41 41 20 | 0818 00 00 AA |
00000E10: 41 41 20 41 41 20 41 41 20 41 41 20 41 41 00 6B |AA AA AA AA AA.k|
00000E20: 16 62 07 53 44 24 B2 22 13 11 11 11 11 11 11 11 |.b.SD$."........|
00000E30: 11 11 11 11 11 11 11 11 11 11 11 22 3A 43 4C 24 |...........":CL$|
00000E40: B2 22 92 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 20 20 20 20 20 20 20 20 20 92 22 00 9E 16 63 07 | ."...c.|
00000E70: 53 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |SR$."...........|
00000E80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 BD |............."..|
00000EA0: 16 6C 07 53 44 B2 38 3A 53 52 B2 31 30 3A 43 43 |.l.SD.8:SR.10:CC|
00000EB0: 24 B2 22 30 30 22 3A 8D 35 35 30 30 30 00 E0 16 |$."00":.55000...|
00000EC0: 76 07 99 53 44 24 22 49 20 41 4C 57 41 59 53 20 |v..SD$"I ALWAYS |
00000ED0: 48 41 56 45 20 12 30 30 92 20 48 45 52 45 2E 22 |HAVE .00. HERE."|
00000EE0: 00 03 17 80 07 99 22 54 48 41 54 27 53 20 57 48 |......"THAT'S WH|
00000EF0: 59 20 27 53 59 53 32 30 34 38 27 20 57 4F 52 4B |Y 'SYS2048' WORK|
00000F00: 53 21 22 00 0E 17 8A 07 8D 36 32 30 30 30 00 19 |S!"......62000..|
00000F10: 17 8B 07 8D 35 35 30 31 30 00 3B 17 9E 07 53 44 |....55010.;...SD|
00000F20: B2 38 3A 53 52 B2 31 33 3A 43 43 24 B2 22 30 44 |.8:SR.13:CC$."0D|
00000F30: 20 30 38 22 3A 8D 35 35 30 30 30 00 67 17 A8 07 | 08":.55000.g...|
00000F40: 99 53 44 24 22 54 48 49 53 20 49 53 20 54 48 45 |.SD$"THIS IS THE|
00000F50: 20 41 44 44 52 45 53 53 20 4F 46 20 54 48 45 20 | ADDRESS OF THE |
00000F60: 12 4E 45 58 54 92 22 00 81 17 B2 07 99 22 42 41 |.NEXT."......"BA|
00000F70: 53 49 43 20 49 4E 53 54 52 55 43 54 49 4F 4E 2E |SIC INSTRUCTION.|
00000F80: 22 00 8C 17 BC 07 8D 36 32 30 30 30 00 97 17 BD |"......62000....|
00000F90: 07 8D 35 35 30 31 30 00 B9 17 C6 07 53 44 B2 38 |..55010.....SD.8|
00000FA0: 3A 53 52 B2 31 39 3A 43 43 24 B2 22 30 41 20 30 |:SR.19:CC$."0A 0|
00000FB0: 30 22 3A 8D 35 35 30 30 30 00 E0 17 D0 07 99 53 |0":.55000......S|
00000FC0: 44 24 22 54 48 49 53 20 49 53 20 54 48 45 20 4C |D$"THIS IS THE L|
00000FD0: 49 4E 45 20 4E 55 4D 42 45 52 20 12 31 30 92 22 |INE NUMBER .10."|
00000FE0: 00 F0 17 DA 07 99 22 20 49 4E 20 48 45 58 2E 22 |......" IN HEX."|
00000FF0: 00 FB 17 E4 07 8D 36 32 30 30 30 00 06 18 E5 07 |......62000.....|
00001000: 8D 35 35 30 31 30 00 25 18 EE 07 53 44 B2 38 3A |.55010.%...SD.8:|
00001010: 53 52 B2 32 35 3A 43 43 24 B2 22 38 31 22 3A 8D |SR.25:CC$."81":.|
00001020: 35 35 30 30 30 00 48 18 F8 07 99 53 44 24 22 54 |55000.H....SD$"T|
00001030: 48 49 53 20 49 53 20 54 48 45 20 27 54 4F 4B 45 |HIS IS THE 'TOKE|
00001040: 4E 27 20 46 4F 52 22 3B 00 56 18 02 08 99 22 20 |N' FOR";.V...." |
00001050: 12 46 4F 52 92 22 00 61 18 0C 08 8D 36 32 30 30 |.FOR.".a....6200|
00001060: 30 00 6C 18 0D 08 8D 35 35 30 31 30 00 77 18 12 |0.l....55010.w..|
00001070: 08 8D 35 35 30 31 30 00 96 18 16 08 53 44 B2 38 |..55010.....SD.8|
00001080: 3A 53 52 B2 32 38 3A 43 43 24 B2 22 34 39 22 3A |:SR.28:CC$."49":|
00001090: 8D 35 35 30 30 30 00 BC 18 20 08 99 53 44 24 22 |.55000... ..SD$"|
000010A0: 54 48 49 53 20 49 53 20 54 48 45 20 41 53 43 49 |THIS IS THE ASCI|
000010B0: 49 20 43 4F 44 45 20 46 4F 52 22 3B 00 C8 18 2A |I CODE FOR";...*|
000010C0: 08 99 22 20 12 49 92 22 00 D3 18 34 08 8D 36 32 |.." .I."...4..62|
000010D0: 30 30 30 00 DE 18 35 08 8D 35 35 30 31 30 00 FD |000...5..55010..|
000010E0: 18 3E 08 53 44 B2 38 3A 53 52 B2 33 31 3A 43 43 |.>.SD.8:SR.31:CC|
000010F0: 24 B2 22 42 32 22 3A 8D 35 35 30 30 30 00 23 19 |$."B2":.55000.#.|
00001100: 48 08 99 53 44 24 22 54 48 49 53 20 49 53 20 54 |H..SD$"THIS IS T|
00001110: 48 45 20 41 53 43 49 49 20 43 4F 44 45 20 46 4F |HE ASCII CODE FO|
00001120: 52 22 3B 00 2F 19 52 08 99 22 20 12 3D 92 22 00 |R";./.R.." .=.".|
00001130: 3A 19 5C 08 8D 36 32 30 30 30 00 45 19 5D 08 8D |:.\..62000.E.]..|
00001140: 35 35 30 31 30 00 64 19 66 08 53 44 B2 39 3A 53 |55010.d.f.SD.9:S|
00001150: 52 B2 31 30 3A 43 43 24 B2 22 33 31 22 3A 8D 35 |R.10:CC$."31":.5|
00001160: 35 30 30 30 00 8A 19 70 08 99 53 44 24 22 54 48 |5000...p..SD$"TH|
00001170: 49 53 20 49 53 20 54 48 45 20 41 53 43 49 49 20 |IS IS THE ASCII |
00001180: 43 4F 44 45 20 46 4F 52 22 3B 00 96 19 7A 08 99 |CODE FOR";...z..|
00001190: 22 20 12 31 92 22 00 A1 19 84 08 8D 36 32 30 30 |" .1."......6200|
000011A0: 30 00 AC 19 85 08 8D 35 35 30 31 30 00 CB 19 8E |0......55010....|
000011B0: 08 53 44 B2 39 3A 53 52 B2 31 33 3A 43 43 24 B2 |.SD.9:SR.13:CC$.|
000011C0: 22 41 34 22 3A 8D 35 35 30 30 30 00 EE 19 98 08 |"A4":.55000.....|
000011D0: 99 53 44 24 22 54 48 49 53 20 49 53 20 54 48 45 |.SD$"THIS IS THE|
000011E0: 20 27 54 4F 4B 45 4E 27 20 46 4F 52 22 3B 00 FB | 'TOKEN' FOR";..|
000011F0: 19 A2 08 99 22 20 12 54 4F 92 22 00 06 1A AC 08 |...." .TO.".....|
00001200: 8D 36 32 30 30 30 00 11 1A AD 08 8D 35 35 30 31 |.62000......5501|
00001210: 30 00 30 1A B6 08 53 44 B2 39 3A 53 52 B2 31 36 |0.0...SD.9:SR.16|
00001220: 3A 43 43 24 B2 22 33 31 22 3A 8D 35 35 30 30 30 |:CC$."31":.55000|
00001230: 00 56 1A C0 08 99 53 44 24 22 54 48 49 53 20 49 |.V....SD$"THIS I|
00001240: 53 20 54 48 45 20 41 53 43 49 49 20 43 4F 44 45 |S THE ASCII CODE|
00001250: 20 46 4F 52 22 3B 00 69 1A CA 08 99 22 20 12 31 | FOR";.i...." .1|
00001260: 92 28 41 47 41 49 4E 29 22 00 74 1A D4 08 8D 36 |.(AGAIN)".t....6|
00001270: 32 30 30 30 00 7F 1A D5 08 8D 35 35 30 31 30 00 |2000......55010.|
00001280: 9E 1A DE 08 53 44 B2 39 3A 53 52 B2 31 39 3A 43 |....SD.9:SR.19:C|
00001290: 43 24 B2 22 33 30 22 3A 8D 35 35 30 30 30 00 C4 |C$."30":.55000..|
000012A0: 1A E8 08 99 53 44 24 22 54 48 49 53 20 49 53 20 |....SD$"THIS IS |
000012B0: 54 48 45 20 41 53 43 49 49 20 43 4F 44 45 20 46 |THE ASCII CODE F|
000012C0: 4F 52 22 3B 00 D0 1A F2 08 99 22 20 12 30 92 22 |OR";......" .0."|
000012D0: 00 DB 1A FC 08 8D 36 32 30 30 30 00 E6 1A FD 08 |......62000.....|
000012E0: 8D 35 35 30 31 30 00 05 1B 06 09 53 44 B2 39 3A |.55010.....SD.9:|
000012F0: 53 52 B2 32 32 3A 43 43 24 B2 22 30 30 22 3A 8D |SR.22:CC$."00":.|
00001300: 35 35 30 30 30 00 28 1B 10 09 99 53 44 24 22 54 |55000.(....SD$"T|
00001310: 48 49 53 20 49 53 20 54 48 45 20 42 59 54 45 20 |HIS IS THE BYTE |
00001320: 4D 45 41 4E 49 4E 47 22 00 43 1B 1A 09 99 22 12 |MEANING".C....".|
00001330: 45 4E 44 20 4F 46 20 53 54 41 54 45 4D 45 4E 54 |END OF STATEMENT|
00001340: 92 2E 22 00 4E 1B 24 09 8D 36 32 30 30 30 00 59 |..".N.$..62000.Y|
00001350: 1B 25 09 8D 35 35 30 31 30 00 7B 1B 2E 09 53 44 |.%..55010.{...SD|
00001360: B2 39 3A 53 52 B2 32 35 3A 43 43 24 B2 22 31 38 |.9:SR.25:CC$."18|
00001370: 20 30 38 22 3A 8D 35 35 30 30 30 00 9F 1B 38 09 | 08":.55000...8.|
00001380: 99 53 44 24 22 54 48 45 53 45 20 50 4F 49 4E 54 |.SD$"THESE POINT|
00001390: 20 54 4F 20 41 44 44 52 45 53 53 20 4F 46 22 00 | TO ADDRESS OF".|
000013A0: BB 1B 42 09 99 22 54 48 45 20 12 4E 45 58 54 92 |..B.."THE .NEXT.|
000013B0: 20 53 54 41 54 45 4D 45 4E 54 22 00 C6 1B 4C 09 | STATEMENT"...L.|
000013C0: 8D 36 32 30 30 30 00 D1 1B 57 09 8D 35 35 30 31 |.62000...W..5501|
000013D0: 30 00 F5 1B 6A 09 99 53 44 24 22 54 48 49 53 20 |0...j..SD$"THIS |
000013E0: 32 4E 44 20 53 54 41 54 45 4D 45 4E 54 20 42 45 |2ND STATEMENT BE|
000013F0: 47 49 4E 53 22 00 17 1C 74 09 99 22 41 54 20 24 |GINS"...t.."AT $|
00001400: 30 38 30 44 20 41 53 20 4E 4F 54 45 44 20 45 41 |080D AS NOTED EA|
00001410: 52 4C 49 45 52 2E 22 00 39 1C 7E 09 53 44 B2 38 |RLIER.".9.~.SD.8|
00001420: 3A 53 52 B2 31 33 3A 43 43 24 B2 22 30 44 20 30 |:SR.13:CC$."0D 0|
00001430: 38 22 3A 8D 35 35 30 30 30 00 47 1C 83 09 81 49 |8":.55000.G....I|
00001440: B2 31 A4 35 30 3A 82 00 52 1C 88 09 8D 35 35 30 |.1.50:..R....550|
00001450: 31 30 00 66 1C 92 09 A1 41 24 3A 8B 41 24 B2 22 |10.f....A$:.A$."|
00001460: 22 A7 32 34 33 30 00 7C 1C 9C 09 99 53 44 24 43 |".2430.|....SD$C|
00001470: 4C 24 3A 99 43 4C 24 3A 99 43 4C 24 00 9E 1C A1 |L$:.CL$:.CL$....|
00001480: 09 53 44 B2 39 3A 53 52 B2 32 35 3A 43 43 24 B2 |.SD.9:SR.25:CC$.|
00001490: 22 31 38 20 30 38 22 3A 8D 35 35 30 30 30 00 CC |"18 08":.55000..|
000014A0: 1C A6 09 99 53 44 24 22 54 48 45 20 41 44 44 52 |....SD$"THE ADDR|
000014B0: 45 53 53 20 4F 46 20 54 48 45 20 27 4E 45 58 54 |ESS OF THE 'NEXT|
000014C0: 27 20 53 54 41 54 45 4D 45 4E 54 22 00 F6 1C B0 |' STATEMENT"....|
000014D0: 09 99 22 49 53 20 47 49 56 45 4E 20 12 4C 4F 2D |.."IS GIVEN .LO-|
000014E0: 42 59 54 45 92 20 54 48 45 4E 20 12 48 49 2D 42 |BYTE. THEN .HI-B|
000014F0: 59 54 45 92 2E 22 00 1B 1D BA 09 99 22 49 54 27 |YTE.."......"IT'|
00001500: 53 20 28 4C 4F 2D 42 59 54 45 29 2B 32 35 36 2A |S (LO-BYTE)+256*|
00001510: 28 48 49 2D 42 59 54 45 29 2E 22 00 26 1D C4 09 |(HI-BYTE).".&...|
00001520: 8D 36 32 30 30 30 00 31 1D C5 09 8D 35 35 30 31 |.62000.1....5501|
00001530: 30 00 5E 1D CE 09 99 53 44 24 22 2E 2E 53 41 4D |0.^....SD$"..SAM|
00001540: 45 20 46 4F 52 20 54 48 45 20 27 53 54 41 54 45 |E FOR THE 'STATE|
00001550: 4D 45 4E 54 20 4E 55 4D 42 45 52 27 2E 22 00 80 |MENT NUMBER'."..|
00001560: 1D D8 09 53 44 B2 38 3A 53 52 B2 31 39 3A 43 43 |...SD.8:SR.19:CC|
00001570: 24 B2 22 30 41 20 30 30 22 3A 8D 35 35 30 30 30 |$."0A 00":.55000|
00001580: 00 8E 1D DD 09 81 49 B2 31 A4 35 30 3A 82 00 B0 |......I.1.50:...|
00001590: 1D E2 09 53 44 B2 38 3A 53 52 B2 31 39 3A 43 43 |...SD.8:SR.19:CC|
000015A0: 24 B2 22 30 41 20 30 30 22 3A 8D 35 35 30 30 30 |$."0A 00":.55000|
000015B0: 00 C4 1D E7 09 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
000015C0: 32 35 32 30 00 CF 1D EC 09 8D 36 32 30 30 30 00 |2520......62000.|
000015D0: DA 1D ED 09 8D 35 35 30 31 30 00 00 1E F6 09 99 |.....55010......|
000015E0: 53 44 24 22 54 48 45 4E 20 43 4F 4D 45 53 20 32 |SD$"THEN COMES 2|
000015F0: 20 42 59 54 45 53 20 46 4F 52 20 54 48 45 20 22 | BYTES FOR THE "|
00001600: 00 1D 1E 00 0A 99 22 53 54 41 54 45 4D 45 4E 54 |......"STATEMENT|
00001610: 20 4E 55 4D 42 45 52 20 12 32 30 92 22 00 3E 1E | NUMBER .20.".>.|
00001620: 0A 0A 99 22 28 31 53 54 20 42 59 54 45 29 2B 32 |..."(1ST BYTE)+2|
00001630: 35 36 2A 28 32 4E 44 20 42 59 54 45 29 22 00 5D |56*(2ND BYTE)".]|
00001640: 1E 0F 0A 53 44 B2 39 3A 53 52 B2 33 31 3A 43 43 |...SD.9:SR.31:CC|
00001650: 24 B2 22 31 34 22 3A 8D 35 35 30 30 30 00 7D 1E |$."14":.55000.}.|
00001660: 10 0A 53 44 B2 31 30 3A 53 52 B2 31 30 3A 43 43 |..SD.10:SR.10:CC|
00001670: 24 B2 22 30 30 22 3A 8D 35 35 30 30 30 00 88 1E |$."00":.55000...|
00001680: 14 0A 8D 36 32 30 30 30 00 9E 1E 15 0A 99 C8 28 |...62000.......(|
00001690: 53 44 24 2C 39 29 A3 33 31 29 22 31 34 22 00 B5 |SD$,9).31)"14"..|
000016A0: 1E 16 0A 99 C8 28 53 44 24 2C 31 30 29 A3 31 30 |.....(SD$,10).10|
000016B0: 29 22 30 30 22 00 D5 1E 1E 0A 53 44 B2 31 30 3A |)"00".....SD.10:|
000016C0: 53 52 B2 31 33 3A 43 43 24 B2 22 39 39 22 3A 8D |SR.13:CC$."99":.|
000016D0: 35 35 30 30 30 00 FF 1E 28 0A 99 53 44 24 22 54 |55000...(..SD$"T|
000016E0: 48 49 53 20 49 53 20 54 48 45 20 27 54 4F 4B 45 |HIS IS THE 'TOKE|
000016F0: 4E 27 20 46 4F 52 20 12 50 52 49 4E 54 92 22 00 |N' FOR .PRINT.".|
00001700: 0A 1F 32 0A 8D 36 32 30 30 30 00 15 1F 33 0A 8D |..2..62000...3..|
00001710: 35 35 30 31 30 00 35 1F 3C 0A 53 44 B2 31 30 3A |55010.5.<.SD.10:|
00001720: 53 52 B2 31 36 3A 43 43 24 B2 22 32 32 22 3A 8D |SR.16:CC$."22":.|
00001730: 35 35 30 30 30 00 61 1F 46 0A 99 53 44 24 22 54 |55000.a.F..SD$"T|
00001740: 48 49 53 20 49 53 20 54 48 45 20 41 53 43 49 49 |HIS IS THE ASCII|
00001750: 20 43 4F 44 45 20 46 4F 52 20 12 22 C7 28 33 34 | CODE FOR .".(34|
00001760: 29 00 6C 1F 50 0A 8D 36 32 30 30 30 00 77 1F 51 |).l.P..62000.w.Q|
00001770: 0A 8D 35 35 30 31 30 00 97 1F 5A 0A 53 44 B2 31 |..55010...Z.SD.1|
00001780: 30 3A 53 52 B2 31 39 3A 43 43 24 B2 22 32 41 22 |0:SR.19:CC$."2A"|
00001790: 3A 8D 35 35 30 30 30 00 C0 1F 64 0A 99 53 44 24 |:.55000...d..SD$|
000017A0: 22 54 48 49 53 20 49 53 20 54 48 45 20 41 53 43 |"THIS IS THE ASC|
000017B0: 49 49 20 43 4F 44 45 20 46 4F 52 20 12 2A 92 22 |II CODE FOR .*."|
000017C0: 00 CB 1F 6E 0A 8D 36 32 30 30 30 00 D6 1F 6F 0A |...n..62000...o.|
000017D0: 8D 35 35 30 31 30 00 F6 1F 78 0A 53 44 B2 31 30 |.55010...x.SD.10|
000017E0: 3A 53 52 B2 32 32 3A 43 43 24 B2 22 32 32 22 3A |:SR.22:CC$."22":|
000017F0: 8D 35 35 30 30 30 00 28 20 82 0A 99 53 44 24 22 |.55000.( ...SD$"|
00001800: 2E 2E 54 48 45 20 41 53 43 49 49 20 43 4F 44 45 |..THE ASCII CODE|
00001810: 20 46 4F 52 20 12 22 C7 28 33 34 29 3A 99 22 2E | FOR .".(34):.".|
00001820: 2E 2E 41 47 41 49 4E 22 00 33 20 8C 0A 8D 36 32 |..AGAIN".3 ...62|
00001830: 30 30 30 00 3E 20 8D 0A 8D 35 35 30 31 30 00 5E |000.> ...55010.^|
00001840: 20 96 0A 53 44 B2 31 30 3A 53 52 B2 32 35 3A 43 | ..SD.10:SR.25:C|
00001850: 43 24 B2 22 33 41 22 3A 8D 35 35 30 30 30 00 7F |C$."3A":.55000..|
00001860: 20 A0 0A 99 53 44 24 22 54 48 45 20 41 53 43 49 | ...SD$"THE ASCI|
00001870: 49 20 43 4F 44 45 20 46 4F 52 20 12 3A 92 22 00 |I CODE FOR .:.".|
00001880: 8A 20 AA 0A 8D 36 32 30 30 30 00 95 20 AB 0A 8D |. ...62000.. ...|
00001890: 35 35 30 31 30 00 B5 20 B4 0A 53 44 B2 31 30 3A |55010.. ..SD.10:|
000018A0: 53 52 B2 32 38 3A 43 43 24 B2 22 38 32 22 3A 8D |SR.28:CC$."82":.|
000018B0: 35 35 30 30 30 00 D4 20 BE 0A 99 53 44 24 22 54 |55000.. ...SD$"T|
000018C0: 48 45 20 54 4F 4B 45 4E 20 46 4F 52 20 12 4E 45 |HE TOKEN FOR .NE|
000018D0: 58 54 92 22 00 DF 20 C8 0A 8D 36 32 30 30 30 00 |XT.".. ...62000.|
000018E0: EA 20 C9 0A 8D 35 35 30 31 30 00 0A 21 D2 0A 53 |. ...55010..!..S|
000018F0: 44 B2 31 30 3A 53 52 B2 33 31 3A 43 43 24 B2 22 |D.10:SR.31:CC$."|
00001900: 30 30 22 3A 8D 35 35 30 30 30 00 2D 21 DC 0A 53 |00":.55000.-!..S|
00001910: 44 B2 31 31 3A 53 52 B2 31 30 3A 43 43 24 B2 22 |D.11:SR.10:CC$."|
00001920: 30 30 20 30 30 22 3A 8D 35 35 30 30 30 00 4C 21 |00 00":.55000.L!|
00001930: E6 0A 99 53 44 24 22 54 48 45 20 33 20 5A 45 52 |...SD$"THE 3 ZER|
00001940: 4F 20 42 59 54 45 53 20 53 41 59 22 00 69 21 F0 |O BYTES SAY".i!.|
00001950: 0A 99 22 12 45 4E 44 20 4F 46 20 54 48 45 20 50 |..".END OF THE P|
00001960: 52 4F 47 52 41 4D 92 21 22 00 74 21 FA 0A 8D 36 |ROGRAM.!".t!...6|
00001970: 32 30 30 30 00 8B 21 FB 0A 99 C8 28 53 44 24 2C |2000..!....(SD$,|
00001980: 31 30 29 A3 33 31 29 22 30 30 22 00 A5 21 FC 0A |10).31)"00"..!..|
00001990: 99 C8 28 53 44 24 2C 31 31 29 A3 31 30 29 22 30 |..(SD$,11).10)"0|
000019A0: 30 20 30 30 22 00 B0 21 04 0B 8D 36 32 30 30 30 |0 00"..!...62000|
000019B0: 00 D0 21 0E 0B 53 44 B2 31 30 3A 53 52 B2 33 31 |..!..SD.10:SR.31|
000019C0: 3A 43 43 24 B2 22 30 30 22 3A 8D 35 35 30 30 30 |:CC$."00":.55000|
000019D0: 00 F1 21 18 0B 99 53 44 24 22 54 48 49 53 20 4F |..!...SD$"THIS O|
000019E0: 4E 45 20 49 53 20 54 48 45 20 4E 4F 52 4D 41 4C |NE IS THE NORMAL|
000019F0: 22 00 0B 22 22 0B 99 22 12 45 4E 44 20 4F 46 20 |"..""..".END OF |
00001A00: 53 54 41 54 45 4D 45 4E 54 92 22 00 16 22 2C 0B |STATEMENT."..",.|
00001A10: 8D 36 32 30 30 30 00 21 22 2D 0B 8D 35 35 30 31 |.62000.!"-..5501|
00001A20: 30 00 44 22 2E 0B 53 44 B2 31 31 3A 53 52 B2 31 |0.D"..SD.11:SR.1|
00001A30: 30 3A 43 43 24 B2 22 30 30 20 30 30 22 3A 8D 35 |0:CC$."00 00":.5|
00001A40: 35 30 30 30 00 6B 22 36 0B 99 53 44 24 22 54 48 |5000.k"6..SD$"TH|
00001A50: 45 53 45 20 47 49 56 45 20 12 30 30 20 30 30 92 |ESE GIVE .00 00.|
00001A60: 20 41 53 20 41 20 4C 49 4E 4B 22 00 8B 22 40 0B | AS A LINK".."@.|
00001A70: 99 22 54 4F 20 54 48 45 20 27 4E 45 58 54 27 20 |."TO THE 'NEXT' |
00001A80: 53 54 41 54 45 4D 45 4E 54 2E 22 00 AF 22 4A 0B |STATEMENT.".."J.|
00001A90: 99 22 4D 45 41 4E 49 4E 47 20 12 4E 4F 20 4E 45 |."MEANING .NO NE|
00001AA0: 58 54 20 53 54 41 54 45 4D 45 4E 54 92 2E 22 00 |XT STATEMENT..".|
00001AB0: BA 22 54 0B 8D 36 32 30 30 30 00 C5 22 55 0B 8D |."T..62000.."U..|
00001AC0: 35 35 30 31 30 00 ED 22 56 0B 99 C8 28 53 44 24 |55010.."V...(SD$|
00001AD0: 2C 31 31 29 A3 31 36 29 22 12 41 41 20 41 41 20 |,11).16)".AA AA |
00001AE0: 41 41 20 41 41 20 41 41 20 41 41 92 22 00 19 23 |AA AA AA AA."..#|
00001AF0: 5E 0B 99 53 44 24 22 54 48 45 20 42 55 4E 43 48 |^..SD$"THE BUNCH|
00001B00: 20 4F 46 20 12 41 41 92 53 20 49 53 20 4A 55 53 | OF .AA.S IS JUS|
00001B10: 54 2E 2E 2E 2E 2E 2E 2E 22 00 29 23 68 0B 99 22 |T.......".)#h.."|
00001B20: 47 41 52 42 41 47 45 21 22 00 50 23 7C 0B 8D 36 |GARBAGE!".P#|..6|
00001B30: 32 30 30 30 3A 99 22 93 22 3A 20 4D 53 24 B2 22 |2000:.".": MS$."|
00001B40: 41 41 20 41 41 20 41 41 22 3A 8D 36 33 31 30 30 |AA AA AA":.63100|
00001B50: 00 82 23 86 0B 99 22 93 49 46 20 59 4F 55 20 52 |..#...".IF YOU R|
00001B60: 45 41 4C 4C 59 11 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 |EALLY...........|
00001B70: B8 B8 91 20 57 41 4E 54 45 44 20 54 4F 20 59 4F |... WANTED TO YO|
00001B80: 55 22 00 AC 23 90 0B 99 22 11 43 4F 55 4C 44 20 |U"..#...".COULD |
00001B90: 45 4E 54 45 52 20 54 48 45 20 4D 4C 4D 20 57 49 |ENTER THE MLM WI|
00001BA0: 54 48 20 12 53 59 53 32 30 34 38 22 00 DA 23 9A |TH .SYS2048"..#.|
00001BB0: 0B 99 22 11 41 4E 44 20 57 52 49 54 45 20 28 4F |..".AND WRITE (O|
00001BC0: 52 20 43 48 41 4E 47 45 29 20 41 20 42 41 53 49 |R CHANGE) A BASI|
00001BD0: 43 20 50 52 4F 47 52 41 4D 22 00 05 24 A4 0B 99 |C PROGRAM"..$...|
00001BE0: 22 11 42 59 20 53 49 4D 50 4C 59 20 45 4E 54 45 |".BY SIMPLY ENTE|
00001BF0: 52 49 4E 47 20 54 48 45 20 41 50 50 52 4F 50 52 |RING THE APPROPR|
00001C00: 49 41 54 45 22 00 34 24 AE 0B 99 22 11 42 59 54 |IATE".4$...".BYT|
00001C10: 45 53 20 28 49 4E 20 48 45 58 21 29 20 49 4E 54 |ES (IN HEX!) INT|
00001C20: 4F 20 54 48 45 20 52 49 47 48 54 20 4C 4F 43 27 |O THE RIGHT LOC'|
00001C30: 4E 53 21 22 00 5A 24 B8 0B 99 22 11 2E 2E 42 55 |NS!".Z$..."...BU|
00001C40: 54 20 4C 45 41 52 4E 20 59 4F 55 52 20 41 53 43 |T LEARN YOUR ASC|
00001C50: 49 49 20 43 4F 44 45 2E 2E 22 00 85 24 C2 0B 99 |II CODE.."..$...|
00001C60: 22 11 41 4E 44 20 54 48 45 20 53 49 4E 47 4C 45 |".AND THE SINGLE|
00001C70: 2D 42 59 54 45 20 27 54 4F 4B 45 4E 53 27 20 49 |-BYTE 'TOKENS' I|
00001C80: 20 55 53 45 22 00 B4 24 CC 0B 99 22 11 54 4F 20 | USE"..$...".TO |
00001C90: 49 44 45 4E 54 49 46 59 20 54 48 45 20 56 41 52 |IDENTIFY THE VAR|
00001CA0: 49 4F 55 53 20 42 41 53 49 43 20 43 4F 4D 4D 41 |IOUS BASIC COMMA|
00001CB0: 4E 44 53 22 00 E8 24 D6 0B 99 22 11 4C 49 4B 45 |NDS"..$...".LIKE|
00001CC0: 20 12 50 52 49 4E 54 92 2C 12 46 4F 52 92 2C 12 | .PRINT.,.FOR.,.|
00001CD0: 4E 45 58 54 92 2C 12 52 55 4E 92 2C 12 4C 49 53 |NEXT.,.RUN.,.LIS|
00001CE0: 54 92 2C 45 54 43 2E 22 00 19 25 E0 0B 99 22 11 |T.,ETC."..%...".|
00001CF0: 28 54 52 59 20 49 54 20 41 46 54 45 52 11 9D 9D |(TRY IT AFTER...|
00001D00: 9D 9D 9D B8 B8 B8 B8 B8 91 20 59 4F 55 20 45 4E |......... YOU EN|
00001D10: 44 20 54 55 54 4F 52 29 22 00 31 25 EA 0B 8D 36 |D TUTOR)".1%...6|
00001D20: 33 30 30 30 3A 8D 34 30 30 30 30 3A 8D 35 30 30 |3000:.40000:.500|
00001D30: 30 00 50 25 A0 0F 99 22 93 4E 4F 57 2E 2E 2E 20 |0.P%...".NOW... |
00001D40: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 | **********"|
00001D50: 00 6D 25 A1 0F 99 22 20 20 20 20 20 20 20 20 20 |.m%..." |
00001D60: 20 20 20 2A 20 41 20 54 45 53 54 20 2A 00 8B 25 | * A TEST *..%|
00001D70: A2 0F 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00001D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 B3 25 A3 0F |**********"..%..|
00001D90: 81 49 B2 31 A4 35 30 30 3A 82 3A 4D 53 24 B2 22 |.I.1.500:.:MS$."|
00001DA0: 20 12 41 20 54 45 53 54 3F 21 92 22 3A 8D 36 33 | .A TEST?!.":.63|
00001DB0: 31 30 30 00 F4 25 AA 0F 99 22 13 11 11 11 49 27 |100..%..."....I'|
00001DC0: 4C 4C 20 41 53 4B 20 59 4F 55 20 51 55 45 53 54 |LL ASK YOU QUEST|
00001DD0: 49 4F 4E 53 20 41 42 4F 55 54 20 4D 59 53 45 4C |IONS ABOUT MYSEL|
00001DE0: 46 2E 22 3A 4D 53 24 B2 22 47 4F 4F 44 21 47 4F |F.":MS$."GOOD!GO|
00001DF0: 4F 44 21 22 00 1D 26 B4 0F 99 22 11 49 46 20 54 |OD!"..&...".IF T|
00001E00: 48 45 20 41 4E 53 57 45 52 20 49 53 20 41 4E 20 |HE ANSWER IS AN |
00001E10: 27 41 44 44 52 45 53 53 27 20 4F 52 22 00 48 26 |'ADDRESS' OR".H&|
00001E20: BE 0F 99 22 11 4D 45 4D 4F 52 59 20 4C 4F 43 41 |...".MEMORY LOCA|
00001E30: 54 49 4F 4E 20 47 49 56 45 20 49 54 20 54 4F 20 |TION GIVE IT TO |
00001E40: 4D 45 20 41 53 20 41 22 00 6B 26 C8 0F 99 22 11 |ME AS A".k&...".|
00001E50: 12 34 20 44 49 47 49 54 20 48 45 58 20 4E 55 4D |.4 DIGIT HEX NUM|
00001E60: 42 45 52 20 57 49 54 48 20 24 22 00 80 26 D2 0F |BER WITH $"..&..|
00001E70: 99 22 11 28 4C 49 4B 45 20 24 31 32 33 34 29 22 |.".(LIKE $1234)"|
00001E80: 00 A7 26 DC 0F 99 22 11 2E 2E 2E 55 4E 4C 45 53 |..&..."....UNLES|
00001E90: 53 20 4F 54 48 45 52 57 49 53 45 20 53 50 45 43 |S OTHERWISE SPEC|
00001EA0: 49 46 49 45 44 21 22 00 B9 26 E6 0F 8D 35 30 30 |IFIED!"..&...500|
00001EB0: 30 30 3A 8D 36 33 30 30 30 00 D2 26 F0 0F 81 4E |00:.63000..&...N|
00001EC0: B2 31 A4 51 51 3A 99 22 93 11 11 11 22 51 24 28 |.1.QQ:."...."Q$(|
00001ED0: 4E 29 00 E7 26 F5 0F A1 41 24 3A 8B 41 24 B3 B1 |N)..&...A$:.A$..|
00001EE0: 22 22 A7 34 30 38 35 00 04 27 FA 0F 85 22 11 11 |"".4085..'..."..|
00001EF0: 11 20 20 20 D6 9D 9D 9D 22 3B 41 24 3A 99 22 11 |. ....";A$:.".|
00001F00: 11 11 11 22 00 31 27 04 10 8B 41 24 B2 41 24 28 |...".1'...A$.A$(|
00001F10: 4E 29 A7 8D 36 33 31 30 30 3A 99 22 13 11 11 11 |N)..63100:."....|
00001F20: 11 11 11 11 11 11 11 11 11 11 22 3A 89 34 31 32 |..........":.412|
00001F30: 30 00 3F 27 0E 10 99 41 4E 24 41 24 28 4E 29 00 |0.?'...AN$A$(N).|
00001F40: 56 27 18 10 99 22 11 22 4D 24 28 4E 29 3A 8D 36 |V'..."."M$(N):.6|
00001F50: 33 30 30 30 3A 82 00 7F 27 22 10 99 22 93 57 41 |3000:...'"..".WA|
00001F60: 4E 54 20 54 4F 20 54 41 4B 45 20 54 48 45 20 2A |NT TO TAKE THE *|
00001F70: 2A 54 45 53 54 2A 2A 20 41 47 41 49 4E 3F 22 00 |*TEST** AGAIN?".|
00001F80: 93 27 2C 10 85 22 11 11 20 20 20 59 9D 9D 9D 22 |.',..".. Y..."|
00001F90: 3B 41 24 00 AA 27 36 10 8B 41 24 B2 22 59 22 A7 |;A$..'6..A$."Y".|
00001FA0: 99 22 93 22 3A 89 34 30 38 30 00 B5 27 40 10 89 |.".":.4080..'@..|
00001FB0: 33 39 39 39 39 00 EC 27 88 13 99 22 93 41 46 54 |39999..'...".AFT|
00001FC0: 45 52 20 52 55 4E 4E 49 4E 47 20 41 20 50 52 4F |ER RUNNING A PRO|
00001FD0: 47 52 41 4D 20 4C 49 4B 45 3A 22 3A 51 54 24 B2 |GRAM LIKE:":QT$.|
00001FE0: C7 28 33 34 29 3A 8D 36 33 39 30 30 00 04 28 92 |.(34):.63900..(.|
00001FF0: 13 99 22 11 20 31 30 20 41 42 24 3D 53 54 52 24 |..". 10 AB$=STR$|
00002000: 28 37 29 22 00 32 28 9C 13 99 22 11 4C 45 54 27 |(7)".2(...".LET'|
00002010: 53 20 53 45 45 20 57 48 45 52 45 20 49 20 50 55 |S SEE WHERE I PU|
00002020: 54 20 54 48 45 20 53 54 52 49 4E 47 20 27 37 27 |T THE STRING '7'|
00002030: 2E 22 00 54 28 A6 13 99 22 11 57 45 27 4C 4C 20 |.".T(...".WE'LL |
00002040: 54 59 50 45 20 12 53 59 53 32 30 34 38 92 20 54 |TYPE .SYS2048. T|
00002050: 48 45 4E 22 00 7E 28 B0 13 99 22 11 2E 12 4D 20 |HEN".~(..."...M |
00002060: 30 38 30 30 2D 30 38 33 30 92 20 54 4F 20 53 45 |0800-0830. TO SE|
00002070: 45 20 54 48 45 20 50 52 4F 47 52 41 4D 22 00 A8 |E THE PROGRAM"..|
00002080: 28 BA 13 99 22 11 2E 12 4D 20 37 46 46 38 2D 37 |(..."...M 7FF8-7|
00002090: 46 46 46 92 20 54 4F 20 53 45 45 20 54 48 45 20 |FFF. TO SEE THE |
000020A0: 53 54 52 49 4E 47 2E 22 00 B9 28 C4 13 8D 36 33 |STRING."..(...63|
000020B0: 30 30 30 3A 99 22 93 22 3B 00 E1 28 71 17 99 22 |000:.".";..(q.."|
000020C0: 11 2E 3A 20 20 30 38 30 30 20 30 30 20 30 45 20 |..: 0800 00 0E |
000020D0: 30 38 20 30 41 20 30 30 20 34 31 20 34 32 20 32 |08 0A 00 41 42 2|
000020E0: 34 00 08 29 72 17 99 22 2E 3A 20 20 30 38 30 38 |4..)r..".: 0808|
000020F0: 20 42 32 20 43 34 20 32 38 20 33 37 20 32 39 20 | B2 C4 28 37 29 |
00002100: 30 30 20 30 30 20 30 30 00 2F 29 73 17 99 22 2E |00 00 00./)s..".|
00002110: 3A 20 20 30 38 31 30 20 34 31 20 43 32 20 30 32 |: 0810 41 C2 02|
00002120: 20 46 43 20 37 46 20 30 30 20 30 30 20 41 41 00 | FC 7F 00 00 AA.|
00002130: 56 29 74 17 99 22 2E 3A 20 20 30 38 31 38 20 41 |V)t..".: 0818 A|
00002140: 41 20 41 41 20 41 41 20 41 41 20 41 41 20 41 41 |A AA AA AA AA AA|
00002150: 20 41 41 20 41 41 00 7F 29 75 17 99 22 11 11 2E | AA AA..)u.."...|
00002160: 3A 20 20 37 46 46 38 20 41 41 20 41 41 20 41 41 |: 7FF8 AA AA AA|
00002170: 20 41 41 20 32 30 20 33 37 20 31 32 20 30 38 00 | AA 20 37 12 08.|
00002180: A4 29 D4 17 53 44 B2 33 3A 53 52 B2 32 34 3A 43 |.)..SD.3:SR.24:C|
00002190: 43 24 B2 22 30 30 20 30 30 20 30 30 22 3A 8D 35 |C$."00 00 00":.5|
000021A0: 35 30 30 30 00 D2 29 DE 17 99 53 44 24 22 54 48 |5000..)...SD$"TH|
000021B0: 45 53 45 20 41 52 45 20 54 48 45 20 33 20 27 30 |ESE ARE THE 3 '0|
000021C0: 30 27 2D 42 59 54 45 53 20 54 48 41 54 20 45 4E |0'-BYTES THAT EN|
000021D0: 44 22 00 E6 29 E8 17 99 22 54 48 45 20 50 52 4F |D"..)..."THE PRO|
000021E0: 47 52 41 4D 2E 22 00 F8 29 F2 17 8D 36 32 30 30 |GRAM."..)...6200|
000021F0: 30 3A 8D 35 35 30 31 30 00 19 2A FC 17 53 44 B2 |0:.55010..*..SD.|
00002200: 34 3A 53 52 B2 39 3A 43 43 24 B2 22 34 31 20 43 |4:SR.9:CC$."41 C|
00002210: 32 22 3A 8D 35 35 30 30 30 00 35 2A 06 18 99 53 |2":.55000.5*...S|
00002220: 44 24 22 12 34 31 92 3D 27 41 27 20 49 4E 20 41 |D$".41.='A' IN A|
00002230: 53 43 49 49 22 00 57 2A 10 18 99 22 12 34 32 92 |SCII".W*...".42.|
00002240: 3D 27 42 27 2E 2E 42 55 54 20 24 38 30 20 49 53 |='B'..BUT $80 IS|
00002250: 20 41 44 44 45 44 22 00 81 2A 1A 18 99 22 49 4E | ADDED"..*..."IN|
00002260: 44 49 43 41 54 49 4E 47 20 41 20 12 53 54 52 49 |DICATING A .STRI|
00002270: 4E 47 92 2C 20 47 49 56 49 4E 47 20 12 43 32 92 |NG., GIVING .C2.|
00002280: 22 00 93 2A 24 18 8D 36 32 30 30 30 3A 8D 35 35 |"..*$..62000:.55|
00002290: 30 31 30 00 B2 2A 2E 18 53 44 B2 34 3A 53 52 B2 |010..*..SD.4:SR.|
000022A0: 31 35 3A 43 43 24 B2 22 30 32 22 3A 8D 35 35 30 |15:CC$."02":.550|
000022B0: 30 30 00 DF 2A 38 18 99 53 44 24 22 54 48 45 20 |00..*8..SD$"THE |
000022C0: 53 54 52 49 4E 47 20 41 42 24 20 49 53 20 12 30 |STRING AB$ IS .0|
000022D0: 32 92 20 42 59 54 45 53 20 4C 4F 4E 47 2E 22 00 |2. BYTES LONG.".|
000022E0: F1 2A 42 18 8D 36 32 30 30 30 3A 8D 35 35 30 31 |.*B..62000:.5501|
000022F0: 30 00 13 2B 4C 18 53 44 B2 34 3A 53 52 B2 31 38 |0..+L.SD.4:SR.18|
00002300: 3A 43 43 24 B2 22 46 43 20 37 46 22 3A 8D 35 35 |:CC$."FC 7F":.55|
00002310: 30 30 30 00 3A 2B 56 18 99 53 44 24 22 41 4E 44 |000.:+V..SD$"AND|
00002320: 20 49 54 27 53 20 4C 4F 43 41 54 45 44 20 41 54 | IT'S LOCATED AT|
00002330: 20 24 12 37 46 46 43 92 2E 22 00 4C 2B 60 18 8D | $.7FFC..".L+`..|
00002340: 36 32 30 30 30 3A 8D 35 35 30 31 30 00 6E 2B 6A |62000:.55010.n+j|
00002350: 18 53 44 B2 38 3A 53 52 B2 32 31 3A 43 43 24 B2 |.SD.8:SR.21:CC$.|
00002360: 22 32 30 20 33 37 22 3A 8D 35 35 30 30 30 00 90 |"20 37":.55000..|
00002370: 2B 74 18 99 53 44 24 22 48 45 52 45 2C 20 41 54 |+t..SD$"HERE, AT|
00002380: 20 24 37 46 46 43 2C 20 49 53 20 41 42 24 2E 22 | $7FFC, IS AB$."|
00002390: 00 B5 2B 7E 18 99 22 11 41 42 24 20 49 53 3A 12 |..+~..".AB$ IS:.|
000023A0: 32 30 92 3D 27 53 50 41 43 45 27 2B 12 33 37 92 |20.='SPACE'+.37.|
000023B0: 3D 27 37 27 22 00 C7 2B 88 18 8D 36 32 30 30 30 |='7'"..+...62000|
000023C0: 3A 8D 35 35 30 31 30 00 E9 2B 92 18 53 44 B2 38 |:.55010..+..SD.8|
000023D0: 3A 53 52 B2 32 37 3A 43 43 24 B2 22 31 32 20 30 |:SR.27:CC$."12 0|
000023E0: 38 22 3A 8D 35 35 30 30 30 00 0E 2C 9C 18 99 53 |8":.55000..,...S|
000023F0: 44 24 22 41 4E 44 20 57 48 45 52 45 20 44 4F 45 |D$"AND WHERE DOE|
00002400: 53 20 49 54 20 53 41 59 20 49 54 27 53 22 00 23 |S IT SAY IT'S".#|
00002410: 2C A6 18 99 22 32 20 42 59 54 45 53 20 4C 4F 4E |,..."2 BYTES LON|
00002420: 47 3F 22 00 45 2C B0 18 99 22 2E 2E 41 54 20 4D |G?".E,..."..AT M|
00002430: 45 4D 4F 52 59 20 4C 4F 43 27 4E 20 24 12 30 38 |EMORY LOC'N $.08|
00002440: 31 32 92 21 22 00 64 2C BA 18 53 44 B2 34 3A 53 |12.!".d,..SD.4:S|
00002450: 52 B2 31 35 3A 43 43 24 B2 22 30 32 22 3A 8D 35 |R.15:CC$."02":.5|
00002460: 35 30 30 30 00 7F 2C C4 18 8D 35 35 30 31 30 3A |5000..,...55010:|
00002470: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 33 30 00 |.A$:.A$."".6330.|
00002480: A6 2C CE 18 99 22 93 49 46 2C 20 48 4F 57 45 56 |.,...".IF, HOWEV|
00002490: 45 52 2C 20 59 4F 55 52 20 50 52 4F 47 52 41 4D |ER, YOUR PROGRAM|
000024A0: 20 57 41 53 3A 22 00 C0 2C D8 18 99 22 11 20 31 | WAS:"..,...". 1|
000024B0: 30 20 41 42 24 3D 22 51 54 24 22 37 22 51 54 24 |0 AB$="QT$"7"QT$|
000024C0: 00 EC 2C E2 18 99 22 11 57 48 45 52 45 20 44 4F |..,...".WHERE DO|
000024D0: 20 59 4F 55 20 54 48 49 4E 4B 20 54 48 45 20 50 | YOU THINK THE P|
000024E0: 4F 49 4E 54 45 52 20 57 49 4C 4C 22 00 FE 2C EC |OINTER WILL"..,.|
000024F0: 18 99 22 11 50 4F 49 4E 54 20 54 4F 3F 22 00 2A |..".POINT TO?".*|
00002500: 2D F6 18 99 22 11 12 4E 4F 54 92 20 54 4F 20 24 |-..."..NOT. TO $|
00002510: 37 46 46 43 2C 20 42 55 54 20 54 4F 20 54 48 45 |7FFC, BUT TO THE|
00002520: 20 4C 4F 43 41 54 49 4F 4E 22 00 54 2D 00 19 99 | LOCATION".T-...|
00002530: 22 11 49 4E 20 54 48 45 20 42 41 53 49 43 20 50 |".IN THE BASIC P|
00002540: 52 4F 47 52 41 4D 20 49 54 53 45 4C 46 20 57 48 |ROGRAM ITSELF WH|
00002550: 45 52 45 22 00 6C 2D 0A 19 99 22 11 27 37 27 20 |ERE".l-...".'7' |
00002560: 49 53 20 4C 4F 43 41 54 45 44 2E 22 00 77 2D 0F |IS LOCATED.".w-.|
00002570: 19 8D 36 32 30 30 30 00 95 2D 14 19 99 53 44 24 |..62000..-...SD$|
00002580: 22 54 48 41 54 20 49 53 2C 20 54 4F 20 24 12 30 |"THAT IS, TO $.0|
00002590: 38 30 41 92 22 00 BA 2D 19 19 99 22 2E 2E 41 4E |80A."..-..."..AN|
000025A0: 44 20 49 54 20 57 49 4C 4C 20 42 45 20 31 20 42 |D IT WILL BE 1 B|
000025B0: 59 54 45 20 4C 4F 4E 47 21 22 00 D7 2D 1E 19 53 |YTE LONG!"..-..S|
000025C0: 44 B2 33 3A 53 52 B2 39 3A 43 43 24 B2 22 37 22 |D.3:SR.9:CC$."7"|
000025D0: 3A 8D 35 35 30 30 30 00 F2 2D 28 19 8D 35 35 30 |:.55000..-(..550|
000025E0: 31 30 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 36 34 |10:.A$:.A$."".64|
000025F0: 33 30 00 F8 2D 32 19 8E 00 22 2E 3F 9C 99 22 93 |30..-2...".?..".|
00002600: 22 3A 4D 53 24 B2 22 12 41 55 20 52 45 56 4F 49 |":MS$.".AU REVOI|
00002610: 52 21 92 22 3A 8D 36 33 31 30 30 3A 99 22 13 22 |R!.":.63100:."."|
00002620: 3A 80 00 4E 2E 40 9C 99 22 93 4C 45 54 27 53 20 |:..N.@..".LET'S |
00002630: 4C 4F 4F 4B 20 41 54 20 53 4F 4D 45 20 50 4F 49 |LOOK AT SOME POI|
00002640: 4E 54 45 52 53 2E 22 3A 8D 36 33 39 30 30 00 75 |NTERS.":.63900.u|
00002650: 2E 41 9C 99 22 11 28 57 45 27 4C 4C 20 41 53 53 |.A..".(WE'LL ASS|
00002660: 55 4D 45 20 57 45 27 56 45 20 47 4F 54 20 41 20 |UME WE'VE GOT A |
00002670: 43 2D 36 34 22 00 9F 2E 42 9C 99 22 11 20 4C 49 |C-64"...B..". LI|
00002680: 4E 4B 20 53 4F 20 27 54 4F 50 20 4F 46 20 52 41 |NK SO 'TOP OF RA|
00002690: 4D 27 20 49 53 20 41 54 20 24 38 30 30 30 22 00 |M' IS AT $8000".|
000026A0: CF 2E 43 9C 99 22 11 20 41 4E 44 20 54 48 45 20 |..C..". AND THE |
000026B0: 27 42 41 53 49 43 27 20 49 53 20 12 42 41 53 49 |'BASIC' IS .BASI|
000026C0: 43 20 34 2E 30 92 29 22 3A 8D 36 33 30 30 30 00 |C 4.0.)":.63000.|
000026D0: FC 2E 45 9C 99 22 93 11 11 42 45 46 4F 52 45 20 |..E.."...BEFORE |
000026E0: 57 52 49 54 49 4E 47 20 41 4E 59 11 9D 9D 9D B8 |WRITING ANY.....|
000026F0: B8 B8 91 20 50 52 4F 47 52 41 4D 22 00 24 2F 46 |... PROGRAM".$/F|
00002700: 9C 99 22 28 41 46 54 45 52 20 46 49 52 53 54 20 |.."(AFTER FIRST |
00002710: 54 55 52 4E 49 4E 47 20 4F 4E 20 54 48 45 20 43 |TURNING ON THE C|
00002720: 36 34 29 22 00 52 2F 4A 9C 99 22 11 57 45 27 4C |64)".R/J..".WE'L|
00002730: 4C 20 12 53 59 53 32 30 34 38 92 20 54 4F 20 47 |L .SYS2048. TO G|
00002740: 45 54 20 49 4E 54 4F 20 54 48 45 20 4D 4C 4D 2E |ET INTO THE MLM.|
00002750: 2E 22 00 71 2F 54 9C 99 22 11 54 48 45 4E 20 2E |.".q/T..".THEN .|
00002760: 12 4D 20 30 30 32 42 20 30 30 33 33 92 2E 2E 2E |.M 002B 0033....|
00002770: 22 00 7B 2F 5E 9C 99 22 11 42 2A 00 9A 2F 5F 9C |".{/^..".B*../_.|
00002780: 99 22 20 20 20 20 20 50 43 20 20 53 52 20 41 43 |." PC SR AC|
00002790: 20 58 52 20 59 52 20 53 50 22 00 B9 2F 60 9C 99 | XR YR SP"../`..|
000027A0: 22 2E 3B 20 20 30 38 30 31 20 33 32 20 30 34 20 |".; 0801 32 04 |
000027B0: 35 45 20 30 30 20 46 38 22 00 CD 2F 61 9C 99 22 |5E 00 F8"../a.."|
000027C0: 2E 4D 20 30 30 32 42 20 30 30 33 33 22 00 F5 2F |.M 002B 0033"../|
000027D0: 62 9C 99 22 2E 3A 20 20 30 30 32 42 20 30 31 20 |b..".: 002B 01 |
000027E0: 30 38 20 30 33 20 30 38 20 30 33 20 30 38 20 30 |08 03 08 03 08 0|
000027F0: 33 20 30 38 22 00 1D 30 63 9C 99 22 2E 3A 20 20 |3 08"..0c..".: |
00002800: 30 30 33 33 20 30 30 20 38 30 20 30 30 20 30 30 |0033 00 80 00 00|
00002810: 20 30 30 20 38 30 20 30 30 20 46 46 22 00 3B 30 | 00 80 00 FF".;0|
00002820: 64 9C 99 22 2E 58 20 5F 20 3D 45 58 49 54 2E 2E |d..".X _ =EXIT..|
00002830: 2E 52 45 4D 45 4D 42 45 52 3F 22 00 5E 30 68 9C |.REMEMBER?".^0h.|
00002840: 53 44 B2 31 34 3A 53 52 B2 30 39 3A 43 43 24 B2 |SD.14:SR.09:CC$.|
00002850: 22 30 31 20 30 38 22 3A 8D 35 35 30 30 30 00 87 |"01 08":.55000..|
00002860: 30 72 9C 99 53 44 24 22 54 48 49 53 20 53 41 59 |0r..SD$"THIS SAY|
00002870: 53 20 42 41 53 49 43 20 50 52 4F 47 52 41 4D 53 |S BASIC PROGRAMS|
00002880: 20 53 54 41 52 54 22 00 AB 30 7C 9C 99 22 41 54 | START"..0|.."AT|
00002890: 20 24 30 38 30 31 2E 2E 52 45 41 44 20 49 54 20 | $0801..READ IT |
000028A0: 42 41 43 4B 57 41 52 44 53 21 22 00 BD 30 86 9C |BACKWARDS!"..0..|
000028B0: 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 00 E0 30 |.62000:.55010..0|
000028C0: 90 9C 53 44 B2 31 34 3A 53 52 B2 31 35 3A 43 43 |..SD.14:SR.15:CC|
000028D0: 24 B2 22 30 33 20 30 38 22 3A 8D 35 35 30 30 30 |$."03 08":.55000|
000028E0: 00 09 31 9A 9C 99 53 44 24 22 54 48 49 53 20 53 |..1...SD$"THIS S|
000028F0: 41 59 53 20 54 48 45 20 4E 49 4C 2D 50 52 4F 47 |AYS THE NIL-PROG|
00002900: 52 41 4D 20 45 4E 44 53 22 00 2E 31 A4 9C 99 22 |RAM ENDS"..1..."|
00002910: 41 54 20 24 30 38 30 33 2E 2E 41 46 54 45 52 20 |AT $0803..AFTER |
00002920: 33 20 27 30 30 27 20 42 59 54 45 53 21 22 00 40 |3 '00' BYTES!".@|
00002930: 31 AE 9C 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 |1...62000:.55010|
00002940: 00 63 31 B8 9C 53 44 B2 31 34 3A 53 52 B2 32 31 |.c1..SD.14:SR.21|
00002950: 3A 43 43 24 B2 22 30 33 20 30 38 22 3A 8D 35 35 |:CC$."03 08":.55|
00002960: 30 30 30 00 84 31 C2 9C 99 53 44 24 22 54 48 49 |000..1...SD$"THI|
00002970: 53 20 53 41 59 53 20 41 52 52 41 59 53 20 53 54 |S SAYS ARRAYS ST|
00002980: 41 52 54 22 00 A8 31 CC 9C 99 22 41 54 20 24 30 |ART"..1..."AT $0|
00002990: 38 30 33 20 54 4F 4F 2E 2E 4E 4F 20 41 52 52 41 |803 TOO..NO ARRA|
000029A0: 59 53 20 59 45 54 21 22 00 BA 31 D6 9C 8D 36 32 |YS YET!"..1...62|
000029B0: 30 30 30 3A 8D 35 35 30 31 30 00 DD 31 E0 9C 53 |000:.55010..1..S|
000029C0: 44 B2 31 34 3A 53 52 B2 32 37 3A 43 43 24 B2 22 |D.14:SR.27:CC$."|
000029D0: 30 33 20 30 38 22 3A 8D 35 35 30 30 30 00 FC 31 |03 08":.55000..1|
000029E0: EA 9C 99 53 44 24 22 54 48 49 53 20 53 41 59 53 |...SD$"THIS SAYS|
000029F0: 20 41 52 52 41 59 53 20 45 4E 44 22 00 22 32 F4 | ARRAYS END"."2.|
00002A00: 9C 99 22 41 54 20 24 30 38 30 33 20 54 4F 4F 2E |.."AT $0803 TOO.|
00002A10: 2E 12 4E 4F 20 41 52 52 41 59 53 20 59 45 54 92 |..NO ARRAYS YET.|
00002A20: 21 22 00 34 32 FE 9C 8D 36 32 30 30 30 3A 8D 35 |!".42...62000:.5|
00002A30: 35 30 31 30 00 57 32 08 9D 53 44 B2 31 35 3A 53 |5010.W2..SD.15:S|
00002A40: 52 B2 30 39 3A 43 43 24 B2 22 30 30 20 30 38 22 |R.09:CC$."00 08"|
00002A50: 3A 8D 35 35 30 30 30 00 7B 32 12 9D 99 53 44 24 |:.55000.{2...SD$|
00002A60: 22 54 48 49 53 20 53 41 59 53 20 53 54 52 49 4E |"THIS SAYS STRIN|
00002A70: 47 53 20 47 4F 20 44 4F 57 4E 22 00 9E 32 1C 9D |GS GO DOWN"..2..|
00002A80: 99 22 54 4F 20 24 38 30 30 30 2E 2E 12 4E 4F 20 |."TO $8000...NO |
00002A90: 53 54 52 49 4E 47 53 20 59 45 54 92 21 22 00 B0 |STRINGS YET.!"..|
00002AA0: 32 26 9D 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 |2&..62000:.55010|
00002AB0: 00 D3 32 30 9D 53 44 B2 31 35 3A 53 52 B2 31 35 |..20.SD.15:SR.15|
00002AC0: 3A 43 43 24 B2 22 30 30 20 30 30 22 3A 8D 35 35 |:CC$."00 00":.55|
00002AD0: 30 30 30 00 FE 32 3A 9D 99 53 44 24 22 54 48 49 |000..2:..SD$"THI|
00002AE0: 53 20 50 4F 49 4E 54 45 52 20 28 54 4F 20 43 55 |S POINTER (TO CU|
00002AF0: 52 52 45 4E 54 20 53 54 52 49 4E 47 29 22 00 13 |RRENT STRING)"..|
00002B00: 33 44 9D 99 22 57 45 27 4C 4C 20 49 47 4E 4F 52 |3D.."WE'LL IGNOR|
00002B10: 45 2E 22 00 25 33 4E 9D 8D 36 32 30 30 30 3A 8D |E.".%3N..62000:.|
00002B20: 35 35 30 31 30 00 48 33 58 9D 53 44 B2 31 35 3A |55010.H3X.SD.15:|
00002B30: 53 52 B2 32 31 3A 43 43 24 B2 22 30 30 20 38 30 |SR.21:CC$."00 80|
00002B40: 22 3A 8D 35 35 30 30 30 00 72 33 62 9D 99 53 44 |":.55000.r3b..SD|
00002B50: 24 22 54 48 49 53 20 53 41 59 53 20 27 54 4F 50 |$"THIS SAYS 'TOP|
00002B60: 20 4F 46 20 42 41 53 49 43 20 52 41 4D 27 20 49 | OF BASIC RAM' I|
00002B70: 53 22 00 8E 33 6C 9D 99 22 41 54 20 24 38 30 30 |S"..3l.."AT $800|
00002B80: 30 2E 2E 4F 46 20 43 4F 55 52 53 45 2E 22 00 A0 |0..OF COURSE."..|
00002B90: 33 76 9D 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 |3v..62000:.55010|
00002BA0: 00 C3 33 80 9D 53 44 B2 31 35 3A 53 52 B2 32 37 |..3..SD.15:SR.27|
00002BB0: 3A 43 43 24 B2 22 31 34 20 46 46 22 3A 8D 35 35 |:CC$."14 FF":.55|
00002BC0: 30 30 30 00 E8 33 8A 9D 99 53 44 24 22 54 48 49 |000..3...SD$"THI|
00002BD0: 53 20 49 53 20 54 48 45 20 43 55 52 52 45 4E 54 |S IS THE CURRENT|
00002BE0: 20 42 41 53 49 43 20 22 00 04 34 94 9D 99 22 4C | BASIC "..4..."L|
00002BF0: 49 4E 45 20 4E 55 4D 42 45 52 2E 2E 49 47 4E 4F |INE NUMBER..IGNO|
00002C00: 52 45 21 22 00 16 34 9E 9D 8D 36 32 30 30 30 3A |RE!"..4...62000:|
00002C10: 8D 35 35 30 31 30 00 50 34 A8 9D 99 22 93 4F 4B |.55010.P4...".OK|
00002C20: 2E 2E 12 4E 4F 57 20 57 45 27 4C 4C 20 57 52 49 |...NOW WE'LL WRI|
00002C30: 54 45 20 41 20 53 48 4F 52 54 20 50 52 4F 47 52 |TE A SHORT PROGR|
00002C40: 41 4D 92 3A 22 3A 81 49 B2 31 A4 35 30 30 3A 82 |AM.:":.I.1.500:.|
00002C50: 00 7E 34 B2 9D 99 22 11 12 31 30 20 46 4F 52 49 |.~4..."..10 FORI|
00002C60: 3D 31 54 4F 31 30 3A 41 28 49 29 3D 49 2A 49 3A |=1TO10:A(I)=I*I:|
00002C70: 41 24 28 49 29 3D 53 54 52 24 28 49 29 22 00 B7 |A$(I)=STR$(I)"..|
00002C80: 34 BC 9D 99 22 12 32 30 20 50 52 49 4E 54 22 C7 |4...".20 PRINT".|
00002C90: 28 33 34 29 22 2B 22 C7 28 33 34 29 22 3A 4E 45 |(34)"+".(34)":NE|
00002CA0: 58 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |XT |
00002CB0: 20 20 20 20 20 20 22 00 E5 34 C6 9D 99 22 11 54 | "..4...".T|
00002CC0: 48 45 4E 2C 20 42 45 46 4F 52 45 11 9D 9D 9D 9D |HEN, BEFORE.....|
00002CD0: 9D 9D B8 B8 B8 B8 B8 B8 91 20 52 55 4E 4E 49 4E |......... RUNNIN|
00002CE0: 47 20 49 54 22 00 FE 34 D0 9D 99 22 11 57 45 27 |G IT"..4...".WE'|
00002CF0: 4C 4C 20 12 53 59 53 32 30 34 38 92 3A 22 00 08 |LL .SYS2048.:"..|
00002D00: 35 DA 9D 99 22 11 42 2A 00 27 35 E4 9D 99 22 20 |5...".B*.'5..." |
00002D10: 20 20 20 20 50 43 20 20 53 52 20 41 43 20 58 52 | PC SR AC XR|
00002D20: 20 59 52 20 53 50 22 00 46 35 EE 9D 99 22 2E 3B | YR SP".F5...".;|
00002D30: 20 20 30 38 30 31 20 33 32 20 30 34 20 35 45 20 | 0801 32 04 5E |
00002D40: 30 30 20 46 38 22 00 5A 35 F8 9D 99 22 2E 4D 20 |00 F8".Z5...".M |
00002D50: 30 30 32 42 20 30 30 33 33 22 00 82 35 02 9E 99 |002B 0033"..5...|
00002D60: 22 2E 3A 20 20 30 30 32 42 20 30 31 20 30 38 20 |".: 002B 01 08 |
00002D70: 32 45 20 30 38 20 32 45 20 30 38 20 32 45 20 30 |2E 08 2E 08 2E 0|
00002D80: 38 22 00 AA 35 0C 9E 99 22 2E 3A 20 20 30 30 33 |8"..5...".: 003|
00002D90: 33 20 30 30 20 38 30 20 44 41 20 37 46 20 30 30 |3 00 80 DA 7F 00|
00002DA0: 20 38 30 20 31 34 20 46 46 22 00 B4 35 16 9E 99 | 80 14 FF"..5...|
00002DB0: 22 2E 58 22 00 D7 35 20 9E 53 44 B2 31 34 3A 53 |".X"..5 .SD.14:S|
00002DC0: 52 B2 30 39 3A 43 43 24 B2 22 30 31 20 30 38 22 |R.09:CC$."01 08"|
00002DD0: 3A 8D 35 35 30 30 30 00 FA 35 2A 9E 99 53 44 24 |:.55000..5*..SD$|
00002DE0: 22 54 48 45 20 42 41 53 49 43 20 50 52 4F 47 52 |"THE BASIC PROGR|
00002DF0: 41 4D 20 53 54 41 52 54 53 22 00 16 36 34 9E 99 |AM STARTS"..64..|
00002E00: 22 41 54 20 24 30 38 30 31 2E 2E 4F 46 20 43 4F |"AT $0801..OF CO|
00002E10: 55 52 53 45 21 22 00 28 36 3E 9E 8D 36 32 30 30 |URSE!".(6>..6200|
00002E20: 30 3A 8D 35 35 30 31 30 00 4B 36 48 9E 53 44 B2 |0:.55010.K6H.SD.|
00002E30: 31 34 3A 53 52 B2 31 35 3A 43 43 24 B2 22 32 45 |14:SR.15:CC$."2E|
00002E40: 20 30 38 22 3A 8D 35 35 30 30 30 00 6C 36 52 9E | 08":.55000.l6R.|
00002E50: 99 53 44 24 22 54 48 45 20 42 41 53 49 43 20 50 |.SD$"THE BASIC P|
00002E60: 52 4F 47 52 41 4D 20 45 4E 44 53 22 00 95 36 5C |ROGRAM ENDS"..6\|
00002E70: 9E 99 22 41 54 20 24 30 38 32 45 2E 2E 41 46 54 |.."AT $082E..AFT|
00002E80: 45 52 20 54 48 45 20 33 20 27 30 30 27 20 42 59 |ER THE 3 '00' BY|
00002E90: 54 45 53 2E 22 00 A7 36 66 9E 8D 36 32 30 30 30 |TES."..6f..62000|
00002EA0: 3A 8D 35 35 30 31 30 00 D0 36 70 9E 53 44 B2 31 |:.55010..6p.SD.1|
00002EB0: 34 3A 53 52 B2 32 31 3A 43 43 24 B2 22 32 45 20 |4:SR.21:CC$."2E |
00002EC0: 30 38 20 32 45 20 30 38 22 3A 8D 35 35 30 30 30 |08 2E 08":.55000|
00002ED0: 00 F5 36 7A 9E 99 53 44 24 22 4E 4F 20 56 41 52 |..6z..SD$"NO VAR|
00002EE0: 49 41 42 4C 45 53 2C 20 4E 4F 20 41 52 52 41 59 |IABLES, NO ARRAY|
00002EF0: 53 20 4F 52 22 00 11 37 84 9E 99 22 53 54 52 49 |S OR"..7..."STRI|
00002F00: 4E 47 53 20 43 52 45 41 54 45 44 20 59 45 54 2E |NGS CREATED YET.|
00002F10: 22 00 23 37 8E 9E 8D 36 32 30 30 30 3A 8D 35 35 |".#7...62000:.55|
00002F20: 30 31 30 00 58 37 98 9E 53 44 B2 31 35 3A 53 52 |010.X7..SD.15:SR|
00002F30: B2 30 39 3A 43 43 24 B2 22 30 30 20 38 30 20 44 |.09:CC$."00 80 D|
00002F40: 41 20 37 46 20 30 30 20 38 30 20 31 34 20 46 46 |A 7F 00 80 14 FF|
00002F50: 22 3A 8D 35 35 30 30 30 00 7B 37 A2 9E 99 53 44 |":.55000.{7...SD|
00002F60: 24 22 4E 4F 54 48 49 4E 47 20 57 4F 52 54 48 20 |$"NOTHING WORTH |
00002F70: 4E 4F 54 49 4E 47 20 28 21 29 22 00 94 37 AC 9E |NOTING (!)"..7..|
00002F80: 99 22 48 41 53 20 48 41 50 50 45 4E 45 44 20 59 |."HAS HAPPENED Y|
00002F90: 45 54 2E 22 00 A6 37 B6 9E 8D 36 32 30 30 30 3A |ET."..7...62000:|
00002FA0: 8D 35 35 30 31 30 00 D5 37 C0 9E 99 53 44 24 22 |.55010..7...SD$"|
00002FB0: 12 4E 4F 57 92 20 57 45 27 4C 4C 20 52 55 4E 11 |.NOW. WE'LL RUN.|
00002FC0: 9D 9D 9D B8 B8 B8 91 20 54 48 45 20 50 52 4F 47 |....... THE PROG|
00002FD0: 52 41 4D 3A 22 00 E6 37 CA 9E 99 22 57 41 54 43 |RAM:"..7..."WATC|
00002FE0: 48 2E 2E 2E 2E 22 00 13 38 CF 9E 99 22 13 20 20 |H...."..8...". |
00002FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003010: 20 20 22 00 41 38 D0 9E 99 22 11 12 31 30 20 46 | ".A8..."..10 F|
00003020: 4F 52 49 3D 31 54 4F 31 30 3A 41 28 49 29 3D 49 |ORI=1TO10:A(I)=I|
00003030: 2A 49 3A 41 24 28 49 29 3D 53 54 52 24 28 49 29 |*I:A$(I)=STR$(I)|
00003040: 22 00 66 38 D1 9E 99 22 12 32 30 20 50 52 49 4E |".f8...".20 PRIN|
00003050: 54 22 C7 28 33 34 29 22 2B 22 C7 28 33 34 29 22 |T".(34)"+".(34)"|
00003060: 3A 4E 45 58 54 22 00 9C 38 D2 9E 81 49 B2 31 A4 |:NEXT"..8...I.1.|
00003070: 35 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |5:." |
00003080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003090: 20 20 20 20 20 20 20 20 20 22 3A 82 00 AE 38 D4 | ":...8.|
000030A0: 9E 8D 36 32 30 30 30 3A 8D 35 35 30 31 30 00 D1 |..62000:.55010..|
000030B0: 38 DE 9E 53 44 B2 31 34 3A 53 52 B2 30 39 3A 43 |8..SD.14:SR.09:C|
000030C0: 43 24 B2 22 30 31 20 30 38 22 3A 8D 35 35 30 30 |C$."01 08":.5500|
000030D0: 30 00 F7 38 E8 9E 99 53 44 24 22 53 54 41 52 54 |0..8...SD$"START|
000030E0: 20 4F 46 20 42 41 53 49 43 20 57 4F 4E 27 54 20 | OF BASIC WON'T |
000030F0: 43 48 41 4E 47 45 22 00 09 39 F2 9E 8D 36 32 30 |CHANGE"..9...620|
00003100: 30 30 3A 8D 35 35 30 31 30 00 2C 39 FC 9E 53 44 |00:.55010.,9..SD|
00003110: B2 31 34 3A 53 52 B2 31 35 3A 43 43 24 B2 22 32 |.14:SR.15:CC$."2|
00003120: 45 20 30 38 22 3A 8D 35 35 30 30 30 00 50 39 06 |E 08":.55000.P9.|
00003130: 9F 99 53 44 24 22 45 4E 44 20 4F 46 20 42 41 53 |..SD$"END OF BAS|
00003140: 49 43 20 57 4F 4E 27 54 20 43 48 41 4E 47 45 22 |IC WON'T CHANGE"|
00003150: 00 77 39 10 9F 99 22 28 49 54 27 53 20 41 4C 53 |.w9..."(IT'S ALS|
00003160: 4F 20 27 53 54 41 52 54 20 4F 46 20 56 41 52 49 |O 'START OF VARI|
00003170: 41 42 4C 45 53 29 22 00 89 39 1A 9F 8D 36 32 30 |ABLES)"..9...620|
00003180: 30 30 3A 8D 35 35 30 31 30 00 B2 39 24 9F 53 44 |00:.55010..9$.SD|
00003190: B2 31 34 3A 53 52 B2 32 31 3A 43 43 24 B2 22 33 |.14:SR.21:CC$."3|
000031A0: 35 20 30 38 20 39 42 20 30 38 22 3A 8D 35 35 30 |5 08 9B 08":.550|
000031B0: 30 30 00 D6 39 2E 9F 99 53 44 24 22 41 52 52 41 |00..9...SD$"ARRA|
000031C0: 59 20 41 28 49 29 20 49 53 20 53 54 4F 52 45 44 |Y A(I) IS STORED|
000031D0: 20 46 52 4F 4D 22 00 ED 39 38 9F 99 22 24 30 38 | FROM"..98.."$08|
000031E0: 33 35 20 41 4E 44 20 27 55 50 27 2E 22 00 F8 39 |35 AND 'UP'."..9|
000031F0: 42 9F 8D 36 32 30 30 30 00 1C 3A 43 9F 99 53 44 |B..62000..:C..SD|
00003200: 24 22 49 54 20 41 43 54 55 41 4C 4C 59 20 45 4E |$"IT ACTUALLY EN|
00003210: 44 53 20 41 54 20 24 30 38 37 32 22 00 45 3A 44 |DS AT $0872".E:D|
00003220: 9F 99 22 41 4E 44 20 49 4E 46 4F 20 4F 4E 20 57 |.."AND INFO ON W|
00003230: 48 45 52 45 20 41 24 28 49 29 20 49 53 20 53 54 |HERE A$(I) IS ST|
00003240: 4F 52 45 44 22 00 63 3A 45 9F 99 22 47 4F 45 53 |ORED".c:E.."GOES|
00003250: 20 49 4E 54 4F 20 24 30 38 37 33 2D 24 30 38 39 | INTO $0873-$089|
00003260: 42 2E 22 00 75 3A 46 9F 8D 36 32 30 30 30 3A 8D |B.".u:F..62000:.|
00003270: 35 35 30 31 30 00 98 3A 4C 9F 53 44 B2 31 35 3A |55010..:L.SD.15:|
00003280: 53 52 B2 30 39 3A 43 43 24 B2 22 44 37 20 37 46 |SR.09:CC$."D7 7F|
00003290: 22 3A 8D 35 35 30 30 30 00 BD 3A 56 9F 99 53 44 |":.55000..:V..SD|
000032A0: 24 22 41 52 52 41 59 20 41 24 28 49 29 20 49 53 |$"ARRAY A$(I) IS|
000032B0: 20 53 54 4F 52 45 44 20 46 52 4F 4D 22 00 E9 3A | STORED FROM"..:|
000032C0: 60 9F 99 22 24 38 30 30 30 20 28 52 45 41 4C 4C |`.."$8000 (REALL|
000032D0: 59 20 24 37 46 46 46 29 20 12 44 4F 57 4E 92 20 |Y $7FFF) .DOWN. |
000032E0: 54 30 20 24 37 46 44 37 22 00 F4 3A 6A 9F 8D 36 |T0 $7FD7"..:j..6|
000032F0: 32 30 30 30 00 1C 3B 74 9F 99 53 44 24 22 52 45 |2000..;t..SD$"RE|
00003300: 4D 45 4D 42 45 52 2E 2E 54 48 45 20 4C 4F 43 27 |MEMBER..THE LOC'|
00003310: 4E 53 20 4F 46 20 41 24 28 49 29 22 00 3B 3B 7E |NS OF A$(I)".;;~|
00003320: 9F 99 22 41 52 45 20 4B 45 50 54 20 49 4E 20 24 |.."ARE KEPT IN $|
00003330: 30 38 37 33 2D 24 30 38 39 42 22 00 46 3B 88 9F |0873-$089B".F;..|
00003340: 8D 36 32 30 30 30 00 70 3B 92 9F 99 53 44 24 22 |.62000.p;...SD$"|
00003350: 54 48 45 20 53 54 52 49 4E 47 53 20 54 48 45 4D |THE STRINGS THEM|
00003360: 53 45 4C 56 45 53 3D 27 31 27 2D 27 31 30 27 22 |SELVES='1'-'10'"|
00003370: 00 92 3B 9C 9F 99 22 41 52 45 20 53 54 4F 52 45 |..;..."ARE STORE|
00003380: 44 20 49 4E 20 24 37 46 44 37 2D 24 37 46 46 46 |D IN $7FD7-$7FFF|
00003390: 2E 22 00 A4 3B A6 9F 8D 36 32 30 30 30 3A 8D 35 |."..;...62000:.5|
000033A0: 35 30 31 30 00 CD 3B AB 9F 53 44 B2 31 34 3A 53 |5010..;..SD.14:S|
000033B0: 52 B2 31 35 3A 43 43 24 B2 22 32 45 20 30 38 20 |R.15:CC$."2E 08 |
000033C0: 33 35 20 30 38 22 3A 8D 35 35 30 30 30 00 F9 3B |35 08":.55000..;|
000033D0: B0 9F 99 53 44 24 22 12 53 4F 92 2E 2E 2E 54 48 |...SD$".SO....TH|
000033E0: 45 20 56 41 4C 55 45 20 4F 46 20 27 49 27 20 49 |E VALUE OF 'I' I|
000033F0: 53 20 53 54 4F 52 45 44 22 00 1F 3C BA 9F 99 22 |S STORED"..<..."|
00003400: 49 4E 20 37 20 42 59 54 45 53 20 46 52 4F 4D 20 |IN 7 BYTES FROM |
00003410: 24 30 38 32 45 20 54 4F 20 24 30 38 33 34 22 00 |$082E TO $0834".|
00003420: 2A 3C C4 9F 8D 36 32 30 30 30 00 4E 3C CE 9F 99 |*<...62000.N<...|
00003430: 53 44 24 22 32 20 42 59 54 45 53 20 46 4F 52 20 |SD$"2 BYTES FOR |
00003440: 49 54 27 53 20 4E 41 4D 45 3A 12 49 92 22 00 7A |IT'S NAME:.I.".z|
00003450: 3C D8 9F 99 22 35 20 42 59 54 45 53 20 46 4F 52 |<..."5 BYTES FOR|
00003460: 20 49 54 27 53 20 56 41 4C 55 45 3D 31 2C 54 48 | IT'S VALUE=1,TH|
00003470: 45 4E 20 32 2C 45 54 43 2E 22 00 8C 3C E2 9F 8D |EN 2,ETC."..<...|
00003480: 36 32 30 30 30 3A 8D 35 35 30 31 30 00 B5 3C EC |62000:.55010..<.|
00003490: 9F 53 44 B2 31 34 3A 53 52 B2 32 31 3A 43 43 24 |.SD.14:SR.21:CC$|
000034A0: B2 22 33 35 20 30 38 20 39 42 20 30 38 22 3A 8D |."35 08 9B 08":.|
000034B0: 35 35 30 30 30 00 DE 3C F6 9F 99 53 44 24 22 56 |55000..<...SD$"V|
000034C0: 41 4C 55 45 53 20 4F 46 20 20 41 28 49 29 20 47 |ALUES OF A(I) G|
000034D0: 4F 20 49 4E 54 4F 20 4C 4F 43 27 4E 53 22 00 04 |O INTO LOC'NS"..|
000034E0: 3D 00 A0 99 22 24 30 38 33 35 2D 24 30 38 37 32 |=..."$0835-$0872|
000034F0: 20 28 49 4E 43 4C 55 44 49 4E 47 20 32 20 42 59 | (INCLUDING 2 BY|
00003500: 54 45 53 22 00 1E 3D 0A A0 99 22 46 4F 52 20 49 |TES"..=..."FOR I|
00003510: 54 27 53 20 4E 41 4D 45 20 12 41 92 29 22 00 29 |T'S NAME .A.)".)|
00003520: 3D 14 A0 8D 36 32 30 30 30 00 4E 3D 1E A0 99 53 |=...62000.N=...S|
00003530: 44 24 22 54 48 45 20 4C 41 53 54 20 50 41 52 54 |D$"THE LAST PART|
00003540: 20 4F 46 20 54 48 45 20 52 41 4E 47 45 22 00 75 | OF THE RANGE".u|
00003550: 3D 28 A0 99 22 24 30 38 33 35 2D 24 30 38 39 42 |=(.."$0835-$089B|
00003560: 20 49 53 20 54 4F 20 4B 45 45 50 20 54 52 41 43 | IS TO KEEP TRAC|
00003570: 4B 20 4F 46 22 00 A2 3D 32 A0 99 22 57 48 45 52 |K OF"..=2.."WHER|
00003580: 45 20 45 41 43 48 20 41 24 28 49 29 20 49 53 20 |E EACH A$(I) IS |
00003590: 53 54 4F 52 45 44 20 49 4E 20 48 49 20 52 41 4D |STORED IN HI RAM|
000035A0: 2E 22 00 B4 3D 3C A0 8D 36 32 30 30 30 3A 8D 35 |."..=<..62000:.5|
000035B0: 35 30 31 30 00 DF 3D 46 A0 99 53 44 24 22 49 46 |5010..=F..SD$"IF|
000035C0: 20 59 4F 55 20 54 59 50 45 20 12 43 4C 52 92 20 | YOU TYPE .CLR. |
000035D0: 41 46 54 45 52 20 12 52 55 4E 92 49 4E 47 22 00 |AFTER .RUN.ING".|
000035E0: 0B 3E 50 A0 99 22 54 48 45 20 50 52 4F 47 52 41 |.>P.."THE PROGRA|
000035F0: 4D 2C 41 4C 4C 20 56 41 52 49 41 42 4C 45 53 2C |M,ALL VARIABLES,|
00003600: 41 52 52 41 59 53 20 41 4E 44 22 00 27 3E 5A A0 |ARRAYS AND".'>Z.|
00003610: 99 22 53 54 52 49 4E 47 53 20 47 45 54 20 43 4C |."STRINGS GET CL|
00003620: 45 41 52 45 44 2E 22 00 32 3E 64 A0 8D 36 32 30 |EARED.".2>d..620|
00003630: 30 30 00 5C 3E 6E A0 99 53 44 24 22 54 48 45 20 |00.\>n..SD$"THE |
00003640: 41 42 4F 56 45 20 50 4F 49 4E 54 45 52 53 20 52 |ABOVE POINTERS R|
00003650: 45 56 45 52 54 20 54 4F 2E 2E 2E 22 00 67 3E 78 |EVERT TO...".g>x|
00003660: A0 8D 36 32 30 30 30 00 9C 3E 82 A0 53 44 B2 31 |..62000..>..SD.1|
00003670: 34 3A 53 52 B2 30 39 3A 43 43 24 B2 22 30 31 20 |4:SR.09:CC$."01 |
00003680: 30 38 20 32 45 20 30 38 20 32 45 20 30 38 20 32 |08 2E 08 2E 08 2|
00003690: 45 20 30 38 22 3A 8D 35 35 30 31 30 00 D1 3E 8C |E 08":.55010..>.|
000036A0: A0 53 44 B2 31 35 3A 53 52 B2 30 39 3A 43 43 24 |.SD.15:SR.09:CC$|
000036B0: B2 22 30 30 20 38 30 20 44 41 20 37 46 20 30 30 |."00 80 DA 7F 00|
000036C0: 20 38 30 20 31 34 20 46 46 22 3A 8D 35 35 30 31 | 80 14 FF":.5501|
000036D0: 30 00 F8 3E 96 A0 99 53 44 24 22 4A 55 53 54 20 |0..>...SD$"JUST |
000036E0: 54 48 45 20 50 52 4F 47 52 41 4D 2E 2E 46 52 4F |THE PROGRAM..FRO|
000036F0: 4D 20 24 30 38 30 31 22 00 08 3F A0 A0 99 22 54 |M $0801"..?..."T|
00003700: 4F 20 24 30 38 32 45 22 00 13 3F AA A0 8D 36 32 |O $082E"..?...62|
00003710: 30 30 30 00 3D 3F B4 A0 99 53 44 24 22 2E 2E 41 |000.=?...SD$"..A|
00003720: 4E 44 20 47 55 45 53 53 20 57 48 41 54 20 48 41 |ND GUESS WHAT HA|
00003730: 50 50 45 4E 53 20 49 46 20 59 4F 55 22 00 51 3F |PPENS IF YOU".Q?|
00003740: BE A0 99 22 54 59 50 45 20 12 4E 45 57 92 21 21 |..."TYPE .NEW.!!|
00003750: 22 00 5C 3F C8 A0 8D 36 32 30 30 30 00 91 3F DC |".\?...62000..?.|
00003760: A0 53 44 B2 31 34 3A 53 52 B2 30 39 3A 43 43 24 |.SD.14:SR.09:CC$|
00003770: B2 22 30 31 20 30 38 20 30 33 20 30 38 20 30 33 |."01 08 03 08 03|
00003780: 20 30 38 20 30 33 20 30 38 22 3A 8D 35 35 30 31 | 08 03 08":.5501|
00003790: 30 00 C6 3F E6 A0 53 44 B2 31 35 3A 53 52 B2 30 |0..?..SD.15:SR.0|
000037A0: 39 3A 43 43 24 B2 22 30 30 20 38 30 20 44 41 20 |9:CC$."00 80 DA |
000037B0: 37 46 20 30 30 20 38 30 20 31 34 20 46 46 22 3A |7F 00 80 14 FF":|
000037C0: 8D 35 35 30 31 30 00 F0 3F F0 A0 99 53 44 24 22 |.55010..?...SD$"|
000037D0: 49 20 50 55 54 20 30 30 20 30 30 20 30 30 20 49 |I PUT 00 00 00 I|
000037E0: 4E 54 4F 20 24 30 38 30 30 2D 24 30 38 30 32 22 |NTO $0800-$0802"|
000037F0: 00 0F 40 FA A0 99 22 2E 2E 41 4E 44 20 54 48 41 |..@..."..AND THA|
00003800: 54 27 53 20 41 4C 4C 20 46 4F 4C 4B 53 21 22 00 |T'S ALL FOLKS!".|
00003810: 39 40 04 A1 8D 36 32 30 30 30 3A 99 22 93 22 3A |9@...62000:.".":|
00003820: 4D 53 24 B2 22 54 48 41 54 27 53 20 41 4C 4C 22 |MS$."THAT'S ALL"|
00003830: 3A 8D 36 33 31 30 30 3A 8E 00 53 40 50 C3 51 51 |:.63100:..S@P.QQ|
00003840: B2 31 30 3A 41 4E 24 B2 22 11 41 4E 53 57 45 52 |.10:AN$.".ANSWER|
00003850: 3D 12 22 00 7A 40 51 C3 41 24 28 31 29 B2 22 56 |=.".z@Q.A$(1)."V|
00003860: 32 22 3A 8B C2 28 33 32 37 36 38 29 B2 39 20 A7 |2":..(32768).9 .|
00003870: 41 24 28 31 29 B2 22 56 34 22 00 8F 40 54 C3 81 |A$(1)."V4"..@T..|
00003880: 49 B2 32 A4 51 51 3A 87 41 24 28 49 29 3A 82 00 |I.2.QQ:.A$(I):..|
00003890: B7 40 55 C3 83 20 24 41 30 30 30 2C 24 30 34 30 |.@U.. $A000,$040|
000038A0: 30 2C 24 30 38 30 31 2C 33 2C 4E 2C 59 2C 24 30 |0,$0801,3,N,Y,$0|
000038B0: 33 33 43 2C 59 2C 59 00 CC 40 38 C7 81 49 B2 31 |33C,Y,Y..@8..I.1|
000038C0: A4 51 51 3A 87 51 24 28 49 29 3A 82 00 FD 40 39 |.QQ:.Q$(I):...@9|
000038D0: C7 83 20 22 93 12 57 48 41 54 20 42 52 41 4E 44 |.. "..WHAT BRAND|
000038E0: 20 4F 46 20 42 41 53 49 43 20 48 41 56 45 20 49 | OF BASIC HAVE I|
000038F0: 20 47 4F 54 92 20 32 2E 30 2F 34 2E 30 00 25 41 | GOT. 2.0/4.0.%A|
00003900: 3A C7 83 20 22 93 12 57 48 45 52 45 20 44 4F 20 |:.. "..WHERE DO |
00003910: 54 48 45 20 42 41 53 49 43 20 52 4F 4D 53 20 53 |THE BASIC ROMS S|
00003920: 54 41 52 54 22 00 4E 41 3B C7 83 20 22 93 12 57 |TART".NA;.. "..W|
00003930: 48 45 52 45 20 44 4F 45 53 20 53 43 52 45 45 4E |HERE DOES SCREEN|
00003940: 20 4D 45 4D 4F 52 59 20 53 54 41 52 54 22 00 77 | MEMORY START".w|
00003950: 41 3C C7 83 20 22 93 12 57 48 45 52 45 20 44 4F |A<.. "..WHERE DO|
00003960: 20 42 41 53 49 43 20 50 52 4F 47 52 41 4D 53 20 | BASIC PROGRAMS |
00003970: 53 54 41 52 54 92 22 00 A4 41 3D C7 83 20 22 93 |START."..A=.. ".|
00003980: 12 42 41 53 49 43 20 50 52 4F 47 52 41 4D 53 20 |.BASIC PROGRAMS |
00003990: 45 4E 44 20 49 4E 20 3F 20 5A 45 52 4F 20 42 59 |END IN ? ZERO BY|
000039A0: 54 45 53 22 00 E3 41 3E C7 83 20 22 93 12 50 45 |TES"..A>.. "..PE|
000039B0: 45 4B 28 32 30 34 39 29 2B 32 35 36 2A 50 45 45 |EK(2049)+256*PEE|
000039C0: 4B 28 32 30 35 30 29 92 3D 31 53 54 20 53 54 41 |K(2050).=1ST STA|
000039D0: 54 45 4D 45 4E 54 20 4E 55 4D 42 45 52 28 59 2F |TEMENT NUMBER(Y/|
000039E0: 4E 29 22 00 14 42 3F C7 83 20 22 93 12 53 54 52 |N)"..B?.. "..STR|
000039F0: 49 4E 47 53 20 41 52 45 20 53 54 4F 52 45 44 20 |INGS ARE STORED |
00003A00: 41 54 20 54 4F 50 20 4F 46 20 52 41 4D 92 28 59 |AT TOP OF RAM.(Y|
00003A10: 2F 4E 29 22 00 3F 42 40 C7 83 20 22 93 12 54 48 |/N)".?B@.. "..TH|
00003A20: 45 20 43 41 53 53 45 54 54 45 20 42 55 46 46 45 |E CASSETTE BUFFE|
00003A30: 52 20 53 54 41 52 54 53 20 57 48 45 52 45 22 00 |R STARTS WHERE".|
00003A40: 75 42 41 C7 83 20 22 93 12 24 30 30 32 42 2F 24 |uBA.. "..$002B/$|
00003A50: 30 30 32 43 3D 50 4F 49 4E 54 45 52 20 54 4F 20 |002C=POINTER TO |
00003A60: 53 54 41 52 54 20 4F 46 20 42 41 53 49 43 92 28 |START OF BASIC.(|
00003A70: 59 2F 4E 29 22 00 A6 42 42 C7 83 20 22 93 12 24 |Y/N)"..BB.. "..$|
00003A80: 30 30 33 37 2F 24 30 30 33 38 3D 50 4F 49 4E 54 |0037/$0038=POINT|
00003A90: 45 52 20 54 4F 20 54 4F 50 4F 46 20 52 41 4D 92 |ER TO TOPOF RAM.|
00003AA0: 28 59 2F 4E 29 22 00 BB 42 20 CB 81 51 B2 31 A4 |(Y/N)"..B ..Q.1.|
00003AB0: 51 51 3A 87 4D 24 28 51 29 3A 82 00 E1 42 21 CB |QQ:.M$(Q):...B!.|
00003AC0: 83 20 41 20 27 53 54 41 4E 44 41 52 44 27 20 43 |. A 'STANDARD' C|
00003AD0: 2D 36 34 20 48 41 53 20 42 41 53 49 43 20 32 2E |-64 HAS BASIC 2.|
00003AE0: 30 00 FC 42 22 CB 83 20 46 52 4F 4D 20 24 41 30 |0..B".. FROM $A0|
00003AF0: 30 30 20 54 4F 20 24 42 46 46 46 2E 00 28 43 23 |00 TO $BFFF..(C#|
00003B00: CB 83 20 54 30 20 24 30 37 46 46 2E 2E 4A 55 53 |.. T0 $07FF..JUS|
00003B10: 54 20 42 45 46 4F 52 45 20 53 54 41 52 54 20 4F |T BEFORE START O|
00003B20: 46 20 42 41 53 49 43 2E 00 42 43 24 CB 83 20 32 |F BASIC..BC$.. 2|
00003B30: 30 34 38 3D 24 30 38 30 30 20 48 41 53 20 27 30 |048=$0800 HAS '0|
00003B40: 30 27 00 5D 43 25 CB 83 20 54 48 45 20 27 4C 49 |0'.]C%.. THE 'LI|
00003B50: 4E 4B 27 20 49 53 20 30 30 20 30 30 2E 00 87 43 |NK' IS 00 00...C|
00003B60: 26 CB 83 20 41 42 4F 56 45 20 47 49 56 45 53 20 |&.. ABOVE GIVES |
00003B70: 27 4C 49 4E 4B 27 20 54 4F 20 32 4E 44 20 53 54 |'LINK' TO 2ND ST|
00003B80: 41 54 45 4D 45 4E 54 00 AC 43 27 CB 83 20 54 48 |ATEMENT..C'.. TH|
00003B90: 45 59 27 52 45 20 53 54 4F 52 45 44 20 46 52 4F |EY'RE STORED FRO|
00003BA0: 4D 20 24 37 46 46 46 20 44 4F 57 4E 00 C3 43 28 |M $7FFF DOWN..C(|
00003BB0: CB 83 20 44 49 52 54 59 20 51 55 45 53 54 49 4F |.. DIRTY QUESTIO|
00003BC0: 4E 21 21 00 DA 43 29 CB 83 20 34 33 2F 34 34 20 |N!!..C).. 43/44 |
00003BD0: 49 4E 20 44 45 43 49 4D 41 4C 00 F1 43 2A CB 83 |IN DECIMAL..C*..|
00003BE0: 20 35 35 2F 35 36 20 49 4E 20 44 45 43 49 4D 41 | 55/56 IN DECIMA|
00003BF0: 4C 00 F7 43 07 CF 8E 00 1A 44 D8 D6 99 C8 28 53 |L..C.....D....(S|
00003C00: 44 24 2C 53 44 29 C8 28 53 52 24 2C 53 52 29 22 |D$,SD).(SR$,SR)"|
00003C10: 12 22 43 43 24 22 92 22 3A 8E 00 3A 44 E2 D6 99 |."CC$".":..:D...|
00003C20: C8 28 53 44 24 2C 53 44 29 C8 28 53 52 24 2C 53 |.(SD$,SD).(SR$,S|
00003C30: 52 29 43 43 24 22 92 22 3A 8E 00 4B 44 60 EA 8F |R)CC$".":..KD`..|
00003C40: 20 49 4E 49 54 49 41 4C 49 5A 45 00 6D 44 61 EA | INITIALIZE.mDa.|
00003C50: 42 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 3A |BT$.".":.I.1.24:|
00003C60: 42 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 B7 44 |BT$.BT$.".":...D|
00003C70: 62 EA 50 54 24 B2 22 1C B0 C0 C0 C0 C0 C0 C0 C0 |b.PT$.".........|
00003C80: C0 C0 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003C90: 9D DD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D |................|
00003CA0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 |................|
00003CB0: C0 C0 C0 C0 B2 BD 22 00 FF 44 63 EA 50 54 24 B2 |......"..Dc.PT$.|
00003CC0: 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |PT$."...........|
00003CD0: 9D 9D 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00003CE0: CD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00003CF0: A5 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 |.============.".|
00003D00: 3B 45 64 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D |;Ed.PT$.PT$."...|
00003D10: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 |................|
00003D20: A3 A3 A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D |................|
00003D30: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 72 45 65 EA |..........".rEe.|
00003D40: 50 54 24 B2 42 54 24 AA 22 91 91 91 91 91 91 1D |PT$.BT$.".......|
00003D50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003D60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 AA 22 |.........".PT$."|
00003D70: 90 22 00 A2 45 67 EA 4D 4C 24 B2 22 13 11 11 11 |."..Eg.ML$."....|
00003D80: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003D90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003DA0: 1D 22 00 BD 45 68 EA 57 44 B2 34 30 3A 43 52 54 |."..Eh.WD.40:CRT|
00003DB0: B2 31 30 32 34 3A 99 C7 28 31 34 32 29 00 F9 45 |.1024:..(142)..E|
00003DC0: 69 EA 57 32 B2 57 44 AD 32 3A 57 33 B2 57 44 AB |i.W2.WD.2:W3.WD.|
00003DD0: 31 3A 57 31 24 B2 CA 28 C4 28 57 44 29 2C 32 29 |1:W1$..(.(WD),2)|
00003DE0: 3A 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 38 |:.53281,15:.5328|
00003DF0: 30 2C 31 32 3A 99 22 90 22 00 1B 46 6A EA 57 32 |0,12:."."..Fj.W2|
00003E00: 24 B2 CA 28 C4 28 57 32 29 2C 32 29 3A 57 33 24 |$..(.(W2),2):W3$|
00003E10: B2 CA 28 C4 28 57 33 29 2C 32 29 00 21 46 74 EA |..(.(W3),2).!Ft.|
00003E20: 8E 00 2C 46 30 F2 8D 36 33 30 30 30 00 42 46 31 |..,F0..63000.BF1|
00003E30: F2 99 53 44 24 43 4C 24 3A 99 43 4C 24 3A 99 43 |..SD$CL$:.CL$:.C|
00003E40: 4C 24 00 48 46 33 F2 8E 00 82 46 18 F6 99 22 13 |L$.HF3....F...".|
00003E50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003E60: 11 11 11 11 11 11 11 11 48 49 54 20 12 52 45 54 |........HIT .RET|
00003E70: 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |URN. TO CONTINUE|
00003E80: 22 3B 00 98 46 19 F6 A1 41 24 3A 8B 41 24 B3 B1 |";..F...A$:.A$..|
00003E90: 22 22 A7 36 33 30 30 31 00 AD 46 1A F6 A1 41 24 |"".63001..F...A$|
00003EA0: 3A 8B 41 24 B2 22 22 A7 36 33 30 30 32 00 B3 46 |:.A$."".63002..F|
00003EB0: 1B F6 8E 00 C7 46 7C F6 81 54 B2 31 A4 35 3A 99 |.....F|..T.1.5:.|
00003EC0: 50 54 24 4D 53 24 3B 00 DD 46 7D F6 99 50 54 24 |PT$MS$;..F}..PT$|
00003ED0: 22 20 20 20 20 20 20 20 20 20 20 22 3B 00 EC 46 |" ";..F|
00003EE0: 7E F6 99 50 54 24 4D 53 24 3B 3A 82 00 F4 46 7F |~..PT$MS$;:...F.|
00003EF0: F6 99 3A 8E 00 41 47 9C F9 53 44 24 B2 22 13 11 |..:..AG..SD$."..|
00003F00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003F10: 11 22 3A 43 4C 24 B2 22 92 20 20 20 20 20 20 20 |.":CL$.". |
00003F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
00003F40: 22 00 74 47 9D F9 53 52 24 B2 22 1D 1D 1D 1D 1D |".tG..SR$.".....|
00003F50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003F60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003F70: 1D 1D 1D 22 00 7A 47 9E F9 8E 00 00 00 |...".zG...... |
..!...."....... PONZO*82*WATERLOO......"
.......K.2..53281,15:.53280,12:.".".N.D.
.". ..C64 TUTOR-4...E.."...
....................................."..
.F..". .. INSIDE THE C64
.. .":MS$." WELCOME! "...G..".......
..................................".,...
.60000:.63100:.63000.L....".............
.C64 MEMORY".Z....".MEMORY RUNS FROM 0 T
O 65535 (DECIMAL)". ....".OR 0000 TO FFF
F (HEXADECIMAL)"......".(WRITTEN $0000 $
FFFF)"......".SOME IS FOR YOU..SOME FOR
ME."......".(ABOUT HALF/HALF)"...$..".LE
T ME SHOW YOU...".$....63000.J.8..".....
....BOTTOM HALF OF MEMORY".].B.."DECIMAL
HEX"...L.."40960=$A000-......_TOP OF BA
SIC MEMORY"...V.." ......_I".
C.`.." - - - +"...E.."
...... ."...J.." ......
.BASIC".$.T.." ...... .PROGR
AMS".G.~.." ......_KIN HERE".
U...." 2048=$0800-......_BASIC MEMORY ST
ARTS"......" 2047=$07FF-......_ISCREEN M
EMORY"......" 1024=$0400-......_K".V....
" 1023=$03FF ......_I"......"
...... MY WORKSPACE"......"
...... .".6.D.." ...... ".X
.N.." ......_POINTERS.Z.X.."
......_TO MAGIC......"
......_MEMORY LOC'NS".G...."
......_FLAGS,ETC."......"
......"......" 0=$0000-......_KBOTT
OM"......63000.:....".I STORE BYTES READ
FROM A DATASETTE".B....".IN 'BUFFERS' U
NTIL I GET ENOUGH"...(..".TO STUFF INTO
'BASIC MEMORY'"...2..".(IF THEY'RE BASIC
PROGRAMS)."...<..".THESE ARE (USUALLY)
NICE PLACES TO PUT"...F..".MACHINE LANGU
AGE PROGRAMS."...P..".WHEN YOU DEFINE VA
RIABLES X,Y,A(I),ETC.".].Z..".I STORE TH
EM AFTER YOUR BASIC PROGRAM."...D..".WHE
N YOU DEFINE STRINGS A$,C$(I),ETC."...N.
.".I STORE THEM AT THE 'TOP'.".Z.X..".TO
KEEP TRACK OF WHERE I PUT THINGS"......
".I STORE POINTERS IN LOW MEMORY:"......
63000.7....".THE ADDRESS OF".25)" IS STO
RED AT".B. .."...............".25)".....
........."......".START OF BASIC".25)"43
/44 =$2B/$2C"......"^(USUALLY 2049=$0801
)".U....".END OF PROGRAM".25)"45/46 =$2D
/$2E"...H.."^(VARIES WITH PROGRAM)"...M.
." (AND GIVES START OF )".).N.." (VARIAB
LES TOO)".W.O..".BOTTOM OF STRINGS".25)"
51/52 =$33/$34".U.P.."^(VARIES WITH PROG
RAM)"...Q.." ($7FFF & DOWN_STRINGS)".A.R
..".TOP OF BASIC RAM".25)"55/56 =$37/$38
"......"^(USUALLY 40960=$A000)"......"..
.NOTE: THE 'TOP OF BASIC RAM' MAY BE AT"
.=...."$A000..IF NO 'CARTRIDGE' IS INVOL
VED.".O...."..WE'LL COME BACK TO THESE P
OINTERS LATER!".Z....63000. ....".......
.....TOP HALF OF MEMORY"......"DECIMAL H
EX"......"65535=$FFFF-......_TOP OF MEMO
RY"......" ......_I"......"
...... .RAM &".7...."
...... .ROM".S.".."49152=$C000 ......
_K".O.'.." ......_I"...(.."
...... .BASIC"...).."
...... .INTERPRETER".S.*.."
...... ."...,.."40960=$A000 ......_K".
..6.." ......_I_ MAY BE".6.;.
." ...... .USED BY".[.<.."
...... .CARTRIDGE".W.@.."32768=
$8000 ......_K"...|..63000...V..". .
HOW BASIC PROGRAMS ARE STORED"......".RE
CALL THAT BASIC PROGRAMS (NORMALLY)"....
..".GO INTO MEMORY STARTING AT $0801(HEX
).".9....".LET'S LOOK AT THE BYTES THERE
FOR THE".Q....".SIMPLE PROGRAM:".K...."
..10 FORI=1TO10 "......".20 PRINT"G(34
)"*"G(34)":NEXT"......".WE'LL .SYS2048.
TO GET TO THE MLM"...&..".THEN WE'LL ..M
0800-0820. TO DISPLAY"...0..".THE MEMOR
Y HOLDING THIS SIMPLE PROGRAM.".+.5..630
00:.".FOR:".E.6.."..10 FORI=1TO10 ".J.
7..".20 PRINT"G(34)"*"G(34)":NEXT".}.8..
".WE'LL GET:"...:..". .: 0800 00 0D 08
0A 00 81 49 B2.N.D.." .: 0808 31 A4 31
30 00 18 08 14...N.." .: 0810 00 99 22
2A 22 3A 82 00...X.." .: 0818 00 00 AA
AA AA AA AA AA.K.B.SD$."................
...":CL$.".
."...C.SR$."...................
....................."...L.SD.8:SR.10:CC
$."00":.55000...V..SD$"I ALWAYS HAVE .00
. HERE."......"THAT'S WHY 'SYS2048' WORK
S!"......62000......55010.;...SD.8:SR.13
:CC$."0D 08":.55000.G....SD$"THIS IS THE
ADDRESS OF THE .NEXT."......"BASIC INST
RUCTION."......62000......55010...F.SD.8
:SR.19:CC$."0A 00":.55000...P..SD$"THIS
IS THE LINE NUMBER .10."...Z.." IN HEX."
......62000......55010.%...SD.8:SR.25:CC
$."81":.55000.H....SD$"THIS IS THE 'TOKE
N' FOR";.V...." .FOR.".A....62000.L....5
5010.W....55010.....SD.8:SR.28:CC$."49":
.55000... ..SD$"THIS IS THE ASCII CODE F
OR";.H.*.." .I.".S.4..62000...5..55010..
.>.SD.8:SR.31:CC$."B2":.55000.#.H..SD$"T
HIS IS THE ASCII CODE FOR";./.R.." .=.".
:.\..62000.E.]..55010.D.F.SD.9:SR.10:CC$
."31":.55000...P..SD$"THIS IS THE ASCII
CODE FOR";...Z.." .1."......62000......5
5010.K...SD.9:SR.13:CC$."A4":.55000.....
.SD$"THIS IS THE 'TOKEN' FOR";......" .T
O."......62000......55010.0...SD.9:SR.16
:CC$."31":.55000.V....SD$"THIS IS THE AS
CII CODE FOR";.I.J.." .1.(AGAIN)".T.T..6
2000..U..55010.....SD.9:SR.19:CC$."30":
.55000.D....SD$"THIS IS THE ASCII CODE F
OR";.P...." .0."......62000......55010..
...SD.9:SR.22:CC$."00":.55000.(....SD$"T
HIS IS THE BYTE MEANING".C....".END OF S
TATEMENT..".N.$..62000.Y.%..55010.{...SD
.9:SR.25:CC$."18 08":.55000...8..SD$"THE
SE POINT TO ADDRESS OF"...B.."THE .NEXT.
STATEMENT".F.L..62000.Q.W..55010...J..S
D$"THIS 2ND STATEMENT BEGINS"...T.."AT $
080D AS NOTED EARLIER.".9.~.SD.8:SR.13:C
C$."0D 08":.55000.G....I.1.50:..R....550
10.F....A$:.A$."".2430.|....SD$CL$:.CL$:
.CL$.....SD.9:SR.25:CC$."18 08":.55000.L
....SD$"THE ADDRESS OF THE 'NEXT' STATEM
ENT"......"IS GIVEN .LO-BYTE. THEN .HI-B
YTE.."......"IT'S (LO-BYTE)+256*(HI-BYTE
).".&.D..62000.1.E..55010.^.N..SD$"..SAM
E FOR THE 'STATEMENT NUMBER'."...X.SD.8:
SR.19:CC$."0A 00":.55000......I.1.50:...
...SD.8:SR.19:CC$."0A 00":.55000.D....A$
:.A$."".2520.O....62000.Z....55010......
SD$"THEN COMES 2 BYTES FOR THE "......"S
TATEMENT NUMBER .20.".>...."(1ST BYTE)+2
56*(2ND BYTE)".]...SD.9:SR.31:CC$."14":.
55000.}...SD.10:SR.10:CC$."00":.55000...
...62000......H(SD$,9).31)"14"......H(SD
$,10).10)"00".U...SD.10:SR.13:CC$."99":.
55000...(..SD$"THIS IS THE 'TOKEN' FOR .
PRINT."...2..62000...3..55010.5.<.SD.10:
SR.16:CC$."22":.55000.A.F..SD$"THIS IS T
HE ASCII CODE FOR ."G(34).L.P..62000.W.Q
..55010...Z.SD.10:SR.19:CC$."2A":.55000.
..D..SD$"THIS IS THE ASCII CODE FOR .*."
.K.N..62000.V.O..55010...X.SD.10:SR.22:C
C$."22":.55000.( ...SD$"..THE ASCII CODE
FOR ."G(34):."...AGAIN".3 ...62000.> ..
.55010.^ ..SD.10:SR.25:CC$."3A":.55000.
..SD$"THE ASCII CODE FOR .:.".. ...620
00.. ...55010.. ..SD.10:SR.28:CC$."82":.
55000.T ...SD$"THE TOKEN FOR .NEXT.".. H
..62000.. I..55010..!R.SD.10:SR.31:CC$."
00":.55000.-!..SD.11:SR.10:CC$."00 00":.
55000.L!...SD$"THE 3 ZERO BYTES SAY".I!.
..".END OF THE PROGRAM.!".T!...62000..!.
..H(SD$,10).31)"00"..!...H(SD$,11).10)"0
0 00"..!...62000.P!..SD.10:SR.31:CC$."00
":.55000..!...SD$"THIS ONE IS THE NORMAL
"..""..".END OF STATEMENT."..",..62000.!
"-..55010.D"..SD.11:SR.10:CC$."00 00":.5
5000.K"6..SD$"THESE GIVE .00 00. AS A LI
NK".."@.."TO THE 'NEXT' STATEMENT.".."J.
."MEANING .NO NEXT STATEMENT..".."T..620
00.E"U..55010.."V..H(SD$,11).16)".AA AA
AA AA AA AA."..#^..SD$"THE BUNCH OF .AA.
S IS JUST.......".)#H.."GARBAGE!".P#|..6
2000:.".": MS$."AA AA AA":.63100..#...".
IF YOU REALLY.............. WANTED TO YO
U"..#...".COULD ENTER THE MLM WITH .SYS2
048".Z#...".AND WRITE (OR CHANGE) A BASI
C PROGRAM"..$...".BY SIMPLY ENTERING THE
APPROPRIATE".4$...".BYTES (IN HEX!) INT
O THE RIGHT LOC'NS!".Z$..."...BUT LEARN
YOUR ASCII CODE.."..$B..".AND THE SINGLE
-BYTE 'TOKENS' I USE"..$L..".TO IDENTIFY
THE VARIOUS BASIC COMMANDS"..$V..".LIKE
.PRINT.,.FOR.,.NEXT.,.RUN.,.LIST.,ETC."
..%...".(TRY IT AFTER............ YOU EN
D TUTOR)".1%...63000:.40000:.5000.P% .."
.NOW... **********".M%..."
* A TEST *..%..." ********
**"..%...I.1.500:.:MS$." .A TEST?!.":.63
100..%..."....I'LL ASK YOU QUESTIONS ABO
UT MYSELF.":MS$."GOOD!GOOD!"..&...".IF T
HE ANSWER IS AN 'ADDRESS' OR".H&...".MEM
ORY LOCATION GIVE IT TO ME AS A".K&H..".
.4 DIGIT HEX NUMBER WITH $"..&R..".(LIKE
$1234)"..&..."....UNLESS OTHERWISE SPEC
IFIED!"..&...50000:.63000.R&...N.1.QQ:."
...."Q$(N)..&...A$:.A$.."".4085..'..."..
. V...";A$:."....".1'...A$.A$(N)..6310
0:."..............":.4120.?'...AN$A$(N).
V'..."."M$(N):.63000:..'"..".WANT TO TA
KE THE **TEST** AGAIN?"..',..".. Y..."
;A$..'6..A$."Y"..".":.4080..'@..39999..'
...".AFTER RUNNING A PROGRAM LIKE:":QT$.
G(34):.63900..(...". 10 AB$=STR$(7)".2(.
..".LET'S SEE WHERE I PUT THE STRING '7'
.".T(...".WE'LL TYPE .SYS2048. THEN".~(.
.."...M 0800-0830. TO SEE THE PROGRAM"..
(..."...M 7FF8-7FFF. TO SEE THE STRING."
..(D..63000:.".";..(Q.."..: 0800 00 0E
08 0A 00 41 42 24..)R..".: 0808 B2 C4 2
8 37 29 00 00 00./)S..".: 0810 41 C2 02
FC 7F 00 00 AA.V)T..".: 0818 AA AA AA
AA AA AA AA AA.)U.."...: 7FF8 AA AA AA
AA 20 37 12 08..)T.SD.3:SR.24:CC$."00 0
0 00":.55000.R)...SD$"THESE ARE THE 3 '0
0'-BYTES THAT END"..)..."THE PROGRAM."..
)...62000:.55010..*..SD.4:SR.9:CC$."41 C
2":.55000.5*...SD$".41.='A' IN ASCII".W*
...".42.='B'..BUT $80 IS ADDED"..*..."IN
DICATING A .STRING., GIVING .C2."..*$..6
2000:.55010..*..SD.4:SR.15:CC$."02":.550
00..*8..SD$"THE STRING AB$ IS .02. BYTES
LONG."..*B..62000:.55010..+L.SD.4:SR.18
:CC$."FC 7F":.55000.:+V..SD$"AND IT'S LO
CATED AT $.7FFC..".L+`..62000:.55010.N+J
.SD.8:SR.21:CC$."20 37":.55000..+T..SD$"
HERE, AT $7FFC, IS AB$."..+~..".AB$ IS:.
20.='SPACE'+.37.='7'".G+...62000:.55010.
.+..SD.8:SR.27:CC$."12 08":.55000..,...S
D$"AND WHERE DOES IT SAY IT'S".#,..."2 B
YTES LONG?".E,..."..AT MEMORY LOC'N $.08
12.!".D,..SD.4:SR.15:CC$."02":.55000.,D
..55010:.A$:.A$."".6330..,N..".IF, HOWEV
ER, YOUR PROGRAM WAS:"..,X..". 10 AB$="Q
T$"7"QT$..,...".WHERE DO YOU THINK THE P
OINTER WILL"..,...".POINT TO?".*-..."..N
OT. TO $7FFC, BUT TO THE LOCATION".T-...
".IN THE BASIC PROGRAM ITSELF WHERE".L-.
..".'7' IS LOCATED.".W-...62000..-...SD$
"THAT IS, TO $.080A."..-..."..AND IT WIL
L BE 1 BYTE LONG!".W-..SD.3:SR.9:CC$."7"
:.55000..-(..55010:.A$:.A$."".6430..-2..
.".?..".":MS$.".AU REVOIR!.":.63100:."."
:..N.@..".LET'S LOOK AT SOME POINTERS.":
.63900.U.A..".(WE'LL ASSUME WE'VE GOT A
C-64"...B..". LINK SO 'TOP OF RAM' IS AT
$8000".O.C..". AND THE 'BASIC' IS .BASI
C 4.0.)":.63000...E.."...BEFORE WRITING
ANY........ PROGRAM".$/F.."(AFTER FIRST
TURNING ON THE C64)".R/J..".WE'LL .SYS20
48. TO GET INTO THE MLM..".Q/T..".THEN .
.M 002B 0033....".{/^..".B*../_.." P
C SR AC XR YR SP"../`..".; 0801 32 04
5E 00 F8".M/A..".M 002B 0033"../B..".:
002B 01 08 03 08 03 08 03 08"..0C..".:
0033 00 80 00 00 00 80 00 FF".;0D..".X _
=EXIT...REMEMBER?".^0H.SD.14:SR.09:CC$.
"01 08":.55000..0R..SD$"THIS SAYS BASIC
PROGRAMS START"..0|.."AT $0801..READ IT
BACKWARDS!"..0...62000:.55010..0..SD.14:
SR.15:CC$."03 08":.55000..1...SD$"THIS S
AYS THE NIL-PROGRAM ENDS"..1..."AT $0803
..AFTER 3 '00' BYTES!".@1...62000:.55010
.C1..SD.14:SR.21:CC$."03 08":.55000..1B.
.SD$"THIS SAYS ARRAYS START"..1L.."AT $0
803 TOO..NO ARRAYS YET!"..1V..62000:.550
10..1..SD.14:SR.27:CC$."03 08":.55000..1
...SD$"THIS SAYS ARRAYS END"."2..."AT $0
803 TOO...NO ARRAYS YET.!".42...62000:.5
5010.W2..SD.15:SR.09:CC$."00 08":.55000.
{2...SD$"THIS SAYS STRINGS GO DOWN"..2..
."TO $8000...NO STRINGS YET.!"..2&..6200
0:.55010.S20.SD.15:SR.15:CC$."00 00":.55
000..2:..SD$"THIS POINTER (TO CURRENT ST
RING)"..3D.."WE'LL IGNORE.".%3N..62000:.
55010.H3X.SD.15:SR.21:CC$."00 80":.55000
.R3B..SD$"THIS SAYS 'TOP OF BASIC RAM' I
S"..3L.."AT $8000..OF COURSE.". 3V..6200
0:.55010.C3..SD.15:SR.27:CC$."14 FF":.55
000..3...SD$"THIS IS THE CURRENT BASIC "
..4..."LINE NUMBER..IGNORE!"..4...62000:
.55010.P4...".OK...NOW WE'LL WRITE A SHO
RT PROGRAM.:":.I.1.500:..~4..."..10 FORI
=1TO10:A(I)=I*I:A$(I)=STR$(I)"..4...".20
PRINT"G(34)"+"G(34)":NEXT
"..4F..".THEN, BEFORE.............
. RUNNING IT"..4P..".WE'LL .SYS2048.:"..
5Z..".B*.'5..." PC SR AC XR YR SP".
F5...".; 0801 32 04 5E 00 F8".Z5...".M
002B 0033"..5...".: 002B 01 08 2E 08 2E
08 2E 08"..5...".: 0033 00 80 DA 7F 00
80 14 FF"..5...".X".W5 .SD.14:SR.09:CC$
."01 08":.55000..5*..SD$"THE BASIC PROGR
AM STARTS"..64.."AT $0801..OF COURSE!".(
6>..62000:.55010.K6H.SD.14:SR.15:CC$."2E
08":.55000.L6R..SD$"THE BASIC PROGRAM E
NDS"..6\.."AT $082E..AFTER THE 3 '00' BY
TES."..6F..62000:.55010.P6P.SD.14:SR.21:
CC$."2E 08 2E 08":.55000..6Z..SD$"NO VAR
IABLES, NO ARRAYS OR"..7..."STRINGS CREA
TED YET.".#7...62000:.55010.X7..SD.15:SR
.09:CC$."00 80 DA 7F 00 80 14 FF":.55000
.{7...SD$"NOTHING WORTH NOTING (!)"..7..
."HAS HAPPENED YET."..7...62000:.55010.U
7...SD$".NOW. WE'LL RUN........ THE PROG
RAM:"..7J.."WATCH...."..8O..".
".A8P.."..10 F
ORI=1TO10:A(I)=I*I:A$(I)=STR$(I)".F8Q.."
.20 PRINT"G(34)"+"G(34)":NEXT"..8R..I.1.
5:."
":...8T..62000:.55010.Q8..SD.14:SR.09:C
C$."01 08":.55000..8...SD$"START OF BASI
C WON'T CHANGE"..9...62000:.55010.,9..SD
.14:SR.15:CC$."2E 08":.55000.P9...SD$"EN
D OF BASIC WON'T CHANGE".W9..."(IT'S ALS
O 'START OF VARIABLES)"..9...62000:.5501
0..9$.SD.14:SR.21:CC$."35 08 9B 08":.550
00.V9...SD$"ARRAY A(I) IS STORED FROM"..
98.."$0835 AND 'UP'."..9B..62000..:C..SD
$"IT ACTUALLY ENDS AT $0872".E:D.."AND I
NFO ON WHERE A$(I) IS STORED".C:E.."GOES
INTO $0873-$089B.".U:F..62000:.55010..:
L.SD.15:SR.09:CC$."D7 7F":.55000..:V..SD
$"ARRAY A$(I) IS STORED FROM"..:`.."$800
0 (REALLY $7FFF) .DOWN. T0 $7FD7"..:J..6
2000..;T..SD$"REMEMBER..THE LOC'NS OF A$
(I)".;;~.."ARE KEPT IN $0873-$089B".F;..
.62000.P;...SD$"THE STRINGS THEMSELVES='
1'-'10'"..;..."ARE STORED IN $7FD7-$7FFF
."..;...62000:.55010.M;..SD.14:SR.15:CC$
."2E 08 35 08":.55000..;...SD$".SO....TH
E VALUE OF 'I' IS STORED"..<..."IN 7 BYT
ES FROM $082E TO $0834".*<D..62000.N<N..
SD$"2 BYTES FOR IT'S NAME:.I.".Z<X.."5 B
YTES FOR IT'S VALUE=1,THEN 2,ETC."..<...
62000:.55010..<..SD.14:SR.21:CC$."35 08
9B 08":.55000..<...SD$"VALUES OF A(I) G
O INTO LOC'NS"..=. ."$0835-$0872 (INCLUD
ING 2 BYTES"..=. ."FOR IT'S NAME .A.)".)
=. .62000.N=. .SD$"THE LAST PART OF THE
RANGE".U=( ."$0835-$089B IS TO KEEP TRAC
K OF"..=2 ."WHERE EACH A$(I) IS STORED I
N HI RAM."..=< .62000:.55010..=F .SD$"IF
YOU TYPE .CLR. AFTER .RUN.ING"..>P ."TH
E PROGRAM,ALL VARIABLES,ARRAYS AND".'>Z
."STRINGS GET CLEARED.".2>D .62000.\>N .
SD$"THE ABOVE POINTERS REVERT TO...".G>X
.62000..>. SD.14:SR.09:CC$."01 08 2E 08
2E 08 2E 08":.55010.Q>. SD.15:SR.09:CC$
."00 80 DA 7F 00 80 14 FF":.55010..>. .S
D$"JUST THE PROGRAM..FROM $0801"..? ."T
O $082E"..?. .62000.=?. .SD$"..AND GUESS
WHAT HAPPENS IF YOU".Q?. ."TYPE .NEW.!!
".\?H .62000..?. SD.14:SR.09:CC$."01 08
03 08 03 08 03 08":.55010.F?. SD.15:SR.0
9:CC$."00 80 DA 7F 00 80 14 FF":.55010..
?. .SD$"I PUT 00 00 00 INTO $0800-$0802"
..@. ."..AND THAT'S ALL FOLKS!".9@...620
00:.".":MS$."THAT'S ALL":.63100:..S@PCQQ
.10:AN$.".ANSWER=.".Z@QCA$(1)."V2":.B(32
768).9 .A$(1)."V4"..@TC.I.2.QQ:.A$(I):..
.@UC. $A000,$0400,$0801,3,N,Y,$033C,Y,Y.
L@8G.I.1.QQ:.Q$(I):...@9G. "..WHAT BRAND
OF BASIC HAVE I GOT. 2.0/4.0.%A:G. "..W
HERE DO THE BASIC ROMS START".NA;G. "..W
HERE DOES SCREEN MEMORY START".WA<G. "..
WHERE DO BASIC PROGRAMS START."..A=G. ".
.BASIC PROGRAMS END IN ? ZERO BYTES"..A>
G. "..PEEK(2049)+256*PEEK(2050).=1ST STA
TEMENT NUMBER(Y/N)"..B?G. "..STRINGS ARE
STORED AT TOP OF RAM.(Y/N)".?B@G. "..TH
E CASSETTE BUFFER STARTS WHERE".UBAG. ".
.$002B/$002C=POINTER TO START OF BASIC.(
Y/N)"..BBG. "..$0037/$0038=POINTER TO TO
POF RAM.(Y/N)"..B K.Q.1.QQ:.M$(Q):...B!K
. A 'STANDARD' C-64 HAS BASIC 2.0..B"K.
FROM $A000 TO $BFFF..(C#K. T0 $07FF..JUS
T BEFORE START OF BASIC..BC$K. 2048=$080
0 HAS '00'.]C%K. THE 'LINK' IS 00 00...C
&K. ABOVE GIVES 'LINK' TO 2ND STATEMENT.
.C'K. THEY'RE STORED FROM $7FFF DOWN.CC(
K. DIRTY QUESTION!!.ZC)K. 43/44 IN DECIM
AL..C*K. 55/56 IN DECIMAL..C.O...DXV.H(S
D$,SD)H(SR$,SR)"."CC$".":..:D.V.H(SD$,SD
)H(SR$,SR)CC$".":..KD`.. INITIALIZE.MDA.
BT$.".":.I.1.24:BT$.BT$.".":...DB.PT$.".
........................................
......................"..DC.PT$.PT$."...
...........N............M...............
.============.".;ED.PT$.PT$."...........
....PO..........PO................".REE.
PT$.BT$."...............................
.".PT$."."..EG.ML$."....................
................."..EH.WD.40:CRT.1024:.G
(142)..EI.W2.WD.2:W3.WD.1:W1$.J(D(WD),2)
:.53281,15:.53280,12:."."..FJ.W2$.J(D(W2
),2):W3$.J(D(W3),2).!FT...,F0..63000.BF1
..SD$CL$:.CL$:.CL$.HF3....F...".........
................HIT .RETURN. TO CONTINUE
";..F...A$:.A$.."".63001..F...A$:.A$."".
63002..F....GF|..T.1.5:.PT$MS$;..F}..PT$
" ";..F~..PT$MS$;:...F..:..AG.
.SD$."...................":CL$.".
.".TG..SR
$.".....................................
...".ZG......
> CLICK IMAGE PREVIEW FOR FULL MODAL