VIEW SEQ

00000000: 01 04 0B 04 01 00 89 31  31 30 30 00 3D 04 02 00  |.......1100.=...|
00000010: A0 31 35 3A 9F 20 31 35  2C 38 2C 31 35 2C 22 53  |.15:. 15,8,15,"S|
00000020: 30 3A 56 49 45 57 20 53  45 51 22 3A 94 22 30 3A  |0:VIEW SEQ":."0:|
00000030: 56 49 45 57 20 53 45 51  22 2C 38 3A 80 00 4B 04  |VIEW SEQ",8:..K.|
00000040: 04 00 9F 34 2C 34 3A 9D  34 3A 9B 00 75 04 05 00  |...4,4:.4:..u...|
00000050: A1 47 24 3A 81 56 B2 31  A4 C3 28 47 31 24 29 3A  |.G$:.V.1..(G1$):|
00000060: 8B 47 24 B3 B1 CA 28 47  31 24 2C 56 2C 31 29 A7  |.G$...(G1$,V,1).|
00000070: 82 56 3A 89 35 00 7B 04  06 00 8E 00 97 04 08 00  |.V:.5.{.........|
00000080: 84 4B 4B 28 56 4F 29 2C  45 2C 45 24 2C 53 2C 54  |.KK(VO),E,E$,S,T|
00000090: 3A 8B 45 B3 32 A7 8E 00  B2 04 09 00 99 22 44 49  |:.E.2........"DI|
000000A0: 53 4B 20 45 52 52 4F 52  3A 22 45 3B 45 24 3B 53  |SK ERROR:"E;E$;S|
000000B0: 3B 54 00 CF 04 0A 00 99  22 11 12 52 92 45 41 44  |;T......"..R.EAD|
000000C0: 59 22 3A 47 31 24 B2 22  52 22 3A 8D 35 3A 8E 00  |Y":G1$."R":.5:..|
000000D0: E2 04 15 00 8F 20 49 4E  53 54 52 55 43 54 49 4F  |..... INSTRUCTIO|
000000E0: 4E 53 00 EC 04 16 00 8F  20 4B 42 44 00 FD 04 31  |NS...... KBD...1|
000000F0: 00 8F 20 41 53 4B 20 4E  55 4D 42 45 52 00 08 05  |.. ASK NUMBER...|
00000100: 4C 04 8F 20 4D 41 49 4E  00 20 05 51 04 8B 20 4D  |L.. MAIN. .Q.. M|
00000110: 54 B2 31 20 A7 20 97 20  35 39 34 36 38 2C 31 34  |T.1 . . 59468,14|
00000120: 00 3F 05 52 04 8B 20 4D  54 B1 31 20 A7 20 99 C7  |.?.R.. MT.1 . ..|
00000130: 28 31 34 32 AB 31 32 38  29 3B C7 28 38 29 3B 00  |(142.128);.(8);.|
00000140: 59 05 56 04 8D 20 32 31  30 30 3A 8F 20 49 4E 53  |Y.V.. 2100:. INS|
00000150: 54 52 55 43 54 49 4F 4E  53 00 8B 05 5B 04 8D 20  |TRUCTIONS...[.. |
00000160: 32 32 30 30 3A 57 43 B2  31 3A 52 43 B2 31 3A 8B  |2200:WC.1:RC.1:.|
00000170: 20 45 20 A7 20 A0 20 53  45 3A 89 20 31 31 31 30  | E . . SE:. 1110|
00000180: 3A 8F 20 4B 42 44 2B 4F  50 45 4E 00 A7 05 66 04  |:. KBD+OPEN...f.|
00000190: 3A 8B 57 43 B2 31 20 A7  20 99 22 11 12 52 45 43  |:.WC.1 . ."..REC|
000001A0: 4F 52 44 23 22 52 43 00  DE 05 6A 04 3A 84 20 53  |ORD#"RC...j.:. S|
000001B0: 45 2C 58 24 3A 45 46 B2  53 54 3A 99 51 24 58 24  |E,X$:EF.ST:.Q$X$|
000001C0: 51 24 3A 57 43 B2 57 43  AA 31 3A 8B 57 43 B1 48  |Q$:WC.WC.1:.WC.H|
000001D0: 43 A7 57 43 B2 31 3A 52  43 B2 52 43 AA 31 00 00  |C.WC.1:RC.RC.1..|
000001E0: 06 6F 04 3A A1 20 47 24  3A 8B 20 47 24 B2 22 20  |.o.:. G$:. G$." |
000001F0: 22 20 A7 20 47 31 24 B2  22 20 53 22 3A 8D 20 35  |" . G1$." S":. 5|
00000200: 00 14 06 70 04 3A 8B 20  47 24 B2 22 53 22 A7 20  |...p.:. G$."S". |
00000210: 45 46 B2 31 00 26 06 74  04 8B 20 45 46 B2 30 20  |EF.1.&.t.. EF.0 |
00000220: A7 20 31 31 32 36 00 2F  06 79 04 A0 20 53 45 00  |. 1126./.y.. SE.|
00000230: 5F 06 7E 04 9A 22 41 47  41 49 4E 3F 28 12 59 92  |_.~.."AGAIN?(.Y.|
00000240: 2F 12 4E 92 29 22 3A 47  31 24 B2 22 59 4E 22 3A  |/.N.)":G1$."YN":|
00000250: 8D 35 3A 8B 47 24 B2 22  59 22 A7 31 31 31 30 00  |.5:.G$."Y".1110.|
00000260: 78 06 AF 04 58 24 B2 4D  4D 24 3A 8D 20 39 32 30  |x...X$.MM$:. 920|
00000270: 30 3A 89 20 31 31 39 39  00 8B 06 34 08 8F 20 49  |0:. 1199...4.. I|
00000280: 4E 53 54 52 55 43 54 49  4F 4E 53 00 A8 06 39 08  |NSTRUCTIONS...9.|
00000290: 99 22 93 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 12  |."..............|
000002A0: 56 49 45 57 20 53 45 51  00 F1 06 3E 08 99 22 11  |VIEW SEQ...>..".|
000002B0: 54 48 49 53 20 50 52 4F  47 52 41 4D 20 41 4C 4C  |THIS PROGRAM ALL|
000002C0: 4F 57 53 20 59 4F 55 20  54 4F 20 56 49 45 57 20  |OWS YOU TO VIEW |
000002D0: 54 48 45 20 43 4F 4E 54  45 4E 54 53 20 4F 46 20  |THE CONTENTS OF |
000002E0: 41 20 53 45 51 55 45 4E  54 49 41 4C 20 46 49 4C  |A SEQUENTIAL FIL|
000002F0: 45 00 23 07 43 08 99 22  11 57 48 49 4C 45 20 54  |E.#.C..".WHILE T|
00000300: 48 45 20 43 4F 4E 54 45  4E 54 53 20 41 52 45 20  |HE CONTENTS ARE |
00000310: 42 45 49 4E 47 20 44 49  53 50 4C 41 59 45 44 2C  |BEING DISPLAYED,|
00000320: 20 22 3B 00 64 07 48 08  99 22 59 4F 55 20 4D 41  | ";.d.H.."YOU MA|
00000330: 59 20 50 52 45 53 53 20  54 48 45 20 53 50 41 43  |Y PRESS THE SPAC|
00000340: 45 20 42 41 52 20 54 4F  20 53 54 41 52 54 20 41  |E BAR TO START A|
00000350: 4E 44 20 53 54 4F 50 20  54 48 45 20 44 49 53 50  |ND STOP THE DISP|
00000360: 4C 41 59 22 00 8E 07 4D  08 99 22 59 4F 55 20 4D  |LAY"...M.."YOU M|
00000370: 41 59 20 50 52 45 53 53  20 54 48 45 20 20 12 53  |AY PRESS THE  .S|
00000380: 92 20 4B 45 59 20 54 4F  20 45 58 49 54 22 00 94  |. KEY TO EXIT"..|
00000390: 07 97 08 8E 00 9E 07 98  08 8F 20 4B 42 44 00 D5  |.......... KBD..|
000003A0: 07 9D 08 99 22 11 4E 41  4D 45 20 4F 46 20 46 49  |....".NAME OF FI|
000003B0: 4C 45 3F 20 28 4C 45 41  56 45 20 42 4C 41 4E 4B  |LE? (LEAVE BLANK|
000003C0: 20 54 4F 20 52 45 54 55  52 4E 20 54 4F 20 22 4D  | TO RETURN TO "M|
000003D0: 4D 24 22 29 22 00 ED 07  A2 08 58 24 B2 4E 32 24  |M$")".....X$.N2$|
000003E0: 3A 8D 34 35 30 30 3A 4E  32 24 B2 58 24 00 10 08  |:.4500:N2$.X$...|
000003F0: A7 08 8B 20 4E 32 24 B2  22 22 A7 20 58 24 B2 4D  |... N2$."". X$.M|
00000400: 4D 24 3A 8D 20 39 32 30  30 3A 89 20 32 32 31 35  |M$:. 9200:. 2215|
00000410: 00 3B 08 AC 08 99 22 11  45 4E 54 45 52 20 4E 4F  |.;....".ENTER NO|
00000420: 2E 20 4F 46 20 46 49 45  4C 44 53 20 50 45 52 20  |. OF FIELDS PER |
00000430: 52 45 43 20 49 46 20 41  4E 59 22 00 5C 08 B1 08  |REC IF ANY".\...|
00000440: 58 31 B2 30 3A 58 32 B2  31 30 30 3A 58 B2 48 43  |X1.0:X2.100:X.HC|
00000450: 3A 8D 20 34 39 30 30 3A  48 43 B2 58 00 84 08 B7  |:. 4900:HC.X....|
00000460: 08 99 22 11 12 49 4E 53  45 52 54 20 44 49 53 4B  |.."..INSERT DISK|
00000470: 20 57 49 54 48 20 53 45  51 20 46 49 4C 45 22 3A  | WITH SEQ FILE":|
00000480: 8D 20 31 30 00 C0 08 B9  08 51 56 B2 30 3A 8B 20  |. 10.....QV.0:. |
00000490: 44 54 B1 31 20 A7 20 99  22 11 44 52 49 56 45 3F  |DT.1 . .".DRIVE?|
000004A0: 28 12 31 92 2F 12 30 92  29 22 3A 47 31 24 B2 22  |(.1./.0.)":G1$."|
000004B0: 31 30 22 3A 8D 20 35 3A  51 56 B2 C5 28 47 24 29  |10":. 5:QV..(G$)|
000004C0: 00 D8 08 BB 08 98 4B 4B  28 51 56 29 2C 22 49 22  |......KK(QV),"I"|
000004D0: AA 44 52 24 28 51 56 29  00 02 09 C0 08 9F 20 53  |.DR$(QV)...... S|
000004E0: 45 2C 44 56 28 51 56 29  2C 53 45 2C 44 52 24 28  |E,DV(QV),SE,DR$(|
000004F0: 51 56 29 AA 22 3A 22 AA  4E 32 24 AA 22 2C 53 2C  |QV).":".N2$.",S,|
00000500: 52 22 00 12 09 C5 08 56  4F B2 51 56 3A 8D 20 38  |R".....VO.QV:. 8|
00000510: 3A 8E 00 37 09 94 11 99  58 24 C8 28 4C 45 24 2C  |:..7....X$.(LE$,|
00000520: C3 28 58 24 29 29 3B 3A  43 58 B2 31 3A 8F 20 47  |.(X$));:CX.1:. G|
00000530: 41 52 44 20 49 4E 50 00  6A 09 99 11 4D 24 B2 CA  |ARD INP.j...M$..|
00000540: 28 58 24 AA 22 20 22 2C  43 58 2C 31 29 3A 99 22  |(X$." ",CX,1):."|
00000550: 12 22 4D 24 22 92 9D 22  3B 3A A1 47 24 3A 8B 47  |."M$"..";:.G$:.G|
00000560: 24 B2 22 22 A7 8D 34 35  36 35 00 9D 09 9E 11 3A  |$.""..4565.....:|
00000570: 41 B2 C6 28 47 24 29 3A  99 4D 24 22 9D 22 3B 3A  |A..(G$):.M$".";:|
00000580: 8B 28 41 20 AF 20 31 32  37 29 B3 33 32 B0 43 58  |.(A . 127).32.CX|
00000590: B1 37 37 B0 41 B2 33 34  A7 34 35 32 30 00 D2 09  |.77.A.34.4520...|
000005A0: A3 11 3A 20 99 47 24 3B  3A 58 24 B2 C8 28 58 24  |..: .G$;:X$..(X$|
000005B0: 2C 43 58 AB 31 29 AA 47  24 AA CA 28 58 24 2C 43  |,CX.1).G$..(X$,C|
000005C0: 58 AA 31 29 3A 43 58 B2  43 58 AA 31 3A 89 34 35  |X.1):CX.CX.1:.45|
000005D0: 30 35 00 FC 09 A8 11 3A  8B 41 B2 31 35 37 A7 8B  |05.....:.A.157..|
000005E0: 43 58 B1 31 A7 43 58 B2  43 58 AB 31 3A 99 47 24  |CX.1.CX.CX.1:.G$|
000005F0: 3B 3A 89 34 35 30 35 3A  8F 20 4C 46 00 27 0A AD  |;:.4505:. LF.'..|
00000600: 11 3A 8B 41 B2 32 39 AF  43 58 B3 B2 C3 28 58 24  |.:.A.29.CX...(X$|
00000610: 29 A7 43 58 B2 43 58 AA  31 3A 99 47 24 3B 3A 89  |).CX.CX.1:.G$;:.|
00000620: 34 35 30 35 3A 52 49 00  3D 0A B2 11 3A 8B 41 B2  |4505:RI.=...:.A.|
00000630: 31 33 A7 34 35 38 30 3A  8F 20 52 45 54 00 72 0A  |13.4580:. RET.r.|
00000640: B7 11 3A 8B 41 B2 32 30  A7 8B 43 58 B1 31 A7 99  |..:.A.20..CX.1..|
00000650: 47 24 3B 3A 58 24 B2 C8  28 58 24 2C 43 58 AB 32  |G$;:X$..(X$,CX.2|
00000660: 29 AA CA 28 58 24 2C 43  58 29 3A 43 58 B2 43 58  |)..(X$,CX):CX.CX|
00000670: AB 31 00 8D 0A BC 11 3A  8B 41 B2 31 34 38 AF C3  |.1.....:.A.148..|
00000680: 28 58 24 29 B3 37 38 A7  8D 34 35 35 35 00 B2 0A  |(X$).78..4555...|
00000690: C1 11 3A 8B 41 B2 31 34  37 A7 4C B2 C3 28 58 24  |..:.A.147.L..(X$|
000006A0: 29 3A 8D 34 35 36 30 3A  43 58 B2 31 3A 58 24 B2  |):.4560:CX.1:X$.|
000006B0: 22 22 00 BD 0A C6 11 3A  89 34 35 30 35 00 EC 0A  |"".....:.4505...|
000006C0: CB 11 58 24 B2 C8 28 58  24 2C 43 58 AB 31 29 AA  |..X$..(X$,CX.1).|
000006D0: 22 20 22 AA CA 28 58 24  2C 43 58 29 3A 99 47 24  |" "..(X$,CX):.G$|
000006E0: 22 20 9D 22 3B 3A 8E 3A  8F 20 49 4E 00 15 0B D0  |" .";:.:. IN....|
000006F0: 11 99 C8 28 4C 45 24 2C  43 58 AB 31 29 C8 28 53  |...(LE$,CX.1).(S|
00000700: 50 24 2C 4C 29 C8 28 4C  45 24 2C 4C 29 3B 3A 8E  |P$,L).(LE$,L);:.|
00000710: 3A 8F 20 43 4C 00 43 0B  D5 11 99 22 12 22 4D 24  |:. CL.C...."."M$|
00000720: 22 9D 92 22 3B 3A 81 57  B2 31 A4 35 30 3A A1 47  |"..";:.W.1.50:.G|
00000730: 24 3A 8B 47 24 B3 B1 22  22 A7 99 4D 24 22 9D 22  |$:.G$..""..M$"."|
00000740: 3B 3A 8E 00 69 0B DA 11  3A 82 57 3A 99 4D 24 22  |;:..i...:.W:.M$"|
00000750: 9D 22 3B 3A 81 57 B2 31  A4 35 30 3A A1 47 24 3A  |.";:.W.1.50:.G$:|
00000760: 8B 47 24 B3 B1 22 22 A7  8E 00 77 0B DF 11 3A 82  |.G$..""...w...:.|
00000770: 57 3A 89 34 35 36 35 00  99 0B E4 11 8B C8 28 58  |W:.4565.......(X|
00000780: 24 2C 31 29 B2 22 20 22  A7 58 24 B2 CA 28 58 24  |$,1)." ".X$..(X$|
00000790: 2C 32 29 3A 89 34 35 38  30 00 C2 0B E9 11 3A 8B  |,2):.4580.....:.|
000007A0: C9 28 58 24 2C 31 29 B2  22 20 22 A7 58 24 B2 C8  |.(X$,1)." ".X$..|
000007B0: 28 58 24 2C C3 28 58 24  29 AB 31 29 3A 89 34 35  |(X$,.(X$).1):.45|
000007C0: 38 35 00 CB 0B EE 11 3A  99 3A 8E 00 DC 0B 24 13  |85.....:.:....$.|
000007D0: 8F 20 41 53 4B 20 4E 55  4D 42 45 52 00 0D 0C 2E  |. ASK NUMBER....|
000007E0: 13 58 24 B2 CA 28 C4 28  58 29 2C 32 29 3A 8D 34  |.X$..(.(X),2):.4|
000007F0: 35 30 30 3A 58 B2 C5 28  58 24 29 3A 8B 58 B2 30  |500:X..(X$):.X.0|
00000800: AF 58 24 B3 B1 22 30 22  A7 34 39 31 32 00 20 0C  |.X$.."0".4912. .|
00000810: 2F 13 8B 58 B2 B1 58 31  AF 58 B2 B3 58 32 A7 8E  |/..X..X1.X..X2..|
00000820: 00 4E 0C 30 13 99 22 12  49 4C 4C 45 47 41 4C 20  |.N.0..".ILLEGAL |
00000830: 45 4E 54 52 59 20 2D 20  50 4C 45 41 53 45 20 45  |ENTRY - PLEASE E|
00000840: 4E 54 45 52 20 41 20 4E  55 4D 42 45 52 22 00 76  |NTER A NUMBER".v|
00000850: 0C 33 13 99 22 12 49 4E  20 54 48 45 20 52 41 4E  |.3..".IN THE RAN|
00000860: 47 45 20 4F 46 22 58 31  22 9D 20 54 4F 22 58 32  |GE OF"X1". TO"X2|
00000870: 3A 89 34 39 30 30 00 86  0C F0 23 8F 20 4C 4F 41  |:.4900....#. LOA|
00000880: 44 20 50 52 4F 47 00 B9  0C F1 23 99 22 11 12 49  |D PROG....#."..I|
00000890: 4E 53 45 52 54 20 50 52  4F 47 52 41 4D 20 44 49  |NSERT PROGRAM DI|
000008A0: 53 4B 20 49 4E 20 44 52  49 56 45 20 49 46 20 4E  |SK IN DRIVE IF N|
000008B0: 45 43 45 53 53 41 52 59  22 00 E1 0C F5 23 8D 20  |ECESSARY"....#. |
000008C0: 31 30 3A 98 4B 4B 28 30  29 2C 22 49 30 22 3A 99  |10:.KK(0),"I0":.|
000008D0: 22 11 28 4C 4F 41 44 49  4E 47 20 22 58 24 22 29  |".(LOADING "X$")|
000008E0: 22 00 14 0D FA 23 9F 20  53 45 2C 38 2C 53 45 2C  |"....#. SE,8,SE,|
000008F0: 22 30 3A 22 AA 58 24 AA  22 2C 50 2C 52 22 3A 56  |"0:".X$.",P,R":V|
00000900: 4F B2 30 3A 8D 20 38 3A  A0 20 53 45 3A 8B 20 45  |O.0:. 8:. SE:. E|
00000910: 20 A7 20 8E 00 2B 0D FF  23 8B 20 4C 49 B3 32 35  | . ..+..#. LI.25|
00000920: 33 20 A7 20 97 20 49 56  2C 4C 49 00 3D 0D 04 24  |3 . . IV,LI.=..$|
00000930: 93 20 22 30 3A 22 AA 58  24 2C 38 3A 90 00 4B 0D  |. "0:".X$,8:..K.|
00000940: 54 24 8F 20 4F 50 45 4E  20 52 41 00 7A 0D 59 24  |T$. OPEN RA.z.Y$|
00000950: 8B 20 44 54 B2 31 20 AF  20 52 56 B2 31 20 A7 20  |. DT.1 . RV.1 . |
00000960: 99 22 11 12 49 4E 53 45  52 54 20 44 41 54 41 20  |."..INSERT DATA |
00000970: 44 49 53 4B 22 3A 8D 20  31 30 00 91 0D 5B 24 98  |DISK":. 10...[$.|
00000980: 4B 4B 28 52 56 29 2C 22  49 22 44 52 24 28 52 56  |KK(RV),"I"DR$(RV|
00000990: 29 00 C7 0D 5E 24 9F 20  53 45 2C 44 56 28 52 56  |)...^$. SE,DV(RV|
000009A0: 29 2C 53 45 2C 44 52 24  28 52 56 29 AA 22 3A 44  |),SE,DR$(RV).":D|
000009B0: 42 22 AA C7 28 33 34 AA  31 32 38 29 AA 4E 41 24  |B"..(34.128).NA$|
000009C0: AA 22 2C 53 2C 52 22 00  DC 0D 60 24 8D 20 38 3A  |.",S,R"...`$. 8:|
000009D0: A0 20 53 45 3A 8B 20 45  20 A7 20 8E 00 FA 0D 63  |. SE:. E . ....c|
000009E0: 24 9F 20 52 41 2C 44 56  28 52 56 29 2C 52 41 2C  |$. RA,DV(RV),RA,|
000009F0: 22 23 22 3A 42 4C B2 30  3A 8E 00 00 00 43        |"#":BL.0:....C  |

.......1100.=... 15:. 15,8,15,"S0:VIEW S
EQ":."0:VIEW SEQ",8:..K....4,4:.4:..U...
.G$:.V.1.C(G1$):.G$..J(G1$,V,1)..V:.5.{.
.........KK(VO),E,E$,S,T:.E.2........"DI
SK ERROR:"E;E$;S;T.O...."..R.EADY":G1$."
R":.5:....... INSTRUCTIONS...... KBD...1
.. ASK NUMBER...L.. MAIN. .Q.. MT.1 . . 
59468,14.?.R.. MT.1 . .G(142.128);G(8);.
Y.V.. 2100:. INSTRUCTIONS...[.. 2200:WC.
1:RC.1:. E .   SE:. 1110:. KBD+OPEN...F.
:.WC.1 . ."..RECORD#"RC...J.:. SE,X$:EF.
ST:.Q$X$Q$:WC.WC.1:.WC.HC.WC.1:RC.RC.1..
.O.:. G$:. G$." " . G1$." S":. 5...P.:. 
G$."S". EF.1.&.T.. EF.0 . 1126./.Y.  SE.
_.~.."AGAIN?(.Y./.N.)":G1$."YN":.5:.G$."
Y".1110.X...X$.MM$:. 9200:. 1199...4.. I
NSTRUCTIONS...9.."..............VIEW SEQ
...>..".THIS PROGRAM ALLOWS YOU TO VIEW 
THE CONTENTS OF A SEQUENTIAL FILE.#.C.."
.WHILE THE CONTENTS ARE BEING DISPLAYED,
 ";.D.H.."YOU MAY PRESS THE SPACE BAR TO
 START AND STOP THE DISPLAY"...M.."YOU M
AY PRESS THE  .S. KEY TO EXIT"..........
.. KBD.U....".NAME OF FILE? (LEAVE BLANK
 TO RETURN TO "MM$")".....X$.N2$:.4500:N
2$.X$...... N2$."". X$.MM$:. 9200:. 2215
.;....".ENTER NO. OF FIELDS PER REC IF A
NY".\...X1.0:X2.100:X.HC:. 4900:HC.X....
.."..INSERT DISK WITH SEQ FILE":. 10....
.QV.0:. DT.1 . .".DRIVE?(.1./.0.)":G1$."
10":. 5:QV.E(G$).X....KK(QV),"I".DR$(QV)
...... SE,DV(QV),SE,DR$(QV).":".N2$.",S,
R"...E.VO.QV:. 8:..7....X$H(LE$,C(X$));:
CX.1:. GARD INP.J...M$.J(X$." ",CX,1):."
."M$"..";:.G$:.G$.""..4565.....:A.F(G$):
.M$".";:.(A . 127).32.CX.77.A.34.4520.R.
..: .G$;:X$.H(X$,CX.1).G$.J(X$,CX.1):CX.
CX.1:.4505.....:.A.157..CX.1.CX.CX.1:.G$
;:.4505:. LF.'...:.A.29.CX..C(X$).CX.CX.
1:.G$;:.4505:RI.=...:.A.13.4580:. RET.R.
..:.A.20..CX.1..G$;:X$.H(X$,CX.2).J(X$,C
X):CX.CX.1.....:.A.148.C(X$).78..4555...
A.:.A.147.L.C(X$):.4560:CX.1:X$.""...F.:
.4505...K.X$.H(X$,CX.1)." ".J(X$,CX):.G$
" .";:.:. IN...P..H(LE$,CX.1)H(SP$,L)H(L
E$,L);:.:. CL.C.U.."."M$"..";:.W.1.50:.G
$:.G$..""..M$".";:..I.Z.:.W:.M$".";:.W.1
.50:.G$:.G$..""...W...:.W:.4565......H(X
$,1)." ".X$.J(X$,2):.4580.B...:.I(X$,1).
" ".X$.H(X$,C(X$).1):.4585.K...:.:....$.
. ASK NUMBER.....X$.J(D(X),2):.4500:X.E(
X$):.X.0.X$.."0".4912. ./..X..X1.X..X2..
.N.0..".ILLEGAL ENTRY - PLEASE ENTER A N
UMBER".V.3..".IN THE RANGE OF"X1". TO"X2
:.4900....#. LOAD PROG....#."..INSERT PR
OGRAM DISK IN DRIVE IF NECESSARY"....#. 
10:.KK(0),"I0":.".(LOADING "X$")"....#. 
SE,8,SE,"0:".X$.",P,R":VO.0:. 8:  SE:. E
 . ..+..#. LI.253 . . IV,LI.=..$. "0:".X
$,8:..K.T$. OPEN RA.Z.Y$. DT.1 . RV.1 . 
."..INSERT DATA DISK":. 10...[$.KK(RV),"
I"DR$(RV).G.^$. SE,DV(RV),SE,DR$(RV).":D
B".G(34.128).NA$.",S,R"...`$. 8:  SE:. E
 . ....C$. RA,DV(RV),RA,"#":BL.0:....C

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL