Xz77gt

4360 PRINT"IRISHT,RVSON3(
AM
YOU WISH TO SAYE DATAIY/ 8250 REM MAIN MENU
CRYSOFF1LESS THANISPC
4600 GOSUB 4735:IF 8$2"TITHE
QPIN'THEN 6060 9500 PRININCLEARYTA8(8)"
1RVSONDIRYSOFF3SREATER N 4700
6050 IF QSWY"THEN 6030 ENHITE,SM,SI,SC,SR,S0,8F,
THANISPC,RYSON,UP-ARROW, 4610 SET GS:SYS 41,I7,11 6055 PRINPICLEAR3 SI,SL,SE364(SPC,SM,SA,SI,
RVSOFF3NOT EQUAL TOIDOWN1" :PRINT GS:IF EIS 6060 1 SYS 64738
SN) ESM,SE,SN,SU,SPC1
:60SUB 5000:RETURN
700 0
:60SUB 6070 : 1 0 0
"201-RCIFREEI:PRINT TAUB
4370 REM RECORD IN SCREEN 4615 TITHEN IF 6t2
7830 REM SORESPC21S/R
1
FORMAT
4630 1 4PRINT'ICLEAR,0OWN21
8000 PRINT"ECLEAR1
9520 1PRINT
TABIWI -ISPC,SD1
4385 REM 6 AND 25 SPACES E LOAPCHRSI3414F64.FORMsC 1 :SOSUB 5000
EATAESPC,S11/B01."
4390 PRINT'ICLEAR,RVSON,C7, 1 HRS(34)°,8
8010 INPUT
C:PRINT
TABI8)'EDOWN32 -
SPC6,SRECORD- THEN 4650 6POKE
631,131POKE 632,13 1 WHICH FIELD(-1 TO EXIT)'; TISPC,SPAINT
FILE.'
1ISPC251
R :POKE :PRINT'IDOWN41RUNIHOMEI'l
E T
IDOWN2, SF
2:PRINT
TABI8)'IDOWN33 -
4400 STRSIER1
1SYS
521561FOR 020 TO FD U 1RNEW 9N8 , 2
SEORT 8020 IF SF•-1 THEN RETURN 1ISPC,SUPDATE
FILE.
1:SYS
AT
4700 PRINT
B8030 IF YSRI
OR SF)F0+1 THEN 9550 1PRINT
TAB(8)'IDOWN34
IVALCBS(0,D11-6
. IND TO FORMAT PROGRAM t PRINT
-ISPC,SE3DIT FILE.'
VAL( :PRINT ASCD,ER):NEXT IDOWN2, PRESSISPC,RYSON,SR,SE,ST, 8040 1PRINT
TAB(9)'IDOWN411 :PRINT TAB(8)
4410 BS(1 SYS AT,0,241PRINT M$ RI5HT, SU,SR,SNI
CUP2 IESPC,RVSON,SPC,SS,SO,SR, ISPC,SVIEW 1 FILE.'
0))-3
:RETURN
911 4720 WAIT 197,11POKE 631,131 ST,SI,SN,SS,SPC,RYSOFF
MBOT
CDOWN35
:PRINT TAB(8)
4420
,
1
:POKE 198,11NEW
1SPC38 O 1
-1
ISPC,SEEARCH FILE.
4430 REM FORMAT S/R
4730 t
8050 18IF
08$(1,SF)2
9580 CDOWN36
PRINT TAB(8)'EDOWN37
4440 REM EITHER LOADS FORMAT 4735 PRINT TABO4)IDOWN2,ST3 18060
:N2 1
:
0
--ISPC,SEORT
FILE.'
DATA CREATED BY FORMAT APE ORISPC,S01ISKIT/0)? 2"THEN 8070 RC- REM ALPHABETIC SORT :PRINT TAB(8)
PROSRAM
4736 6ET SS:SYS 41,22,11 88100 2IISF M2INT(N/21:FOR 0 0 A2-1 TO ISPC,SF1ORMAT 1 DATABASE.'
4450 REM OR AUTO-RUNS FORMAT :PRINT 6$11F 6$0
2SF 0 STEP 0:FOR J21 TO 11-M CDOWN18
:PRINT TAB(8)
PROSRAM
1SOIDIAND
6$01
-1
:FOR HEJ TO 0 STEP-M:LOOM -1
ISPC
4490 AT252038:SYS AT,6,4 4737 PAND 1RETURN
6
:K20
9605 (DOWN39
I PRINT TABIBPIDOWN10
IPRINT'ESP1RESS 'EP TO 4740 THEN REM B/R TO PRINT FIELDS 8110 IF ASISF,HDAS(SF, -SNIE
-ISPC,SE3XIT PROSRAM.
EXIT
5000 4FOR 7 620 3 TO 6 FO
L)THEN FOR Y20 TO FD W BONNE
4495 SYS AT,4,81PRINNSP1 :PRINT SWILEFT1. IZSEACY,H11ACY,H) 9620 DSOSUB A 5800:IF 6S(
ROGRAM 0RESPC,SD3ATA(P/0)? INEXTHRETURN
1
L)IASIY,L12ZSINEXTIK
2
1 T
6S)"9"THEN
A
9620
4500 SET BS:SYS AT,25,8 50108$(2,6)
8120 2ASIY,
OK:NEXT:NEXT:M2INT(M/2) 09R 9650
.
OVALISS1:IF RF20 AND W
:PRINT GS:IF 6$2 5020 REM S/R TO FLASH PROMPT H10000):NEXTI60SUB
9E00 01 AND WOO AND 1108 THE
600 1
5800 PRINT TAB(11)1UP,SP,SR, :RETURN
N 9620
4505 P"THEN IF 021
SE,SS21 IST,S01 ISS,SE,SL, 8130 :
9655 IF RF AND 1128 THEN 9620
1 4:RETURN
SE,SC,STP:FOR D21 TO 65 8140 REM NUMERIC SORT 9660 IFIRF AND RC211AND W03
THEN 4510 IF 6$0"DITHEN 4500 :SET 6S:IF 6$0"THEN RET 8200 M=INTIN12):FOR A2-1 TO AND WO1 AND 1109 THEN 9
R4520 CGOSUB 2 14735:IF
6$0*T URN
0 STEP OIFOR J21 TO N-M 620
1 EN 4531
5810 NEXT:PRINT TAB(11) :FOR H2J TO 0 STEP-M:1.20M 9670 PRINT'ECLEARPIRETURN
TH 4521 PRINT'EDOWN2,RISHT,SW1 1 RYSON,SP,SR,SE,S521 EST, 11(20
9680
IND TO FORMAT DATA 11 PRES EUP, SO) ISS,SE,SL 8210 IF VAL(ASI9F1
9690 REM BEEP S/R
SISPC,RVSON,SR,SE,ST,SU, I:FOR
D21 TO 65:SET GS HOUALIAS(SF 9800 POKE 54276,65
SR,SNr:WAIT 197,1
SE :IF 6$0"THEN RETURN 8220 oFOR
Y20 TO F8INRACY,H) :FOR DE2I TO 1501NEXT
:OPEN 2,1,0,IFORMAT" 5820 I NEXT:SOTO 5800
L)1THEN IASIY,H1•AS(Y,L)
:POKE 54276,0:RETURN
:SOTO 4550
5821
8:AS(Y,L)2ZS:NEXTIK2H 9810 t
SC,ST1'
2 3 0
4531 IF SWE'THEN RC21 5822 REM NEW DATA S/R 8230 H2K:NEXT:NEXT:M2INT(M/2) 9820 REM SIR TO REORSANISE
:RETURN
5825 SYS AT,2,511NPUTNISO3 :42000):NEXT:60SU8 9800
ARRAYS TO MAXIMIZE MEMOIR
4536 REM OPEN FILE TO DISK ATA OR DATA t DEFINITIONS :RETURN
Y STORAGE
4540 OPEN 15,8,15,'I0'
IISD3/ESFWISS
8240 1
7980 DIM AS(FD,200):RC
2
:OPEN 2,8,2,
:IF GSWPAND SSOINTHE
:Al252038:RETURN
N
1 1
1160SUB
13501IF El THEN RE N 5825
1
FORMAT,
TURN
5830 SYS AT,8,10:INPUTISA3
4545 S,R REM INPUT DATA
RE YOU SUREIISMISNWIQS
4550 . INPUTS2,F0:60SUB 9980 :IF QSN'THEN RETURN
FOR 520 TO 6IFOR H20 TO 5840 IF Q$0
ISPC41:
FB:INPUT112,B$(6,H)INEXT 15850
IF DePTHEN RF20
PROSRAM: MF64.FORM 30 REM SVER1.2IC11985 EI.THOM
INEXT:RF21
Y"THEN 5860 RNIRETURN
ASS
4570 IF BerTHEN CLOSE 2 56000 8SYS 3AT,8,51INPUT 0
0 REMESPC2AttitlIttISISItti 40 REM $1111108188111118111
:RETURN
1 YOU SUREILSY3/I8N31":0$ HMO
1st
4580 CLOSE 151CLOSE 2:RETURN ISCRE :IF Q$24"THEN RETURN 10 REM SISPC61MICROFILE64 64 :
4590 1
6020 IF 0$0
ISPO531
65 REM SET UP SPRITE CURSOR
4595 REM AUTO-RUN MAIN PROSR 16030
SYS A1,3,9:INPUT 20 REM SESPC41FORMAT PROSRAM
Y"THEN 1
6ISD10 0 0 0