CREATE SEQ

00000000: 01 08 15 08 00 00 8F 20  35 2F 31 30 2F 38 30 20  |....... 5/10/80 |
00000010: 20 39 3A 32 30 00 20 08  01 00 89 20 31 31 30 30  | 9:20. .... 1100|
00000020: 00 5B 08 02 00 9F 20 31  35 2C 38 2C 31 35 2C 22  |.[.... 15,8,15,"|
00000030: 49 30 22 3A 98 31 35 2C  22 53 30 3A 43 52 45 41  |I0":.15,"S0:CREA|
00000040: 54 45 20 53 45 51 22 3A  94 22 30 3A 43 52 45 41  |TE SEQ":."0:CREA|
00000050: 54 45 20 53 45 51 22 2C  38 3A 80 00 71 08 04 00  |TE SEQ",8:..q...|
00000060: 9F 34 2C 34 3A 9D 34 3A  99 22 93 22 3B 3A 9B 3A  |.4,4:.4:.".";:.:|
00000070: AC 00 9B 08 05 00 A1 47  24 3A 81 56 B2 31 A4 C3  |.......G$:.V.1..|
00000080: 28 47 31 24 29 3A 8B 47  24 B3 B1 CA 28 47 31 24  |(G1$):.G$...(G1$|
00000090: 2C 56 2C 31 29 A7 82 56  3A 89 35 00 A1 08 06 00  |,V,1)..V:.5.....|
000000A0: 8E 00 BD 08 08 00 84 4B  4B 28 56 4F 29 2C 45 2C  |.......KK(VO),E,|
000000B0: 45 24 2C 53 2C 54 3A 8B  45 B3 32 A7 8E 00 D8 08  |E$,S,T:.E.2.....|
000000C0: 09 00 99 22 44 49 53 4B  20 45 52 52 4F 52 3A 22  |..."DISK ERROR:"|
000000D0: 45 3B 45 24 3B 53 3B 54  00 F6 08 0A 00 99 22 11  |E;E$;S;T......".|
000000E0: 12 52 92 45 41 44 59 3F  22 3A 47 31 24 B2 22 52  |.R.EADY?":G1$."R|
000000F0: 22 3A 8D 35 3A 8E 00 01  09 0B 00 8F 20 4D 41 49  |":.5:....... MAI|
00000100: 4E 00 0E 09 0C 00 8F 20  53 45 54 20 55 50 00 1C  |N...... SET UP..|
00000110: 09 1B 00 8F 20 41 53 4B  20 41 4C 4C 00 29 09 1C  |.... ASK ALL.)..|
00000120: 00 8F 20 43 52 45 41 54  45 00 39 09 1D 00 8F 20  |.. CREATE.9.... |
00000130: 53 50 41 43 45 20 50 41  44 00 48 09 22 00 8F 20  |SPACE PAD.H.".. |
00000140: 54 59 50 45 20 41 53 4B  00 58 09 23 00 8F 20 41  |TYPE ASK.X.#.. A|
00000150: 53 4B 20 52 41 4E 47 45  00 72 09 25 00 8F 20 4B  |SK RANGE.r.%.. K|
00000160: 45 59 20 42 4F 41 52 44  20 52 45 43 20 49 4E 50  |EY BOARD REC INP|
00000170: 55 54 00 86 09 2A 00 8F  20 52 45 41 44 20 41 20  |UT...*.. READ A |
00000180: 52 45 43 4F 52 44 00 9D  09 2B 00 8F 20 50 4F 53  |RECORD...+.. POS|
00000190: 49 54 49 4F 4E 20 50 4F  49 4E 54 45 52 00 A8 09  |ITION POINTER...|
000001A0: 2C 00 8F 20 59 45 53 3F  00 B9 09 30 00 8F 20 41  |,.. YES?...0.. A|
000001B0: 53 4B 20 4E 55 4D 42 45  52 00 C9 09 5C 00 8F 20  |SK NUMBER...\.. |
000001C0: 4C 4F 41 44 20 50 52 4F  47 00 D7 09 5D 00 8F 20  |LOAD PROG...].. |
000001D0: 4F 50 45 4E 20 52 41 00  E2 09 4C 04 8F 20 4D 41  |OPEN RA...L.. MA|
000001E0: 49 4E 00 FB 09 51 04 8B  20 4C 49 B3 32 35 33 20  |IN...Q.. LI.253 |
000001F0: A7 20 97 20 49 56 2C 4C  49 AA 33 00 21 0A 53 04  |. . IV,LI.3.!.S.|
00000200: 8B 20 48 52 B2 30 20 A7  20 99 22 11 46 49 4C 45  |. HR.0 . .".FILE|
00000210: 20 49 53 20 45 4D 50 54  59 22 3A 89 20 31 31 37  | IS EMPTY":. 117|
00000220: 35 00 37 0A 56 04 8D 20  39 33 30 30 3A 8B 20 45  |5.7.V.. 9300:. E|
00000230: 20 A7 20 31 31 31 30 00  42 0A 58 04 8D 20 31 32  | . 1110.B.X.. 12|
00000240: 30 30 00 5F 0A 5B 04 8D  20 32 37 30 30 3A 8B 20  |00._.[.. 2700:. |
00000250: 43 41 20 A7 20 31 31 35  35 3A 8F 20 41 53 4B 00  |CA . 1155:. ASK.|
00000260: 79 0A 60 04 8B 20 44 54  B2 31 20 A7 20 51 56 B2  |y.`.. DT.1 . QV.|
00000270: 52 56 3A 89 20 31 31 35  35 00 A4 0A 65 04 3A 99  |RV:. 1155...e.:.|
00000280: 22 11 12 49 46 20 52 41  4E 44 4F 4D 20 44 41 54  |"..IF RANDOM DAT|
00000290: 41 20 46 49 4C 45 20 49  53 20 49 4E 20 44 52 49  |A FILE IS IN DRI|
000002A0: 56 45 20 31 00 E4 0A 6A  04 3A 99 22 12 41 4E 44  |VE 1...j.:.".AND|
000002B0: 20 49 46 20 54 48 45 20  53 45 51 55 45 4E 54 49  | IF THE SEQUENTI|
000002C0: 41 4C 20 46 49 4C 45 20  49 53 20 54 4F 20 47 4F  |AL FILE IS TO GO|
000002D0: 20 4F 4E 20 41 20 53 45  50 41 52 41 54 45 20 44  | ON A SEPARATE D|
000002E0: 49 53 4B 2C 00 23 0B 6F  04 3A 99 22 12 54 48 45  |ISK,.#.o.:.".THE|
000002F0: 4E 20 59 4F 55 20 4D 55  53 54 20 4E 4F 57 20 52  |N YOU MUST NOW R|
00000300: 45 4D 4F 56 45 20 54 48  45 20 50 52 4F 47 52 41  |EMOVE THE PROGRA|
00000310: 4D 20 44 49 53 4B 20 46  52 4F 4D 20 44 52 49 56  |M DISK FROM DRIV|
00000320: 45 20 30 00 54 0B 74 04  3A 99 22 12 41 4E 44 20  |E 0.T.t.:.".AND |
00000330: 52 45 50 4C 41 43 45 20  49 54 20 57 49 54 48 20  |REPLACE IT WITH |
00000340: 54 48 45 20 53 45 51 55  45 4E 54 49 41 4C 20 44  |THE SEQUENTIAL D|
00000350: 49 53 4B 22 00 97 0B 79  04 3A 99 22 11 53 45 51  |ISK"...y.:.".SEQ|
00000360: 20 46 49 4C 45 20 47 4F  45 53 20 4F 4E 20 44 52  | FILE GOES ON DR|
00000370: 49 56 45 20 4E 4F 3A 28  12 31 92 2F 12 30 92 29  |IVE NO:(.1./.0.)|
00000380: 22 3A 47 31 24 B2 22 30  31 22 3A 8D 20 35 3A 51  |":G1$."01":. 5:Q|
00000390: 56 B2 C5 28 47 24 29 00  BB 0B 7E 04 3A 8B 20 52  |V..(G$)...~.:. R|
000003A0: 56 B3 B1 51 56 20 A7 20  98 4B 4B 28 51 56 29 2C  |V..QV . .KK(QV),|
000003B0: 22 49 22 AA 44 52 24 28  51 56 29 00 C6 0B 83 04  |"I".DR$(QV).....|
000003C0: 8D 20 32 38 30 30 00 D5  0B 84 04 8B 43 41 B2 30  |. 2800......CA.0|
000003D0: A7 31 31 36 30 00 0D 0C  85 04 9E 20 4D 4C AB 34  |.1160...... ML.4|
000003E0: 34 3A 8B C2 28 42 37 AA  38 29 B2 30 A7 99 22 93  |4:..(B7.8).0..".|
000003F0: 50 52 45 53 53 20 53 54  4F 50 20 4F 4E 20 43 41  |PRESS STOP ON CA|
00000400: 53 53 45 54 54 45 22 3A  89 31 31 35 37 00 25 0C  |SSETTE":.1157.%.|
00000410: 88 04 8B 20 45 20 A7 20  31 31 31 35 3A 8F 20 43  |... E . 1115:. C|
00000420: 52 45 41 54 45 00 37 0C  8D 04 8B 20 44 54 B2 31  |REATE.7.... DT.1|
00000430: 20 A7 20 31 31 37 35 00  78 0C 92 04 3A 99 22 07  | . 1175.x...:.".|
00000440: 07 07 07 07 93 12 52 45  50 4C 41 43 45 20 50 52  |......REPLACE PR|
00000450: 4F 47 52 41 4D 20 44 49  53 4B 20 49 4E 20 44 52  |OGRAM DISK IN DR|
00000460: 49 56 45 20 30 20 49 46  20 4E 45 43 45 53 53 41  |IVE 0 IF NECESSA|
00000470: 52 59 22 3A 8D 20 31 30  00 99 0C 97 04 58 24 B2  |RY":. 10.....X$.|
00000480: 22 46 49 4C 45 20 4D 45  4E 55 22 3A 8D 20 39 32  |"FILE MENU":. 92|
00000490: 30 30 3A 89 20 31 31 37  35 00 A6 0C B0 04 8F 20  |00:. 1175...... |
000004A0: 53 45 54 20 55 50 00 B3  0C D8 04 46 24 28 30 29  |SET UP.....F$(0)|
000004B0: B2 22 22 00 CE 0C 00 05  81 20 58 B2 31 A4 20 4D  |.""...... X.1. M|
000004C0: 44 3A 41 52 25 28 58 29  B2 58 3A 82 20 58 00 DF  |D:AR%(X).X:. X..|
000004D0: 0C 0A 05 52 31 B2 31 3A  52 32 B2 48 52 3A 8E 00  |...R1.1:R2.HR:..|
000004E0: EC 0C 14 05 8F 20 53 45  54 20 55 50 00 FA 0C 8C  |..... SET UP....|
000004F0: 0A 8F 20 41 53 4B 20 41  4C 4C 00 28 0D 91 0A 99  |.. ASK ALL.(....|
00000500: 22 93 20 20 12 43 52 45  41 54 45 20 53 45 51 20  |".  .CREATE SEQ |
00000510: 46 49 4C 45 20 4F 52 20  50 52 41 43 54 49 43 41  |FILE OR PRACTICA|
00000520: 4C 43 20 46 49 4C 45 22  00 69 0D 96 0A 99 22 11  |LC FILE".i....".|
00000530: 4E 41 4D 45 20 4F 46 20  53 45 51 20 46 49 4C 45  |NAME OF SEQ FILE|
00000540: 3F 22 52 24 22 28 4C 45  41 56 45 20 42 4C 41 4E  |?"R$"(LEAVE BLAN|
00000550: 4B 20 54 4F 20 52 45 54  55 52 4E 20 54 4F 20 46  |K TO RETURN TO F|
00000560: 49 4C 45 20 4D 45 4E 55  29 00 81 0D 9B 0A 58 24  |ILE MENU).....X$|
00000570: B2 4E 53 24 3A 8D 34 35  30 30 3A 4E 53 24 B2 58  |.NS$:.4500:NS$.X|
00000580: 24 00 A8 0D 9D 0A 8B 4E  53 24 B2 22 22 A7 58 24  |$......NS$."".X$|
00000590: B2 22 46 49 4C 45 20 4D  45 4E 55 22 3A 8D 39 32  |."FILE MENU":.92|
000005A0: 30 30 3A 89 32 37 31 37  00 EA 0D 9F 0A 99 22 11  |00:.2717......".|
000005B0: 44 4F 20 59 4F 55 20 57  41 4E 54 20 41 20 12 50  |DO YOU WANT A .P|
000005C0: 52 41 43 54 49 43 41 4C  43 92 20 54 59 50 45 20  |RACTICALC. TYPE |
000005D0: 46 49 4C 45 3F 22 3A 58  B2 30 3A 58 33 B2 31 3A  |FILE?":X.0:X3.1:|
000005E0: 8D 34 34 30 30 3A 50 43  B2 58 00 1E 0E A4 0A 99  |.4400:PC.X......|
000005F0: 22 11 12 52 41 4E 44 20  46 49 45 4C 44 53 3A 22  |"..RAND FIELDS:"|
00000600: 3A 81 57 46 B2 31 A4 48  46 3A 99 22 12 22 57 46  |:.WF.1.HF:."."WF|
00000610: 22 92 22 46 54 24 28 57  46 29 3A 82 57 46 00 4D  |"."FT$(WF):.WF.M|
00000620: 0E A5 0A 99 22 48 4F 57  20 4D 41 4E 59 20 46 49  |...."HOW MANY FI|
00000630: 45 4C 44 53 20 57 49 4C  4C 20 54 48 45 20 53 45  |ELDS WILL THE SE|
00000640: 51 20 46 49 4C 45 20 48  41 56 45 3F 22 00 6D 0E  |Q FILE HAVE?".m.|
00000650: AA 0A 58 31 B2 31 3A 58  32 B2 4D 44 3A 58 B2 48  |..X1.1:X2.MD:X.H|
00000660: 51 3A 8D 20 34 38 30 30  3A 48 51 B2 58 00 7D 0E  |Q:. 4800:HQ.X.}.|
00000670: AF 0A 81 20 57 46 B2 31  20 A4 20 48 51 00 BC 0E  |... WF.1 . HQ...|
00000680: B4 0A 3A 99 20 22 53 45  51 20 46 49 45 4C 44 20  |..:. "SEQ FIELD |
00000690: 4E 4F 22 20 57 46 20 22  53 48 4F 55 4C 44 20 42  |NO" WF "SHOULD B|
000006A0: 45 20 4C 4F 41 44 45 44  20 57 49 54 48 20 52 41  |E LOADED WITH RA|
000006B0: 4E 20 46 49 45 4C 44 20  4E 4F 3A 22 00 E0 0E B9  |N FIELD NO:"....|
000006C0: 0A 3A 99 22 28 45 4E 54  45 52 20 20 30 20 20 46  |.:."(ENTER  0  F|
000006D0: 4F 52 20 45 4D 50 54 59  20 46 49 45 4C 44 29 22  |OR EMPTY FIELD)"|
000006E0: 00 14 0F BE 0A 3A 58 31  B2 30 3A 58 32 B2 48 46  |.....:X1.0:X2.HF|
000006F0: 3A 58 B2 41 52 25 28 57  46 29 3A 8D 20 34 38 30  |:X.AR%(WF):. 480|
00000700: 30 3A 41 52 25 28 57 46  29 B2 58 3A 58 B2 30 3A  |0:AR%(WF).X:X.0:|
00000710: 58 33 B2 31 00 4E 0F BF  0A 8B 50 43 A7 50 43 25  |X3.1.N....PC.PC%|
00000720: 28 57 46 29 B2 31 33 36  3A 99 22 4E 55 4D 45 52  |(WF).136:."NUMER|
00000730: 49 43 20 46 49 45 4C 44  22 3A 8D 34 34 30 30 3A  |IC FIELD":.4400:|
00000740: 8B 58 A7 50 43 25 28 57  46 29 B2 31 39 32 00 66  |.X.PC%(WF).192.f|
00000750: 0F C3 0A 82 20 57 46 3A  8D 20 33 35 30 30 3A 8F  |.... WF:. 3500:.|
00000760: 20 52 41 4E 47 45 00 79  0F C4 0A 8B 50 43 A7 57  | RANGE.y....PC.W|
00000770: 50 B2 30 3A 89 32 37 36  37 00 AD 0F C8 0A 99 22  |P.0:.2767......"|
00000780: 11 57 49 4C 4C 20 54 48  45 20 4F 55 54 50 55 54  |.WILL THE OUTPUT|
00000790: 20 42 45 20 55 53 45 44  20 42 59 20 41 20 57 4F  | BE USED BY A WO|
000007A0: 52 44 20 50 52 4F 43 45  53 53 4F 52 3F 00 C9 0F  |RD PROCESSOR?...|
000007B0: C9 0A 99 22 28 50 41 47  45 20 4D 41 54 45 2C 20  |..."(PAGE MATE, |
000007C0: 57 4F 52 44 20 50 52 4F  29 00 E3 0F CD 0A 58 B2  |WORD PRO).....X.|
000007D0: 57 50 3A 58 33 B2 31 3A  8D 20 34 34 30 30 3A 57  |WP:X3.1:. 4400:W|
000007E0: 50 B2 58 00 FE 0F CF 0A  99 22 11 4F 55 54 50 55  |P.X......".OUTPU|
000007F0: 54 20 54 4F 20 43 41 53  53 45 54 54 45 3F 00 19  |T TO CASSETTE?..|
00000800: 10 D0 0A 58 B2 43 41 3A  58 33 B2 AB 31 3A 8D 20  |...X.CA:X3..1:. |
00000810: 34 34 30 30 3A 43 41 B2  58 00 53 10 D2 0A 99 22  |4400:CA.X.S...."|
00000820: 43 4F 52 52 45 43 54 49  4F 4E 53 28 12 59 92 2F  |CORRECTIONS(.Y./|
00000830: 12 4E 92 29 3F 22 3A 47  31 24 B2 22 59 4E 22 3A  |.N.)?":G1$."YN":|
00000840: 8D 20 35 3A 8B 20 47 24  B2 22 59 22 20 A7 20 32  |. 5:. G$."Y" . 2|
00000850: 37 30 30 00 59 10 D7 0A  8E 00 66 10 F0 0A 8F 20  |700.Y.....f.... |
00000860: 43 52 45 41 54 45 00 84  10 FA 0A 8B 20 43 41 20  |CREATE...... CA |
00000870: A7 20 9F 20 53 45 2C 31  2C 31 2C 4E 53 24 3A 89  |. . SE,1,1,NS$:.|
00000880: 32 38 34 30 00 A5 10 0E  0B 3A 98 4B 4B 28 51 56  |2840.....:.KK(QV|
00000890: 29 2C 22 53 22 AA 44 52  24 28 51 56 29 AA 22 3A  |),"S".DR$(QV).":|
000008A0: 22 AA 4E 53 24 00 D0 10  14 0B 3A 9F 20 53 45 2C  |".NS$.....:. SE,|
000008B0: 44 56 28 51 56 29 2C 53  45 2C 44 52 24 28 51 56  |DV(QV),SE,DR$(QV|
000008C0: 29 AA 22 3A 22 AA 4E 53  24 AA 22 2C 53 2C 57 22  |).":".NS$.",S,W"|
000008D0: 00 EC 10 15 0B 3A 56 4F  B2 51 56 3A 8D 20 38 3A  |.....:VO.QV:. 8:|
000008E0: 8B 20 45 20 A7 20 A0 20  53 45 3A 8E 00 04 11 18  |. E . . SE:.....|
000008F0: 0B 46 24 28 30 29 B2 22  22 3A 51 4C 24 B2 51 24  |.F$(0)."":QL$.Q$|
00000900: AA 22 5C 22 00 27 11 1A  0B 8B 50 43 A7 98 53 45  |."\".'....PC..SE|
00000910: 2C 52 32 AB 52 31 3B 52  24 3B 3A 98 53 45 2C 48  |,R2.R1;R$;:.SE,H|
00000920: 51 AB 31 3B 52 24 3B 00  38 11 1D 0B 81 20 52 52  |Q.1;R$;.8.... RR|
00000930: B2 52 31 20 A4 20 52 32  00 5D 11 22 0B 3A 57 52  |.R1 . R2.].".:WR|
00000940: B2 50 4F 25 28 52 52 2C  57 4B 29 3A 8D 20 34 32  |.PO%(RR,WK):. 42|
00000950: 30 30 3A 8F 20 52 45 41  44 20 52 45 43 00 70 11  |00:. READ REC.p.|
00000960: 27 0B 3A 8B 20 57 50 20  A7 20 8D 20 32 39 30 30  |'.:. WP . . 2900|
00000970: 00 A7 11 28 0B 8B 50 43  B2 30 A7 81 20 57 51 B2  |...(..PC.0.. WQ.|
00000980: 31 20 A4 20 48 51 3A 98  53 45 2C 51 24 46 24 28  |1 . HQ:.SE,Q$F$(|
00000990: 41 52 25 28 57 51 29 29  52 24 3B 3A 82 20 57 51  |AR%(WQ))R$;:. WQ|
000009A0: 3A 89 20 32 38 36 35 00  C7 11 29 0B 81 57 51 B2  |:. 2865...)..WQ.|
000009B0: 31 A4 48 51 3A 8B 50 43  25 28 57 51 29 B3 B1 31  |1.HQ:.PC%(WQ)..1|
000009C0: 33 36 A7 32 38 35 39 00  F7 11 2A 0B 98 53 45 2C  |36.2859...*..SE,|
000009D0: 51 4C 24 C7 28 31 33 36  29 46 24 28 41 52 25 28  |QL$.(136)F$(AR%(|
000009E0: 57 51 29 29 52 24 3B 3A  98 53 45 2C 30 3B 52 24  |WQ))R$;:.SE,0;R$|
000009F0: 3B 3A 89 32 38 36 31 00  0C 12 2B 0B 98 53 45 2C  |;:.2861...+..SE,|
00000A00: 51 4C 24 C7 28 31 39 32  29 52 24 3B 00 26 12 2C  |QL$.(192)R$;.&.,|
00000A10: 0B 98 53 45 2C C5 28 46  24 28 41 52 25 28 57 51  |..SE,.(F$(AR%(WQ|
00000A20: 29 29 29 52 24 3B 00 30  12 2D 0B 3A 82 20 57 51  |)))R$;.0.-.:. WQ|
00000A30: 00 44 12 31 0B 82 20 52  52 3A A0 20 53 45 3A 45  |.D.1.. RR:. SE:E|
00000A40: B2 30 3A 8E 00 54 12 54  0B 8F 20 53 50 41 43 45  |.0:..T.T.. SPACE|
00000A50: 20 50 41 44 00 74 12 59  0B 81 58 B2 31 A4 48 46  | PAD.t.Y..X.1.HF|
00000A60: 3A 8B 46 24 28 58 29 B2  22 22 A7 46 24 28 58 29  |:.F$(X)."".F$(X)|
00000A70: B2 22 20 22 00 7D 12 5E  0B 82 58 3A 8E 00 8D 12  |." ".}.^..X:....|
00000A80: AC 0D 8F 20 41 53 4B 20  52 41 4E 47 45 00 C5 12  |... ASK RANGE...|
00000A90: B1 0D 99 22 11 53 54 41  52 54 20 41 54 20 52 45  |...".START AT RE|
00000AA0: 43 4F 52 44 20 4E 4F 3A  22 3A 58 31 B2 31 3A 58  |CORD NO:":X1.1:X|
00000AB0: 32 B2 48 52 3A 58 B2 52  31 3A 8D 20 34 38 30 30  |2.HR:X.R1:. 4800|
00000AC0: 3A 52 31 B2 58 00 EF 12  BB 0D 99 22 45 4E 44 20  |:R1.X......"END |
00000AD0: 41 54 20 52 45 43 4F 52  44 20 4E 4F 3A 22 3A 58  |AT RECORD NO:":X|
00000AE0: B2 52 32 3A 8D 20 34 38  30 30 3A 52 32 B2 58 00  |.R2:. 4800:R2.X.|
00000AF0: F5 12 0F 0E 8E 00 09 13  68 10 8F 20 52 45 41 44  |........h.. READ|
00000B00: 20 41 20 52 45 43 4F 52  44 00 39 13 6D 10 8B 20  | A RECORD.9.m.. |
00000B10: 52 33 20 A7 20 8D 20 34  33 30 30 3A 81 20 57 46  |R3 . . 4300:. WF|
00000B20: B2 31 20 A4 20 48 46 3A  84 52 41 2C 46 24 28 57  |.1 . HF:.RA,F$(W|
00000B30: 46 29 3A 82 20 57 46 3A  8E 00 75 13 72 10 4C B2  |F):. WF:..u.r.L.|
00000B40: 31 3A 81 58 B2 31 A4 48  46 3A CF 23 28 52 41 29  |1:.X.1.HF:.#(RA)|
00000B50: 2C 28 57 52 29 2C 28 4C  29 3A 84 52 41 2C 46 24  |,(WR),(L):.RA,F$|
00000B60: 28 58 29 3A 4C B2 4C AA  C3 28 46 24 28 58 29 29  |(X):L.L..(F$(X))|
00000B70: AA 32 3A 82 58 00 7B 13  77 10 8E 00 92 13 CC 10  |.2:.X.{.w.......|
00000B80: 8F 20 50 4F 53 49 54 49  4F 4E 20 50 4F 49 4E 54  |. POSITION POINT|
00000B90: 45 52 00 AF 13 D1 10 42  4C B2 B5 28 28 57 52 AB  |ER.....BL..((WR.|
00000BA0: 31 29 AD 52 42 AA 2E 30  30 30 30 31 29 AA 31 00  |1).RB..00001).1.|
00000BB0: E6 13 D4 10 98 4B 4B 28  52 56 29 2C 22 55 31 3A  |.....KK(RV),"U1:|
00000BC0: 22 52 41 3B 44 52 28 52  56 29 3B 54 25 28 42 4C  |"RA;DR(RV);T%(BL|
00000BD0: 29 3B 53 25 28 42 4C 29  3A 56 4F B2 52 56 3A 8D  |);S%(BL):VO.RV:.|
00000BE0: 38 3A 8B 45 A7 8E 00 21  14 DB 10 58 B2 28 57 52  |8:.E...!...X.(WR|
00000BF0: AB 31 29 AB 28 42 4C AB  31 29 AC 52 42 3A 8F 20  |.1).(BL.1).RB:. |
00000C00: 4E 4F 2E 20 52 45 43 53  20 42 45 46 4F 52 20 54  |NO. RECS BEFOR T|
00000C10: 48 49 53 20 49 4E 20 54  48 49 53 20 42 4C 4F 43  |HIS IN THIS BLOC|
00000C20: 4B 00 46 14 DF 10 42 50  B2 31 AA 52 53 AC 58 3A  |K.F...BP.1.RS.X:|
00000C30: 98 4B 4B 28 52 56 29 2C  22 42 2D 50 3A 22 3B 52  |.KK(RV),"B-P:";R|
00000C40: 41 3B 42 50 3A 8E 00 51  14 30 11 8F 20 59 45 53  |A;BP:..Q.0.. YES|
00000C50: 3F 00 75 14 35 11 58 24  B2 CA 28 22 59 4E 22 2C  |?.u.5.X$..("YN",|
00000C60: 31 AB 28 28 58 AF 58 33  29 B2 30 29 2C 31 29 3A  |1.((X.X3).0),1):|
00000C70: 8D 34 35 30 30 00 AD 14  37 11 8B 20 58 24 B3 B1  |.4500...7.. X$..|
00000C80: 22 59 22 AF 58 24 B3 B1  22 4E 22 A7 99 22 12 50  |"Y".X$.."N"..".P|
00000C90: 4C 45 41 53 45 20 41 4E  53 57 45 52 20 20 59 20  |LEASE ANSWER  Y |
00000CA0: 20 4F 52 20 20 4E 22 3A  89 34 34 30 30 00 DB 14  | OR  N":.4400...|
00000CB0: 3A 11 58 24 B2 C8 28 58  24 2C 31 29 3A 58 B2 28  |:.X$..(X$,1):X.(|
00000CC0: 20 58 AF 28 A8 20 58 33  29 20 B0 20 28 58 24 B2  | X.(. X3) . (X$.|
00000CD0: 22 59 22 29 AF 58 33 20  29 3A 8E 00 00 15 94 11  |"Y").X3 ):......|
00000CE0: 99 58 24 C8 28 4C 45 24  2C C3 28 58 24 29 29 3B  |.X$.(LE$,.(X$));|
00000CF0: 3A 43 58 B2 31 3A 8F 20  47 41 52 44 20 49 4E 50  |:CX.1:. GARD INP|
00000D00: 00 33 15 99 11 4D 24 B2  CA 28 58 24 AA 22 20 22  |.3...M$..(X$." "|
00000D10: 2C 43 58 2C 31 29 3A 99  22 12 22 4D 24 22 92 9D  |,CX,1):."."M$"..|
00000D20: 22 3B 3A A1 47 24 3A 8B  47 24 B2 22 22 A7 8D 34  |";:.G$:.G$.""..4|
00000D30: 35 36 35 00 66 15 9E 11  3A 41 B2 C6 28 47 24 29  |565.f...:A..(G$)|
00000D40: 3A 99 4D 24 22 9D 22 3B  3A 8B 28 41 20 AF 20 31  |:.M$".";:.(A . 1|
00000D50: 32 37 29 B3 33 32 B0 43  58 B1 37 37 B0 41 B2 33  |27).32.CX.77.A.3|
00000D60: 34 A7 34 35 32 30 00 9B  15 A3 11 3A 20 99 47 24  |4.4520.....: .G$|
00000D70: 3B 3A 58 24 B2 C8 28 58  24 2C 43 58 AB 31 29 AA  |;:X$..(X$,CX.1).|
00000D80: 47 24 AA CA 28 58 24 2C  43 58 AA 31 29 3A 43 58  |G$..(X$,CX.1):CX|
00000D90: B2 43 58 AA 31 3A 89 34  35 30 35 00 C5 15 A8 11  |.CX.1:.4505.....|
00000DA0: 3A 8B 41 B2 31 35 37 A7  8B 43 58 B1 31 A7 43 58  |:.A.157..CX.1.CX|
00000DB0: B2 43 58 AB 31 3A 99 47  24 3B 3A 89 34 35 30 35  |.CX.1:.G$;:.4505|
00000DC0: 3A 8F 20 4C 46 00 F0 15  AD 11 3A 8B 41 B2 32 39  |:. LF.....:.A.29|
00000DD0: AF 43 58 B3 B2 C3 28 58  24 29 A7 43 58 B2 43 58  |.CX...(X$).CX.CX|
00000DE0: AA 31 3A 99 47 24 3B 3A  89 34 35 30 35 3A 52 49  |.1:.G$;:.4505:RI|
00000DF0: 00 06 16 B2 11 3A 8B 41  B2 31 33 A7 34 35 38 30  |.....:.A.13.4580|
00000E00: 3A 8F 20 52 45 54 00 3B  16 B7 11 3A 8B 41 B2 32  |:. RET.;...:.A.2|
00000E10: 30 A7 8B 43 58 B1 31 A7  99 47 24 3B 3A 58 24 B2  |0..CX.1..G$;:X$.|
00000E20: C8 28 58 24 2C 43 58 AB  32 29 AA CA 28 58 24 2C  |.(X$,CX.2)..(X$,|
00000E30: 43 58 29 3A 43 58 B2 43  58 AB 31 00 56 16 BC 11  |CX):CX.CX.1.V...|
00000E40: 3A 8B 41 B2 31 34 38 AF  C3 28 58 24 29 B3 37 38  |:.A.148..(X$).78|
00000E50: A7 8D 34 35 35 35 00 7B  16 C1 11 3A 8B 41 B2 31  |..4555.{...:.A.1|
00000E60: 34 37 A7 4C B2 C3 28 58  24 29 3A 8D 34 35 36 30  |47.L..(X$):.4560|
00000E70: 3A 43 58 B2 31 3A 58 24  B2 22 22 00 86 16 C6 11  |:CX.1:X$."".....|
00000E80: 3A 89 34 35 30 35 00 B5  16 CB 11 58 24 B2 C8 28  |:.4505.....X$..(|
00000E90: 58 24 2C 43 58 AB 31 29  AA 22 20 22 AA CA 28 58  |X$,CX.1)." "..(X|
00000EA0: 24 2C 43 58 29 3A 99 47  24 22 20 9D 22 3B 3A 8E  |$,CX):.G$" .";:.|
00000EB0: 3A 8F 20 49 4E 00 DE 16  D0 11 99 C8 28 4C 45 24  |:. IN.......(LE$|
00000EC0: 2C 43 58 AB 31 29 C8 28  53 50 24 2C 4C 29 C8 28  |,CX.1).(SP$,L).(|
00000ED0: 4C 45 24 2C 4C 29 3B 3A  8E 3A 8F 20 43 4C 00 0C  |LE$,L);:.:. CL..|
00000EE0: 17 D5 11 99 22 12 22 4D  24 22 9D 92 22 3B 3A 81  |...."."M$"..";:.|
00000EF0: 57 B2 31 A4 35 30 3A A1  47 24 3A 8B 47 24 B3 B1  |W.1.50:.G$:.G$..|
00000F00: 22 22 A7 99 4D 24 22 9D  22 3B 3A 8E 00 32 17 DA  |""..M$".";:..2..|
00000F10: 11 3A 82 57 3A 99 4D 24  22 9D 22 3B 3A 81 57 B2  |.:.W:.M$".";:.W.|
00000F20: 31 A4 35 30 3A A1 47 24  3A 8B 47 24 B3 B1 22 22  |1.50:.G$:.G$..""|
00000F30: A7 8E 00 40 17 DF 11 3A  82 57 3A 89 34 35 36 35  |...@...:.W:.4565|
00000F40: 00 62 17 E4 11 8B C8 28  58 24 2C 31 29 B2 22 20  |.b.....(X$,1)." |
00000F50: 22 A7 58 24 B2 CA 28 58  24 2C 32 29 3A 89 34 35  |".X$..(X$,2):.45|
00000F60: 38 30 00 8B 17 E9 11 3A  8B C9 28 58 24 2C 31 29  |80.....:..(X$,1)|
00000F70: B2 22 20 22 A7 58 24 B2  C8 28 58 24 2C C3 28 58  |." ".X$..(X$,.(X|
00000F80: 24 29 AB 31 29 3A 89 34  35 38 35 00 94 17 EE 11  |$).1):.4585.....|
00000F90: 3A 99 3A 8E 00 A5 17 C0  12 8F 20 41 53 4B 20 4E  |:.:....... ASK N|
00000FA0: 55 4D 42 45 52 00 D6 17  CA 12 58 24 B2 CA 28 C4  |UMBER.....X$..(.|
00000FB0: 28 58 29 2C 32 29 3A 8D  34 35 30 30 3A 58 B2 C5  |(X),2):.4500:X..|
00000FC0: 28 58 24 29 3A 8B 58 B2  30 AF 58 24 B3 B1 22 30  |(X$):.X.0.X$.."0|
00000FD0: 22 A7 34 38 31 32 00 E9  17 CB 12 8B 58 B2 B1 58  |".4812......X..X|
00000FE0: 31 AF 58 B2 B3 58 32 A7  8E 00 17 18 CC 12 99 22  |1.X..X2........"|
00000FF0: 12 49 4C 4C 45 47 41 4C  20 45 4E 54 52 59 20 2D  |.ILLEGAL ENTRY -|
00001000: 20 50 4C 45 41 53 45 20  45 4E 54 45 52 20 41 20  | PLEASE ENTER A |
00001010: 4E 55 4D 42 45 52 22 00  3F 18 CF 12 99 22 12 49  |NUMBER".?....".I|
00001020: 4E 20 54 48 45 20 52 41  4E 47 45 20 4F 46 22 58  |N THE RANGE OF"X|
00001030: 31 22 9D 20 54 4F 22 58  32 3A 89 34 38 30 30 00  |1". TO"X2:.4800.|
00001040: 4F 18 F0 23 8F 20 4C 4F  41 44 20 50 52 4F 47 00  |O..#. LOAD PROG.|
00001050: 86 18 F1 23 A0 20 52 41  3A 8B 20 44 54 B2 31 20  |...#. RA:. DT.1 |
00001060: AF 20 52 56 B2 31 20 A7  20 99 22 11 12 49 4E 53  |. RV.1 . ."..INS|
00001070: 45 52 54 20 50 52 4F 47  52 41 4D 20 44 49 53 4B  |ERT PROGRAM DISK|
00001080: 22 3A 8D 20 31 30 00 A9  18 F5 23 98 4B 4B 28 30  |":. 10....#.KK(0|
00001090: 29 2C 22 49 30 22 3A 99  22 11 28 4C 4F 41 44 49  |),"I0":.".(LOADI|
000010A0: 4E 47 20 22 58 24 22 29  22 00 DC 18 FA 23 9F 20  |NG "X$")"....#. |
000010B0: 53 45 2C 38 2C 53 45 2C  22 30 3A 22 AA 58 24 AA  |SE,8,SE,"0:".X$.|
000010C0: 22 2C 50 2C 52 22 3A 56  4F B2 30 3A 8D 20 38 3A  |",P,R":VO.0:. 8:|
000010D0: A0 20 53 45 3A 8B 20 45  20 A7 20 8E 00 F3 18 FF  |. SE:. E . .....|
000010E0: 23 8B 20 4C 49 B3 32 35  33 20 A7 20 97 20 49 56  |#. LI.253 . . IV|
000010F0: 2C 4C 49 00 05 19 04 24  93 20 22 30 3A 22 AA 58  |,LI....$. "0:".X|
00001100: 24 2C 38 3A 90 00 13 19  54 24 8F 20 4F 50 45 4E  |$,8:....T$. OPEN|
00001110: 20 52 41 00 42 19 59 24  8B 20 44 54 B2 31 20 AF  | RA.B.Y$. DT.1 .|
00001120: 20 52 56 B2 31 20 A7 20  99 22 11 12 49 4E 53 45  | RV.1 . ."..INSE|
00001130: 52 54 20 44 41 54 41 20  44 49 53 4B 22 3A 8D 20  |RT DATA DISK":. |
00001140: 31 30 00 59 19 5B 24 98  4B 4B 28 52 56 29 2C 22  |10.Y.[$.KK(RV),"|
00001150: 49 22 44 52 24 28 52 56  29 00 8F 19 5E 24 9F 20  |I"DR$(RV)...^$. |
00001160: 53 45 2C 44 56 28 52 56  29 2C 53 45 2C 44 52 24  |SE,DV(RV),SE,DR$|
00001170: 28 52 56 29 AA 22 3A 44  42 22 AA C7 28 33 34 AA  |(RV).":DB"..(34.|
00001180: 31 32 38 29 AA 4E 41 24  AA 22 2C 53 2C 52 22 00  |128).NA$.",S,R".|
00001190: AA 19 60 24 56 4F B2 52  56 3A 8D 20 38 3A A0 20  |..`$VO.RV:. 8:. |
000011A0: 53 45 3A 8B 20 45 20 A7  20 8E 00 C8 19 63 24 9F  |SE:. E . ....c$.|
000011B0: 20 52 41 2C 44 56 28 52  56 29 2C 52 41 2C 22 23  | RA,DV(RV),RA,"#|
000011C0: 22 3A 42 4C B2 30 3A 8E  00 00 00 20 A4 20 48 46  |":BL.0:.... . HF|
000011D0: 3A 84 53 45 2C 46 54 24  28 57 46 29 3A 82 20 57  |:.SE,FT$(WF):. W|
000011E0: 46 00 F5 10 27 07 81 58  B2 30 A4 48 4B 3A 84 53  |F...'..X.0.HK:.S|
000011F0: 45 2C 53 46 25 28 58 29  3A 82 58 00 19 11 28 07  |E,SF%(X):.X...(.|
00001200: 8B 20 52 33 20 A7 20 9F  20 52 41 2C 38 2C 52 41  |. R3 . . RA,8,RA|
00001210: 2C 22 23 22 3A 8D 20 38  3A 8B 45 20 A7 20 90 00  |,"#":. 8:.E . ..|
00001220: 44 11 29 07 8B 20 52 34  20 A7 20 CD 23 28 52 41  |D.).. R4 . .#(RA|
00001230: 29 2C 28 22 52 41 A2 22  AA 4E 41 24 29 2C 4C 28  |),("RA.".NA$),L(|
00001240: 52 53 29 2C 44 28 44 52  29 3A 00 73 11 2B 07 52  |RS),D(DR):.s.+.R|
00001250: 52 B2 30 3A A0 20 53 45  3A 57 4B B2 55 4B 3A 53  |R.0:. SE:WK.UK:S|
00001260: 46 B2 53 46 25 28 57 4B  29 3A 86 46 24 28 48 46  |F.SF%(WK):.F$(HF|
00001270: 29 3A 42 46 B2 53 46 3A  8E 00 83 11 6C 07 8F 2A  |):BF.SF:....l..*|
00001280: 2A 2A 2A 2A 2A 45 58 49  54 00 B3 11 6D 07 99 22  |*****EXIT...m.."|
00001290: 11 45 58 49 54 28 12 59  92 2F 12 4E 92 29 3F 22  |.EXIT(.Y./.N.)?"|
000012A0: 3A 47 31 24 B2 22 59 4E  22 3A 8D 20 35 3A 8B 20  |:G1$."YN":. 5:. |
000012B0: 47 24 B2 22 4E 22 A7 20  8E 00 C1 11 99 07 8B 53  |G$."N". .......S|
000012C0: 50 A7 8D 33 39 30 30 00  CC 11 A3 07 A0 20 52 41  |P..3900...... RA|
000012D0: 3A 80 00 E2 11 34 08 8F  2A 2A 2A 2A 2A 2A 41 44  |:....4..******AD|
000012E0: 44 20 52 45 43 4F 52 44  00 00 12 35 08 8B 48 52  |D RECORD...5..HR|
000012F0: B2 4D 52 20 A7 20 99 22  4F 55 54 20 4F 46 20 52  |.MR . ."OUT OF R|
00001300: 4F 4F 4D 22 3A 8E 00 26  12 36 08 99 22 93 11 41  |OOM":..&.6.."..A|
00001310: 44 44 49 4E 47 20 52 45  43 4F 52 44 23 22 48 52  |DDING RECORD#"HR|
00001320: AA 31 3A 4C B2 30 3A 8D  34 35 30 30 00 50 12 39  |.1:L.0:.4500.P.9|
00001330: 08 8B 20 47 24 B3 B1 22  52 22 A7 20 81 20 57 46  |.. G$.."R". . WF|
00001340: B2 31 20 A4 20 48 46 3A  46 24 28 57 46 29 B2 22  |.1 . HF:F$(WF)."|
00001350: 22 3A 82 20 57 46 00 6B  12 3E 08 8D 20 33 37 30  |":. WF.k.>.. 370|
00001360: 30 3A 8F 20 4B 42 44 20  52 45 43 20 49 4E 50 55  |0:. KBD REC INPU|
00001370: 54 00 A6 12 43 08 55 4B  B2 57 4B 3A 81 20 57 4B  |T...C.UK.WK:. WK|
00001380: B2 30 A4 48 4B 3A 53 46  B2 53 46 25 28 57 4B 29  |.0.HK:SF.SF%(WK)|
00001390: 3A 46 49 24 B2 46 24 28  53 46 29 3A 8D 20 33 33  |:FI$.F$(SF):. 33|
000013A0: 30 30 3A 8F 20 42 49 20  53 52 43 48 00 D5 12 48  |00:. BI SRCH...H|
000013B0: 08 3A 8B 20 46 52 B3 48  52 AA 31 20 A7 20 42 52  |.:. FR.HR.1 . BR|
000013C0: B2 46 52 3A 54 52 B2 48  52 3A 8D 20 35 32 30 30  |.FR:TR.HR:. 5200|
000013D0: 3A 8F 20 43 48 55 4E 4B  20 55 50 00 F7 12 4D 08  |:. CHUNK UP...M.|
000013E0: 50 4F 25 28 46 52 2C 57  4B 29 B2 48 52 AA 31 3A  |PO%(FR,WK).HR.1:|
000013F0: 8B 57 4B B2 55 4B A7 20  52 52 B2 46 52 00 0E 13  |.WK.UK. RR.FR...|
00001400: 4E 08 82 20 57 4B 3A 48  52 B2 48 52 AA 31 3A 57  |N.. WK:HR.HR.1:W|
00001410: 4B B2 55 4B 00 3C 13 52  08 53 46 B2 53 46 25 28  |K.UK.<.R.SF.SF%(|
00001420: 55 4B 29 3A 57 52 B2 48  52 3A 8D 34 31 30 30 3A  |UK):WR.HR:.4100:|
00001430: 8D 33 35 30 30 3A 8E 3A  8F 20 57 52 54 2C 44 49  |.3500:.:. WRT,DI|
00001440: 53 50 00 55 13 98 08 8F  2A 2A 2A 2A 2A 2A 43 48  |SP.U....******CH|
00001450: 41 4E 47 45 20 52 45 43  4F 52 44 00 70 13 99 08  |ANGE RECORD.p...|
00001460: 99 22 93 11 12 43 48 41  4E 47 45 20 52 45 43 4F  |."...CHANGE RECO|
00001470: 52 44 23 22 52 52 00 7C  13 9C 08 8B 31 B1 52 52  |RD#"RR.|....1.RR|
00001480: A7 8E 00 9C 13 9D 08 8D  20 33 37 30 30 3A 8B 20  |........ 3700:. |
00001490: 43 46 B2 30 A7 8D 34 31  30 30 3A 8D 33 35 30 30  |CF.0..4100:.3500|
000014A0: 3A 8E 00 BF 13 A2 08 55  52 B2 57 52 3A 55 4B B2  |:......UR.WR:UK.|
000014B0: 57 4B 3A 8D 34 35 30 30  3A 8F 45 4D 42 45 52 20  |WK:.4500:.EMBER |
000014C0: 57 52 2C 57 4B 00 CC 13  A7 08 81 57 4B B2 30 A4  |WR,WK......WK.0.|
000014D0: 48 4B 00 0B 14 AC 08 3A  20 46 49 B2 55 52 3A 8D  |HK.....: FI.UR:.|
000014E0: 35 33 30 30 3A 42 52 B2  46 52 AA 31 3A 54 52 B2  |5300:BR.FR.1:TR.|
000014F0: 48 52 3A 48 52 B2 48 52  AB 31 3A 8B 42 52 B3 B2  |HR:HR.HR.1:.BR..|
00001500: 54 52 A7 8D 35 31 30 30  3A 8F 44 45 4C 20 43 52  |TR..5100:.DEL CR|
00001510: 44 00 2E 14 B1 08 3A 20  53 46 B2 53 46 25 28 57  |D.....: SF.SF%(W|
00001520: 4B 29 3A 46 49 24 B2 46  24 28 53 46 29 3A 8D 20  |K):FI$.F$(SF):. |
00001530: 33 33 30 30 00 5D 14 B3  08 3A 20 42 52 B2 46 52  |3300.]...: BR.FR|
00001540: 3A 54 52 B2 48 52 3A 8B  42 52 B3 B2 54 52 A7 20  |:TR.HR:.BR..TR. |
00001550: 20 8D 35 32 30 30 3A 8F  20 43 41 52 44 20 53 50  | .5200:. CARD SP|
00001560: 41 43 45 00 84 14 B6 8B  35 4B 46 3A 35           |ACE.....5KF:5   |

....... 5/10/80  9:20. .... 1100.[.... 1
5,8,15,"I0":.15,"S0:CREATE SEQ":."0:CREA
TE SEQ",8:..Q....4,4:.4:.".";:.:.......G
$:.V.1.C(G1$):.G$..J(G1$,V,1)..V:.5.....
.......KK(VO),E,E$,S,T:.E.2...X...."DISK
 ERROR:"E;E$;S;T......"..R.EADY?":G1$."R
":.5:....... MAIN...... SET UP...... ASK
 ALL.).... CREATE.9.... SPACE PAD.H.".. 
TYPE ASK.X.#.. ASK RANGE.R.%.. KEY BOARD
 REC INPUT...*.. READ A RECORD...+.. POS
ITION POINTER...,.. YES?...0.. ASK NUMBE
R.I.\.. LOAD PROG.W.].. OPEN RA...L.. MA
IN...Q.. LI.253 . . IV,LI.3.!.S.. HR.0 .
 .".FILE IS EMPTY":. 1175.7.V.. 9300:. E
 . 1110.B.X.. 1200._.[.. 2700:. CA . 115
5:. ASK.Y.`.. DT.1 . QV.RV:. 1155...E.:.
"..IF RANDOM DATA FILE IS IN DRIVE 1...J
.:.".AND IF THE SEQUENTIAL FILE IS TO GO
 ON A SEPARATE DISK,.#.O.:.".THEN YOU MU
ST NOW REMOVE THE PROGRAM DISK FROM DRIV
E 0.T.T.:.".AND REPLACE IT WITH THE SEQU
ENTIAL DISK"...Y.:.".SEQ FILE GOES ON DR
IVE NO:(.1./.0.)":G1$."01":. 5:QV.E(G$).
..~.:. RV..QV . .KK(QV),"I".DR$(QV).F...
. 2800.U....CA.0.1160...... ML.44:.B(B7.
8).0..".PRESS STOP ON CASSETTE":.1157.%.
... E . 1115:. CREATE.7.... DT.1 . 1175.
X...:.".......REPLACE PROGRAM DISK IN DR
IVE 0 IF NECESSARY":. 10.....X$."FILE ME
NU":. 9200:. 1175...... SET UP...X.F$(0)
."".N.... X.1. MD:AR%(X).X:. X.....R1.1:
R2.HR:....... SET UP...... ASK ALL.(....
".  .CREATE SEQ FILE OR PRACTICALC FILE"
.I....".NAME OF SEQ FILE?"R$"(LEAVE BLAN
K TO RETURN TO FILE MENU).....X$.NS$:.45
00:NS$.X$......NS$."".X$."FILE MENU":.92
00:.2717......".DO YOU WANT A .PRACTICAL
C. TYPE FILE?":X.0:X3.1:.4400:PC.X......
"..RAND FIELDS:":.WF.1.HF:."."WF"."FT$(W
F):.WF.M...."HOW MANY FIELDS WILL THE SE
Q FILE HAVE?".M...X1.1:X2.MD:X.HQ:. 4800
:HQ.X.}.... WF.1 . HQ.....:. "SEQ FIELD 
NO" WF "SHOULD BE LOADED WITH RAN FIELD 
NO:".....:."(ENTER  0  FOR EMPTY FIELD)"
.....:X1.0:X2.HF:X.AR%(WF):. 4800:AR%(WF
).X:X.0:X3.1.N....PC.PC%(WF).136:."NUMER
IC FIELD":.4400:.X.PC%(WF).192.F.C.. WF:
. 3500:. RANGE.Y.D..PC.WP.0:.2767...H.."
.WILL THE OUTPUT BE USED BY A WORD PROCE
SSOR?.I.I.."(PAGE MATE, WORD PRO)...M.X.
WP:X3.1:. 4400:WP.X...O..".OUTPUT TO CAS
SETTE?...P.X.CA:X3..1:. 4400:CA.X.S.R.."
CORRECTIONS(.Y./.N.)?":G1$."YN":. 5:. G$
."Y" . 2700.Y.W...F.... CREATE...... CA 
. . SE,1,1,NS$:.2840.....:.KK(QV),"S".DR
$(QV).":".NS$.P...:. SE,DV(QV),SE,DR$(QV
).":".NS$.",S,W".....:VO.QV:. 8:. E .   
SE:......F$(0)."":QL$.Q$."\".'....PC..SE
,R2.R1;R$;:.SE,HQ.1;R$;.8.... RR.R1 . R2
.].".:WR.PO%(RR,WK):. 4200:. READ REC.P.
'.:. WP . . 2900...(..PC.0.. WQ.1 . HQ:.
SE,Q$F$(AR%(WQ))R$;:. WQ:. 2865.G.)..WQ.
1.HQ:.PC%(WQ)..136.2859...*..SE,QL$G(136
)F$(AR%(WQ))R$;:.SE,0;R$;:.2861...+..SE,
QL$G(192)R$;.&.,..SE,E(F$(AR%(WQ)))R$;.0
.-.:. WQ.D.1.. RR:  SE:E.0:..T.T.. SPACE
 PAD.T.Y..X.1.HF:.F$(X)."".F$(X)." ".}.^
..X:....... ASK RANGE.E....".START AT RE
CORD NO:":X1.1:X2.HR:X.R1:. 4800:R1.X...
..."END AT RECORD NO:":X.R2:. 4800:R2.X.
........H.. READ A RECORD.9.M.. R3 . . 4
300:. WF.1 . HF:.RA,F$(WF):. WF:..U.R.L.
1:.X.1.HF:O#(RA),(WR),(L):.RA,F$(X):L.L.
C(F$(X)).2:.X.{.W.....L.. POSITION POINT
ER...Q.BL..((WR.1).RB..00001).1...T..KK(
RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VO.RV:.
8:.E...!...X.(WR.1).(BL.1).RB:. NO. RECS
 BEFOR THIS IN THIS BLOCK.F...BP.1.RS.X:
.KK(RV),"B-P:";RA;BP:..Q.0.. YES?.U.5.X$
.J("YN",1.((X.X3).0),1):.4500...7.. X$..
"Y".X$.."N"..".PLEASE ANSWER  Y  OR  N":
.4400...:.X$.H(X$,1):X.( X.(. X3) . (X$.
"Y").X3 ):.......X$H(LE$,C(X$));:CX.1:. 
GARD INP.3...M$.J(X$." ",CX,1):."."M$"..
";:.G$:.G$.""..4565.F...:A.F(G$):.M$".";
:.(A . 127).32.CX.77.A.34.4520.....: .G$
;:X$.H(X$,CX.1).G$.J(X$,CX.1):CX.CX.1:.4
505.E...:.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.;...:.A.2
0..CX.1..G$;:X$.H(X$,CX.2).J(X$,CX):CX.C
X.1.V...:.A.148.C(X$).78..4555.{.A.:.A.1
47.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(LE$,L);:
.:. CL...U.."."M$"..";:.W.1.50:.G$:.G$..
""..M$".";:..2.Z.:.W:.M$".";:.W.1.50:.G$
:.G$..""...@...:.W:.4565.B....H(X$,1)." 
".X$.J(X$,2):.4580.....:.I(X$,1)." ".X$.
H(X$,C(X$).1):.4585.....:.:....... ASK N
UMBER.V.J.X$.J(D(X),2):.4500:X.E(X$):.X.
0.X$.."0".4812...K..X..X1.X..X2.....L.."
.ILLEGAL ENTRY - PLEASE ENTER A NUMBER".
?.O..".IN THE RANGE OF"X1". TO"X2:.4800.
O..#. LOAD PROG....#  RA:. DT.1 . RV.1 .
 ."..INSERT PROGRAM DISK":. 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:....
T$. OPEN RA.B.Y$. DT.1 . RV.1 . ."..INSE
RT DATA DISK":. 10.Y.[$.KK(RV),"I"DR$(RV
)...^$. SE,DV(RV),SE,DR$(RV).":DB".G(34.
128).NA$.",S,R"...`$VO.RV:. 8:  SE:. E .
 ..H.C$. RA,DV(RV),RA,"#":BL.0:.... . HF
:.SE,FT$(WF):. WF...'..X.0.HK:.SE,SF%(X)
:.X...(.. R3 . . RA,8,RA,"#":. 8:.E . ..
D.).. R4 . M#(RA),("RA.".NA$),L(RS),D(DR
):.S.+.RR.0:  SE:WK.UK:SF.SF%(WK):.F$(HF
):BF.SF:....L..******EXIT...M..".EXIT(.Y
./.N.)?":G1$."YN":. 5:. G$."N". ..A....S
P..3900.L...  RA:....4..******ADD RECORD
...5..HR.MR . ."OUT OF ROOM":..&.6.."..A
DDING RECORD#"HR.1:L.0:.4500.P.9.. G$.."
R". . WF.1 . HF:F$(WF)."":. WF.K.>.. 370
0:. KBD REC INPUT...C.UK.WK:. WK.0.HK:SF
.SF%(WK):FI$.F$(SF):. 3300:. BI SRCH.U.H
.:. FR.HR.1 . BR.FR:TR.HR:. 5200:. CHUNK
 UP...M.PO%(FR,WK).HR.1:.WK.UK. RR.FR...
N.. WK:HR.HR.1:WK.UK.<.R.SF.SF%(UK):WR.H
R:.4100:.3500:.:. WRT,DISP.U....******CH
ANGE RECORD.P...."...CHANGE RECORD#"RR.|
....1.RR........ 3700:. CF.0..4100:.3500
:......UR.WR:UK.WK:.4500:.EMBER WR,WK.L.
...WK.0.HK.....: FI.UR:.5300:BR.FR.1:TR.
HR:HR.HR.1:.BR..TR..5100:.DEL CRD.....: 
SF.SF%(WK):FI$.F$(SF):. 3300.]...: BR.FR
:TR.HR:.BR..TR.  .5200:. CARD SPACE.....
5KF:5

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL