BASIC-LIST.1

00000000: 01 08 26 08 04 00 8F 20  20 22 42 41 53 49 43 2D  |..&....  "BASIC-|
00000010: 4C 49 53 54 22 20 5A 45  4B 45 34 20 20 20 20 20  |LIST" ZEKE4     |
00000020: 37 2F 35 2F 38 34 00 4F  08 05 00 8F 20 53 50 45  |7/5/84.O.... SPE|
00000030: 43 49 41 4C 49 5A 45 44  20 46 4F 52 20 44 45 56  |CIALIZED FOR DEV|
00000040: 49 43 45 20 34 20 2D 20  31 2D 32 33 2D 38 37 00  |ICE 4 - 1-23-87.|
00000050: 58 08 06 00 89 36 33 30  00 77 08 07 00 84 31 35  |X....630.w....15|
00000060: 2C 45 31 2C 45 32 24 2C  45 33 24 2C 45 34 24 3A  |,E1,E2$,E3$,E4$:|
00000070: 8B 45 31 B2 30 A7 8E 00  98 08 08 00 99 45 31 3B  |.E1.0........E1;|
00000080: 45 32 24 3B 45 33 24 3B  45 34 24 3A 45 24 B2 22  |E2$;E3$;E4$:E$."|
00000090: 45 52 52 4F 52 22 3A 8E  00 A1 08 0A 00 89 36 33  |ERROR":.......63|
000000A0: 30 00 CA 08 0B 00 8D 31  35 3A 98 31 2C A6 31 32  |0......15:.1,.12|
000000B0: 29 3B 3A 4C 4C B2 31 32  3A 8E 3A 8F 20 4E 45 57  |);:LL.12:.:. NEW|
000000C0: 20 58 52 45 46 20 4C 49  4E 45 00 F7 08 0C 00 8D  | XREF LINE......|
000000D0: 31 35 3A 4C 4C B2 4C 43  AA 31 30 3A 98 31 2C A6  |15:LL.LC.10:.1,.|
000000E0: 4C 4C 29 3B 3A 8E 3A 8F  20 43 4F 4E 54 20 4C 49  |LL);:.:. CONT LI|
000000F0: 53 54 20 4C 49 4E 45 00  11 09 0E 00 8F 20 41 44  |ST LINE...... AD|
00000100: 56 41 4E 43 45 20 54 4F  20 4E 45 57 20 4C 49 4E  |VANCE TO NEW LIN|
00000110: 45 00 46 09 0F 00 98 31  2C 54 24 3B 3A 4C 50 B2  |E.F....1,T$;:LP.|
00000120: 4C 50 AA 31 3A 8B 4C 50  B1 28 44 32 AB 36 29 A7  |LP.1:.LP.(D2.6).|
00000130: 81 4E B2 4C 50 A4 44 32  3A 98 31 2C 54 24 3B 3A  |.N.LP.D2:.1,T$;:|
00000140: 82 3A 4C 50 B2 31 00 4C  09 14 00 8E 00 62 09 15  |.:LP.1.L.....b..|
00000150: 00 8F 20 47 45 54 20 41  20 50 52 4F 47 20 43 48  |.. GET A PROG CH|
00000160: 41 52 00 7E 09 16 00 8B  5A 24 B2 22 22 A7 5A 24  |AR.~....Z$."".Z$|
00000170: B2 C7 28 30 29 3A 50 41  B2 30 3A 89 32 35 00 8B  |..(0):PA.0:.25..|
00000180: 09 18 00 50 41 B2 C6 28  5A 24 29 00 AA 09 19 00  |...PA..(Z$).....|
00000190: A1 23 35 2C 5A 24 3A 8B  53 54 B2 36 34 A7 99 22  |.#5,Z$:.ST.64.."|
000001A0: 2A 2A 45 4F 46 2A 2A 22  3A 8E 00 C7 09 1A 00 8D  |**EOF**":.......|
000001B0: 37 3A 8B 45 24 B3 B1 22  22 A7 99 22 47 45 54 20  |7:.E$.."".."GET |
000001C0: 43 48 41 52 22 3A 80 00  CD 09 1B 00 8E 00 F2 09  |CHAR":..........|
000001D0: 1D 00 8F 20 2D 2D 2D 2D  20 52 45 41 44 20 42 41  |... ---- READ BA|
000001E0: 53 49 43 20 53 54 41 54  45 4D 45 4E 54 53 20 2D  |SIC STATEMENTS -|
000001F0: 2D 2D 00 08 0A 1E 00 81  49 B2 31 A4 35 3A 8D 32  |--......I.1.5:.2|
00000200: 32 3A 82 3A 4C 50 B2 31  00 35 0A 23 00 43 B2 31  |2:.:LP.1.5.#.C.1|
00000210: 3A 52 B2 50 41 3A 8D 32  32 3A 52 B2 52 AA 50 41  |:R.PA:.22:R.R.PA|
00000220: AC 32 35 36 3A 99 22 13  22 3B A3 33 34 29 3B 52  |.256:.".";.34);R|
00000230: 3A 4C 4E B2 52 00 4F 0A  2D 00 98 31 2C C9 28 53  |:LN.R.O.-..1,.(S|
00000240: 24 AA C4 28 52 29 2C 31  30 29 3B 22 20 22 3B 00  |$..(R),10);" ";.|
00000250: 71 0A 32 00 4C 4C B2 31  30 3A 4C 43 B2 30 3A 8B  |q.2.LL.10:LC.0:.|
00000260: 4C 4E B1 33 32 37 36 37  A7 4C 4E B2 33 32 37 36  |LN.32767.LN.3276|
00000270: 37 00 7D 0A 37 00 8D 32  32 3A 89 38 30 00 BF 0A  |7.}.7..22:.80...|
00000280: 3C 00 8F 49 46 28 50 41  3D 30 29 41 4E 44 28 50  |<..IF(PA=0)AND(P|
00000290: 45 45 4B 28 41 2B 31 29  3D 30 29 41 4E 44 28 50  |EEK(A+1)=0)AND(P|
000002A0: 45 45 4B 28 41 2B 32 29  3D 30 29 54 48 45 4E 47  |EEK(A+2)=0)THENG|
000002B0: 4F 53 55 42 32 30 35 3A  47 4F 54 4F 31 37 35 00  |OSUB205:GOTO175.|
000002C0: CD 0A 41 00 8B 50 41 B3  B1 30 A7 38 30 00 D6 0A  |..A..PA..0.80...|
000002D0: 46 00 8D 32 30 35 00 F9  0A 4B 00 8D 31 35 3A 8D  |F..205...K..15:.|
000002E0: 32 32 3A 51 B2 50 41 3A  8D 32 32 3A 8B 28 51 AA  |22:Q.PA:.22:.(Q.|
000002F0: 50 41 29 B2 30 A7 31 37  35 00 05 0B 4C 00 8D 32  |PA).0.175...L..2|
00000300: 32 3A 89 33 35 00 17 0B  50 00 8B 50 41 B2 33 34  |2:.35...P..PA.34|
00000310: A7 43 B2 43 AC AB 31 00  25 0B 55 00 8B 43 B2 AB  |.C.C..1.%.U..C..|
00000320: 31 A7 31 32 30 00 2E 0B  5A 00 8D 32 30 35 00 42  |1.120...Z..205.B|
00000330: 0B 5F 00 4C 4C B2 4C 4C  AA C3 28 41 24 28 50 41  |._.LL.LL..(A$(PA|
00000340: 29 29 00 61 0B 64 00 8B  4C 4C B1 44 31 A7 8D 31  |)).a.d..LL.D1..1|
00000350: 32 3A 4C 4C B2 4C 4C AA  C3 28 41 24 28 50 41 29  |2:LL.LL..(A$(PA)|
00000360: 29 00 76 0B 69 00 8B 50  41 B2 31 36 37 A7 4C 43  |).v.i..PA.167.LC|
00000370: B2 4C 4C AB 31 30 00 85  0B 6E 00 8B 50 41 B2 35  |.LL.10...n..PA.5|
00000380: 38 A7 8D 31 32 00 9C 0B  73 00 98 31 2C 41 24 28  |8..12...s..1,A$(|
00000390: 50 41 29 3B 3A 8D 32 32  3A 89 36 30 00 BC 0B 78  |PA);:.22:.60...x|
000003A0: 00 4E B2 31 3A 8B C8 28  42 24 28 50 41 29 2C 31  |.N.1:..(B$(PA),1|
000003B0: 29 B3 B1 C7 28 39 31 29  A7 31 36 35 00 D9 0B 7D  |)...(91).165...}|
000003C0: 00 8B C6 28 5A 24 29 B2  50 41 A7 4E B2 4E AA 31  |...(Z$).PA.N.N.1|
000003D0: 3A 8D 32 32 3A 89 31 32  35 00 E6 0B 82 00 8B 4E  |:.22:.125......N|
000003E0: B2 31 A7 31 36 35 00 03  0C 87 00 43 24 B2 C4 28  |.1.165.....C$..(|
000003F0: 4E 29 3A 43 24 B2 C9 28  43 24 2C C3 28 43 24 29  |N):C$..(C$,.(C$)|
00000400: AB 31 29 00 2E 0C 8C 00  4C 4C B2 4C 4C AA C3 28  |.1).....LL.LL..(|
00000410: 43 24 29 AA 32 3A 8B 4C  4C B1 44 31 A7 8D 31 32  |C$).2:.LL.D1..12|
00000420: 3A 4C 4C B2 4C 4C AA C3  28 43 24 29 AA 32 00 3F  |:LL.LL..(C$).2.?|
00000430: 0C 91 00 98 31 2C 22 5B  22 43 24 22 A0 22 3B 00  |....1,"["C$".";.|
00000440: 51 0C 96 00 52 B2 C3 28  42 24 28 50 41 29 29 AB  |Q...R..(B$(PA)).|
00000450: 31 00 70 0C 9B 00 4C 4C  B2 4C 4C AA 52 3A 8B 4C  |1.p...LL.LL.R:.L|
00000460: 4C B1 44 31 A7 8D 31 32  3A 4C 4C B2 4C 4C AA 52  |L.D1..12:LL.LL.R|
00000470: 00 8C 0C A0 00 98 31 2C  C9 28 42 24 28 50 41 29  |......1,.(B$(PA)|
00000480: 2C 52 29 3B 3A 8D 32 32  3A 89 36 30 00 BB 0C A5  |,R);:.22:.60....|
00000490: 00 4C 4C B2 4C 4C AA C3  28 42 24 28 50 41 29 29  |.LL.LL..(B$(PA))|
000004A0: 3A 8B 4C 4C B1 44 31 A7  8D 31 32 3A 4C 4C B2 4C  |:.LL.D1..12:LL.L|
000004B0: 4C AA C3 28 42 24 28 50  41 29 29 00 D2 0C AA 00  |L..(B$(PA)).....|
000004C0: 98 31 2C 42 24 28 50 41  29 3B 3A 8D 32 32 3A 89  |.1,B$(PA);:.22:.|
000004D0: 36 30 00 DB 0C AF 00 8D  35 32 30 00 F1 0C B4 00  |60......520.....|
000004E0: 81 4E B2 4C 50 A4 36 36  3A 98 31 2C 54 24 3B 3A  |.N.LP.66:.1,T$;:|
000004F0: 82 00 1E 0D B9 00 81 41  B2 31 A4 32 35 36 3A 98  |.......A.1.256:.|
00000500: 31 2C C7 28 31 37 29 3B  3A 82 3A 8F 20 54 49 4D  |1,.(17);:.:. TIM|
00000510: 49 4E 47 20 46 4F 52 20  52 53 2D 32 33 32 00 2F  |ING FOR RS-232./|
00000520: 0D BE 00 98 31 3A A0 35  3A A0 31 35 3A A0 31 00  |....1:.5:.15:.1.|
00000530: 4D 0D C3 00 99 22 13 11  11 11 11 11 11 11 11 11  |M...."..........|
00000540: 11 11 11 11 11 11 11 11  11 11 11 11 22 00 53 0D  |............".S.|
00000550: C8 00 80 00 5F 0D CD 00  8B 58 52 B3 31 A7 8E 00  |...._....XR.1...|
00000560: 70 0D D2 00 58 B2 50 41  3A 8B 58 B2 33 32 A7 8E  |p...X.PA:.X.32..|
00000570: 00 7E 0D D7 00 8B 4C 54  B3 35 A7 32 33 35 00 8C  |.~....LT.5.235..|
00000580: 0D DC 00 8B 58 B2 30 A7  8D 32 38 30 00 A1 0D E1  |....X.0..280....|
00000590: 00 8B 58 B2 35 38 AF 4C  54 B3 B1 36 A7 8D 32 38  |..X.58.LT..6..28|
000005A0: 30 00 A7 0D E6 00 8E 00  BA 0D EB 00 8B 58 B1 36  |0............X.6|
000005B0: 34 AF 58 B3 39 31 A7 32  39 30 00 CD 0D F0 00 8B  |4.X.91.290......|
000005C0: 58 B1 34 37 AF 58 B3 35  38 A7 32 38 35 00 DE 0D  |X.47.X.58.285...|
000005D0: F5 00 8B 4E 24 B3 B1 22  22 A7 8D 33 31 30 00 ED  |...N$..""..310..|
000005E0: 0D FA 00 8B 58 B3 31 32  38 A7 32 36 35 00 0C 0E  |....X.128.265...|
000005F0: FF 00 8B 58 B3 31 36 38  A7 4C 54 B2 56 54 28 58  |...X.168.LT.VT(X|
00000600: AB 31 32 38 29 3A 4C 56  B2 58 3A 8E 00 1C 0E 04  |.128):LV.X:.....|
00000610: 01 4C 54 B2 32 3A 4C 56  B2 58 3A 8E 00 46 0E 09  |.LT.2:LV.X:..F..|
00000620: 01 8B 58 B2 34 30 A7 50  4C B2 50 4C AA 31 3A 8E  |..X.40.PL.PL.1:.|
00000630: 3A 8F 20 22 50 4C 22 20  49 53 20 50 41 52 45 4E  |:. "PL" IS PAREN|
00000640: 20 44 45 50 54 48 00 5A  0E 0E 01 8B 58 B2 34 31  | DEPTH.Z....X.41|
00000650: A7 50 4C B2 50 4C AB 31  3A 8E 00 63 0E 13 01 89  |.PL.PL.1:..c....|
00000660: 32 32 30 00 85 0E 18 01  50 4C B2 30 3A 4C 56 B2  |220.....PL.0:LV.|
00000670: 31 33 36 3A 4C 54 B2 31  3A 4E 24 B2 22 22 3A 43  |136:LT.1:N$."":C|
00000680: 4C B2 30 3A 8E 00 94 0E  1D 01 8B 43 4C B2 30 A7  |L.0:.......CL.0.|
00000690: 43 4C B2 35 00 A3 0E 22  01 8B 43 4C B2 30 A7 43  |CL.5..."..CL.0.C|
000006A0: 4C B2 32 00 B3 0E 27 01  8B C3 28 4E 24 29 B2 43  |L.2...'...(N$).C|
000006B0: 4C A7 8E 00 C4 0E 2C 01  4E 24 B2 4E 24 AA C7 28  |L.....,.N$.N$..(|
000006C0: 58 29 3A 8E 00 D8 0E 31  01 8F 20 46 49 4C 45 20  |X):....1.. FILE |
000006D0: 54 48 45 20 4E 41 4D 45  00 03 0F 36 01 48 54 B2  |THE NAME...6.HT.|
000006E0: 4C 54 3A 8B 4C 56 B3 B1  31 36 37 A7 33 32 30 3A  |LT:.LV..167.320:|
000006F0: 8F 20 4C 41 53 54 20 56  45 52 42 20 22 54 48 45  |. LAST VERB "THE|
00000700: 4E 22 3F 00 1C 0F 3B 01  4C 54 B2 31 3A 8B 43 4C  |N"?...;.LT.1:.CL|
00000710: B2 35 AF 50 4C B2 30 A7  4C 54 B2 33 00 39 0F 40  |.5.PL.0.LT.3.9.@|
00000720: 01 8B 43 4C B2 35 AF 4C  54 B3 B1 33 A7 4E 24 B2  |..CL.5.LT..3.N$.|
00000730: 22 22 3A 43 4C B2 30 3A  8E 00 47 0F 45 01 8B 43  |"":CL.0:..G.E..C|
00000740: 4C B2 35 A7 33 34 35 00  56 0F 4A 01 8B 50 4C B1  |L.5.345.V.J..PL.|
00000750: 30 A7 4C 54 B2 32 00 70  0F 4F 01 8B 58 B2 33 36  |0.LT.2.p.O..X.36|
00000760: B0 58 B2 33 37 A7 4E 24  B2 4E 24 AA C7 28 58 29  |.X.37.N$.N$..(X)|
00000770: 00 88 0F 54 01 4E 24 B2  4E 24 AA C8 28 53 24 2C  |...T.N$.N$..(S$,|
00000780: 35 AB C3 28 4E 24 29 29  00 A0 0F 59 01 4E 24 B2  |5..(N$))...Y.N$.|
00000790: C8 28 53 24 2C 35 AB C3  28 4E 24 29 29 AA 4E 24  |.(S$,5..(N$)).N$|
000007A0: 00 C4 0F 5E 01 8F 20 49  4E 53 45 52 54 20 49 4E  |...^.. INSERT IN|
000007B0: 20 50 4C 41 43 45 20 41  4E 44 20 41 44 44 20 4C  | PLACE AND ADD L|
000007C0: 49 4E 45 23 00 D7 0F 63  01 8B 43 54 B2 30 A7 59  |INE#...c..CT.0.Y|
000007D0: B2 31 3A 89 34 30 35 00  F4 0F 68 01 4C B2 31 3A  |.1:.405...h.L.1:|
000007E0: 52 B2 43 54 3A 8F 20 42  49 4E 41 52 59 20 53 45  |R.CT:. BINARY SE|
000007F0: 41 52 43 48 00 05 10 6D  01 4D B2 B5 28 28 4C AA  |ARCH...m.M..((L.|
00000800: 52 29 AD 32 29 00 2A 10  72 01 8B 4E 24 B2 C8 28  |R).2).*.r..N$..(|
00000810: 4E 4D 24 28 4F 44 28 4D  29 29 2C 35 29 A7 59 B2  |NM$(OD(M)),5).Y.|
00000820: 4F 44 28 4D 29 3A 89 34  35 30 00 48 10 77 01 8B  |OD(M):.450.H.w..|
00000830: 4E 24 B3 C8 28 4E 4D 24  28 4F 44 28 4D 29 29 2C  |N$..(NM$(OD(M)),|
00000840: 35 29 A7 52 B2 4D AB 31  00 66 10 7C 01 8B 4E 24  |5).R.M.1.f.|..N$|
00000850: B1 C8 28 4E 4D 24 28 4F  44 28 4D 29 29 2C 35 29  |..(NM$(OD(M)),5)|
00000860: A7 4C B2 4D AA 31 00 77  10 81 01 8B 4C B2 4D B0  |.L.M.1.w....L.M.|
00000870: 52 B2 4D A7 33 39 35 00  80 10 86 01 89 33 36 35  |R.M.395......365|
00000880: 00 A1 10 8B 01 59 B2 28  4C AA 52 AA 31 29 AD 32  |.....Y.(L.R.1).2|
00000890: 3A 8F 20 41 44 44 20 41  20 4E 45 57 20 4E 41 4D  |:. ADD A NEW NAM|
000008A0: 45 00 C8 10 90 01 8B 43  54 B2 33 30 30 A7 58 52  |E......CT.300.XR|
000008B0: B2 AB 31 3A 8E 3A 8F 20  4E 41 4D 45 20 54 41 42  |..1:.:. NAME TAB|
000008C0: 4C 45 20 46 55 4C 4C 21  00 D9 10 95 01 4E 4D 24  |LE FULL!.....NM$|
000008D0: 28 43 54 AA 31 29 B2 4E  24 00 E7 10 9A 01 8B 59  |(CT.1).N$......Y|
000008E0: B1 43 54 A7 34 33 30 00  F6 10 9F 01 81 49 B2 43  |.CT.430......I.C|
000008F0: 54 A4 59 A9 AB 31 00 08  11 A4 01 4F 44 28 49 AA  |T.Y..1.....OD(I.|
00000900: 31 29 B2 4F 44 28 49 29  00 0E 11 A9 01 82 00 1A  |1).OD(I)........|
00000910: 11 AE 01 43 54 B2 43 54  AA 31 00 27 11 B3 01 4F  |...CT.CT.1.'...O|
00000920: 44 28 59 29 B2 43 54 00  30 11 B8 01 59 B2 43 54  |D(Y).CT.0...Y.CT|
00000930: 00 44 11 BD 01 53 43 25  28 43 54 29 B2 4E 58 3A  |.D...SC%(CT).NX:|
00000940: 89 34 35 35 00 57 11 C2  01 4E 42 25 28 45 43 25  |.455.W...NB%(EC%|
00000950: 28 59 29 29 B2 4E 58 00  6F 11 C7 01 49 B2 31 3A  |(Y)).NX.o...I.1:|
00000960: 8B 4C 54 B2 31 AF 50 4C  B2 30 A7 49 B2 AB 31 00  |.LT.1.PL.0.I..1.|
00000970: AE 11 CC 01 8B 43 4C B2  35 AF 4C 56 B2 31 34 31  |.....CL.5.LV.141|
00000980: A7 49 B2 AB 31 3A 8B C3  28 4E 4D 24 28 59 29 29  |.I..1:..(NM$(Y))|
00000990: B2 35 A7 4E 4D 24 28 59  29 B2 4E 4D 24 28 59 29  |.5.NM$(Y).NM$(Y)|
000009A0: AA 22 2A 22 3A 8F 20 22  47 4F 53 55 42 22 00 F2  |."*":. "GOSUB"..|
000009B0: 11 D1 01 4E 42 25 28 4E  58 29 B2 4C 4E AC 49 3A  |...NB%(NX).LN.I:|
000009C0: 4E 58 B2 4E 58 AA 31 3A  4E 42 25 28 4E 58 29 B2  |NX.NX.1:NB%(NX).|
000009D0: 30 3A 45 43 25 28 59 29  B2 4E 58 3A 4E 58 B2 4E  |0:EC%(Y).NX:NX.N|
000009E0: 58 AA 31 3A 8B 4E 58 B2  36 30 30 30 A7 58 52 B2  |X.1:.NX.6000.XR.|
000009F0: AB 32 00 10 12 D6 01 8B  4C 56 B2 31 33 34 AF 50  |.2......LV.134.P|
00000A00: 4C B2 30 A7 8D 34 38 30  3A 8F 20 22 44 49 4D 22  |L.0..480:. "DIM"|
00000A10: 00 27 12 DB 01 4E 24 B2  22 22 3A 43 4C B2 30 3A  |.'...N$."":CL.0:|
00000A20: 4C 54 B2 48 54 3A 8E 00  46 12 E0 01 49 B2 41 3A  |LT.HT:..F...I.A:|
00000A30: 8B C2 28 49 29 B2 33 36  B0 C2 28 49 29 B2 33 37  |..(I).36..(I).37|
00000A40: A7 49 B2 49 AA 31 00 56  12 E5 01 8B C2 28 49 29  |.I.I.1.V.....(I)|
00000A50: B3 B1 34 30 A7 8E 00 70  12 EA 01 4E 4D 24 28 59  |..40...p...NM$(Y|
00000A60: 29 B2 4E 4D 24 28 59 29  AA C7 28 C2 28 49 29 29  |).NM$(Y)..(.(I))|
00000A70: 00 85 12 EF 01 8B C2 28  49 29 B2 34 30 A7 50 4C  |.......(I).40.PL|
00000A80: B2 50 4C AA 31 00 9A 12  F4 01 8B C2 28 49 29 B2  |.PL.1.......(I).|
00000A90: 34 31 A7 50 4C B2 50 4C  AB 31 00 A6 12 F9 01 8B  |41.PL.PL.1......|
00000AA0: 50 4C B2 30 A7 8E 00 B5  12 FE 01 49 B2 49 AA 31  |PL.0.......I.I.1|
00000AB0: 3A 89 34 39 30 00 CA 12  03 02 8F 20 50 52 49 4E  |:.490...... PRIN|
00000AC0: 54 20 54 48 45 20 58 52  45 46 00 D6 12 08 02 8B  |T THE XREF......|
00000AD0: 58 52 B2 30 A7 8E 00 FC  12 0D 02 8B 4C 50 B1 28  |XR.0........LP.(|
00000AE0: 44 32 AB 31 30 29 A7 81  49 B2 4C 50 A4 44 32 3A  |D2.10)..I.LP.D2:|
00000AF0: 98 31 2C 54 24 3A 82 3A  4C 50 B2 31 00 2F 13 12  |.1,T$:.:LP.1./..|
00000B00: 02 58 B2 30 3A 98 31 2C  54 24 3B 54 24 3B A6 31  |.X.0:.1,T$;T$;.1|
00000B10: 32 29 22 43 52 4F 53 53  2D 52 45 46 45 52 45 4E  |2)"CROSS-REFEREN|
00000B20: 43 45 22 3B 54 24 3B 3A  4C 50 B2 4C 50 AA 33 00  |CE";T$;:LP.LP.3.|
00000B30: 6B 13 17 02 8B 58 52 B2  AB 31 A7 98 31 2C 22 2A  |k....XR..1..1,"*|
00000B40: 2A 57 41 52 4E 49 4E 47  2A 2A 20 4E 41 4D 45 20  |*WARNING** NAME |
00000B50: 54 41 42 4C 45 20 4F 56  45 52 46 4C 4F 57 22 3B  |TABLE OVERFLOW";|
00000B60: 54 24 3B 3A 4C 50 B2 4C  50 AA 31 00 AC 13 1C 02  |T$;:LP.LP.1.....|
00000B70: 8B 58 52 B2 AB 32 A7 98  31 2C 22 2A 2A 57 41 52  |.XR..2..1,"**WAR|
00000B80: 4E 49 4E 47 2A 2A 20 52  45 46 45 52 45 4E 43 45  |NING** REFERENCE|
00000B90: 20 54 41 42 4C 45 20 4F  56 45 52 46 4C 4F 57 22  | TABLE OVERFLOW"|
00000BA0: 3B 54 24 3B 3A 4C 50 B2  4C 50 AA 31 00 BE 13 21  |;T$;:LP.LP.1...!|
00000BB0: 02 58 B2 58 AA 31 3A 8B  58 B1 43 54 A7 8E 00 CA  |.X.X.1:.X.CT....|
00000BC0: 13 26 02 59 B2 4F 44 28  58 29 00 ED 13 2B 02 8B  |.&.Y.OD(X)...+..|
00000BD0: C3 28 4E 4D 24 28 59 29  29 B2 35 A7 4E 4D 24 28  |.(NM$(Y)).5.NM$(|
00000BE0: 59 29 B2 4E 4D 24 28 59  29 AA 22 20 22 00 12 14  |Y).NM$(Y)." "...|
00000BF0: 30 02 49 B2 C3 28 4E 4D  24 28 59 29 29 3A 4D B2  |0.I..(NM$(Y)):M.|
00000C00: B5 28 49 AD 36 29 AC 36  3A 49 B2 36 AB 28 49 AB  |.(I.6).6:I.6.(I.|
00000C10: 4D 29 00 37 14 35 02 8B  49 B3 B1 36 A7 81 4D B2  |M).7.5..I..6..M.|
00000C20: 31 A4 49 3A 4E 4D 24 28  59 29 B2 4E 4D 24 28 59  |1.I:NM$(Y).NM$(Y|
00000C30: 29 AA 22 20 22 3A 82 00  5C 14 3A 02 98 31 2C A6  |)." ":..\.:..1,.|
00000C40: 36 29 4E 4D 24 28 59 29  3B 3A 4C 4C B2 C3 28 4E  |6)NM$(Y);:LL..(N|
00000C50: 4D 24 28 59 29 29 AA 36  3A 4E B2 30 00 69 14 3F  |M$(Y)).6:N.0.i.?|
00000C60: 02 59 B2 53 43 25 28 59  29 00 88 14 44 02 4E B2  |.Y.SC%(Y)...D.N.|
00000C70: 4E AA 31 3A 8B 28 4C 4C  AA 4E AC 36 29 B1 44 31  |N.1:.(LL.N.6).D1|
00000C80: A7 4E B2 31 3A 8D 31 31  00 B5 14 49 02 4E 24 B2  |.N.1:.11...I.N$.|
00000C90: 22 20 22 3A 8B 4E 42 25  28 59 29 B3 30 A7 4E 24  |" ":.NB%(Y).0.N$|
00000CA0: B2 22 2A 22 3A 4E 42 25  28 59 29 B2 4E 42 25 28  |."*":NB%(Y).NB%(|
00000CB0: 59 29 AC AB 31 00 D4 14  4E 02 8B 4E 42 25 28 59  |Y)..1...N..NB%(Y|
00000CC0: 29 B2 33 32 37 36 37 A7  4E 42 25 28 59 29 B2 39  |).32767.NB%(Y).9|
00000CD0: 39 39 39 39 00 F9 14 53  02 43 24 B2 C4 28 4E 42  |9999...S.C$..(NB|
00000CE0: 25 28 59 29 29 3A 4E 24  B2 4E 24 AA C9 28 43 24  |%(Y)):N$.N$..(C$|
00000CF0: 2C C3 28 43 24 29 AB 31  29 00 0E 15 58 02 98 31  |,.(C$).1)...X..1|
00000D00: 2C A6 36 AB C3 28 4E 24  29 29 3B 4E 24 3B 00 27  |,.6..(N$));N$;.'|
00000D10: 15 5D 02 59 B2 4E 42 25  28 59 AA 31 29 3A 8B 59  |.].Y.NB%(Y.1):.Y|
00000D20: B3 B1 30 A7 35 38 30 00  34 15 62 02 8D 31 35 3A  |..0.580.4.b..15:|
00000D30: 89 35 34 35 00 3D 15 76  02 9F 31 2C 34 00 56 15  |.545.=.v..1,4.V.|
00000D40: 9C 02 58 B2 30 3A 41 B2  30 3A 59 B2 30 3A 49 B2  |..X.0:A.0:Y.0:I.|
00000D50: 30 3A 50 41 B2 30 00 64  15 9E 02 98 31 2C C7 28  |0:PA.0.d....1,.(|
00000D60: 31 33 29 3B 00 9D 15 A3  02 86 56 54 28 34 30 29  |13);......VT(40)|
00000D70: 2C 4E 4D 24 28 33 30 30  29 2C 4F 44 28 33 30 30  |,NM$(300),OD(300|
00000D80: 29 2C 4E 42 25 28 36 30  30 30 29 2C 53 43 25 28  |),NB%(6000),SC%(|
00000D90: 33 30 30 29 2C 45 43 25  28 33 30 30 29 00 B2 15  |300),EC%(300)...|
00000DA0: A8 02 81 58 B2 30 A4 33  39 3A 87 56 54 28 58 29  |...X.0.39:.VT(X)|
00000DB0: 3A 82 00 D2 15 AD 02 44  31 B2 37 36 3A 8F 20 43  |:......D1.76:. C|
00000DC0: 48 41 52 41 43 54 45 52  53 20 50 45 52 20 4C 49  |HARACTERS PER LI|
00000DD0: 4E 45 00 ED 15 B2 02 44  32 B2 36 36 3A 8F 20 4C  |NE.....D2.66:. L|
00000DE0: 49 4E 45 53 20 50 45 52  20 50 41 47 45 00 31 16  |INES PER PAGE.1.|
00000DF0: B7 02 8F 20 54 24 3D 43  52 2B 4C 46 2B 54 49 4D  |... T$=CR+LF+TIM|
00000E00: 49 4E 47 28 49 46 20 52  45 51 27 44 29 20 20 20  |ING(IF REQ'D)   |
00000E10: 20 20 20 20 20 20 20 20  4D 41 59 20 56 41 52 59  |        MAY VARY|
00000E20: 20 46 4F 52 20 59 4F 55  52 20 50 52 49 4E 54 45  | FOR YOUR PRINTE|
00000E30: 52 00 3E 16 BC 02 54 24  B2 C7 28 31 33 29 00 56  |R.>...T$..(13).V|
00000E40: 16 C1 02 53 24 B2 22 20  20 20 20 20 20 20 20 20  |...S$."         |
00000E50: 22 3A 8D 32 38 30 00 71  16 C6 02 99 22 93 22 A6  |":.280.q....".".|
00000E60: 31 35 29 22 42 41 53 49  43 2D 4C 49 53 54 11 11  |15)"BASIC-LIST..|
00000E70: 22 00 8C 16 CB 02 99 22  11 11 1D 1D 12 20 44 49  |"......"..... DI|
00000E80: 53 4B 20 56 45 52 53 49  4F 4E 20 22 00 B3 16 E4  |SK VERSION "....|
00000E90: 02 99 22 11 11 1D 1D 43  52 4F 53 53 2D 52 45 46  |.."....CROSS-REF|
00000EA0: 45 52 45 4E 43 45 3F 28  12 59 92 2F 12 4E 92 29  |ERENCE?(.Y./.N.)|
00000EB0: 2D 22 3B 00 C6 16 E9 02  A1 43 24 3A 8B 43 24 B2  |-";......C$:.C$.|
00000EC0: 22 22 A7 37 34 35 00 DC  16 EE 02 8B 43 24 B2 22  |"".745......C$."|
00000ED0: 59 22 A7 58 52 B2 31 3A  89 37 36 30 00 F2 16 F3  |Y".XR.1:.760....|
00000EE0: 02 58 52 B2 30 3A 8B 43  24 B3 B1 22 4E 22 A7 37  |.XR.0:.C$.."N".7|
00000EF0: 34 30 00 FA 16 F8 02 99  43 24 00 1C 17 02 03 99  |40......C$......|
00000F00: 22 11 11 20 20 50 52 4F  47 52 41 4D 20 4E 41 4D  |"..  PROGRAM NAM|
00000F10: 45 3F 20 22 3B 3A 4E 4D  24 B2 22 22 00 2F 17 07  |E? ";:NM$.""./..|
00000F20: 03 A1 43 24 3A 8B 43 24  B2 22 22 A7 37 37 35 00  |..C$:.C$."".775.|
00000F30: 41 17 0C 03 8B 43 24 B2  C7 28 31 33 29 A7 37 39  |A....C$..(13).79|
00000F40: 30 00 5A 17 11 03 99 43  24 3B 3A 4E 4D 24 B2 4E  |0.Z....C$;:NM$.N|
00000F50: 4D 24 AA 43 24 3A 89 37  37 35 00 83 17 16 03 9F  |M$.C$:.775......|
00000F60: 31 35 2C 38 2C 31 35 2C  22 49 22 3A 8D 37 3A 8B  |15,8,15,"I":.7:.|
00000F70: 45 24 B3 B1 22 22 A7 99  22 4F 50 45 4E 20 31 35  |E$.."".."OPEN 15|
00000F80: 22 3A 80 00 B5 17 20 03  9F 35 2C 38 2C 35 2C 22  |":.... ..5,8,5,"|
00000F90: 30 3A 22 AA 4E 4D 24 AA  22 2C 50 2C 52 22 3A 8D  |0:".NM$.",P,R":.|
00000FA0: 37 3A 8B 45 24 B3 B1 22  22 A7 99 22 4F 50 45 4E  |7:.E$.."".."OPEN|
00000FB0: 20 35 22 3A 80 00 DB 17  2A 03 A1 23 35 2C 5A 24  | 5":....*..#5,Z$|
00000FC0: 3A 8D 37 3A 8B 45 24 B3  B1 22 22 A7 99 22 46 49  |:.7:.E$.."".."FI|
00000FD0: 52 53 54 20 52 45 41 44  22 3A 80 00 FC 17 48 03  |RST READ":....H.|
00000FE0: 8F 20 2D 2D 2D 2D 20 53  45 54 20 55 50 20 27 41  |. ---- SET UP 'A|
00000FF0: 27 20 54 41 42 4C 45 20  2D 2D 2D 2D 00 1B 18 4D  |' TABLE ----...M|
00001000: 03 86 41 24 28 32 35 35  29 2C 42 24 28 32 35 35  |..A$(255),B$(255|
00001010: 29 3A 81 52 B2 31 20 A4  20 33 31 00 45 18 52 03  |):.R.1 . 31.E.R.|
00001020: 41 24 28 52 29 B2 22 43  48 52 24 28 22 AA C9 28  |A$(R)."CHR$("..(|
00001030: C4 28 52 29 2C C3 28 C4  28 52 29 29 AB 31 29 AA  |.(R),.(.(R)).1).|
00001040: 22 29 22 3A 82 00 52 18  57 03 81 52 B2 33 32 A4  |")":..R.W..R.32.|
00001050: 39 30 00 63 18 5C 03 41  24 28 52 29 B2 C7 28 52  |90.c.\.A$(R)..(R|
00001060: 29 3A 82 00 71 18 61 03  81 52 B2 39 31 A4 31 32  |):..q.a..R.91.12|
00001070: 37 00 9B 18 66 03 41 24  28 52 29 B2 22 43 48 52  |7...f.A$(R)."CHR|
00001080: 24 28 22 AA C9 28 C4 28  52 29 2C C3 28 C4 28 52  |$("..(.(R),.(.(R|
00001090: 29 29 AB 31 29 AA 22 29  22 3A 82 00 AA 18 6B 03  |)).1).")":....k.|
000010A0: 81 52 B2 31 32 38 A4 32  30 32 00 B7 18 70 03 87  |.R.128.202...p..|
000010B0: 41 24 28 52 29 3A 82 00  C6 18 75 03 81 52 B2 32  |A$(R):....u..R.2|
000010C0: 30 33 A4 32 35 35 00 F0  18 7A 03 41 24 28 52 29  |03.255...z.A$(R)|
000010D0: B2 22 43 48 52 24 28 22  AA C9 28 C4 28 52 29 2C  |."CHR$("..(.(R),|
000010E0: C3 28 C4 28 52 29 29 AB  31 29 AA 22 29 22 3A 82  |.(.(R)).1).")":.|
000010F0: 00 11 19 7F 03 8F 20 2D  2D 2D 2D 20 53 45 54 20  |...... ---- SET |
00001100: 55 50 20 27 42 27 20 54  41 42 4C 45 20 2D 2D 2D  |UP 'B' TABLE ---|
00001110: 2D 00 23 19 84 03 87 58  3A 8B 58 B2 39 39 39 A7  |-.#....X:.X.999.|
00001120: 39 31 30 00 45 19 89 03  87 58 24 3A 42 24 28 58  |910.E....X$:B$(X|
00001130: 29 B2 C7 28 39 31 29 AA  58 24 AA C7 28 39 33 29  |)..(91).X$..(93)|
00001140: 3A 89 39 30 30 00 61 19  8E 03 81 52 B2 33 32 A4  |:.900.a....R.32.|
00001150: 31 32 38 3A 42 24 28 52  29 B2 41 24 28 52 29 3A  |128:B$(R).A$(R):|
00001160: 82 00 73 19 93 03 87 58  3A 8B 58 B2 39 39 39 A7  |..s....X:.X.999.|
00001170: 39 32 35 00 95 19 98 03  87 58 24 3A 42 24 28 58  |925......X$:B$(X|
00001180: 29 B2 C7 28 39 31 29 AA  58 24 AA C7 28 39 33 29  |)..(91).X$..(93)|
00001190: 3A 89 39 31 35 00 CA 19  9D 03 81 52 B2 31 36 30  |:.915......R.160|
000011A0: A4 32 35 35 3A 42 24 28  52 29 B2 22 43 48 52 24  |.255:B$(R)."CHR$|
000011B0: 28 22 AA C9 28 C4 28 52  29 2C C3 28 C4 28 52 29  |("..(.(R),.(.(R)|
000011C0: 29 AB 31 29 AA 22 29 22  3A 82 00 D2 19 A2 03 89  |).1).")":.......|
000011D0: 33 30 00 1B 1A A7 03 8F  20 56 45 52 42 20 54 59  |30...... VERB TY|
000011E0: 50 45 20 54 41 42 4C 45  2D 20 31 3D 56 41 4C 55  |PE TABLE- 1=VALU|
000011F0: 45 2D 53 45 54 54 49 4E  47 20 20 20 20 32 3D 56  |E-SETTING    2=V|
00001200: 41 4C 55 45 2D 55 53 49  4E 47 20 20 33 3D 4C 49  |ALUE-USING  3=LI|
00001210: 4E 45 23 20 46 4F 4C 4C  4F 57 53 00 5E 1A AC 03  |NE# FOLLOWS.^...|
00001220: 8F 20 34 3D 53 50 45 43  49 41 4C 20 35 3D 49 47  |. 4=SPECIAL 5=IG|
00001230: 4E 4F 52 45 20 55 4E 54  49 4C 20 22 3A 22 20 20  |NORE UNTIL ":"  |
00001240: 20 20 20 20 20 20 36 3D  49 47 4E 4F 52 45 20 55  |      6=IGNORE U|
00001250: 4E 54 49 4C 20 4E 45 58  54 20 4C 49 4E 45 00 A3  |NTIL NEXT LINE..|
00001260: 1A B1 03 83 35 2C 31 2C  32 2C 36 2C 31 2C 31 2C  |....5,1,2,6,1,1,|
00001270: 34 2C 31 2C 31 2C 33 2C  33 2C 32 2C 35 2C 33 2C  |4,1,1,3,3,2,5,3,|
00001280: 35 2C 36 2C 35 2C 32 2C  32 2C 32 2C 32 2C 32 2C  |5,6,5,2,2,2,2,2,|
00001290: 32 2C 32 2C 32 2C 32 2C  35 2C 35 2C 35 2C 32 2C  |2,2,2,2,5,5,5,2,|
000012A0: 32 2C 32 00 DE 1A B6 03  83 32 2C 31 2C 35 2C 32  |2,2......2,1,5,2|
000012B0: 2C 32 2C 32 2C 32 2C 33  3A 8F 20 56 45 52 42 53  |,2,2,2,3:. VERBS|
000012C0: 20 31 32 38 20 54 4F 20  31 36 37 2C 20 41 4C 4C  | 128 TO 167, ALL|
000012D0: 20 4F 54 48 45 52 53 20  54 59 50 45 20 32 00 23  | OTHERS TYPE 2.#|
000012E0: 1B BB 03 83 45 4E 44 2C  46 4F 52 2C 4E 45 58 54  |....END,FOR,NEXT|
000012F0: 2C 44 41 54 41 2C 49 4E  50 55 54 23 2C 49 4E 50  |,DATA,INPUT#,INP|
00001300: 55 54 2C 44 49 4D 2C 52  45 41 44 2C 4C 45 54 2C  |UT,DIM,READ,LET,|
00001310: 47 4F 54 4F 2C 52 55 4E  2C 49 46 2C 52 45 53 54  |GOTO,RUN,IF,REST|
00001320: 4F 52 45 00 60 1B C0 03  83 47 4F 53 55 42 2C 52  |ORE.`....GOSUB,R|
00001330: 45 54 55 52 4E 2C 52 45  4D 2C 53 54 4F 50 2C 4F  |ETURN,REM,STOP,O|
00001340: 4E 2C 57 41 49 54 2C 4C  4F 41 44 2C 53 41 56 45  |N,WAIT,LOAD,SAVE|
00001350: 2C 56 45 52 49 46 59 2C  44 45 46 2C 50 4F 4B 45  |,VERIFY,DEF,POKE|
00001360: 00 AB 1B C5 03 83 50 52  49 4E 54 23 2C 50 52 49  |......PRINT#,PRI|
00001370: 4E 54 2C 43 4F 4E 54 2C  4C 49 53 54 2C 43 4C 52  |NT,CONT,LIST,CLR|
00001380: 2C 43 4D 44 2C 53 59 53  2C 4F 50 45 4E 2C 43 4C  |,CMD,SYS,OPEN,CL|
00001390: 4F 53 45 2C 47 45 54 2C  4E 45 57 2C 54 41 42 28  |OSE,GET,NEW,TAB(|
000013A0: 2C 54 4F 2C 46 4E 2C 53  50 43 28 00 F5 1B CA 03  |,TO,FN,SPC(.....|
000013B0: 83 54 48 45 4E 2C 4E 4F  54 2C 53 54 45 50 2C 2B  |.THEN,NOT,STEP,+|
000013C0: 2C 2D 2C 2A 2C 2F 2C 5E  2C 41 4E 44 2C 4F 52 2C  |,-,*,/,^,AND,OR,|
000013D0: 3E 2C 3D 2C 3C 2C 53 47  4E 2C 49 4E 54 2C 41 42  |>,=,<,SGN,INT,AB|
000013E0: 53 2C 55 53 52 2C 46 52  45 2C 50 4F 53 2C 53 51  |S,USR,FRE,POS,SQ|
000013F0: 52 2C 52 4E 44 00 3F 1C  CF 03 83 4C 4F 47 2C 45  |R,RND.?....LOG,E|
00001400: 58 50 2C 43 4F 53 2C 53  49 4E 2C 54 41 4E 2C 41  |XP,COS,SIN,TAN,A|
00001410: 54 4E 2C 50 45 45 4B 2C  4C 45 4E 2C 53 54 52 24  |TN,PEEK,LEN,STR$|
00001420: 2C 56 41 4C 2C 41 53 43  2C 43 48 52 24 2C 4C 45  |,VAL,ASC,CHR$,LE|
00001430: 46 54 24 2C 52 49 47 48  54 24 2C 4D 49 44 24 00  |FT$,RIGHT$,MID$.|
00001440: 7A 1C D4 03 83 35 2C 57  48 49 54 45 2C 31 37 2C  |z....5,WHITE,17,|
00001450: 44 4F 57 4E 2C 31 38 2C  52 56 53 20 4F 4E 2C 31  |DOWN,18,RVS ON,1|
00001460: 39 2C 48 4F 4D 45 2C 32  30 2C 44 45 4C 45 54 45  |9,HOME,20,DELETE|
00001470: 2C 32 38 2C 52 45 44 2C  32 39 00 9A 1C D9 03 83  |,28,RED,29......|
00001480: 52 49 47 48 54 2C 33 30  2C 47 52 45 45 4E 2C 33  |RIGHT,30,GREEN,3|
00001490: 31 2C 42 4C 55 45 2C 39  39 39 00 E3 1C DE 03 83  |1,BLUE,999......|
000014A0: 20 31 32 39 2C 4F 52 41  4E 47 45 2C 31 33 33 2C  | 129,ORANGE,133,|
000014B0: 46 31 2C 31 33 34 2C 46  33 2C 31 33 35 2C 46 35  |F1,134,F3,135,F5|
000014C0: 2C 31 33 36 2C 46 37 2C  31 33 37 2C 46 32 2C 31  |,136,F7,137,F2,1|
000014D0: 33 38 2C 46 34 2C 31 33  39 2C 46 36 2C 31 34 30  |38,F4,139,F6,140|
000014E0: 2C 46 38 00 18 1D E3 03  83 31 34 34 2C 42 4C 41  |,F8......144,BLA|
000014F0: 43 4B 2C 31 34 35 2C 55  50 2C 31 34 36 2C 52 56  |CK,145,UP,146,RV|
00001500: 53 20 4F 46 46 2C 31 34  37 2C 43 4C 52 2C 31 34  |S OFF,147,CLR,14|
00001510: 38 2C 49 4E 53 45 52 54  00 59 1D E8 03 83 31 34  |8,INSERT.Y....14|
00001520: 39 2C 42 52 4F 57 4E 2C  31 35 30 2C 4C 54 20 52  |9,BROWN,150,LT R|
00001530: 45 44 2C 31 35 31 2C 47  52 45 59 20 31 2C 31 35  |ED,151,GREY 1,15|
00001540: 32 2C 47 52 45 59 20 32  2C 31 35 33 2C 4C 54 20  |2,GREY 2,153,LT |
00001550: 47 52 45 45 4E 2C 31 35  34 00 99 1D ED 03 83 4C  |GREEN,154......L|
00001560: 54 20 42 4C 55 45 2C 31  35 35 2C 47 52 45 59 20  |T BLUE,155,GREY |
00001570: 33 2C 31 35 36 2C 50 55  52 50 4C 45 2C 31 35 37  |3,156,PURPLE,157|
00001580: 2C 4C 45 46 54 2C 31 35  38 2C 59 45 4C 4C 4F 57  |,LEFT,158,YELLOW|
00001590: 2C 31 35 39 2C 43 59 41  4E 00 A2 1D F2 03 83 39  |,159,CYAN......9|
000015A0: 39 39 00 00 00                                    |99...           |

..&....  "BASIC-LIST" ZEKE4     7/5/84.O
.... SPECIALIZED FOR DEVICE 4 - 1-23-87.
X....630.W....15,E1,E2$,E3$,E4$:.E1.0...
.....E1;E2$;E3$;E4$:E$."ERROR":.......63
0.J....15:.1,.12);:LL.12:.:. NEW XREF LI
NE......15:LL.LC.10:.1,.LL);:.:. CONT LI
ST LINE...... ADVANCE TO NEW LINE.F....1
,T$;:LP.LP.1:.LP.(D2.6)..N.LP.D2:.1,T$;:
.:LP.1.L.....B.... GET A PROG CHAR.~....
Z$."".Z$.G(0):PA.0:.25.....PA.F(Z$).....
.#5,Z$:.ST.64.."**EOF**":..G....7:.E$.."
".."GET CHAR":..M.......... ---- READ BA
SIC STATEMENTS ---......I.1.5:.22:.:LP.1
.5.#.C.1:R.PA:.22:R.R.PA.256:.".";.34);R
:LN.R.O.-..1,I(S$.D(R),10);" ";.Q.2.LL.1
0:LC.0:.LN.32767.LN.32767.}.7..22:.80...
<..IF(PA=0)AND(PEEK(A+1)=0)AND(PEEK(A+2)
=0)THENGOSUB205:GOTO175.M.A..PA..0.80.V.
F..205...K..15:.22:Q.PA:.22:.(Q.PA).0.17
5...L..22:.35...P..PA.34.C.C..1.%.U..C..
1.120...Z..205.B._.LL.LL.C(A$(PA)).A.D..
LL.D1..12:LL.LL.C(A$(PA)).V.I..PA.167.LC
.LL.10...N..PA.58..12...S..1,A$(PA);:.22
:.60...X.N.1:.H(B$(PA),1)..G(91).165.Y.}
..F(Z$).PA.N.N.1:.22:.125......N.1.165..
...C$.D(N):C$.I(C$,C(C$).1).....LL.LL.C(
C$).2:.LL.D1..12:LL.LL.C(C$).2.?....1,"[
"C$" ";.Q...R.C(B$(PA)).1.P...LL.LL.R:.L
L.D1..12:LL.LL.R... ..1,I(B$(PA),R);:.22
:.60.....LL.LL.C(B$(PA)):.LL.D1..12:LL.L
L.C(B$(PA)).R....1,B$(PA);:.22:.60......
520......N.LP.66:.1,T$;:.......A.1.256:.
1,G(17);:.:. TIMING FOR RS-232./....1: 5
: 15: 1.M.C.."......................".S.
H..._.M..XR.1...P.R.X.PA:.X.32...~.W..LT
.5.235......X.0..280......X.58.LT..6..28
0............X.64.X.91.290.M....X.47.X.5
8.285......N$..""..310......X.128.265...
...X.168.LT.VT(X.128):LV.X:......LT.2:LV
.X:..F....X.40.PL.PL.1:.:. "PL" IS PAREN
 DEPTH.Z....X.41.PL.PL.1:..C....220.....
PL.0:LV.136:LT.1:N$."":CL.0:.......CL.0.
CL.5..."..CL.0.CL.2...'..C(N$).CL...D.,.
N$.N$.G(X):..X.1.. FILE THE NAME...6.HT.
LT:.LV..167.320:. LAST VERB "THEN"?...;.
LT.1:.CL.5.PL.0.LT.3.9.@..CL.5.LT..3.N$.
"":CL.0:..G.E..CL.5.345.V.J..PL.0.LT.2.P
.O..X.36.X.37.N$.N$.G(X)...T.N$.N$.H(S$,
5.C(N$)). .Y.N$.H(S$,5.C(N$)).N$.D.^.. I
NSERT IN PLACE AND ADD LINE#.W.C..CT.0.Y
.1:.405...H.L.1:R.CT:. BINARY SEARCH...M
.M..((L.R).2).*.R..N$.H(NM$(OD(M)),5).Y.
OD(M):.450.H.W..N$.H(NM$(OD(M)),5).R.M.1
.F.|..N$.H(NM$(OD(M)),5).L.M.1.W....L.M.
R.M.395......365.....Y.(L.R.1).2:. ADD A
 NEW NAME.H....CT.300.XR..1:.:. NAME TAB
LE FULL!.Y...NM$(CT.1).N$......Y.CT.430.
.....I.CT.Y..1.....OD(I.1).OD(I)........
...CT.CT.1.'...OD(Y).CT.0...Y.CT.D...SC%
(CT).NX:.455.W.B.NB%(EC%(Y)).NX.O.G.I.1:
.LT.1.PL.0.I..1...L..CL.5.LV.141.I..1:.C
(NM$(Y)).5.NM$(Y).NM$(Y)."*":. "GOSUB"..
.Q.NB%(NX).LN.I:NX.NX.1:NB%(NX).0:EC%(Y)
.NX:NX.NX.1:.NX.6000.XR..2...V..LV.134.P
L.0..480:. "DIM".'...N$."":CL.0:LT.HT:..
F...I.A:.B(I).36.B(I).37.I.I.1.V....B(I)
..40...P...NM$(Y).NM$(Y).G(B(I))......B(
I).40.PL.PL.1......B(I).41.PL.PL.1......
PL.0.......I.I.1:.490.J.... PRINT THE XR
EF.V....XR.0........LP.(D2.10)..I.LP.D2:
.1,T$:.:LP.1./...X.0:.1,T$;T$;.12)"CROSS
-REFERENCE";T$;:LP.LP.3.K....XR..1..1,"*
*WARNING** NAME TABLE OVERFLOW";T$;:LP.L
P.1......XR..2..1,"**WARNING** REFERENCE
 TABLE OVERFLOW";T$;:LP.LP.1...!.X.X.1:.
X.CT...J.&.Y.OD(X)...+..C(NM$(Y)).5.NM$(
Y).NM$(Y)." "...0.I.C(NM$(Y)):M..(I.6).6
:I.6.(I.M).7.5..I..6..M.1.I:NM$(Y).NM$(Y
)." ":..\.:..1,.6)NM$(Y);:LL.C(NM$(Y)).6
:N.0.I.?.Y.SC%(Y)...D.N.N.1:.(LL.N.6).D1
.N.1:.11...I.N$." ":.NB%(Y).0.N$."*":NB%
(Y).NB%(Y)..1.T.N..NB%(Y).32767.NB%(Y).9
9999...S.C$.D(NB%(Y)):N$.N$.I(C$,C(C$).1
)...X..1,.6.C(N$));N$;.'.].Y.NB%(Y.1):.Y
..0.580.4.B..15:.545.=.V..1,4.V...X.0:A.
0:Y.0:I.0:PA.0.D....1,G(13);......VT(40)
,NM$(300),OD(300),NB%(6000),SC%(300),EC%
(300)......X.0.39:.VT(X):..R...D1.76:. C
HARACTERS PER LINE.....D2.66:. LINES PER
 PAGE.1.... T$=CR+LF+TIMING(IF REQ'D)   
        MAY VARY FOR YOUR PRINTER.>...T$
.G(13).V.A.S$."         ":.280.Q.F..".".
15)"BASIC-LIST.."...K.."..... DISK VERSI
ON "......"....CROSS-REFERENCE?(.Y./.N.)
-";.F....C$:.C$."".745......C$."Y".XR.1:
.760.....XR.0:.C$.."N".740......C$......
"..  PROGRAM NAME? ";:NM$.""./....C$:.C$
."".775.A....C$.G(13).790.Z....C$;:NM$.N
M$.C$:.775......15,8,15,"I":.7:.E$..""..
"OPEN 15":.... ..5,8,5,"0:".NM$.",P,R":.
7:.E$.."".."OPEN 5":....*..#5,Z$:.7:.E$.
."".."FIRST READ":....H.. ---- SET UP 'A
' TABLE ----...M..A$(255),B$(255):.R.1 .
 31.E.R.A$(R)."CHR$(".I(D(R),C(D(R)).1).
")":..R.W..R.32.90.C.\.A$(R).G(R):..Q.A.
.R.91.127...F.A$(R)."CHR$(".I(D(R),C(D(R
)).1).")":....K..R.128.202...P..A$(R):..
F.U..R.203.255...Z.A$(R)."CHR$(".I(D(R),
C(D(R)).1).")":...... ---- SET UP 'B' T
ABLE ----.#....X:.X.999.910.E....X$:B$(X
).G(91).X$.G(93):.900.A....R.32.128:B$(R
).A$(R):..S....X:.X.999.925......X$:B$(X
).G(91).X$.G(93):.915.J....R.160.255:B$(
R)."CHR$(".I(D(R),C(D(R)).1).")":..R....
30...... VERB TYPE TABLE- 1=VALUE-SETTIN
G    2=VALUE-USING  3=LINE# FOLLOWS.^...
. 4=SPECIAL 5=IGNORE UNTIL ":"        6=
IGNORE UNTIL NEXT LINE......5,1,2,6,1,1,
4,1,1,3,3,2,5,3,5,6,5,2,2,2,2,2,2,2,2,2,
5,5,5,2,2,2......2,1,5,2,2,2,2,3:. VERBS
 128 TO 167, ALL OTHERS TYPE 2.#....END,
FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,
GOTO,RUN,IF,RESTORE.`....GOSUB,RETURN,RE
M,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKE
...E..PRINT#,PRINT,CONT,LIST,CLR,CMD,SYS
,OPEN,CLOSE,GET,NEW,TAB(,TO,FN,SPC(...J.
.THEN,NOT,STEP,+,-,*,/,^,AND,OR,>,=,<,SG
N,INT,ABS,USR,FRE,POS,SQR,RND.?.O..LOG,E
XP,COS,SIN,TAN,ATN,PEEK,LEN,STR$,VAL,ASC
,CHR$,LEFT$,RIGHT$,MID$.Z.T..5,WHITE,17,
DOWN,18,RVS ON,19,HOME,20,DELETE,28,RED,
29...Y..RIGHT,30,GREEN,31,BLUE,999......
 129,ORANGE,133,F1,134,F3,135,F5,136,F7,
137,F2,138,F4,139,F6,140,F8......144,BLA
CK,145,UP,146,RVS OFF,147,CLR,148,INSERT
.Y....149,BROWN,150,LT RED,151,GREY 1,15
2,GREY 2,153,LT GREEN,154......LT BLUE,1
55,GREY 3,156,PURPLE,157,LEFT,158,YELLOW
,159,CYAN......999...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL