Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 » DataVision/!DataVis/!dv2
DataVision/!DataVis/!dv2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 |
| Filename: | DataVision/!DataVis/!dv2 |
| Read OK: | ✔ |
| File size: | 2709 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > $.!DataVis.!dv2
15SYS "Wimp_CommandWindow",-1
20MODE 15:COLOUR 180:CLS
30ONERRORGOTO1960
40MOUSE ON:OFF:FG%=180:ST$="1"
50OSCLI"CLOSE":X=OPENUPFNMyFile("NIM"):INPUT#X,ZZ$,ZZ$,ZA$,ZZ$,ZD$,MD$:OSCLI"CLOSE"
60CLS:DIMME$(20):DIMFT$(10):FORI=1TO9:READFT$(I):NEXTI
70DATA"A: Alphanumeric","B: Capital Alpha","C: Multiple Choice","D: Logical Yes or No","E: Date","F: Time","G: Integer","H: Real","I: Formula Real"
80GOTO120
90DEFPROCLWN
100PRINTTAB(X,Y);CHR$(154);STRING$(W%,CHR$(159));CHR$(158):FORI=Y+1TOY+L%:PRINTTAB(X,I);CHR$(155);STRING$(W%," ");CHR$(157):NEXTI:PRINTTAB(X,Y+(L%+1));CHR$(156);STRING$(W%,CHR$(160));CHR$(161)
110ENDPROC
120COLOUR131:PRINTTAB(5,2);"Create New File":COLOURFG%:X=2:Y=4:L%=12:W%=62:PROCLWN:PRINTTAB(5,5);"Enter Filename: "
130X=22:Y=5:L%=9:COLOUR131:PRINTTAB(22,5);SPC(9):PROCTEXT:COLOURFG%:FI$=T$:IFFI$=""THENGOTO1090
140DR$=MD$
150DI$=""
160PRINTTAB(5,24);"Details Correct?";:PROCYN
170IFYN=0THENCLS:GOTO120
180PROCMAIN:ONERRORGOTO230
190OSCLI"INFO <DataVision$Dir>."+FI$+"N":ONERRORGOTO1960
200CLS:VDU7:PRINTTAB(2,2);FI$;" already exists on this disk. Replace?";:PROCYN
210IFYN=1THENGOTO240
220COLOURFG%:CLS:GOTO120
230ONERRORGOTO1960
240COLOUR127:ONERRORGOTO1960
250FA$=FI$+"A":B=OPENOUTFNMyFile(FA$):OSCLI"CLOSE":B=OPENUPFNMyFile(FA$):PTR#B=35:PRINT#B,ZA$:PTR#B=45:PRINT#B,"0":PTR#B=48:PRINT#B,"0":SAMS%=0:RT$=FI$+"B":C=OPENOUTFNMyFile(RT$):NOF%=0:SF%=1:REC%=0
255OSCLI ("Create "+FNMyFile(FI$))
256OSCLI ("SetType "+FNMyFile(FI$)+" &DB5")
260TI%=0:MC=0:CO%=0
270GOTO1230
280DEFPROCERWIN:X=19:Y=11:W%=40:L%=3:COLOUR180:PROCLWN:COLOURFG%:ENDPROC
290DEFPROCMKLIK:REPEAT:MOUSE U,U,BUT:UNTILBUT=0:REPEAT:MOUSE U,U,BUT:UNTILBUT=4:ENDPROC
300DEFPROCYN:xp=POS:yp=VPOS:PRINT" ";:COLOUR131:PRINT"YES/NO"
310MOUSE XP,YP,BUT:XP=INT(XP/16):YP=31-INT(YP/32):IFBUT=0THENGOTO310
320IFYP<>yp THENGOTO310
330IFXP=xp+1 OR XP=xp+2 OR XP=xp+3THENYN=1:GOTO360
340IFXP=xp+5 OR XP=xp+6 THENYN=0:GOTO360
350GOTO310
360COLOURFG%:PRINTTAB(xp,yp);" YES/NO":VDU7:ENDPROC
370DEFPROCMAIN:CLS
380IFST$="4"THENGOTO430
390IFST$="1"THENGOTO410
400PROCERWIN:COLOUR180:PRINTTAB(20,12);"Please insert the disc:";TAB(20,14);":";DR$;".data disc":COLOURFG%:PROCMKLIK
410IFVAL(ST$)<3THENGOTO440
420IFST$="3"THENOSCLI"DISC":OSCLI"DRIVE "+DR$:GOTO440
430IFST$="4"THENOSCLI"NET":OSCLI"I AM SYST PASS"
440ENDPROC
450DEFPROCDIR
460OSCLID1$+D2$
470ENDPROC
480DEFPROCTEXT:*FX21,0
490T$="":L=0
500IFL<L%THENPRINTTAB(X,Y);CHR$(255)
510IN=GET
520IFIN=13THENNP%=0:GOTO610
530IFIN=127THENGOTO580
540IFIN=9THENNP%=1:GOTO610
550IFL=L%THENGOTO510
560PRINTTAB(X,Y);CHR$(IN):T$=T$+CHR$(IN):L=L+1:X=X+1
570GOTO500
580IFL=0THENGOTO490
590PRINTTAB(X,Y);" ":X=X-1:L=L-1:T$=LEFT$(T$,L)
600GOTO500
610IFL<L%THENPRINTTAB(X,Y);" "
620ENDPROC
630DEFPROCSC
640COLOUR128:PRINTTAB(0,0);STRING$(80,CHR$(241));TAB(0,22);STRING$(80,CHR$(241)):COLOUR131:PRINTTAB(70,0);"PAGE ";P%:PRINTTAB(0,28);"X: Y:":COLOURFG%:ENDPROC
650DEFPROCPOSIT:NP%=0:MOUSE TO 22,980:VDU5:GCOL3,120:MOUSE x1,y1,but:x1=INT(x1/16):y1=31-INT(y1/32):XP=x1:YP=y1:MOVE (x1*16),1023-(y1*32):PRINTT$
660MOUSE S,S,BUT:IFBUT=0THENGOTO670:ELSEGOTO660
670MOUSE X1,Y1,BUT:X1=INT(X1/16):Y1=31-INT(Y1/32):IFY1>21THENY1=21
680IFX1>(80-LEN(T$))THENX1=(80-LEN(T$))
690IFY1<1THENY1=1
700IFBUT>0THENGOTO730
710IF XP=X1 AND YP=Y1 THENGOTO670:ELSEMOVE(XP*16),1023-(YP*32):PRINTT$:XP=X1:YP=Y1
720MOVE(X1*16),1023-(Y1*32):PRINTT$:VDU4:PRINTTAB(2,28);X1;" ";TAB(7,28);Y1;" ":VDU5:GCOL3,120
730IFBUT=4THENGOTO910
740IFBUT=2THENGOTO760
750GOTO670
760GCOL4:MOVE(XP*16),1023-(YP*32):PRINTT$:VDU4:CLG:CLS:IFNP%=0THENNP%=1:P%=P%+1:PROCSC:VDU 5:GCOL3,120:MOVE(XP*16),1023-(YP*32):PRINTT$:GOTO780
770IFNP%=1THENNP%=0:P%=P%-1:PROCSC:VDU 5:GCOL3,120:MOVE(XP*16),1023-(YP*32):PRINTT$
780VDU5:GCOL3,120:MOUSE x1,y1,BUT:IFBUT=0THENGOTO670:ELSEGOTO780
790IFY1=21THENGOTO670
800PRINTTAB(X1,Y1);STRING$(LEN(T$)," ")
810Y1=Y1+1:GOTO670
820IFY1=1THENGOTO670
830PRINTTAB(X1,Y1);STRING$(LEN(T$)," ")
840Y1=Y1-1:GOTO670
850IFX1=1THENGOTO670
860PRINTTAB(X1,Y1);STRING$(LEN(T$)," ")
870X1=X1-1:GOTO670
880IFX1=80-LEN(T$)THENGOTO670
890PRINTTAB(X1,Y1);STRING$(LEN(T$)," ")
900X1=X1+1:GOTO670
910VDU4:PRINTTAB(X1,Y1);T$:OSCLI"FX15,0":REPEAT:MOUSE U,U,BUT:UNTIL BUT=0:ENDPROC
920OSCLI"FX15,0":ENDPROC
930DEFPROCMULTIC:SL%=0:MC$=""
940PRINTTAB(0,25);"Enter Multiple Choice selections for field ";I;": ";FL$
950Y9=Y1:PRINTTAB(X2,Y9);CHR$(154);STRING$(19,CHR$(159));CHR$(158):Y9=Y9+1
960*FX12,0
970PRINTTAB(X2,Y9);CHR$(155);STRING$(19," ");CHR$(157):Y=Y9:X=X2+4:L%=16:PROCTEXT:IFT$=""THENGOTO990
980MC$=MC$+T$+CHR$(254):SL%=SL%+1:IFSL%=14THENY9=Y9+1:GOTO990:ELSEY9=Y9+1:GOTO970
990IFSL%=0THENGOTO950
1000PRINTTAB(X2,Y9);CHR$(156);STRING$(19,CHR$(160));CHR$(161):PTR#C=(MC*245):PRINT#C,STR$(I):PTR#C=(MC*245)+5:PRINT#C,MC$:MC=MC+1:VDU28,X1,Y9,X1+20,Y1:CLS:VDU26:PRINTTAB(X1,Y1);"XXXXXXXXXXXXXXXX"
1010PRINTTAB(0,25);STRING$(80," "):ENDPROC
1020PROCCL:PRINTTAB(35,26);"Details Correct? (Y/N)":PROCYN:IFYN=0THENGOTO940
1030TI%=TI%+CO%:CO%=IN%+2
1040PTR#B=((CF%-1)*61)+63:PRINT#B,FL$:PTR#B=((CF%-1)*61)+63+22:PRINT#B,STR$(X1):PTR#B=((CF%-1)*61)+63+26:PRINT#B,STR$(Y1):PTR#B=((CF%-1)*61)+63+30:PRINT#B,STR$(X2):PTR#B=((CF%-1)*61)+63+34:PRINT#B,STR$(Y2)
1050PTR#B=((CF%-1)*61)+63+38:PRINT#B,TY$:PTR#B=((CF%-1)*61)+63+41:PRINT#B,STR$(IN%):PTR#B=((CF%-1)*61)+63+46:PRINT#B,STR$(TI%):PTR#B=((CF%-1)*61)+63+54:PRINT#B,"00":PTR#B=((CF%-1)*61)+63+58:PRINT#B,STR$(NP%)
1060GOTO1310
1070CLOSE #0
1080PROCQuit
1090
1100
1110GOTO1960
1120STOP:CLS:IFERR=254THENPRINTTAB(0,4);"Storage system type ";ST$;" is not connected. Please press RETURN.":I$=GET$:GOTO220
1130IFERR=214THENPRINTTAB(0,4);"Directories specified are not present. Please press RETURN.":I$=GET$:GOTO220
1140IFERR=222THENPRINTTAB(0,4);"Master disk is not present. Please re-insert and press RETURN.":I$=GET$:GOTO220
1150IFERR=17THENGOTO220
1160GOTO1980
1170RUN
1180DEFPROCTABLE
1190PRINTTAB(0,5);CHR$(154);"Field";CHR$(233);"Title";STRING$(15,CHR$(159));CHR$(233);"Type"CHR$(233);"Length";CHR$(158)
1200L=SF%:FORI=6TO25:PRINTTAB(0,I);CHR$(155);" ";CHR$(231);" ";CHR$(231);" "CHR$(231);" ";CHR$(157);TAB(2,I);STRING$(3-LEN(STR$(L)),"0");L:L=L+1:NEXTI
1210ENDPROC
1220STOP
1230CLS:PRINTTAB(0,0);"Enter field details. RETURN ends this stage.":PRINTTAB(0,2);"Filename: ";FI$:PROCTABLE
1240Y8=6:X1=0:X2=21:Y1=X1:Y2=X1:NP%=0:FORF=1TO10:ME$(F)=FT$(F):NEXTF
1250FORCF%=1TO999
1260X=7:L%=20:Y=Y8:PROCTEXT:IFT$=""THENGOTO1450
1270FL$=T$:X=50:Y=10:L%=9:W%=23:PROCLWN:X=51:Y=11:PROCSELECT:PRINTTAB(29,Y8);LEFT$(ME$(SEL%),1):TY$=STR$(ASC(LEFT$(ME$(SEL%),1))-64):VDU28,50,20,74,10:CLS:VDU26:IFTY$="9"THENTY$="0"
1280IFTY$="1"ORTY$="2"ORTY$="9"THENGOTO1290:ELSEGOTO1330
1290X=34:Y=Y8:L%=3:PROCTEXT:IFT$=""THENT$="20":PRINTTAB(34,Y);T$
1300IN%=INT(VAL(T$)):IFIN%<1 OR IN%>255 THENPRINTTAB(34,Y8);" ":GOTO1290:ELSEGOTO1030
1310NOF%=NOF%+1:Y8=Y8+1:IFY8=26THENSF%=SF%+20:Y8=6:PROCTABLE
1320GOTO1410
1330IFTY$="3"THENIN%=16
1340IFTY$="4"THENIN%=3
1350IFTY$="5"THENIN%=8
1360IFTY$="6"THENIN%=5
1370IFTY$="7"THENIN%=9
1380IFTY$="8"THENIN%=18
1390IFTY$="0"THENIN%=18
1400PRINTTAB(34,Y8);IN%:GOTO1030
1410NEXTCF%
1420IFNOF%=0THENGOTO1260:ELSEGOTO1460
1430PRINTTAB(43,10);"Quit entering field details? ";:PROCYN:PRINTTAB(43,10);SPC(37):IFYN=0THENGOTO1260
1440GOTO1460
1450IFNOF%=0THENGOTO1260:ELSEGOTO1430
1460REC%=(TI%+CO%)+10
1470CLS:X=15:Y=10:W%=24:L%=3:PROCLWN:ME$(1)="Manual Form Design":ME$(2)="Automatic Form Design":ME$(3)="Quit":X=16:Y=11:L%=3:PROCSELECT:CLS:IFSEL%=3THENOSCLI"CLOSE":GOTO220
1480IFSEL%=1THENGOTO1570
1490Y1=1:Y2=Y1:TI%=0:CLS:P%=1:X1=21:PROCSC
1500FORI=1TONOF%:PTR#B=(I-1)*61+101:INPUT#B,TY$:PTR#B=(I-1)*61+104:INPUT#B,IN$:PTR#B=(I-1)*61+63:INPUT#B,FL$:IFY1=22THENPROCNEWPAGE
1510PRINTTAB(0,Y1);FL$:IFTY$="3"THENPROCMULTIC
1520IFVAL(IN$)>59THENIN$="59":PTR#B=(I-1)*61+104:PRINT#B,IN$
1530PTR#B=(I-1)*61+109:PRINT#B,STR$(TI%):TI%=TI%+VAL(IN$)+2:PTR#B=(I-1)*61+89:PRINT#B,STR$(Y1):PTR#B=(I-1)*61+97:PRINT#B,STR$(Y1):PRINTTAB(0,Y1);FL$:PROCFLD
1540Y1=Y1+1
1550NEXTI:REC%=TI%+10:OSCLI"FX12,0":VDU28,0,29,79,23:CLS:VDU26:PRINTTAB(5,25);"Data entry screen completed. Click mouse to continue...":REPEAT:MOUSE U,U,BUT:UNTIL BUT>0:GOTO1810
1560DEFPROCNEWPAGE:CLS:P%=P%+1:PROCSC:PTR#B=(I-1)*61+121:PRINT#B,"1":Y1=1:PTR#B=(I-1)*61+89:PRINT#B,STR$(Y1):PTR#B=(I-1)*61+97:PRINT#B,STR$(Y1):ENDPROC
1570CLS:P%=1:PROCSC:PRINTTAB(0,23);"Manual Form Creation Screen":*FX15,0
1580FORI=1TONOF%:PTR#B=(I-1)*61+63:INPUT#B,T$:PTR#B=(I-1)*61+101:INPUT#B,TY$:PTR#B=(I-1)*61+104:INPUT#B,IN$:PRINTTAB(0,25);"Position Field ";I;": ";T$;" ":X1=1:Y1=1:PROCPOSIT:X0=X1:Y0=Y1
1590NP$=STR$(NP%):PRINTTAB(0,25);"Position Input Panel for Field ";I;": ";T$;" ":T$=CHR$(255):X1=X1-1:PROCPOSIT:PROCFCHEK:IFYN%=1THENGOTO1590
1600X2=X1:IFTY$="3"THENPROCMULTIC
1610PROCFLD:PTR#B=((I-1)*61)+63+22:PRINT#B,STR$(X0):PTR#B=((I-1)*61)+63+26:PRINT#B,STR$(Y0):PTR#B=((I-1)*61)+63+30:PRINT#B,STR$(X2):PTR#B=((I-1)*61)+63+34:PRINT#B,STR$(Y1):PTR#B=((I-1)*61)+63+58:PRINT#B,NP$
1620NEXTI:OSCLI"FX12,0":VDU28,0,29,79,23:CLS:VDU26:PRINTTAB(5,25);"Data entry screen completed. Click mouse to continue...":REPEAT:MOUSE U,U,BUT:UNTIL BUT>0:GOTO1810
1630DEFPROCFLD:IFTY$="1"ORTY$="2"ORTY$="9"THENGOTO1690
1640IFTY$="4"THENPRINTTAB(X2,Y1);"Y/N"
1650IFTY$="5"THENPRINTTAB(X2,Y1);"dd/mm/yy":ELSEIFTY$="6"THENPRINTTAB(X2,Y1);"hh:mm"
1660IFTY$="7"THENPRINTTAB(X2,Y1);CHR$(251);"99999999":GOTO1710
1670IFTY$="8"ORTY$="0"THENPRINTTAB(X2,Y1);CHR$(251);"99999999.999999999"
1680GOTO1710
1690LE%=80-X1:IFLE%>=VAL(IN$)THENPRINTTAB(X2,Y1);STRING$(VAL(IN$),"X"):GOTO1710
1700NLD%=VAL(IN$)DIV LE%:LB%=VAL(IN$) MOD LE%:FORJ%=1TONLD%:PRINTTAB(X2,Y1+(J%-1));STRING$(LE%,"X"):NEXTJ%:PRINTTAB(X2,Y1+(J%-1));STRING$(LB%,"X")
1710ENDPROC
1720DEFPROCFCHEK:YN%=0:PRINTTAB(X1,Y1);" ":IFTY$="3" AND X1>59THENYN%=1
1730IFTY$="4" AND X1>77 THENYN%=1
1740IFTY$="5" AND X1>72 THENYN%=1
1750IFTY$="6" AND X1>75 THENYN%=1
1760IFTY$="7" AND X1>71 THENYN%=1
1770IFTY$="8" AND X1>62 THENYN%=1
1780IFTY$="0" AND X1>62 THENYN%=1
1790IFYN%=1THENVDU7
1800ENDPROC
1810CLS:PRINTTAB(2,2);"Please select the Key Field:":PROCSEL:KF%=SF%:PTR#B=0:PRINT#B,STR$(NOF%):PTR#B=5:PRINT#B,"0":PTR#B=15:PRINT#B,STR$(REC%):PTR#B=51:PRINT#B,STR$(KF%):PTR#B=56:PRINT#B,STR$(MC)
1820IFMC=0THENCLOSE#C:OSCLI"REMOVE <DataVision$Dir>."+RT$
1830OSCLI"CLOSE":N$=FI$+"N":B=OPENOUTFNMyFile(N$):PRINT#B,DI$:OSCLI"CLOSE"
1840CLS:PRINTTAB(2,2);FI$;" has been created. Do you wish to create another file?";:PROCYN:IFYN=1THENGOTO220
1850GOTO1070
1860STOP
1870DEFPROCSELECT:ED%=Y+(L%-1):BG%=X+(W%-1):SSEL%=1
1880FORI=1TOL%:PRINTTAB(X,Y+(I-1));" ";ME$(I);STRING$((W%-2)-LEN(ME$(I))," "):NEXTI
1890MOUSE XP,YP,BUT:XP=INT(XP/16):YP=31-INT(YP/32)
1900IFYP<Y OR YP>ED%THENGOTO1880
1910IFXP<X OR XP>BG%THENGOTO1880
1920SEL%=(YP-Y)+1:PROCCLEA:COLOUR 131:COLOUR127:PRINTTAB(X,YP);" ";ME$(SEL%);STRING$((W%-2)-LEN(ME$(SEL%))," "):COLOUR FG%:COLOUR127:IFBUT=4THENGOTO1930:ELSEGOTO1890
1930VDU7:ENDPROC
1940DEFPROCCLEA:IFSSEL%<>SEL%THENFORI=1TOL%:PRINTTAB(X,Y+(I-1));" ";ME$(I);STRING$((W%-2)-LEN(ME$(I))," "):NEXTI
1950SSEL%=SEL%:ENDPROC
1960IFERR=67798THENPROCERWIN:COLOUR180:PRINTTAB(20,12);"Cannot find the directory...";TAB(20,14);"Click mouse to continue...":COLOURFG%:VDU7:PROCMKLIK:GOTO220
1970IFERR=67756THENPROCERWIN:COLOUR180:PRINTTAB(20,12);"Cannot find drive :";DR$;"...";TAB(20,14);"Click mouse to continue...":COLOURFG%:VDU7:PROCMKLIK:GOTO220
1975IF ERR = 17 THEN CLOSE#0:PROCQuit
1980PROCERWIN:COLOUR180:PRINTTAB(20,12);"System Reported Error #";ERR;":";TAB(20,14);REPORT$:VDU7:COLOURFG%:PROCMKLIK
1990OSCLI"CLOSE":VDU3:VDU26:GOTO220
2000PROCERWIN:COLOUR180:PRINTTAB(20,12);"Cannot read the file :";FI$;TAB(20,14);"(does not exist/not a DataVision file)":COLOURFG%:VDU7:PROCMKLIK:GOTO5000
2010FORI=65TO70:T$=CHR$(I):CLS:PROCPOSIT:NEXTI
2020DEFPROCSEL
2030COLOUR128:FG%=128:X=50:Y=2:W%=21:L%=23:PROCLWN:COLOURFG%:PRINTTAB(51,3);"Select a Field: ";CHR$(138);" ";CHR$(139);TAB(51,4);STRING$(21,CHR$(241))
2040SSF%=1:SF%=1:Y2=6:SR%=SF%
2050FR%=SR%+19:IFFR%>NOF%THENFR%=NOF%
2060L=6:LL=1:FORI=SR%TOFR%:PTR#B=(I-1)*61+63:INPUT#B,FL$:PRINTTAB(52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:NEXTI:IF LL<21 THEN FOR I=LL TO20:ME$(I)=" ":NEXTI
2070MOUSE XP,YP,BUT:XP=INT(XP/16):YP=31-INT(YP/32)
2080IFXP=67 AND YP=3 AND BUT=4 THENGOTO2120
2090IFXP=69 AND YP=3 AND BUT=4 THENGOTO2140
2100IF XP>71 OR XP<51 OR YP>25 OR YP<6 THENSSF%=0:PROCCLEAF:SSF%=SF%:GOTO2070
2110YP=YP-5:SF%=(YP+SR%)-1:PROCCLEAF:COLOUR131:PRINTTAB(52,YP+5);ME$(YP);SPC(20-LEN(ME$(YP))):COLOURFG%:IFBUT=4 AND SF%<(NOF%+1)THENGOTO2160:ELSEGOTO2070
2120IFFR%=NOF%THENGOTO2070
2130SR%=SR%+20:X=50:Y=2:W%=21:L%=23:PROCLWN:PRINTTAB(51,3);"Select a Field: ";CHR$(138);" ";CHR$(139);TAB(51,4);STRING$(21,CHR$(241)):GOTO2050
2140IFSR%=1THENGOTO2070
2150SR%=SR%-20:X=50:Y=2:W%=21:L%=23:PROCLWN:PRINTTAB(51,3);"Select a Field: ";CHR$(138);" ";CHR$(139);TAB(51,4);STRING$(21,CHR$(241)):GOTO2050
2160VDU7:PTR#B=(SF%-1)*61+63:INPUT#B,FL$:PTR#B=(SF%-1)*61+101:INPUT#B,TY$:PTR#B=(SF%-1)*61+117:INPUT#B,TR$:COLOUR180:FG%=180:ENDPROC
2170DEFPROCCLEAF:IFSSF%<>SF%THENFORI=1TO20:PRINTTAB(52,I+5);ME$(I);SPC(20-LEN(ME$(I))):NEXTI
2180SSF%=SF%:ENDPROC
2190DEFFNMyFile(file$)
2200="<DataVision$Dir>."+file$
2210DEF PROCQuit
2220SYS "Wimp_CommandWindow",-1
2230QUIT
2240ENDPROC
� > $.!DataVis.!dv2
ș "Wimp_CommandWindow",-1
� 15:� 180:�
��thG
(ȗ �:�:FG%=180:ST$="1"
2C�"CLOSE":X=��MyFile("NIM"):�#X,ZZ$,ZZ$,ZA$,ZZ$,ZD$,MD$:�"CLOSE"
<)�:�ME$(20):�FT$(10):�I=1�9:�FT$(I):�I
F��"A: Alphanumeric","B: Capital Alpha","C: Multiple Choice","D: Logical Yes or No","E: Date","F: Time","G: Integer","H: Real","I: Formula Real"
P �Dx@
Z ��LWN
dy�X,Y);�(154);�W%,�(159));�(158):�I=Y+1�Y+L%:�X,I);�(155);�W%," ");�(157):�I:�X,Y+(L%+1));�(156);�W%,�(160));�(161)
n�
xY�131:�5,2);"Create New File":�FG%:X=2:Y=4:L%=12:W%=62:�LWN:�5,5);"Enter Filename: "
�CX=22:Y=5:L%=9:�131:�22,5);�(9):�TEXT:�FG%:FI$=T$:�FI$=""��DBD
� DR$=MD$
�
DI$=""
�#�5,24);"Details Correct?";:�YN
��YN=0��:�Dx@
��MAIN:��df@
�-�"INFO <DataVision$Dir>."+FI$+"N":��thG
�A�:�7:�2,2);FI$;" already exists on this disk. Replace?";:�YN
��YN=1��dp@
��FG%:�:�Dx@
� ��thG
��127:��thG
��FA$=FI$+"A":B=��MyFile(FA$):�"CLOSE":B=��MyFile(FA$):�#B=35:�#B,ZA$:�#B=45:�#B,"0":�#B=48:�#B,"0":SAMS%=0:RT$=FI$+"B":C=��MyFile(RT$):NOF%=0:SF%=1:REC%=0
� � ("Create "+�MyFile(FI$))
'� ("SetType "+�MyFile(FI$)+" &DB5")
TI%=0:MC=0:CO%=0
�dND
1��ERWIN:X=19:Y=11:W%=40:L%=3:�180:�LWN:�FG%:�
"5��MKLIK:�:ȗ U,U,BUT:�BUT=0:�:ȗ U,U,BUT:�BUT=4:�
,'��YN:xp=�:yp=�:�" ";:�131:�"YES/NO"
68ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��TvA
@�YP<>yp ��TvA
J+�XP=xp+1 � XP=xp+2 � XP=xp+3�YN=1:�DhA
T"�XP=xp+5 � XP=xp+6 �YN=0:�DhA
^ �TvA
h �FG%:�xp,yp);" YES/NO":�7:�
r ��MAIN:�
|�ST$="4"��tnA
��ST$="1"��tZA
�[�ERWIN:�180:�20,12);"Please insert the disc:";�20,14);":";DR$;".data disc":�FG%:�MKLIK
��(ST$)<3��txA
�(�ST$="3"��"DISC":�"DRIVE "+DR$:�txA
�%�ST$="4"��"NET":�"I AM SYST PASS"
��
� ��DIR
� �D1$+D2$
��
���TEXT:*FX21,0
�
T$="":L=0
��L<L%��X,Y);�(255)
�IN=�
�IN=13�NP%=0:�DbB
�IN=127��DDB
�IN=9�NP%=1:�DbB
&�L=L%��d~A
0(�X,Y);�(IN):T$=T$+�(IN):L=L+1:X=X+1
: �dtA
D�L=0��djA
N$�X,Y);" ":X=X-1:L=L-1:T$=�T$,L)
X �dtA
b�L<L%��X,Y);" "
l�
v��SC
�_�128:�0,0);�80,�(241));�0,22);�80,�(241)):�131:�70,0);"PAGE ";P%:�0,28);"X: Y:":�FG%:�
�v��POSIT:NP%=0:ȗ � 22,980:�5:�3,120:ȗ x1,y1,but:x1=�(x1/16):y1=31-�(y1/32):XP=x1:YP=y1:� (x1*16),1023-(y1*32):�T$
�"ȗ S,S,BUT:�BUT=0��t^B:��tTB
�8ȗ X1,Y1,BUT:X1=�(X1/16):Y1=31-�(Y1/32):�Y1>21�Y1=21
� �X1>(80-�(T$))�X1=(80-�(T$))
��Y1<1�Y1=1
��BUT>0��dZB
�A� XP=X1 � YP=Y1 ��t^B:��(XP*16),1023-(YP*32):�T$:XP=X1:YP=Y1
�G�(X1*16),1023-(Y1*32):�T$:�4:�2,28);X1;" ";�7,28);Y1;" ":�5:�3,120
��BUT=4��tNC
��BUT=2��dxB
� �t^B
�k�4:�(XP*16),1023-(YP*32):�T$:�4:�:�:�NP%=0�NP%=1:P%=P%+1:�SC:� 5:�3,120:�(XP*16),1023-(YP*32):�T$:�TLC
A�NP%=1�NP%=0:P%=P%-1:�SC:� 5:�3,120:�(XP*16),1023-(YP*32):�T$
.�5:�3,120:ȗ x1,y1,BUT:�BUT=0��t^B:��TLC
�Y1=21��t^B
�X1,Y1);ĩ(T$)," ")
*Y1=Y1+1:�t^B
4�Y1=1��t^B
>�X1,Y1);ĩ(T$)," ")
HY1=Y1-1:�t^B
R�X1=1��t^B
\�X1,Y1);ĩ(T$)," ")
fX1=X1-1:�t^B
p�X1=80-�(T$)��t^B
z�X1,Y1);ĩ(T$)," ")
�X1=X1+1:�t^B
�3�4:�X1,Y1);T$:�"FX15,0":�:ȗ U,U,BUT:� BUT=0:�
��"FX15,0":�
���MULTIC:SL%=0:MC$=""
�D�0,25);"Enter Multiple Choice selections for field ";I;": ";FL$
�4Y9=Y1:�X2,Y9);�(154);�19,�(159));�(158):Y9=Y9+1
� *FX12,0
�H�X2,Y9);�(155);�19," ");�(157):Y=Y9:X=X2+4:L%=16:�TEXT:�T$=""��d^C
�DMC$=MC$+T$+�(254):SL%=SL%+1:�SL%=14�Y9=Y9+1:�d^C:�Y9=Y9+1:�dJC
��SL%=0��tvC
��X2,Y9);�(156);�19,�(160));�(161):�#C=(MC*245):�#C,�(I):�#C=(MC*245)+5:�#C,MC$:MC=MC+1:�28,X1,Y9,X1+20,Y1:�:�26:�X1,Y1);"XXXXXXXXXXXXXXXX"
��0,25);�80," "):�
�9�CL:�35,26);"Details Correct? (Y/N)":�YN:�YN=0��tlC
TI%=TI%+CO%:CO%=IN%+2
��#B=((CF%-1)*61)+63:�#B,FL$:�#B=((CF%-1)*61)+63+22:�#B,�(X1):�#B=((CF%-1)*61)+63+26:�#B,�(Y1):�#B=((CF%-1)*61)+63+30:�#B,�(X2):�#B=((CF%-1)*61)+63+34:�#B,�(Y2)
��#B=((CF%-1)*61)+63+38:�#B,TY$:�#B=((CF%-1)*61)+63+41:�#B,�(IN%):�#B=((CF%-1)*61)+63+46:�#B,�(TI%):�#B=((CF%-1)*61)+63+54:�#B,"00":�#B=((CF%-1)*61)+63+58:�#B,�(NP%)
$ �T^E
.� #0
8 �Quit
B
L
V �thG
`e�:�:�=254��0,4);"Storage system type ";ST$;" is not connected. Please press RETURN.":I$=�:�d\@
jZ�=214��0,4);"Directories specified are not present. Please press RETURN.":I$=�:�d\@
t]�=222��0,4);"Master disk is not present. Please re-insert and press RETURN.":I$=�:�d\@
~�=17��d\@
� �t|G
��
� ��TABLE
�X�0,5);�(154);"Field";�(233);"Title";�15,�(159));�(233);"Type"�(233);"Length";�(158)
��L=SF%:�I=6�25:�0,I);�(155);" ";�(231);" ";�(231);" "�(231);" ";�(157);�2,I);�3-�(�(L)),"0");L:L=L+1:�I
��
��
�Z�:�0,0);"Enter field details. RETURN ends this stage.":�0,2);"Filename: ";FI$:�TABLE
�>Y8=6:X1=0:X2=21:Y1=X1:Y2=X1:NP%=0:�F=1�10:ME$(F)=FT$(F):�F
��CF%=1�999
�%X=7:L%=20:Y=Y8:�TEXT:�T$=""��tjE
��FL$=T$:X=50:Y=10:L%=9:W%=23:�LWN:X=51:Y=11:�SELECT:�29,Y8);�ME$(SEL%),1):TY$=�(�(�ME$(SEL%),1))-64):�28,50,20,74,10:�:�26:�TY$="9"�TY$="0"
)�TY$="1"�TY$="2"�TY$="9"��TJE:��TrE
2X=34:Y=Y8:L%=3:�TEXT:�T$=""�T$="20":�34,Y);T$
>IN%=�(�(T$)):�IN%<1 � IN%>255 ��34,Y8);" ":�TJE:��TFD
5NOF%=NOF%+1:Y8=Y8+1:�Y8=26�SF%=SF%+20:Y8=6:�TABLE
( �tBE
2�TY$="3"�IN%=16
<�TY$="4"�IN%=3
F�TY$="5"�IN%=8
P�TY$="6"�IN%=5
Z�TY$="7"�IN%=9
d�TY$="8"�IN%=18
n�TY$="0"�IN%=18
x�34,Y8);IN%:�TFD
��CF%
��NOF%=0��dlD:��ttE
�L�43,10);"Quit entering field details? ";:�YN:�43,10);�(37):�YN=0��dlD
� �ttE
��NOF%=0��dlD:��tVE
�REC%=(TI%+CO%)+10
���:X=15:Y=10:W%=24:L%=3:�LWN:ME$(1)="Manual Form Design":ME$(2)="Automatic Form Design":ME$(3)="Quit":X=16:Y=11:L%=3:�SELECT:�:�SEL%=3��"CLOSE":�d\@
��SEL%=1��TbF
�%Y1=1:Y2=Y1:TI%=0:�:P%=1:X1=21:�SC
�g�I=1�NOF%:�#B=(I-1)*61+101:�#B,TY$:�#B=(I-1)*61+104:�#B,IN$:�#B=(I-1)*61+63:�#B,FL$:�Y1=22��NEWPAGE
� �0,Y1);FL$:�TY$="3"��MULTIC
�0�(IN$)>59�IN$="59":�#B=(I-1)*61+104:�#B,IN$
�u�#B=(I-1)*61+109:�#B,�(TI%):TI%=TI%+�(IN$)+2:�#B=(I-1)*61+89:�#B,�(Y1):�#B=(I-1)*61+97:�#B,�(Y1):�0,Y1);FL$:�FLD
Y1=Y1+1
��I:REC%=TI%+10:�"FX12,0":�28,0,29,79,23:�:�26:�5,25);"Data entry screen completed. Click mouse to continue...":�:ȗ U,U,BUT:� BUT>0:�TRG
o��NEWPAGE:�:P%=P%+1:�SC:�#B=(I-1)*61+121:�#B,"1":Y1=1:�#B=(I-1)*61+89:�#B,�(Y1):�#B=(I-1)*61+97:�#B,�(Y1):�
"<�:P%=1:�SC:�0,23);"Manual Form Creation Screen":*FX15,0
,��I=1�NOF%:�#B=(I-1)*61+63:�#B,T$:�#B=(I-1)*61+101:�#B,TY$:�#B=(I-1)*61+104:�#B,IN$:�0,25);"Position Field ";I;": ";T$;" ":X1=1:Y1=1:�POSIT:X0=X1:Y0=Y1
6�NP$=�(NP%):�0,25);"Position Input Panel for Field ";I;": ";T$;" ":T$=�(255):X1=X1-1:�POSIT:�FCHEK:�YN%=1��TvF
@X2=X1:�TY$="3"��MULTIC
J��FLD:�#B=((I-1)*61)+63+22:�#B,�(X0):�#B=((I-1)*61)+63+26:�#B,�(Y0):�#B=((I-1)*61)+63+30:�#B,�(X2):�#B=((I-1)*61)+63+34:�#B,�(Y1):�#B=((I-1)*61)+63+58:�#B,NP$
T��I:�"FX12,0":�28,0,29,79,23:�:�26:�5,25);"Data entry screen completed. Click mouse to continue...":�:ȗ U,U,BUT:� BUT>0:�TRG
^(��FLD:�TY$="1"�TY$="2"�TY$="9"��tZF
h�TY$="4"��X2,Y1);"Y/N"
r;�TY$="5"��X2,Y1);"dd/mm/yy":��TY$="6"��X2,Y1);"hh:mm"
|-�TY$="7"��X2,Y1);�(251);"99999999":�tnF
�9�TY$="8"�TY$="0"��X2,Y1);�(251);"99999999.999999999"
� �tnF
�6LE%=80-X1:�LE%>=�(IN$)��X2,Y1);Ļ(IN$),"X"):�tnF
�hNLD%=�(IN$)� LE%:LB%=�(IN$) � LE%:�J%=1�NLD%:�X2,Y1+(J%-1));�LE%,"X"):�J%:�X2,Y1+(J%-1));�LB%,"X")
��
�5��FCHEK:YN%=0:�X1,Y1);" ":�TY$="3" � X1>59�YN%=1
��TY$="4" � X1>77 �YN%=1
��TY$="5" � X1>72 �YN%=1
��TY$="6" � X1>75 �YN%=1
��TY$="7" � X1>71 �YN%=1
��TY$="8" � X1>62 �YN%=1
��TY$="0" � X1>62 �YN%=1
�
�YN%=1��7
�
��:�2,2);"Please select the Key Field:":�SEL:KF%=SF%:�#B=0:�#B,�(NOF%):�#B=5:�#B,"0":�#B=15:�#B,�(REC%):�#B=51:�#B,�(KF%):�#B=56:�#B,�(MC)
-�MC=0��#C:�"REMOVE <DataVision$Dir>."+RT$
&7�"CLOSE":N$=FI$+"N":B=��MyFile(N$):�#B,DI$:�"CLOSE"
0Z�:�2,2);FI$;" has been created. Do you wish to create another file?";:�YN:�YN=1��d\@
: �TnD
D�
N.��SELECT:ED%=Y+(L%-1):BG%=X+(W%-1):SSEL%=1
X>�I=1�L%:�X,Y+(I-1));" ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
b+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
l�YP<Y � YP>ED%��DXG
v�XP<X � XP>BG%��DXG
�rSEL%=(YP-Y)+1:�CLEA:� 131:�127:�X,YP);" ";ME$(SEL%);�(W%-2)-�(ME$(SEL%))," "):� FG%:�127:�BUT=4��tJG:��DbG
��7:�
�R��CLEA:�SSEL%<>SEL%��I=1�L%:�X,Y+(I-1));" ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
�SSEL%=SEL%:�
�z�=67798��ERWIN:�180:�20,12);"Cannot find the directory...";�20,14);"Click mouse to continue...":�FG%:�7:�MKLIK:�d\@
�{�=67756��ERWIN:�180:�20,12);"Cannot find drive :";DR$;"...";�20,14);"Click mouse to continue...":�FG%:�7:�MKLIK:�d\@
�� � = 17 � �#0:�Quit
�R�ERWIN:�180:�20,12);"System Reported Error #";�;":";�20,14);�$:�7:�FG%:�MKLIK
��"CLOSE":�3:�26:�d\@
�{�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(does not exist/not a DataVision file)":�FG%:�7:�MKLIK:�tHS
� �I=65�70:T$=�(I):�:�POSIT:�I
� ��SEL
�o�128:FG%=128:X=50:Y=2:W%=21:L%=23:�LWN:�FG%:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241))
� SSF%=1:SF%=1:Y2=6:SR%=SF%
!FR%=SR%+19:�FR%>NOF%�FR%=NOF%
{L=6:LL=1:�I=SR%�FR%:�#B=(I-1)*61+63:�#B,FL$:�52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:�I:� LL<21 � � I=LL �20:ME$(I)=" ":�I
+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
�XP=67 � YP=3 � BUT=4 ��DHH
* �XP=69 � YP=3 � BUT=4 ��D\H
4@� XP>71 � XP<51 � YP>25 � YP<6 �SSF%=0:�CLEAF:SSF%=SF%:�TVH
>rYP=YP-5:SF%=(YP+SR%)-1:�CLEAF:�131:�52,YP+5);ME$(YP);�(20-�(ME$(YP))):�FG%:�BUT=4 � SF%<(NOF%+1)��DpH:��TVH
H�FR%=NOF%��TVH
RnSR%=SR%+20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�TBH
\�SR%=1��TVH
fnSR%=SR%-20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�TBH
pe�7:�#B=(SF%-1)*61+63:�#B,FL$:�#B=(SF%-1)*61+101:�#B,TY$:�#B=(SF%-1)*61+117:�#B,TR$:�180:FG%=180:�
zB��CLEAF:�SSF%<>SF%��I=1�20:�52,I+5);ME$(I);�(20-�(ME$(I))):�I
�SSF%=SF%:�
�ݤMyFile(file$)
� ="<DataVision$Dir>."+file$
� � �Quit
� ș "Wimp_CommandWindow",-1
�Ș
��
� 00000000 0d 00 0a 17 f4 20 3e 20 24 2e 21 44 61 74 61 56 |..... > $.!DataV|
00000010 69 73 2e 21 64 76 32 0d 00 0f 1e c8 99 20 22 57 |is.!dv2...... "W|
00000020 69 6d 70 5f 43 6f 6d 6d 61 6e 64 57 69 6e 64 6f |imp_CommandWindo|
00000030 77 22 2c 2d 31 0d 00 14 10 eb 20 31 35 3a fb 20 |w",-1..... 15:. |
00000040 31 38 30 3a db 0d 00 1e 0b ee 85 e5 8d 74 68 47 |180:.........thG|
00000050 0d 00 28 1a c8 97 20 ee 3a 87 3a 46 47 25 3d 31 |..(... .:.:FG%=1|
00000060 38 30 3a 53 54 24 3d 22 31 22 0d 00 32 43 ff 22 |80:ST$="1"..2C."|
00000070 43 4c 4f 53 45 22 3a 58 3d ad a4 4d 79 46 69 6c |CLOSE":X=..MyFil|
00000080 65 28 22 4e 49 4d 22 29 3a e8 23 58 2c 5a 5a 24 |e("NIM"):.#X,ZZ$|
00000090 2c 5a 5a 24 2c 5a 41 24 2c 5a 5a 24 2c 5a 44 24 |,ZZ$,ZA$,ZZ$,ZD$|
000000a0 2c 4d 44 24 3a ff 22 43 4c 4f 53 45 22 0d 00 3c |,MD$:."CLOSE"..<|
000000b0 29 db 3a de 4d 45 24 28 32 30 29 3a de 46 54 24 |).:.ME$(20):.FT$|
000000c0 28 31 30 29 3a e3 49 3d 31 b8 39 3a f3 46 54 24 |(10):.I=1.9:.FT$|
000000d0 28 49 29 3a ed 49 0d 00 46 92 dc 22 41 3a 20 41 |(I):.I..F.."A: A|
000000e0 6c 70 68 61 6e 75 6d 65 72 69 63 22 2c 22 42 3a |lphanumeric","B:|
000000f0 20 43 61 70 69 74 61 6c 20 41 6c 70 68 61 22 2c | Capital Alpha",|
00000100 22 43 3a 20 4d 75 6c 74 69 70 6c 65 20 43 68 6f |"C: Multiple Cho|
00000110 69 63 65 22 2c 22 44 3a 20 4c 6f 67 69 63 61 6c |ice","D: Logical|
00000120 20 59 65 73 20 6f 72 20 4e 6f 22 2c 22 45 3a 20 | Yes or No","E: |
00000130 44 61 74 65 22 2c 22 46 3a 20 54 69 6d 65 22 2c |Date","F: Time",|
00000140 22 47 3a 20 49 6e 74 65 67 65 72 22 2c 22 48 3a |"G: Integer","H:|
00000150 20 52 65 61 6c 22 2c 22 49 3a 20 46 6f 72 6d 75 | Real","I: Formu|
00000160 6c 61 20 52 65 61 6c 22 0d 00 50 09 e5 8d 44 78 |la Real"..P...Dx|
00000170 40 0d 00 5a 09 dd f2 4c 57 4e 0d 00 64 79 f1 8a |@..Z...LWN..dy..|
00000180 58 2c 59 29 3b bd 28 31 35 34 29 3b c4 57 25 2c |X,Y);.(154);.W%,|
00000190 bd 28 31 35 39 29 29 3b bd 28 31 35 38 29 3a e3 |.(159));.(158):.|
000001a0 49 3d 59 2b 31 b8 59 2b 4c 25 3a f1 8a 58 2c 49 |I=Y+1.Y+L%:..X,I|
000001b0 29 3b bd 28 31 35 35 29 3b c4 57 25 2c 22 20 22 |);.(155);.W%," "|
000001c0 29 3b bd 28 31 35 37 29 3a ed 49 3a f1 8a 58 2c |);.(157):.I:..X,|
000001d0 59 2b 28 4c 25 2b 31 29 29 3b bd 28 31 35 36 29 |Y+(L%+1));.(156)|
000001e0 3b c4 57 25 2c bd 28 31 36 30 29 29 3b bd 28 31 |;.W%,.(160));.(1|
000001f0 36 31 29 0d 00 6e 05 e1 0d 00 78 59 fb 31 33 31 |61)..n....xY.131|
00000200 3a f1 8a 35 2c 32 29 3b 22 43 72 65 61 74 65 20 |:..5,2);"Create |
00000210 4e 65 77 20 46 69 6c 65 22 3a fb 46 47 25 3a 58 |New File":.FG%:X|
00000220 3d 32 3a 59 3d 34 3a 4c 25 3d 31 32 3a 57 25 3d |=2:Y=4:L%=12:W%=|
00000230 36 32 3a f2 4c 57 4e 3a f1 8a 35 2c 35 29 3b 22 |62:.LWN:..5,5);"|
00000240 45 6e 74 65 72 20 46 69 6c 65 6e 61 6d 65 3a 20 |Enter Filename: |
00000250 22 0d 00 82 43 58 3d 32 32 3a 59 3d 35 3a 4c 25 |"...CX=22:Y=5:L%|
00000260 3d 39 3a fb 31 33 31 3a f1 8a 32 32 2c 35 29 3b |=9:.131:..22,5);|
00000270 89 28 39 29 3a f2 54 45 58 54 3a fb 46 47 25 3a |.(9):.TEXT:.FG%:|
00000280 46 49 24 3d 54 24 3a e7 46 49 24 3d 22 22 8c e5 |FI$=T$:.FI$=""..|
00000290 8d 44 42 44 0d 00 8c 0b 44 52 24 3d 4d 44 24 0d |.DBD....DR$=MD$.|
000002a0 00 96 0a 44 49 24 3d 22 22 0d 00 a0 23 f1 8a 35 |...DI$=""...#..5|
000002b0 2c 32 34 29 3b 22 44 65 74 61 69 6c 73 20 43 6f |,24);"Details Co|
000002c0 72 72 65 63 74 3f 22 3b 3a f2 59 4e 0d 00 aa 11 |rrect?";:.YN....|
000002d0 e7 59 4e 3d 30 8c db 3a e5 8d 44 78 40 0d 00 b4 |.YN=0..:..Dx@...|
000002e0 11 f2 4d 41 49 4e 3a ee 85 e5 8d 64 66 40 0d 00 |..MAIN:....df@..|
000002f0 be 2d ff 22 49 4e 46 4f 20 3c 44 61 74 61 56 69 |.-."INFO <DataVi|
00000300 73 69 6f 6e 24 44 69 72 3e 2e 22 2b 46 49 24 2b |sion$Dir>."+FI$+|
00000310 22 4e 22 3a ee 85 e5 8d 74 68 47 0d 00 c8 41 db |"N":....thG...A.|
00000320 3a ef 37 3a f1 8a 32 2c 32 29 3b 46 49 24 3b 22 |:.7:..2,2);FI$;"|
00000330 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 20 | already exists |
00000340 6f 6e 20 74 68 69 73 20 64 69 73 6b 2e 20 52 65 |on this disk. Re|
00000350 70 6c 61 63 65 3f 22 3b 3a f2 59 4e 0d 00 d2 0f |place?";:.YN....|
00000360 e7 59 4e 3d 31 8c e5 8d 64 70 40 0d 00 dc 10 fb |.YN=1...dp@.....|
00000370 46 47 25 3a db 3a e5 8d 44 78 40 0d 00 e6 0b ee |FG%:.:..Dx@.....|
00000380 85 e5 8d 74 68 47 0d 00 f0 10 fb 31 32 37 3a ee |...thG.....127:.|
00000390 85 e5 8d 74 68 47 0d 00 fa 9d 46 41 24 3d 46 49 |...thG....FA$=FI|
000003a0 24 2b 22 41 22 3a 42 3d ae a4 4d 79 46 69 6c 65 |$+"A":B=..MyFile|
000003b0 28 46 41 24 29 3a ff 22 43 4c 4f 53 45 22 3a 42 |(FA$):."CLOSE":B|
000003c0 3d ad a4 4d 79 46 69 6c 65 28 46 41 24 29 3a cf |=..MyFile(FA$):.|
000003d0 23 42 3d 33 35 3a f1 23 42 2c 5a 41 24 3a cf 23 |#B=35:.#B,ZA$:.#|
000003e0 42 3d 34 35 3a f1 23 42 2c 22 30 22 3a cf 23 42 |B=45:.#B,"0":.#B|
000003f0 3d 34 38 3a f1 23 42 2c 22 30 22 3a 53 41 4d 53 |=48:.#B,"0":SAMS|
00000400 25 3d 30 3a 52 54 24 3d 46 49 24 2b 22 42 22 3a |%=0:RT$=FI$+"B":|
00000410 43 3d ae a4 4d 79 46 69 6c 65 28 52 54 24 29 3a |C=..MyFile(RT$):|
00000420 4e 4f 46 25 3d 30 3a 53 46 25 3d 31 3a 52 45 43 |NOF%=0:SF%=1:REC|
00000430 25 3d 30 0d 00 ff 1e ff 20 28 22 43 72 65 61 74 |%=0..... ("Creat|
00000440 65 20 22 2b a4 4d 79 46 69 6c 65 28 46 49 24 29 |e "+.MyFile(FI$)|
00000450 29 0d 01 00 27 ff 20 28 22 53 65 74 54 79 70 65 |)...'. ("SetType|
00000460 20 22 2b a4 4d 79 46 69 6c 65 28 46 49 24 29 2b | "+.MyFile(FI$)+|
00000470 22 20 26 44 42 35 22 29 0d 01 04 14 54 49 25 3d |" &DB5")....TI%=|
00000480 30 3a 4d 43 3d 30 3a 43 4f 25 3d 30 0d 01 0e 09 |0:MC=0:CO%=0....|
00000490 e5 8d 64 4e 44 0d 01 18 31 dd f2 45 52 57 49 4e |..dND...1..ERWIN|
000004a0 3a 58 3d 31 39 3a 59 3d 31 31 3a 57 25 3d 34 30 |:X=19:Y=11:W%=40|
000004b0 3a 4c 25 3d 33 3a fb 31 38 30 3a f2 4c 57 4e 3a |:L%=3:.180:.LWN:|
000004c0 fb 46 47 25 3a e1 0d 01 22 35 dd f2 4d 4b 4c 49 |.FG%:..."5..MKLI|
000004d0 4b 3a f5 3a c8 97 20 55 2c 55 2c 42 55 54 3a fd |K:.:.. U,U,BUT:.|
000004e0 42 55 54 3d 30 3a f5 3a c8 97 20 55 2c 55 2c 42 |BUT=0:.:.. U,U,B|
000004f0 55 54 3a fd 42 55 54 3d 34 3a e1 0d 01 2c 27 dd |UT:.BUT=4:...,'.|
00000500 f2 59 4e 3a 78 70 3d b1 3a 79 70 3d bc 3a f1 22 |.YN:xp=.:yp=.:."|
00000510 20 22 3b 3a fb 31 33 31 3a f1 22 59 45 53 2f 4e | ";:.131:."YES/N|
00000520 4f 22 0d 01 36 38 c8 97 20 58 50 2c 59 50 2c 42 |O"..68.. XP,YP,B|
00000530 55 54 3a 58 50 3d a8 28 58 50 2f 31 36 29 3a 59 |UT:XP=.(XP/16):Y|
00000540 50 3d 33 31 2d a8 28 59 50 2f 33 32 29 3a e7 42 |P=31-.(YP/32):.B|
00000550 55 54 3d 30 8c e5 8d 54 76 41 0d 01 40 12 e7 59 |UT=0...TvA..@..Y|
00000560 50 3c 3e 79 70 20 8c e5 8d 54 76 41 0d 01 4a 2b |P<>yp ...TvA..J+|
00000570 e7 58 50 3d 78 70 2b 31 20 84 20 58 50 3d 78 70 |.XP=xp+1 . XP=xp|
00000580 2b 32 20 84 20 58 50 3d 78 70 2b 33 8c 59 4e 3d |+2 . XP=xp+3.YN=|
00000590 31 3a e5 8d 44 68 41 0d 01 54 22 e7 58 50 3d 78 |1:..DhA..T".XP=x|
000005a0 70 2b 35 20 84 20 58 50 3d 78 70 2b 36 20 8c 59 |p+5 . XP=xp+6 .Y|
000005b0 4e 3d 30 3a e5 8d 44 68 41 0d 01 5e 09 e5 8d 54 |N=0:..DhA..^...T|
000005c0 76 41 0d 01 68 20 fb 46 47 25 3a f1 8a 78 70 2c |vA..h .FG%:..xp,|
000005d0 79 70 29 3b 22 20 59 45 53 2f 4e 4f 22 3a ef 37 |yp);" YES/NO":.7|
000005e0 3a e1 0d 01 72 0c dd f2 4d 41 49 4e 3a db 0d 01 |:...r...MAIN:...|
000005f0 7c 12 e7 53 54 24 3d 22 34 22 8c e5 8d 74 6e 41 ||..ST$="4"...tnA|
00000600 0d 01 86 12 e7 53 54 24 3d 22 31 22 8c e5 8d 74 |.....ST$="1"...t|
00000610 5a 41 0d 01 90 5b f2 45 52 57 49 4e 3a fb 31 38 |ZA...[.ERWIN:.18|
00000620 30 3a f1 8a 32 30 2c 31 32 29 3b 22 50 6c 65 61 |0:..20,12);"Plea|
00000630 73 65 20 69 6e 73 65 72 74 20 74 68 65 20 64 69 |se insert the di|
00000640 73 63 3a 22 3b 8a 32 30 2c 31 34 29 3b 22 3a 22 |sc:";.20,14);":"|
00000650 3b 44 52 24 3b 22 2e 64 61 74 61 20 64 69 73 63 |;DR$;".data disc|
00000660 22 3a fb 46 47 25 3a f2 4d 4b 4c 49 4b 0d 01 9a |":.FG%:.MKLIK...|
00000670 13 e7 bb 28 53 54 24 29 3c 33 8c e5 8d 74 78 41 |...(ST$)<3...txA|
00000680 0d 01 a4 28 e7 53 54 24 3d 22 33 22 8c ff 22 44 |...(.ST$="3".."D|
00000690 49 53 43 22 3a ff 22 44 52 49 56 45 20 22 2b 44 |ISC":."DRIVE "+D|
000006a0 52 24 3a e5 8d 74 78 41 0d 01 ae 25 e7 53 54 24 |R$:..txA...%.ST$|
000006b0 3d 22 34 22 8c ff 22 4e 45 54 22 3a ff 22 49 20 |="4".."NET":."I |
000006c0 41 4d 20 53 59 53 54 20 50 41 53 53 22 0d 01 b8 |AM SYST PASS"...|
000006d0 05 e1 0d 01 c2 09 dd f2 44 49 52 0d 01 cc 0c ff |........DIR.....|
000006e0 44 31 24 2b 44 32 24 0d 01 d6 05 e1 0d 01 e0 12 |D1$+D2$.........|
000006f0 dd f2 54 45 58 54 3a 2a 46 58 32 31 2c 30 0d 01 |..TEXT:*FX21,0..|
00000700 ea 0d 54 24 3d 22 22 3a 4c 3d 30 0d 01 f4 17 e7 |..T$="":L=0.....|
00000710 4c 3c 4c 25 8c f1 8a 58 2c 59 29 3b bd 28 32 35 |L<L%...X,Y);.(25|
00000720 35 29 0d 01 fe 08 49 4e 3d a5 0d 02 08 16 e7 49 |5)....IN=......I|
00000730 4e 3d 31 33 8c 4e 50 25 3d 30 3a e5 8d 44 62 42 |N=13.NP%=0:..DbB|
00000740 0d 02 12 11 e7 49 4e 3d 31 32 37 8c e5 8d 44 44 |.....IN=127...DD|
00000750 42 0d 02 1c 15 e7 49 4e 3d 39 8c 4e 50 25 3d 31 |B.....IN=9.NP%=1|
00000760 3a e5 8d 44 62 42 0d 02 26 0f e7 4c 3d 4c 25 8c |:..DbB..&..L=L%.|
00000770 e5 8d 64 7e 41 0d 02 30 28 f1 8a 58 2c 59 29 3b |..d~A..0(..X,Y);|
00000780 bd 28 49 4e 29 3a 54 24 3d 54 24 2b bd 28 49 4e |.(IN):T$=T$+.(IN|
00000790 29 3a 4c 3d 4c 2b 31 3a 58 3d 58 2b 31 0d 02 3a |):L=L+1:X=X+1..:|
000007a0 09 e5 8d 64 74 41 0d 02 44 0e e7 4c 3d 30 8c e5 |...dtA..D..L=0..|
000007b0 8d 64 6a 41 0d 02 4e 24 f1 8a 58 2c 59 29 3b 22 |.djA..N$..X,Y);"|
000007c0 20 22 3a 58 3d 58 2d 31 3a 4c 3d 4c 2d 31 3a 54 | ":X=X-1:L=L-1:T|
000007d0 24 3d c0 54 24 2c 4c 29 0d 02 58 09 e5 8d 64 74 |$=.T$,L)..X...dt|
000007e0 41 0d 02 62 14 e7 4c 3c 4c 25 8c f1 8a 58 2c 59 |A..b..L<L%...X,Y|
000007f0 29 3b 22 20 22 0d 02 6c 05 e1 0d 02 76 08 dd f2 |);" "..l....v...|
00000800 53 43 0d 02 80 5f fb 31 32 38 3a f1 8a 30 2c 30 |SC..._.128:..0,0|
00000810 29 3b c4 38 30 2c bd 28 32 34 31 29 29 3b 8a 30 |);.80,.(241));.0|
00000820 2c 32 32 29 3b c4 38 30 2c bd 28 32 34 31 29 29 |,22);.80,.(241))|
00000830 3a fb 31 33 31 3a f1 8a 37 30 2c 30 29 3b 22 50 |:.131:..70,0);"P|
00000840 41 47 45 20 22 3b 50 25 3a f1 8a 30 2c 32 38 29 |AGE ";P%:..0,28)|
00000850 3b 22 58 3a 20 20 20 59 3a 22 3a fb 46 47 25 3a |;"X: Y:":.FG%:|
00000860 e1 0d 02 8a 76 dd f2 50 4f 53 49 54 3a 4e 50 25 |....v..POSIT:NP%|
00000870 3d 30 3a c8 97 20 b8 20 32 32 2c 39 38 30 3a ef |=0:.. . 22,980:.|
00000880 35 3a e6 33 2c 31 32 30 3a c8 97 20 78 31 2c 79 |5:.3,120:.. x1,y|
00000890 31 2c 62 75 74 3a 78 31 3d a8 28 78 31 2f 31 36 |1,but:x1=.(x1/16|
000008a0 29 3a 79 31 3d 33 31 2d a8 28 79 31 2f 33 32 29 |):y1=31-.(y1/32)|
000008b0 3a 58 50 3d 78 31 3a 59 50 3d 79 31 3a ec 20 28 |:XP=x1:YP=y1:. (|
000008c0 78 31 2a 31 36 29 2c 31 30 32 33 2d 28 79 31 2a |x1*16),1023-(y1*|
000008d0 33 32 29 3a f1 54 24 0d 02 94 22 c8 97 20 53 2c |32):.T$...".. S,|
000008e0 53 2c 42 55 54 3a e7 42 55 54 3d 30 8c e5 8d 74 |S,BUT:.BUT=0...t|
000008f0 5e 42 3a 8b e5 8d 74 54 42 0d 02 9e 38 c8 97 20 |^B:...tTB...8.. |
00000900 58 31 2c 59 31 2c 42 55 54 3a 58 31 3d a8 28 58 |X1,Y1,BUT:X1=.(X|
00000910 31 2f 31 36 29 3a 59 31 3d 33 31 2d a8 28 59 31 |1/16):Y1=31-.(Y1|
00000920 2f 33 32 29 3a e7 59 31 3e 32 31 8c 59 31 3d 32 |/32):.Y1>21.Y1=2|
00000930 31 0d 02 a8 20 e7 58 31 3e 28 38 30 2d a9 28 54 |1... .X1>(80-.(T|
00000940 24 29 29 8c 58 31 3d 28 38 30 2d a9 28 54 24 29 |$)).X1=(80-.(T$)|
00000950 29 0d 02 b2 0e e7 59 31 3c 31 8c 59 31 3d 31 0d |).....Y1<1.Y1=1.|
00000960 02 bc 10 e7 42 55 54 3e 30 8c e5 8d 64 5a 42 0d |....BUT>0...dZB.|
00000970 02 c6 41 e7 20 58 50 3d 58 31 20 80 20 59 50 3d |..A. XP=X1 . YP=|
00000980 59 31 20 8c e5 8d 74 5e 42 3a 8b ec 28 58 50 2a |Y1 ...t^B:..(XP*|
00000990 31 36 29 2c 31 30 32 33 2d 28 59 50 2a 33 32 29 |16),1023-(YP*32)|
000009a0 3a f1 54 24 3a 58 50 3d 58 31 3a 59 50 3d 59 31 |:.T$:XP=X1:YP=Y1|
000009b0 0d 02 d0 47 ec 28 58 31 2a 31 36 29 2c 31 30 32 |...G.(X1*16),102|
000009c0 33 2d 28 59 31 2a 33 32 29 3a f1 54 24 3a ef 34 |3-(Y1*32):.T$:.4|
000009d0 3a f1 8a 32 2c 32 38 29 3b 58 31 3b 22 20 22 3b |:..2,28);X1;" ";|
000009e0 8a 37 2c 32 38 29 3b 59 31 3b 22 20 22 3a ef 35 |.7,28);Y1;" ":.5|
000009f0 3a e6 33 2c 31 32 30 0d 02 da 10 e7 42 55 54 3d |:.3,120.....BUT=|
00000a00 34 8c e5 8d 74 4e 43 0d 02 e4 10 e7 42 55 54 3d |4...tNC.....BUT=|
00000a10 32 8c e5 8d 64 78 42 0d 02 ee 09 e5 8d 74 5e 42 |2...dxB......t^B|
00000a20 0d 02 f8 6b e6 34 3a ec 28 58 50 2a 31 36 29 2c |...k.4:.(XP*16),|
00000a30 31 30 32 33 2d 28 59 50 2a 33 32 29 3a f1 54 24 |1023-(YP*32):.T$|
00000a40 3a ef 34 3a da 3a db 3a e7 4e 50 25 3d 30 8c 4e |:.4:.:.:.NP%=0.N|
00000a50 50 25 3d 31 3a 50 25 3d 50 25 2b 31 3a f2 53 43 |P%=1:P%=P%+1:.SC|
00000a60 3a ef 20 35 3a e6 33 2c 31 32 30 3a ec 28 58 50 |:. 5:.3,120:.(XP|
00000a70 2a 31 36 29 2c 31 30 32 33 2d 28 59 50 2a 33 32 |*16),1023-(YP*32|
00000a80 29 3a f1 54 24 3a e5 8d 54 4c 43 0d 03 02 41 e7 |):.T$:..TLC...A.|
00000a90 4e 50 25 3d 31 8c 4e 50 25 3d 30 3a 50 25 3d 50 |NP%=1.NP%=0:P%=P|
00000aa0 25 2d 31 3a f2 53 43 3a ef 20 35 3a e6 33 2c 31 |%-1:.SC:. 5:.3,1|
00000ab0 32 30 3a ec 28 58 50 2a 31 36 29 2c 31 30 32 33 |20:.(XP*16),1023|
00000ac0 2d 28 59 50 2a 33 32 29 3a f1 54 24 0d 03 0c 2e |-(YP*32):.T$....|
00000ad0 ef 35 3a e6 33 2c 31 32 30 3a c8 97 20 78 31 2c |.5:.3,120:.. x1,|
00000ae0 79 31 2c 42 55 54 3a e7 42 55 54 3d 30 8c e5 8d |y1,BUT:.BUT=0...|
00000af0 74 5e 42 3a 8b e5 8d 54 4c 43 0d 03 16 10 e7 59 |t^B:...TLC.....Y|
00000b00 31 3d 32 31 8c e5 8d 74 5e 42 0d 03 20 18 f1 8a |1=21...t^B.. ...|
00000b10 58 31 2c 59 31 29 3b c4 a9 28 54 24 29 2c 22 20 |X1,Y1);..(T$)," |
00000b20 22 29 0d 03 2a 11 59 31 3d 59 31 2b 31 3a e5 8d |")..*.Y1=Y1+1:..|
00000b30 74 5e 42 0d 03 34 0f e7 59 31 3d 31 8c e5 8d 74 |t^B..4..Y1=1...t|
00000b40 5e 42 0d 03 3e 18 f1 8a 58 31 2c 59 31 29 3b c4 |^B..>...X1,Y1);.|
00000b50 a9 28 54 24 29 2c 22 20 22 29 0d 03 48 11 59 31 |.(T$)," ")..H.Y1|
00000b60 3d 59 31 2d 31 3a e5 8d 74 5e 42 0d 03 52 0f e7 |=Y1-1:..t^B..R..|
00000b70 58 31 3d 31 8c e5 8d 74 5e 42 0d 03 5c 18 f1 8a |X1=1...t^B..\...|
00000b80 58 31 2c 59 31 29 3b c4 a9 28 54 24 29 2c 22 20 |X1,Y1);..(T$)," |
00000b90 22 29 0d 03 66 11 58 31 3d 58 31 2d 31 3a e5 8d |")..f.X1=X1-1:..|
00000ba0 74 5e 42 0d 03 70 16 e7 58 31 3d 38 30 2d a9 28 |t^B..p..X1=80-.(|
00000bb0 54 24 29 8c e5 8d 74 5e 42 0d 03 7a 18 f1 8a 58 |T$)...t^B..z...X|
00000bc0 31 2c 59 31 29 3b c4 a9 28 54 24 29 2c 22 20 22 |1,Y1);..(T$)," "|
00000bd0 29 0d 03 84 11 58 31 3d 58 31 2b 31 3a e5 8d 74 |)....X1=X1+1:..t|
00000be0 5e 42 0d 03 8e 33 ef 34 3a f1 8a 58 31 2c 59 31 |^B...3.4:..X1,Y1|
00000bf0 29 3b 54 24 3a ff 22 46 58 31 35 2c 30 22 3a f5 |);T$:."FX15,0":.|
00000c00 3a c8 97 20 55 2c 55 2c 42 55 54 3a fd 20 42 55 |:.. U,U,BUT:. BU|
00000c10 54 3d 30 3a e1 0d 03 98 0f ff 22 46 58 31 35 2c |T=0:......"FX15,|
00000c20 30 22 3a e1 0d 03 a2 19 dd f2 4d 55 4c 54 49 43 |0":.......MULTIC|
00000c30 3a 53 4c 25 3d 30 3a 4d 43 24 3d 22 22 0d 03 ac |:SL%=0:MC$=""...|
00000c40 44 f1 8a 30 2c 32 35 29 3b 22 45 6e 74 65 72 20 |D..0,25);"Enter |
00000c50 4d 75 6c 74 69 70 6c 65 20 43 68 6f 69 63 65 20 |Multiple Choice |
00000c60 73 65 6c 65 63 74 69 6f 6e 73 20 66 6f 72 20 66 |selections for f|
00000c70 69 65 6c 64 20 22 3b 49 3b 22 3a 20 22 3b 46 4c |ield ";I;": ";FL|
00000c80 24 0d 03 b6 34 59 39 3d 59 31 3a f1 8a 58 32 2c |$...4Y9=Y1:..X2,|
00000c90 59 39 29 3b bd 28 31 35 34 29 3b c4 31 39 2c bd |Y9);.(154);.19,.|
00000ca0 28 31 35 39 29 29 3b bd 28 31 35 38 29 3a 59 39 |(159));.(158):Y9|
00000cb0 3d 59 39 2b 31 0d 03 c0 0b 2a 46 58 31 32 2c 30 |=Y9+1....*FX12,0|
00000cc0 0d 03 ca 48 f1 8a 58 32 2c 59 39 29 3b bd 28 31 |...H..X2,Y9);.(1|
00000cd0 35 35 29 3b c4 31 39 2c 22 20 22 29 3b bd 28 31 |55);.19," ");.(1|
00000ce0 35 37 29 3a 59 3d 59 39 3a 58 3d 58 32 2b 34 3a |57):Y=Y9:X=X2+4:|
00000cf0 4c 25 3d 31 36 3a f2 54 45 58 54 3a e7 54 24 3d |L%=16:.TEXT:.T$=|
00000d00 22 22 8c e5 8d 64 5e 43 0d 03 d4 44 4d 43 24 3d |""...d^C...DMC$=|
00000d10 4d 43 24 2b 54 24 2b bd 28 32 35 34 29 3a 53 4c |MC$+T$+.(254):SL|
00000d20 25 3d 53 4c 25 2b 31 3a e7 53 4c 25 3d 31 34 8c |%=SL%+1:.SL%=14.|
00000d30 59 39 3d 59 39 2b 31 3a e5 8d 64 5e 43 3a 8b 59 |Y9=Y9+1:..d^C:.Y|
00000d40 39 3d 59 39 2b 31 3a e5 8d 64 4a 43 0d 03 de 10 |9=Y9+1:..dJC....|
00000d50 e7 53 4c 25 3d 30 8c e5 8d 74 76 43 0d 03 e8 90 |.SL%=0...tvC....|
00000d60 f1 8a 58 32 2c 59 39 29 3b bd 28 31 35 36 29 3b |..X2,Y9);.(156);|
00000d70 c4 31 39 2c bd 28 31 36 30 29 29 3b bd 28 31 36 |.19,.(160));.(16|
00000d80 31 29 3a cf 23 43 3d 28 4d 43 2a 32 34 35 29 3a |1):.#C=(MC*245):|
00000d90 f1 23 43 2c c3 28 49 29 3a cf 23 43 3d 28 4d 43 |.#C,.(I):.#C=(MC|
00000da0 2a 32 34 35 29 2b 35 3a f1 23 43 2c 4d 43 24 3a |*245)+5:.#C,MC$:|
00000db0 4d 43 3d 4d 43 2b 31 3a ef 32 38 2c 58 31 2c 59 |MC=MC+1:.28,X1,Y|
00000dc0 39 2c 58 31 2b 32 30 2c 59 31 3a db 3a ef 32 36 |9,X1+20,Y1:.:.26|
00000dd0 3a f1 8a 58 31 2c 59 31 29 3b 22 58 58 58 58 58 |:..X1,Y1);"XXXXX|
00000de0 58 58 58 58 58 58 58 58 58 58 58 22 0d 03 f2 16 |XXXXXXXXXXX"....|
00000df0 f1 8a 30 2c 32 35 29 3b c4 38 30 2c 22 20 22 29 |..0,25);.80," ")|
00000e00 3a e1 0d 03 fc 39 f2 43 4c 3a f1 8a 33 35 2c 32 |:....9.CL:..35,2|
00000e10 36 29 3b 22 44 65 74 61 69 6c 73 20 43 6f 72 72 |6);"Details Corr|
00000e20 65 63 74 3f 20 28 59 2f 4e 29 22 3a f2 59 4e 3a |ect? (Y/N)":.YN:|
00000e30 e7 59 4e 3d 30 8c e5 8d 74 6c 43 0d 04 06 19 54 |.YN=0...tlC....T|
00000e40 49 25 3d 54 49 25 2b 43 4f 25 3a 43 4f 25 3d 49 |I%=TI%+CO%:CO%=I|
00000e50 4e 25 2b 32 0d 04 10 a3 cf 23 42 3d 28 28 43 46 |N%+2.....#B=((CF|
00000e60 25 2d 31 29 2a 36 31 29 2b 36 33 3a f1 23 42 2c |%-1)*61)+63:.#B,|
00000e70 46 4c 24 3a cf 23 42 3d 28 28 43 46 25 2d 31 29 |FL$:.#B=((CF%-1)|
00000e80 2a 36 31 29 2b 36 33 2b 32 32 3a f1 23 42 2c c3 |*61)+63+22:.#B,.|
00000e90 28 58 31 29 3a cf 23 42 3d 28 28 43 46 25 2d 31 |(X1):.#B=((CF%-1|
00000ea0 29 2a 36 31 29 2b 36 33 2b 32 36 3a f1 23 42 2c |)*61)+63+26:.#B,|
00000eb0 c3 28 59 31 29 3a cf 23 42 3d 28 28 43 46 25 2d |.(Y1):.#B=((CF%-|
00000ec0 31 29 2a 36 31 29 2b 36 33 2b 33 30 3a f1 23 42 |1)*61)+63+30:.#B|
00000ed0 2c c3 28 58 32 29 3a cf 23 42 3d 28 28 43 46 25 |,.(X2):.#B=((CF%|
00000ee0 2d 31 29 2a 36 31 29 2b 36 33 2b 33 34 3a f1 23 |-1)*61)+63+34:.#|
00000ef0 42 2c c3 28 59 32 29 0d 04 1a a8 cf 23 42 3d 28 |B,.(Y2).....#B=(|
00000f00 28 43 46 25 2d 31 29 2a 36 31 29 2b 36 33 2b 33 |(CF%-1)*61)+63+3|
00000f10 38 3a f1 23 42 2c 54 59 24 3a cf 23 42 3d 28 28 |8:.#B,TY$:.#B=((|
00000f20 43 46 25 2d 31 29 2a 36 31 29 2b 36 33 2b 34 31 |CF%-1)*61)+63+41|
00000f30 3a f1 23 42 2c c3 28 49 4e 25 29 3a cf 23 42 3d |:.#B,.(IN%):.#B=|
00000f40 28 28 43 46 25 2d 31 29 2a 36 31 29 2b 36 33 2b |((CF%-1)*61)+63+|
00000f50 34 36 3a f1 23 42 2c c3 28 54 49 25 29 3a cf 23 |46:.#B,.(TI%):.#|
00000f60 42 3d 28 28 43 46 25 2d 31 29 2a 36 31 29 2b 36 |B=((CF%-1)*61)+6|
00000f70 33 2b 35 34 3a f1 23 42 2c 22 30 30 22 3a cf 23 |3+54:.#B,"00":.#|
00000f80 42 3d 28 28 43 46 25 2d 31 29 2a 36 31 29 2b 36 |B=((CF%-1)*61)+6|
00000f90 33 2b 35 38 3a f1 23 42 2c c3 28 4e 50 25 29 0d |3+58:.#B,.(NP%).|
00000fa0 04 24 09 e5 8d 54 5e 45 0d 04 2e 08 d9 20 23 30 |.$...T^E..... #0|
00000fb0 0d 04 38 09 f2 51 75 69 74 0d 04 42 05 20 0d 04 |..8..Quit..B. ..|
00000fc0 4c 05 20 0d 04 56 09 e5 8d 74 68 47 0d 04 60 65 |L. ..V...thG..`e|
00000fd0 fa 3a db 3a e7 9f 3d 32 35 34 8c f1 8a 30 2c 34 |.:.:..=254...0,4|
00000fe0 29 3b 22 53 74 6f 72 61 67 65 20 73 79 73 74 65 |);"Storage syste|
00000ff0 6d 20 74 79 70 65 20 22 3b 53 54 24 3b 22 20 69 |m type ";ST$;" i|
00001000 73 20 6e 6f 74 20 63 6f 6e 6e 65 63 74 65 64 2e |s not connected.|
00001010 20 50 6c 65 61 73 65 20 70 72 65 73 73 20 52 45 | Please press RE|
00001020 54 55 52 4e 2e 22 3a 49 24 3d be 3a e5 8d 64 5c |TURN.":I$=.:..d\|
00001030 40 0d 04 6a 5a e7 9f 3d 32 31 34 8c f1 8a 30 2c |@..jZ..=214...0,|
00001040 34 29 3b 22 44 69 72 65 63 74 6f 72 69 65 73 20 |4);"Directories |
00001050 73 70 65 63 69 66 69 65 64 20 61 72 65 20 6e 6f |specified are no|
00001060 74 20 70 72 65 73 65 6e 74 2e 20 50 6c 65 61 73 |t present. Pleas|
00001070 65 20 70 72 65 73 73 20 52 45 54 55 52 4e 2e 22 |e press RETURN."|
00001080 3a 49 24 3d be 3a e5 8d 64 5c 40 0d 04 74 5d e7 |:I$=.:..d\@..t].|
00001090 9f 3d 32 32 32 8c f1 8a 30 2c 34 29 3b 22 4d 61 |.=222...0,4);"Ma|
000010a0 73 74 65 72 20 64 69 73 6b 20 69 73 20 6e 6f 74 |ster disk is not|
000010b0 20 70 72 65 73 65 6e 74 2e 20 50 6c 65 61 73 65 | present. Please|
000010c0 20 72 65 2d 69 6e 73 65 72 74 20 61 6e 64 20 70 | re-insert and p|
000010d0 72 65 73 73 20 52 45 54 55 52 4e 2e 22 3a 49 24 |ress RETURN.":I$|
000010e0 3d be 3a e5 8d 64 5c 40 0d 04 7e 0f e7 9f 3d 31 |=.:..d\@..~...=1|
000010f0 37 8c e5 8d 64 5c 40 0d 04 88 09 e5 8d 74 7c 47 |7...d\@......t|G|
00001100 0d 04 92 05 f9 0d 04 9c 0b dd f2 54 41 42 4c 45 |...........TABLE|
00001110 0d 04 a6 58 f1 8a 30 2c 35 29 3b bd 28 31 35 34 |...X..0,5);.(154|
00001120 29 3b 22 46 69 65 6c 64 22 3b bd 28 32 33 33 29 |);"Field";.(233)|
00001130 3b 22 54 69 74 6c 65 22 3b c4 31 35 2c bd 28 31 |;"Title";.15,.(1|
00001140 35 39 29 29 3b bd 28 32 33 33 29 3b 22 54 79 70 |59));.(233);"Typ|
00001150 65 22 bd 28 32 33 33 29 3b 22 4c 65 6e 67 74 68 |e".(233);"Length|
00001160 22 3b bd 28 31 35 38 29 0d 04 b0 8a 4c 3d 53 46 |";.(158)....L=SF|
00001170 25 3a e3 49 3d 36 b8 32 35 3a f1 8a 30 2c 49 29 |%:.I=6.25:..0,I)|
00001180 3b bd 28 31 35 35 29 3b 22 20 20 20 20 20 22 3b |;.(155);" ";|
00001190 bd 28 32 33 31 29 3b 22 20 20 20 20 20 20 20 20 |.(231);" |
000011a0 20 20 20 20 20 20 20 20 20 20 20 20 22 3b bd 28 | ";.(|
000011b0 32 33 31 29 3b 22 20 20 20 20 22 bd 28 32 33 31 |231);" ".(231|
000011c0 29 3b 22 20 20 20 20 20 20 22 3b bd 28 31 35 37 |);" ";.(157|
000011d0 29 3b 8a 32 2c 49 29 3b c4 33 2d a9 28 c3 28 4c |);.2,I);.3-.(.(L|
000011e0 29 29 2c 22 30 22 29 3b 4c 3a 4c 3d 4c 2b 31 3a |)),"0");L:L=L+1:|
000011f0 ed 49 0d 04 ba 05 e1 0d 04 c4 05 fa 0d 04 ce 5a |.I.............Z|
00001200 db 3a f1 8a 30 2c 30 29 3b 22 45 6e 74 65 72 20 |.:..0,0);"Enter |
00001210 66 69 65 6c 64 20 64 65 74 61 69 6c 73 2e 20 52 |field details. R|
00001220 45 54 55 52 4e 20 65 6e 64 73 20 74 68 69 73 20 |ETURN ends this |
00001230 73 74 61 67 65 2e 22 3a f1 8a 30 2c 32 29 3b 22 |stage.":..0,2);"|
00001240 46 69 6c 65 6e 61 6d 65 3a 20 22 3b 46 49 24 3a |Filename: ";FI$:|
00001250 f2 54 41 42 4c 45 0d 04 d8 3e 59 38 3d 36 3a 58 |.TABLE...>Y8=6:X|
00001260 31 3d 30 3a 58 32 3d 32 31 3a 59 31 3d 58 31 3a |1=0:X2=21:Y1=X1:|
00001270 59 32 3d 58 31 3a 4e 50 25 3d 30 3a e3 46 3d 31 |Y2=X1:NP%=0:.F=1|
00001280 b8 31 30 3a 4d 45 24 28 46 29 3d 46 54 24 28 46 |.10:ME$(F)=FT$(F|
00001290 29 3a ed 46 0d 04 e2 0e e3 43 46 25 3d 31 b8 39 |):.F.....CF%=1.9|
000012a0 39 39 0d 04 ec 25 58 3d 37 3a 4c 25 3d 32 30 3a |99...%X=7:L%=20:|
000012b0 59 3d 59 38 3a f2 54 45 58 54 3a e7 54 24 3d 22 |Y=Y8:.TEXT:.T$="|
000012c0 22 8c e5 8d 74 6a 45 0d 04 f6 8f 46 4c 24 3d 54 |"...tjE....FL$=T|
000012d0 24 3a 58 3d 35 30 3a 59 3d 31 30 3a 4c 25 3d 39 |$:X=50:Y=10:L%=9|
000012e0 3a 57 25 3d 32 33 3a f2 4c 57 4e 3a 58 3d 35 31 |:W%=23:.LWN:X=51|
000012f0 3a 59 3d 31 31 3a f2 53 45 4c 45 43 54 3a f1 8a |:Y=11:.SELECT:..|
00001300 32 39 2c 59 38 29 3b c0 4d 45 24 28 53 45 4c 25 |29,Y8);.ME$(SEL%|
00001310 29 2c 31 29 3a 54 59 24 3d c3 28 97 28 c0 4d 45 |),1):TY$=.(.(.ME|
00001320 24 28 53 45 4c 25 29 2c 31 29 29 2d 36 34 29 3a |$(SEL%),1))-64):|
00001330 ef 32 38 2c 35 30 2c 32 30 2c 37 34 2c 31 30 3a |.28,50,20,74,10:|
00001340 db 3a ef 32 36 3a e7 54 59 24 3d 22 39 22 8c 54 |.:.26:.TY$="9".T|
00001350 59 24 3d 22 30 22 0d 05 00 29 e7 54 59 24 3d 22 |Y$="0"...).TY$="|
00001360 31 22 84 54 59 24 3d 22 32 22 84 54 59 24 3d 22 |1".TY$="2".TY$="|
00001370 39 22 8c e5 8d 54 4a 45 3a 8b e5 8d 54 72 45 0d |9"...TJE:...TrE.|
00001380 05 0a 32 58 3d 33 34 3a 59 3d 59 38 3a 4c 25 3d |..2X=34:Y=Y8:L%=|
00001390 33 3a f2 54 45 58 54 3a e7 54 24 3d 22 22 8c 54 |3:.TEXT:.T$="".T|
000013a0 24 3d 22 32 30 22 3a f1 8a 33 34 2c 59 29 3b 54 |$="20":..34,Y);T|
000013b0 24 0d 05 14 3e 49 4e 25 3d a8 28 bb 28 54 24 29 |$...>IN%=.(.(T$)|
000013c0 29 3a e7 49 4e 25 3c 31 20 84 20 49 4e 25 3e 32 |):.IN%<1 . IN%>2|
000013d0 35 35 20 8c f1 8a 33 34 2c 59 38 29 3b 22 20 20 |55 ...34,Y8);" |
000013e0 20 22 3a e5 8d 54 4a 45 3a 8b e5 8d 54 46 44 0d | ":..TJE:...TFD.|
000013f0 05 1e 35 4e 4f 46 25 3d 4e 4f 46 25 2b 31 3a 59 |..5NOF%=NOF%+1:Y|
00001400 38 3d 59 38 2b 31 3a e7 59 38 3d 32 36 8c 53 46 |8=Y8+1:.Y8=26.SF|
00001410 25 3d 53 46 25 2b 32 30 3a 59 38 3d 36 3a f2 54 |%=SF%+20:Y8=6:.T|
00001420 41 42 4c 45 0d 05 28 09 e5 8d 74 42 45 0d 05 32 |ABLE..(...tBE..2|
00001430 13 e7 54 59 24 3d 22 33 22 8c 49 4e 25 3d 31 36 |..TY$="3".IN%=16|
00001440 0d 05 3c 12 e7 54 59 24 3d 22 34 22 8c 49 4e 25 |..<..TY$="4".IN%|
00001450 3d 33 0d 05 46 12 e7 54 59 24 3d 22 35 22 8c 49 |=3..F..TY$="5".I|
00001460 4e 25 3d 38 0d 05 50 12 e7 54 59 24 3d 22 36 22 |N%=8..P..TY$="6"|
00001470 8c 49 4e 25 3d 35 0d 05 5a 12 e7 54 59 24 3d 22 |.IN%=5..Z..TY$="|
00001480 37 22 8c 49 4e 25 3d 39 0d 05 64 13 e7 54 59 24 |7".IN%=9..d..TY$|
00001490 3d 22 38 22 8c 49 4e 25 3d 31 38 0d 05 6e 13 e7 |="8".IN%=18..n..|
000014a0 54 59 24 3d 22 30 22 8c 49 4e 25 3d 31 38 0d 05 |TY$="0".IN%=18..|
000014b0 78 16 f1 8a 33 34 2c 59 38 29 3b 49 4e 25 3a e5 |x...34,Y8);IN%:.|
000014c0 8d 54 46 44 0d 05 82 08 ed 43 46 25 0d 05 8c 18 |.TFD.....CF%....|
000014d0 e7 4e 4f 46 25 3d 30 8c e5 8d 64 6c 44 3a 8b e5 |.NOF%=0...dlD:..|
000014e0 8d 74 74 45 0d 05 96 4c f1 8a 34 33 2c 31 30 29 |.ttE...L..43,10)|
000014f0 3b 22 51 75 69 74 20 65 6e 74 65 72 69 6e 67 20 |;"Quit entering |
00001500 66 69 65 6c 64 20 64 65 74 61 69 6c 73 3f 20 22 |field details? "|
00001510 3b 3a f2 59 4e 3a f1 8a 34 33 2c 31 30 29 3b 89 |;:.YN:..43,10);.|
00001520 28 33 37 29 3a e7 59 4e 3d 30 8c e5 8d 64 6c 44 |(37):.YN=0...dlD|
00001530 0d 05 a0 09 e5 8d 74 74 45 0d 05 aa 18 e7 4e 4f |......ttE.....NO|
00001540 46 25 3d 30 8c e5 8d 64 6c 44 3a 8b e5 8d 74 56 |F%=0...dlD:...tV|
00001550 45 0d 05 b4 15 52 45 43 25 3d 28 54 49 25 2b 43 |E....REC%=(TI%+C|
00001560 4f 25 29 2b 31 30 0d 05 be 98 db 3a 58 3d 31 35 |O%)+10.....:X=15|
00001570 3a 59 3d 31 30 3a 57 25 3d 32 34 3a 4c 25 3d 33 |:Y=10:W%=24:L%=3|
00001580 3a f2 4c 57 4e 3a 4d 45 24 28 31 29 3d 22 4d 61 |:.LWN:ME$(1)="Ma|
00001590 6e 75 61 6c 20 46 6f 72 6d 20 44 65 73 69 67 6e |nual Form Design|
000015a0 22 3a 4d 45 24 28 32 29 3d 22 41 75 74 6f 6d 61 |":ME$(2)="Automa|
000015b0 74 69 63 20 46 6f 72 6d 20 44 65 73 69 67 6e 22 |tic Form Design"|
000015c0 3a 4d 45 24 28 33 29 3d 22 51 75 69 74 22 3a 58 |:ME$(3)="Quit":X|
000015d0 3d 31 36 3a 59 3d 31 31 3a 4c 25 3d 33 3a f2 53 |=16:Y=11:L%=3:.S|
000015e0 45 4c 45 43 54 3a db 3a e7 53 45 4c 25 3d 33 8c |ELECT:.:.SEL%=3.|
000015f0 ff 22 43 4c 4f 53 45 22 3a e5 8d 64 5c 40 0d 05 |."CLOSE":..d\@..|
00001600 c8 11 e7 53 45 4c 25 3d 31 8c e5 8d 54 62 46 0d |...SEL%=1...TbF.|
00001610 05 d2 25 59 31 3d 31 3a 59 32 3d 59 31 3a 54 49 |..%Y1=1:Y2=Y1:TI|
00001620 25 3d 30 3a db 3a 50 25 3d 31 3a 58 31 3d 32 31 |%=0:.:P%=1:X1=21|
00001630 3a f2 53 43 0d 05 dc 67 e3 49 3d 31 b8 4e 4f 46 |:.SC...g.I=1.NOF|
00001640 25 3a cf 23 42 3d 28 49 2d 31 29 2a 36 31 2b 31 |%:.#B=(I-1)*61+1|
00001650 30 31 3a e8 23 42 2c 54 59 24 3a cf 23 42 3d 28 |01:.#B,TY$:.#B=(|
00001660 49 2d 31 29 2a 36 31 2b 31 30 34 3a e8 23 42 2c |I-1)*61+104:.#B,|
00001670 49 4e 24 3a cf 23 42 3d 28 49 2d 31 29 2a 36 31 |IN$:.#B=(I-1)*61|
00001680 2b 36 33 3a e8 23 42 2c 46 4c 24 3a e7 59 31 3d |+63:.#B,FL$:.Y1=|
00001690 32 32 8c f2 4e 45 57 50 41 47 45 0d 05 e6 20 f1 |22..NEWPAGE... .|
000016a0 8a 30 2c 59 31 29 3b 46 4c 24 3a e7 54 59 24 3d |.0,Y1);FL$:.TY$=|
000016b0 22 33 22 8c f2 4d 55 4c 54 49 43 0d 05 f0 30 e7 |"3"..MULTIC...0.|
000016c0 bb 28 49 4e 24 29 3e 35 39 8c 49 4e 24 3d 22 35 |.(IN$)>59.IN$="5|
000016d0 39 22 3a cf 23 42 3d 28 49 2d 31 29 2a 36 31 2b |9":.#B=(I-1)*61+|
000016e0 31 30 34 3a f1 23 42 2c 49 4e 24 0d 05 fa 75 cf |104:.#B,IN$...u.|
000016f0 23 42 3d 28 49 2d 31 29 2a 36 31 2b 31 30 39 3a |#B=(I-1)*61+109:|
00001700 f1 23 42 2c c3 28 54 49 25 29 3a 54 49 25 3d 54 |.#B,.(TI%):TI%=T|
00001710 49 25 2b bb 28 49 4e 24 29 2b 32 3a cf 23 42 3d |I%+.(IN$)+2:.#B=|
00001720 28 49 2d 31 29 2a 36 31 2b 38 39 3a f1 23 42 2c |(I-1)*61+89:.#B,|
00001730 c3 28 59 31 29 3a cf 23 42 3d 28 49 2d 31 29 2a |.(Y1):.#B=(I-1)*|
00001740 36 31 2b 39 37 3a f1 23 42 2c c3 28 59 31 29 3a |61+97:.#B,.(Y1):|
00001750 f1 8a 30 2c 59 31 29 3b 46 4c 24 3a f2 46 4c 44 |..0,Y1);FL$:.FLD|
00001760 0d 06 04 0b 59 31 3d 59 31 2b 31 0d 06 0e 8e ed |....Y1=Y1+1.....|
00001770 49 3a 52 45 43 25 3d 54 49 25 2b 31 30 3a ff 22 |I:REC%=TI%+10:."|
00001780 46 58 31 32 2c 30 22 3a ef 32 38 2c 30 2c 32 39 |FX12,0":.28,0,29|
00001790 2c 37 39 2c 32 33 3a db 3a ef 32 36 3a f1 8a 35 |,79,23:.:.26:..5|
000017a0 2c 32 35 29 3b 22 44 61 74 61 20 65 6e 74 72 79 |,25);"Data entry|
000017b0 20 73 63 72 65 65 6e 20 63 6f 6d 70 6c 65 74 65 | screen complete|
000017c0 64 2e 20 43 6c 69 63 6b 20 6d 6f 75 73 65 20 74 |d. Click mouse t|
000017d0 6f 20 63 6f 6e 74 69 6e 75 65 2e 2e 2e 22 3a f5 |o continue...":.|
000017e0 3a c8 97 20 55 2c 55 2c 42 55 54 3a fd 20 42 55 |:.. U,U,BUT:. BU|
000017f0 54 3e 30 3a e5 8d 54 52 47 0d 06 18 6f dd f2 4e |T>0:..TRG...o..N|
00001800 45 57 50 41 47 45 3a db 3a 50 25 3d 50 25 2b 31 |EWPAGE:.:P%=P%+1|
00001810 3a f2 53 43 3a cf 23 42 3d 28 49 2d 31 29 2a 36 |:.SC:.#B=(I-1)*6|
00001820 31 2b 31 32 31 3a f1 23 42 2c 22 31 22 3a 59 31 |1+121:.#B,"1":Y1|
00001830 3d 31 3a cf 23 42 3d 28 49 2d 31 29 2a 36 31 2b |=1:.#B=(I-1)*61+|
00001840 38 39 3a f1 23 42 2c c3 28 59 31 29 3a cf 23 42 |89:.#B,.(Y1):.#B|
00001850 3d 28 49 2d 31 29 2a 36 31 2b 39 37 3a f1 23 42 |=(I-1)*61+97:.#B|
00001860 2c c3 28 59 31 29 3a e1 0d 06 22 3c db 3a 50 25 |,.(Y1):..."<.:P%|
00001870 3d 31 3a f2 53 43 3a f1 8a 30 2c 32 33 29 3b 22 |=1:.SC:..0,23);"|
00001880 4d 61 6e 75 61 6c 20 46 6f 72 6d 20 43 72 65 61 |Manual Form Crea|
00001890 74 69 6f 6e 20 53 63 72 65 65 6e 22 3a 2a 46 58 |tion Screen":*FX|
000018a0 31 35 2c 30 0d 06 2c af e3 49 3d 31 b8 4e 4f 46 |15,0..,..I=1.NOF|
000018b0 25 3a cf 23 42 3d 28 49 2d 31 29 2a 36 31 2b 36 |%:.#B=(I-1)*61+6|
000018c0 33 3a e8 23 42 2c 54 24 3a cf 23 42 3d 28 49 2d |3:.#B,T$:.#B=(I-|
000018d0 31 29 2a 36 31 2b 31 30 31 3a e8 23 42 2c 54 59 |1)*61+101:.#B,TY|
000018e0 24 3a cf 23 42 3d 28 49 2d 31 29 2a 36 31 2b 31 |$:.#B=(I-1)*61+1|
000018f0 30 34 3a e8 23 42 2c 49 4e 24 3a f1 8a 30 2c 32 |04:.#B,IN$:..0,2|
00001900 35 29 3b 22 50 6f 73 69 74 69 6f 6e 20 46 69 65 |5);"Position Fie|
00001910 6c 64 20 22 3b 49 3b 22 3a 20 22 3b 54 24 3b 22 |ld ";I;": ";T$;"|
00001920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001930 20 20 20 20 20 22 3a 58 31 3d 31 3a 59 31 3d 31 | ":X1=1:Y1=1|
00001940 3a f2 50 4f 53 49 54 3a 58 30 3d 58 31 3a 59 30 |:.POSIT:X0=X1:Y0|
00001950 3d 59 31 0d 06 36 87 4e 50 24 3d c3 28 4e 50 25 |=Y1..6.NP$=.(NP%|
00001960 29 3a f1 8a 30 2c 32 35 29 3b 22 50 6f 73 69 74 |):..0,25);"Posit|
00001970 69 6f 6e 20 49 6e 70 75 74 20 50 61 6e 65 6c 20 |ion Input Panel |
00001980 66 6f 72 20 46 69 65 6c 64 20 22 3b 49 3b 22 3a |for Field ";I;":|
00001990 20 22 3b 54 24 3b 22 20 20 20 20 20 20 20 20 20 | ";T$;" |
000019a0 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 54 24 | ":T$|
000019b0 3d bd 28 32 35 35 29 3a 58 31 3d 58 31 2d 31 3a |=.(255):X1=X1-1:|
000019c0 f2 50 4f 53 49 54 3a f2 46 43 48 45 4b 3a e7 59 |.POSIT:.FCHEK:.Y|
000019d0 4e 25 3d 31 8c e5 8d 54 76 46 0d 06 40 1a 58 32 |N%=1...TvF..@.X2|
000019e0 3d 58 31 3a e7 54 59 24 3d 22 33 22 8c f2 4d 55 |=X1:.TY$="3"..MU|
000019f0 4c 54 49 43 0d 06 4a a1 f2 46 4c 44 3a cf 23 42 |LTIC..J..FLD:.#B|
00001a00 3d 28 28 49 2d 31 29 2a 36 31 29 2b 36 33 2b 32 |=((I-1)*61)+63+2|
00001a10 32 3a f1 23 42 2c c3 28 58 30 29 3a cf 23 42 3d |2:.#B,.(X0):.#B=|
00001a20 28 28 49 2d 31 29 2a 36 31 29 2b 36 33 2b 32 36 |((I-1)*61)+63+26|
00001a30 3a f1 23 42 2c c3 28 59 30 29 3a cf 23 42 3d 28 |:.#B,.(Y0):.#B=(|
00001a40 28 49 2d 31 29 2a 36 31 29 2b 36 33 2b 33 30 3a |(I-1)*61)+63+30:|
00001a50 f1 23 42 2c c3 28 58 32 29 3a cf 23 42 3d 28 28 |.#B,.(X2):.#B=((|
00001a60 49 2d 31 29 2a 36 31 29 2b 36 33 2b 33 34 3a f1 |I-1)*61)+63+34:.|
00001a70 23 42 2c c3 28 59 31 29 3a cf 23 42 3d 28 28 49 |#B,.(Y1):.#B=((I|
00001a80 2d 31 29 2a 36 31 29 2b 36 33 2b 35 38 3a f1 23 |-1)*61)+63+58:.#|
00001a90 42 2c 4e 50 24 0d 06 54 82 ed 49 3a ff 22 46 58 |B,NP$..T..I:."FX|
00001aa0 31 32 2c 30 22 3a ef 32 38 2c 30 2c 32 39 2c 37 |12,0":.28,0,29,7|
00001ab0 39 2c 32 33 3a db 3a ef 32 36 3a f1 8a 35 2c 32 |9,23:.:.26:..5,2|
00001ac0 35 29 3b 22 44 61 74 61 20 65 6e 74 72 79 20 73 |5);"Data entry s|
00001ad0 63 72 65 65 6e 20 63 6f 6d 70 6c 65 74 65 64 2e |creen completed.|
00001ae0 20 43 6c 69 63 6b 20 6d 6f 75 73 65 20 74 6f 20 | Click mouse to |
00001af0 63 6f 6e 74 69 6e 75 65 2e 2e 2e 22 3a f5 3a c8 |continue...":.:.|
00001b00 97 20 55 2c 55 2c 42 55 54 3a fd 20 42 55 54 3e |. U,U,BUT:. BUT>|
00001b10 30 3a e5 8d 54 52 47 0d 06 5e 28 dd f2 46 4c 44 |0:..TRG..^(..FLD|
00001b20 3a e7 54 59 24 3d 22 31 22 84 54 59 24 3d 22 32 |:.TY$="1".TY$="2|
00001b30 22 84 54 59 24 3d 22 39 22 8c e5 8d 74 5a 46 0d |".TY$="9"...tZF.|
00001b40 06 68 1b e7 54 59 24 3d 22 34 22 8c f1 8a 58 32 |.h..TY$="4"...X2|
00001b50 2c 59 31 29 3b 22 59 2f 4e 22 0d 06 72 3b e7 54 |,Y1);"Y/N"..r;.T|
00001b60 59 24 3d 22 35 22 8c f1 8a 58 32 2c 59 31 29 3b |Y$="5"...X2,Y1);|
00001b70 22 64 64 2f 6d 6d 2f 79 79 22 3a 8b e7 54 59 24 |"dd/mm/yy":..TY$|
00001b80 3d 22 36 22 8c f1 8a 58 32 2c 59 31 29 3b 22 68 |="6"...X2,Y1);"h|
00001b90 68 3a 6d 6d 22 0d 06 7c 2d e7 54 59 24 3d 22 37 |h:mm"..|-.TY$="7|
00001ba0 22 8c f1 8a 58 32 2c 59 31 29 3b bd 28 32 35 31 |"...X2,Y1);.(251|
00001bb0 29 3b 22 39 39 39 39 39 39 39 39 22 3a e5 8d 74 |);"99999999":..t|
00001bc0 6e 46 0d 06 86 39 e7 54 59 24 3d 22 38 22 84 54 |nF...9.TY$="8".T|
00001bd0 59 24 3d 22 30 22 8c f1 8a 58 32 2c 59 31 29 3b |Y$="0"...X2,Y1);|
00001be0 bd 28 32 35 31 29 3b 22 39 39 39 39 39 39 39 39 |.(251);"99999999|
00001bf0 2e 39 39 39 39 39 39 39 39 39 22 0d 06 90 09 e5 |.999999999".....|
00001c00 8d 74 6e 46 0d 06 9a 36 4c 45 25 3d 38 30 2d 58 |.tnF...6LE%=80-X|
00001c10 31 3a e7 4c 45 25 3e 3d bb 28 49 4e 24 29 8c f1 |1:.LE%>=.(IN$)..|
00001c20 8a 58 32 2c 59 31 29 3b c4 bb 28 49 4e 24 29 2c |.X2,Y1);..(IN$),|
00001c30 22 58 22 29 3a e5 8d 74 6e 46 0d 06 a4 68 4e 4c |"X"):..tnF...hNL|
00001c40 44 25 3d bb 28 49 4e 24 29 81 20 4c 45 25 3a 4c |D%=.(IN$). LE%:L|
00001c50 42 25 3d bb 28 49 4e 24 29 20 83 20 4c 45 25 3a |B%=.(IN$) . LE%:|
00001c60 e3 4a 25 3d 31 b8 4e 4c 44 25 3a f1 8a 58 32 2c |.J%=1.NLD%:..X2,|
00001c70 59 31 2b 28 4a 25 2d 31 29 29 3b c4 4c 45 25 2c |Y1+(J%-1));.LE%,|
00001c80 22 58 22 29 3a ed 4a 25 3a f1 8a 58 32 2c 59 31 |"X"):.J%:..X2,Y1|
00001c90 2b 28 4a 25 2d 31 29 29 3b c4 4c 42 25 2c 22 58 |+(J%-1));.LB%,"X|
00001ca0 22 29 0d 06 ae 05 e1 0d 06 b8 35 dd f2 46 43 48 |")........5..FCH|
00001cb0 45 4b 3a 59 4e 25 3d 30 3a f1 8a 58 31 2c 59 31 |EK:YN%=0:..X1,Y1|
00001cc0 29 3b 22 20 22 3a e7 54 59 24 3d 22 33 22 20 80 |);" ":.TY$="3" .|
00001cd0 20 58 31 3e 35 39 8c 59 4e 25 3d 31 0d 06 c2 1b | X1>59.YN%=1....|
00001ce0 e7 54 59 24 3d 22 34 22 20 80 20 58 31 3e 37 37 |.TY$="4" . X1>77|
00001cf0 20 8c 59 4e 25 3d 31 0d 06 cc 1b e7 54 59 24 3d | .YN%=1.....TY$=|
00001d00 22 35 22 20 80 20 58 31 3e 37 32 20 8c 59 4e 25 |"5" . X1>72 .YN%|
00001d10 3d 31 0d 06 d6 1b e7 54 59 24 3d 22 36 22 20 80 |=1.....TY$="6" .|
00001d20 20 58 31 3e 37 35 20 8c 59 4e 25 3d 31 0d 06 e0 | X1>75 .YN%=1...|
00001d30 1b e7 54 59 24 3d 22 37 22 20 80 20 58 31 3e 37 |..TY$="7" . X1>7|
00001d40 31 20 8c 59 4e 25 3d 31 0d 06 ea 1b e7 54 59 24 |1 .YN%=1.....TY$|
00001d50 3d 22 38 22 20 80 20 58 31 3e 36 32 20 8c 59 4e |="8" . X1>62 .YN|
00001d60 25 3d 31 0d 06 f4 1b e7 54 59 24 3d 22 30 22 20 |%=1.....TY$="0" |
00001d70 80 20 58 31 3e 36 32 20 8c 59 4e 25 3d 31 0d 06 |. X1>62 .YN%=1..|
00001d80 fe 0d e7 59 4e 25 3d 31 8c ef 37 0d 07 08 05 e1 |...YN%=1..7.....|
00001d90 0d 07 12 8e db 3a f1 8a 32 2c 32 29 3b 22 50 6c |.....:..2,2);"Pl|
00001da0 65 61 73 65 20 73 65 6c 65 63 74 20 74 68 65 20 |ease select the |
00001db0 4b 65 79 20 46 69 65 6c 64 3a 22 3a f2 53 45 4c |Key Field:":.SEL|
00001dc0 3a 4b 46 25 3d 53 46 25 3a cf 23 42 3d 30 3a f1 |:KF%=SF%:.#B=0:.|
00001dd0 23 42 2c c3 28 4e 4f 46 25 29 3a cf 23 42 3d 35 |#B,.(NOF%):.#B=5|
00001de0 3a f1 23 42 2c 22 30 22 3a cf 23 42 3d 31 35 3a |:.#B,"0":.#B=15:|
00001df0 f1 23 42 2c c3 28 52 45 43 25 29 3a cf 23 42 3d |.#B,.(REC%):.#B=|
00001e00 35 31 3a f1 23 42 2c c3 28 4b 46 25 29 3a cf 23 |51:.#B,.(KF%):.#|
00001e10 42 3d 35 36 3a f1 23 42 2c c3 28 4d 43 29 0d 07 |B=56:.#B,.(MC)..|
00001e20 1c 2d e7 4d 43 3d 30 8c d9 23 43 3a ff 22 52 45 |.-.MC=0..#C:."RE|
00001e30 4d 4f 56 45 20 3c 44 61 74 61 56 69 73 69 6f 6e |MOVE <DataVision|
00001e40 24 44 69 72 3e 2e 22 2b 52 54 24 0d 07 26 37 ff |$Dir>."+RT$..&7.|
00001e50 22 43 4c 4f 53 45 22 3a 4e 24 3d 46 49 24 2b 22 |"CLOSE":N$=FI$+"|
00001e60 4e 22 3a 42 3d ae a4 4d 79 46 69 6c 65 28 4e 24 |N":B=..MyFile(N$|
00001e70 29 3a f1 23 42 2c 44 49 24 3a ff 22 43 4c 4f 53 |):.#B,DI$:."CLOS|
00001e80 45 22 0d 07 30 5a db 3a f1 8a 32 2c 32 29 3b 46 |E"..0Z.:..2,2);F|
00001e90 49 24 3b 22 20 68 61 73 20 62 65 65 6e 20 63 72 |I$;" has been cr|
00001ea0 65 61 74 65 64 2e 20 44 6f 20 79 6f 75 20 77 69 |eated. Do you wi|
00001eb0 73 68 20 74 6f 20 63 72 65 61 74 65 20 61 6e 6f |sh to create ano|
00001ec0 74 68 65 72 20 66 69 6c 65 3f 22 3b 3a f2 59 4e |ther file?";:.YN|
00001ed0 3a e7 59 4e 3d 31 8c e5 8d 64 5c 40 0d 07 3a 09 |:.YN=1...d\@..:.|
00001ee0 e5 8d 54 6e 44 0d 07 44 05 fa 0d 07 4e 2e dd f2 |..TnD..D....N...|
00001ef0 53 45 4c 45 43 54 3a 45 44 25 3d 59 2b 28 4c 25 |SELECT:ED%=Y+(L%|
00001f00 2d 31 29 3a 42 47 25 3d 58 2b 28 57 25 2d 31 29 |-1):BG%=X+(W%-1)|
00001f10 3a 53 53 45 4c 25 3d 31 0d 07 58 3e e3 49 3d 31 |:SSEL%=1..X>.I=1|
00001f20 b8 4c 25 3a f1 8a 58 2c 59 2b 28 49 2d 31 29 29 |.L%:..X,Y+(I-1))|
00001f30 3b 22 20 20 22 3b 4d 45 24 28 49 29 3b c4 28 57 |;" ";ME$(I);.(W|
00001f40 25 2d 32 29 2d a9 28 4d 45 24 28 49 29 29 2c 22 |%-2)-.(ME$(I)),"|
00001f50 20 22 29 3a ed 49 0d 07 62 2b c8 97 20 58 50 2c | "):.I..b+.. XP,|
00001f60 59 50 2c 42 55 54 3a 58 50 3d a8 28 58 50 2f 31 |YP,BUT:XP=.(XP/1|
00001f70 36 29 3a 59 50 3d 33 31 2d a8 28 59 50 2f 33 32 |6):YP=31-.(YP/32|
00001f80 29 0d 07 6c 18 e7 59 50 3c 59 20 84 20 59 50 3e |)..l..YP<Y . YP>|
00001f90 45 44 25 8c e5 8d 44 58 47 0d 07 76 18 e7 58 50 |ED%...DXG..v..XP|
00001fa0 3c 58 20 84 20 58 50 3e 42 47 25 8c e5 8d 44 58 |<X . XP>BG%...DX|
00001fb0 47 0d 07 80 72 53 45 4c 25 3d 28 59 50 2d 59 29 |G...rSEL%=(YP-Y)|
00001fc0 2b 31 3a f2 43 4c 45 41 3a fb 20 31 33 31 3a fb |+1:.CLEA:. 131:.|
00001fd0 31 32 37 3a f1 8a 58 2c 59 50 29 3b 22 20 20 22 |127:..X,YP);" "|
00001fe0 3b 4d 45 24 28 53 45 4c 25 29 3b c4 28 57 25 2d |;ME$(SEL%);.(W%-|
00001ff0 32 29 2d a9 28 4d 45 24 28 53 45 4c 25 29 29 2c |2)-.(ME$(SEL%)),|
00002000 22 20 22 29 3a fb 20 46 47 25 3a fb 31 32 37 3a |" "):. FG%:.127:|
00002010 e7 42 55 54 3d 34 8c e5 8d 74 4a 47 3a 8b e5 8d |.BUT=4...tJG:...|
00002020 44 62 47 0d 07 8a 08 ef 37 3a e1 0d 07 94 52 dd |DbG.....7:....R.|
00002030 f2 43 4c 45 41 3a e7 53 53 45 4c 25 3c 3e 53 45 |.CLEA:.SSEL%<>SE|
00002040 4c 25 8c e3 49 3d 31 b8 4c 25 3a f1 8a 58 2c 59 |L%..I=1.L%:..X,Y|
00002050 2b 28 49 2d 31 29 29 3b 22 20 20 22 3b 4d 45 24 |+(I-1));" ";ME$|
00002060 28 49 29 3b c4 28 57 25 2d 32 29 2d a9 28 4d 45 |(I);.(W%-2)-.(ME|
00002070 24 28 49 29 29 2c 22 20 22 29 3a ed 49 0d 07 9e |$(I))," "):.I...|
00002080 10 53 53 45 4c 25 3d 53 45 4c 25 3a e1 0d 07 a8 |.SSEL%=SEL%:....|
00002090 7a e7 9f 3d 36 37 37 39 38 8c f2 45 52 57 49 4e |z..=67798..ERWIN|
000020a0 3a fb 31 38 30 3a f1 8a 32 30 2c 31 32 29 3b 22 |:.180:..20,12);"|
000020b0 43 61 6e 6e 6f 74 20 66 69 6e 64 20 74 68 65 20 |Cannot find the |
000020c0 64 69 72 65 63 74 6f 72 79 2e 2e 2e 22 3b 8a 32 |directory...";.2|
000020d0 30 2c 31 34 29 3b 22 43 6c 69 63 6b 20 6d 6f 75 |0,14);"Click mou|
000020e0 73 65 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 2e |se to continue..|
000020f0 2e 22 3a fb 46 47 25 3a ef 37 3a f2 4d 4b 4c 49 |.":.FG%:.7:.MKLI|
00002100 4b 3a e5 8d 64 5c 40 0d 07 b2 7b e7 9f 3d 36 37 |K:..d\@...{..=67|
00002110 37 35 36 8c f2 45 52 57 49 4e 3a fb 31 38 30 3a |756..ERWIN:.180:|
00002120 f1 8a 32 30 2c 31 32 29 3b 22 43 61 6e 6e 6f 74 |..20,12);"Cannot|
00002130 20 66 69 6e 64 20 64 72 69 76 65 20 3a 22 3b 44 | find drive :";D|
00002140 52 24 3b 22 2e 2e 2e 22 3b 8a 32 30 2c 31 34 29 |R$;"...";.20,14)|
00002150 3b 22 43 6c 69 63 6b 20 6d 6f 75 73 65 20 74 6f |;"Click mouse to|
00002160 20 63 6f 6e 74 69 6e 75 65 2e 2e 2e 22 3a fb 46 | continue...":.F|
00002170 47 25 3a ef 37 3a f2 4d 4b 4c 49 4b 3a e5 8d 64 |G%:.7:.MKLIK:..d|
00002180 5c 40 0d 07 b7 18 e7 20 9f 20 3d 20 31 37 20 8c |\@..... . = 17 .|
00002190 20 d9 23 30 3a f2 51 75 69 74 0d 07 bc 52 f2 45 | .#0:.Quit...R.E|
000021a0 52 57 49 4e 3a fb 31 38 30 3a f1 8a 32 30 2c 31 |RWIN:.180:..20,1|
000021b0 32 29 3b 22 53 79 73 74 65 6d 20 52 65 70 6f 72 |2);"System Repor|
000021c0 74 65 64 20 45 72 72 6f 72 20 23 22 3b 9f 3b 22 |ted Error #";.;"|
000021d0 3a 22 3b 8a 32 30 2c 31 34 29 3b f6 24 3a ef 37 |:";.20,14);.$:.7|
000021e0 3a fb 46 47 25 3a f2 4d 4b 4c 49 4b 0d 07 c6 19 |:.FG%:.MKLIK....|
000021f0 ff 22 43 4c 4f 53 45 22 3a ef 33 3a ef 32 36 3a |."CLOSE":.3:.26:|
00002200 e5 8d 64 5c 40 0d 07 d0 7b f2 45 52 57 49 4e 3a |..d\@...{.ERWIN:|
00002210 fb 31 38 30 3a f1 8a 32 30 2c 31 32 29 3b 22 43 |.180:..20,12);"C|
00002220 61 6e 6e 6f 74 20 72 65 61 64 20 74 68 65 20 66 |annot read the f|
00002230 69 6c 65 20 3a 22 3b 46 49 24 3b 8a 32 30 2c 31 |ile :";FI$;.20,1|
00002240 34 29 3b 22 28 64 6f 65 73 20 6e 6f 74 20 65 78 |4);"(does not ex|
00002250 69 73 74 2f 6e 6f 74 20 61 20 44 61 74 61 56 69 |ist/not a DataVi|
00002260 73 69 6f 6e 20 66 69 6c 65 29 22 3a fb 46 47 25 |sion file)":.FG%|
00002270 3a ef 37 3a f2 4d 4b 4c 49 4b 3a e5 8d 74 48 53 |:.7:.MKLIK:..tHS|
00002280 0d 07 da 20 e3 49 3d 36 35 b8 37 30 3a 54 24 3d |... .I=65.70:T$=|
00002290 bd 28 49 29 3a db 3a f2 50 4f 53 49 54 3a ed 49 |.(I):.:.POSIT:.I|
000022a0 0d 07 e4 09 dd f2 53 45 4c 0d 07 ee 6f fb 31 32 |......SEL...o.12|
000022b0 38 3a 46 47 25 3d 31 32 38 3a 58 3d 35 30 3a 59 |8:FG%=128:X=50:Y|
000022c0 3d 32 3a 57 25 3d 32 31 3a 4c 25 3d 32 33 3a f2 |=2:W%=21:L%=23:.|
000022d0 4c 57 4e 3a fb 46 47 25 3a f1 8a 35 31 2c 33 29 |LWN:.FG%:..51,3)|
000022e0 3b 22 53 65 6c 65 63 74 20 61 20 46 69 65 6c 64 |;"Select a Field|
000022f0 3a 20 22 3b bd 28 31 33 38 29 3b 22 20 22 3b bd |: ";.(138);" ";.|
00002300 28 31 33 39 29 3b 8a 35 31 2c 34 29 3b c4 32 31 |(139);.51,4);.21|
00002310 2c bd 28 32 34 31 29 29 0d 07 f8 1d 53 53 46 25 |,.(241))....SSF%|
00002320 3d 31 3a 53 46 25 3d 31 3a 59 32 3d 36 3a 53 52 |=1:SF%=1:Y2=6:SR|
00002330 25 3d 53 46 25 0d 08 02 21 46 52 25 3d 53 52 25 |%=SF%...!FR%=SR%|
00002340 2b 31 39 3a e7 46 52 25 3e 4e 4f 46 25 8c 46 52 |+19:.FR%>NOF%.FR|
00002350 25 3d 4e 4f 46 25 0d 08 0c 7b 4c 3d 36 3a 4c 4c |%=NOF%...{L=6:LL|
00002360 3d 31 3a e3 49 3d 53 52 25 b8 46 52 25 3a cf 23 |=1:.I=SR%.FR%:.#|
00002370 42 3d 28 49 2d 31 29 2a 36 31 2b 36 33 3a e8 23 |B=(I-1)*61+63:.#|
00002380 42 2c 46 4c 24 3a f1 8a 35 32 2c 4c 29 3b 46 4c |B,FL$:..52,L);FL|
00002390 24 3a 4d 45 24 28 4c 4c 29 3d 46 4c 24 3a 4c 3d |$:ME$(LL)=FL$:L=|
000023a0 4c 2b 31 3a 4c 4c 3d 4c 4c 2b 31 3a ed 49 3a e7 |L+1:LL=LL+1:.I:.|
000023b0 20 4c 4c 3c 32 31 20 8c 20 e3 20 49 3d 4c 4c 20 | LL<21 . . I=LL |
000023c0 b8 32 30 3a 4d 45 24 28 49 29 3d 22 20 22 3a ed |.20:ME$(I)=" ":.|
000023d0 49 0d 08 16 2b c8 97 20 58 50 2c 59 50 2c 42 55 |I...+.. XP,YP,BU|
000023e0 54 3a 58 50 3d a8 28 58 50 2f 31 36 29 3a 59 50 |T:XP=.(XP/16):YP|
000023f0 3d 33 31 2d a8 28 59 50 2f 33 32 29 0d 08 20 20 |=31-.(YP/32).. |
00002400 e7 58 50 3d 36 37 20 80 20 59 50 3d 33 20 80 20 |.XP=67 . YP=3 . |
00002410 42 55 54 3d 34 20 8c e5 8d 44 48 48 0d 08 2a 20 |BUT=4 ...DHH..* |
00002420 e7 58 50 3d 36 39 20 80 20 59 50 3d 33 20 80 20 |.XP=69 . YP=3 . |
00002430 42 55 54 3d 34 20 8c e5 8d 44 5c 48 0d 08 34 40 |BUT=4 ...D\H..4@|
00002440 e7 20 58 50 3e 37 31 20 84 20 58 50 3c 35 31 20 |. XP>71 . XP<51 |
00002450 84 20 59 50 3e 32 35 20 84 20 59 50 3c 36 20 8c |. YP>25 . YP<6 .|
00002460 53 53 46 25 3d 30 3a f2 43 4c 45 41 46 3a 53 53 |SSF%=0:.CLEAF:SS|
00002470 46 25 3d 53 46 25 3a e5 8d 54 56 48 0d 08 3e 72 |F%=SF%:..TVH..>r|
00002480 59 50 3d 59 50 2d 35 3a 53 46 25 3d 28 59 50 2b |YP=YP-5:SF%=(YP+|
00002490 53 52 25 29 2d 31 3a f2 43 4c 45 41 46 3a fb 31 |SR%)-1:.CLEAF:.1|
000024a0 33 31 3a f1 8a 35 32 2c 59 50 2b 35 29 3b 4d 45 |31:..52,YP+5);ME|
000024b0 24 28 59 50 29 3b 89 28 32 30 2d a9 28 4d 45 24 |$(YP);.(20-.(ME$|
000024c0 28 59 50 29 29 29 3a fb 46 47 25 3a e7 42 55 54 |(YP))):.FG%:.BUT|
000024d0 3d 34 20 80 20 53 46 25 3c 28 4e 4f 46 25 2b 31 |=4 . SF%<(NOF%+1|
000024e0 29 8c e5 8d 44 70 48 3a 8b e5 8d 54 56 48 0d 08 |)...DpH:...TVH..|
000024f0 48 13 e7 46 52 25 3d 4e 4f 46 25 8c e5 8d 54 56 |H..FR%=NOF%...TV|
00002500 48 0d 08 52 6e 53 52 25 3d 53 52 25 2b 32 30 3a |H..RnSR%=SR%+20:|
00002510 58 3d 35 30 3a 59 3d 32 3a 57 25 3d 32 31 3a 4c |X=50:Y=2:W%=21:L|
00002520 25 3d 32 33 3a f2 4c 57 4e 3a f1 8a 35 31 2c 33 |%=23:.LWN:..51,3|
00002530 29 3b 22 53 65 6c 65 63 74 20 61 20 46 69 65 6c |);"Select a Fiel|
00002540 64 3a 20 22 3b bd 28 31 33 38 29 3b 22 20 22 3b |d: ";.(138);" ";|
00002550 bd 28 31 33 39 29 3b 8a 35 31 2c 34 29 3b c4 32 |.(139);.51,4);.2|
00002560 31 2c bd 28 32 34 31 29 29 3a e5 8d 54 42 48 0d |1,.(241)):..TBH.|
00002570 08 5c 10 e7 53 52 25 3d 31 8c e5 8d 54 56 48 0d |.\..SR%=1...TVH.|
00002580 08 66 6e 53 52 25 3d 53 52 25 2d 32 30 3a 58 3d |.fnSR%=SR%-20:X=|
00002590 35 30 3a 59 3d 32 3a 57 25 3d 32 31 3a 4c 25 3d |50:Y=2:W%=21:L%=|
000025a0 32 33 3a f2 4c 57 4e 3a f1 8a 35 31 2c 33 29 3b |23:.LWN:..51,3);|
000025b0 22 53 65 6c 65 63 74 20 61 20 46 69 65 6c 64 3a |"Select a Field:|
000025c0 20 22 3b bd 28 31 33 38 29 3b 22 20 22 3b bd 28 | ";.(138);" ";.(|
000025d0 31 33 39 29 3b 8a 35 31 2c 34 29 3b c4 32 31 2c |139);.51,4);.21,|
000025e0 bd 28 32 34 31 29 29 3a e5 8d 54 42 48 0d 08 70 |.(241)):..TBH..p|
000025f0 65 ef 37 3a cf 23 42 3d 28 53 46 25 2d 31 29 2a |e.7:.#B=(SF%-1)*|
00002600 36 31 2b 36 33 3a e8 23 42 2c 46 4c 24 3a cf 23 |61+63:.#B,FL$:.#|
00002610 42 3d 28 53 46 25 2d 31 29 2a 36 31 2b 31 30 31 |B=(SF%-1)*61+101|
00002620 3a e8 23 42 2c 54 59 24 3a cf 23 42 3d 28 53 46 |:.#B,TY$:.#B=(SF|
00002630 25 2d 31 29 2a 36 31 2b 31 31 37 3a e8 23 42 2c |%-1)*61+117:.#B,|
00002640 54 52 24 3a fb 31 38 30 3a 46 47 25 3d 31 38 30 |TR$:.180:FG%=180|
00002650 3a e1 0d 08 7a 42 dd f2 43 4c 45 41 46 3a e7 53 |:...zB..CLEAF:.S|
00002660 53 46 25 3c 3e 53 46 25 8c e3 49 3d 31 b8 32 30 |SF%<>SF%..I=1.20|
00002670 3a f1 8a 35 32 2c 49 2b 35 29 3b 4d 45 24 28 49 |:..52,I+5);ME$(I|
00002680 29 3b 89 28 32 30 2d a9 28 4d 45 24 28 49 29 29 |);.(20-.(ME$(I))|
00002690 29 3a ed 49 0d 08 84 0e 53 53 46 25 3d 53 46 25 |):.I....SSF%=SF%|
000026a0 3a e1 0d 08 8e 13 dd a4 4d 79 46 69 6c 65 28 66 |:.......MyFile(f|
000026b0 69 6c 65 24 29 0d 08 98 1e 3d 22 3c 44 61 74 61 |ile$)....="<Data|
000026c0 56 69 73 69 6f 6e 24 44 69 72 3e 2e 22 2b 66 69 |Vision$Dir>."+fi|
000026d0 6c 65 24 0d 08 a2 0b dd 20 f2 51 75 69 74 0d 08 |le$..... .Quit..|
000026e0 ac 1e c8 99 20 22 57 69 6d 70 5f 43 6f 6d 6d 61 |.... "Wimp_Comma|
000026f0 6e 64 57 69 6e 64 6f 77 22 2c 2d 31 0d 08 b6 06 |ndWindow",-1....|
00002700 c8 98 0d 08 c0 05 e1 0d ff |.........|
00002709 
.