image of READY prompt

Wang2200.org

Listing of file='EM3275' on disk='vmedia/3275_v1.10.wvd.zip'

# Sector 255, program filename = 'EM3275'
0010 % ***** EM3275- RELEASE #1.10x- REVISED 1100 12/05/83 *****
0020 COM X,T$4,B1,Z$18,C2,S1$11,L2,K,M$,L1,N1,R1$(24)1
0030 COM B,M,R2$(80)1,S$(16),A$2,F$1,J$(16),P,P1,X1$1
0040 COM S,S1,L,N,A1$1,L$1,R$(16),C$(80)1,X$1,K$1
0050 COM E$(1)2,I,K$(1)1,J,F1$(1)1,A1,Q$(24,2)40,I2,A2,A0,D$1,M$(1)1
0060 COM I$10,P$(24,2)40,C
0070 COM CLEAR
0075 DATA LOAD DC OPEN T"TERM ID"
0076 DATA LOAD DC T$,Q$
0077 IF T$=HEX(00000000)THEN 9430
0078 Q$=HEX(4403C620)
0080 GOTO 9040
0720 $GIOWHATSUP#6(Q$,I$)C$()<1,16>
   : IF D$>HEX(00)THEN 730
   : IF C$(4)=HEX(00)THEN 740
   : D$=HEX(01)
   : GOSUB 1880
   : GOTO 720
0730 IF C$(4)>HEX(00)THEN 740
   : PRINT HEX(010D0C08080808080808080808080808080808);"LINE DOWN.";HEX(01);
   : D$=HEX(00)
0740 IF C$(1)>HEX(00)THEN 3350
0745 IF C$(3)>HEX(00)THEN 3385
0750 IF C$(2)>HEX(00)THEN 3510
0755 IF P>0THEN 6020
0757 ON SGOTO 3390
   : ON S1GOTO 3680
0760 IF F$="I"THEN 4150
0770 KEYIN K$,800,902
   : GOTO 720
0800 L$=K$
0810 $TRAN(L$,J$())
0860 ON VAL(L$)GOTO 1080,3020,2000,3080,5020,3260,4123,3310,3893,3683,3897
0880 GOTO 1840
0902 IF K$<HEX(20)THEN 920
0904 $TRAN(K$,HEX(01F0027E027F03460356044C045C054D055D0645065507420752084F085F
     2020))R
0906 ON VAL(K$)GOTO 953,3020,2450,2190,2000,2230,3260,4123
0908 GOTO 1840
0920 ON VAL(K$)+1GOTO 3920,3800,3840,3880,3750,3750,3750,3750,6420,5340,4710,2
     450,2190,2000,2230,4127
0930 ON VAL(K$)-15GOTO 3773,3773,3773,3773,3773,3773,3773,3773,6140,3893,7000,
     3897,3902,9430,9420,3710
0953 XOR (STR(R$(9),9,2),A1)
0954 XOR (STR(R$(10),9,2),A1)
0955 XOR (STR(R$(11),9,2),A1)
0956 XOR (STR(R$(12),9,2),A1)
0957 GOSUB 1880
0958 GOTO 720
0980 KEYIN K$,1000,1020
0985 B1=B1+1
   : IF B1<=20THEN 980
   : B1=0
   : $GIOGETSTATUS#6(Q$,I$)C$()<1,16>
   : IF C$(1)>HEX(00)THEN 3350
   : IF C$(2)>HEX(00)THEN 3390
0990 GOTO 980
1000 IF K$<HEX(20)THEN 1010
   : IF K$<=HEX(7F)THEN 4280
   : GOTO 980
1010 IF K$=HEX(08)THEN 4640
   : GOTO 980
1020 IF K$=HEX(00)THEN 3920
   : ON VAL(K$)-24GOTO 1021,1022,1023,1024
   : GOTO 980
1021 K$=HEX(5F)
   : GOTO 4280
1022 K$=HEX(7F)
   : GOTO 4280
1023 K$=HEX(5B)
   : GOTO 4280
1024 K$=HEX(5D)
   : GOTO 4280
1080 IF K$(1)>=X$THEN 1840
1090 IF F1$(1)>=HEX(A0)THEN 1840
1110 IF F1$(1)>=HEX(90)THEN 1350
1150 K$(1)=K$
1160 MAT COPY K$()TO P$()<C,1>
1180 IF F1$(1)<X$THEN 1220
1190 OR (F1$(1),01)
1200 MAT COPY F1$()TO P$()<A1,1>
1220 $TRAN(K$,R$())
1225 $GIO#4(A000,I$)K$
1240 C=C+1
1250 J=J+1
1270 IF J>80THEN 1420
1285 IF K$(1)=HEX(1C)THEN 1315
1290 MAT COPY P$()<C,1>TO K$()
1300 IF K$(1)<HEX(80)THEN 720
1315 C=C-1
1320 GOTO 3020
1350 IF K$="-"THEN 1150
1360 IF K$="."THEN 1150
1370 IF K$<"0"THEN 1840
1380 IF K$>"9"THEN 1840
1390 GOTO 1150
1420 J=1
1430 I=I+1
1450 IF I>24THEN 1500
1460 $GIO#4(400D400A,I$)
1470 MAT COPY P$()<C,1>TO K$()
1480 GOTO 1290
1500 C,I=1
1510 $GIO#4(4001,I$)
1520 MAT COPY P$()<C,1>TO K$()
1530 GOTO 1290
1570 IF I0=1THEN 1680
   : MAT COPY P$()<C,1>TO K$()
1580 A1=1
1590 F1$(1)=P$(1,1)
1600 AND (F1$(1),BF)
1620 MAT COPY -P$()<1,C>TO Q$()<1,C>
1630 MAT SEARCHQ$()<1,C>,>=X$TO E$()
1640 IF E$(1)=A$THEN 1700
1650 A1=C+1-256*VAL(E$(1))-VAL(STR(E$(1),2))
1660 MAT COPY P$()<A1,1>TO F1$()
1670 AND (F1$(1),BF)
1680 ON I0+1GOTO 720,980
   : GOTO 720
1700 MAT COPY -P$()<C+1,1920-C>TO Q$()<1,1920-C>
1710 MAT SEARCHQ$()<1,1920-C>,>=X$TO E$()
1720 IF E$(1)=A$THEN 720
1730 A1=1921-256*VAL(E$(1))-VAL(STR(E$(1),2))
1740 MAT COPY P$()<A1,1>TO F1$()
1750 AND (F1$(1),BF)
1760 GOTO 720
1790 $GIO#4(A000,I$)R1$()<1,I>
1800 $GIO#4(A000,I$)R2$()<1,J>
1810 RETURN
1840 $GIO#4(4007,I$)
   : F$="I"
   : GOSUB 4080
   : GOSUB 1790
1850 GOTO 720
1880 $GIO#4(4001,I$)
1890 FOR K=1TO 1761STEP 80
1900 MAT COPY P$()<K,80>TO C$()
1910 $TRAN(C$(),R$())
1920 $GIO#4(400DA000400A,I$)C$()
1930 NEXT K
1940 MAT COPY P$()<1841,80>TO C$()
1950 $TRAN(C$(),R$())
1960 $GIO#4(400DA000,I$)C$()
1963 IF F$<>"I"THEN 1790
   : IF I0=1THEN 1790
1964 GOSUB 4080
1970 GOTO 1790
2000 C=C-1
2010 J=J-1
2020 $GIO#4(4008,I$)
2040 IF J<=0THEN 2070
2050 IF F1$(1)>=X$THEN 1570
   : GOTO 720
2070 J=80
2080 I=I-1
2090 IF I=0THEN 2130
2100 $GIO#4(400C,I$)
2110 IF F1$(1)>=X$THEN 1570
   : GOTO 720
2130 I=24
2140 C=1920
2150 GOSUB 1790
2160 IF F1$(1)>=X$THEN 1570
   : GOTO 720
2190 $GIO#4(4009,I$)
2200 GOTO 1240
2230 C=C+80
2240 IF C>1920THEN 2330
2250 MAT COPY -P$()<C-79,80>TO C$()
2260 I=I+1
2270 $GIO#4(400A,I$)
2280 MAT COPY P$()<C,1>TO K$()
2290 MAT SEARCHC$(),>=X$TO E$()
2300 IF E$(1)<>A$THEN 2380
2310 GOTO 720
2330 C=J
2340 I=1
2350 GOSUB 1790
2360 GOTO 1570
2380 A1=C-256*VAL(E$(1))-VAL(STR(E$(1),2))+1
2390 MAT COPY P$()<A1,1>TO F1$()
2400 AND (F1$(1),BF)
2410 GOTO 720
2450 C=C-80
2460 IF C<1THEN 2510
2470 I=I-1
2480 $GIO#4(400C,I$)
2490 GOTO 1570
2510 C=1840+J
2520 I=24
2530 GOSUB 1790
2540 GOTO 1570
2570 A1=C
2590 IF A1=1920THEN 2740
2610 MAT COPY P$()<A1+1,1920-A1>TO Q$()<1,1920-A1>
2620 $TRAN(Q$()<1,1920-A1>,S$())
2630 MAT SEARCHQ$()<1,1920-A1>,=X$TO E$()
2640 IF E$(1)=A$THEN 2740
2650 A1=A1+256*VAL(E$(1))+VAL(STR(E$(1),2))
2660 IF A1=1920THEN 2910
2670 MAT COPY P$()<A1+1,1>TO K$()
2680 IF K$(1)>=X$THEN 2590
2690 MAT COPY P$()<A1,1>TO F1$()
2700 AND (F1$(1),BF)
2710 C=A1+1
   : I=INT((C-1)/80)+1
   : J=C-80*I+80
2720 RETURN
2740 A1=0
2750 MAT COPY P$()<1,C>TO Q$()<1,C>
2760 $TRAN(Q$()<1,C>,S$())
2770 MAT SEARCHQ$()<A1+1,C-A1>,=X$TO E$()
2780 IF E$(1)=A$THEN 2900
2790 A1=A1+256*VAL(E$(1))+VAL(STR(E$(1),2))
2800 IF A1=1920THEN 2970
   : IF A1>=CTHEN 2900
2810 MAT COPY P$()<A1+1,1>TO K$()
2820 MAT COPY P$()<A1,1>TO F1$()
2830 AND (F1$(1),BF)
2840 IF K$(1)>=X$THEN 2770
2850 MAT COPY P$()<A1,1>TO F1$()
2860 AND (F1$(1),BF)
2870 C=A1+1
   : I=INT((C-1)/80)+1
   : J=C-80*I+80
2880 RETURN
2900 A1=1
   : F1$(1)=P$(1,1)
   : AND (F1$(1),BF)
2910 K$(1)=P$(1,1)
2920 IF K$(1)>=X$THEN 2740
2930 C,I,J=1
2940 MAT COPY P$()<A1,1>TO F1$()
2950 AND (F1$(1),BF)
2960 RETURN
2970 MAT COPY P$()<1920,1>TO F1$()
2980 AND (F1$(1),BF)
2990 GOTO 2910
3020 GOSUB 2570
3030 GOSUB 1790
3040 GOTO 720
3080 IF F1$(1)<X$THEN 3150
3090 C,C2=C-J+79
3110 GOSUB 2570
3120 GOSUB 1790
3130 GOTO 720
3150 C=C-J+81
3160 IF C>1920THEN 3210
3170 J=1
3180 I=I+1
3190 GOSUB 1790
3200 GOTO 720
3210 C,I,J=1
3220 GOSUB 1790
3230 GOTO 720
3260 A1$=HEX(2D)
3265 C,I,J,A1=1
3270 INIT(00)P$(),K$(),F1$()
3275 GOSUB 1880
3280 GOTO 4050
3310 A1$=HEX(3D)
3320 GOTO 4050
3350 PRINT HEX(030A0A0A0A0A0A);,,"ERROR CONDITION";HEX(01);
3360 STOP
3385 S=1
   : GOTO 720
3390 I$=A1$
   : S=0
3400 C2=INT((C-1)/256)
3410 BIN(STR(I$,3,1))=C2
3420 BIN(STR(I$,4,1))=C-1-256*C2
3430 $GIOSENDDATA#6(4408400040004210400042304240A0004400,I$)P$()
3470 A1$=HEX(20)
3480 GOTO 720
3510 ON VAL(C$(2))GOTO 3511,3555
3511 $GIOREADCONSOLEDATA#6(4404860086008601860286038604C620,I$)P$()
3530 C=256*VAL(STR(I$,3))+VAL(STR(I$,4))+1
3540 I=INT((C-1)/80)+1
3550 J=C-80*I+80
3551 $GIOENABLE#6(44064000,I$)
   : GOTO 3570
3555 $GIOREADPRINTERDATA#6(4404860086008601860286038604C620,I$)Q$()
   : MAT COPY Q$()TO P$()
   : STR(R$(2),10,1)=HEX(19)
   : $TRAN(Q$(),R$())
   : STR(R$(2),10,1)=HEX(20)
   : P=1
   : L$=STR(I$,2)
   : ROTATE(L$,4)
   : AND (L$,03)
   : P1=VAL(L$)
3557 PRINT HEX(010D0C08080808080808080808080808080808);"    PRINTER BUSY";HEX(
     01);
3570 L$=STR(I$,2)
3580 AND (L$,06)
3590 IF L$<HEX(04)THEN 3620
3600 $GIOBEEP#4(4007,I$)
3620 AND (L$,02)
3630 A1$=" "
3640 IF L$=HEX(00)THEN 3663
3650 F$=" "
3663 IF C$(2)=HEX(02)THEN 720
3670 S1=1
3674 GOTO 720
3680 GOSUB 1880
   : S1=0
   : GOTO 1570
3683 K$=HEX(7F)
3684 GOTO 1080
3710 A1$=HEX(30)
3720 GOTO 4050
3750 A1$=K$
3760 ADD(A1$,2D)
3770 GOTO 4050
3773 A1$=K$
3774 ADD(A1$,25)
3775 GOTO 4050
3800 A1$=HEX(2C)
3810 GOTO 4050
3840 A1$=HEX(2E)
3850 GOTO 4050
3880 A1$=HEX(2B)
3890 GOTO 4050
3893 K$=HEX(5F)
3894 GOTO 1080
3897 K$=HEX(5B)
3898 GOTO 1080
3902 K$=HEX(5D)
3903 GOTO 1080
3915 DEFFN'15
3916 RETURN CLEAR
3920 F$=" "
   : MAT COPY P$()<C,1>TO M$()
   : IF M$(1)<>HEX(5C)THEN 3930
   : M$(1)=HEX(00)
   : MAT COPY M$()TO P$()<C,1>
3930 IF M=0THEN 4010
   : M=0
3940 IF N<CTHEN 3990
   : IF A2=1THEN 4010
3960 MAT COPY Q$()TO P$()<C,L>
3970 GOTO 4010
3990 MAT COPY Q$()TO P$()<C,1921-C>
4000 MAT COPY Q$()<1922-C,L-1921+C>TO P$()<1,L-1921+C>
4010 GOSUB 1963
   : F$=" "
   : I0=0
   : GOSUB 1880
   : GOTO 1570
4050 $GIOSENDREQUEST#6(44094000,I$)
4070 F$="I"
   : GOSUB 4080
   : ON I0+1GOTO 720,980
   : GOTO 720
4080 PRINT HEX(010D0C08080808080808080808080808080808);"KEYBOARD LOCKED.";HEX(
     01);
   : RETURN
4123 K$=HEX(1E)
4124 GOTO 1080
4127 K$=HEX(1C)
   : GOTO 1080
4150 KEYIN K$,720,4160
   : GOTO 720
4160 IF K$=HEX(00)THEN 3920
   : GOTO 720
4280 IF K$(1)>=X$THEN 1840
   : IF F1$(1)>=HEX(A0)THEN 1840
4282 IF F1$(1)>=HEX(90)THEN 4370
4286 MAT COPY P$()<C+L-1,1>TO M$()
   : IF M$(1)=HEX(00)THEN 4289
   : IF I2<>1THEN 1840
4289 K$(1)=K$
4290 MAT COPY K$()TO P$()<C,1>
4295 $GIO#4(A000,I$)K$()
4310 C=C+1
4315 L=L-1
4320 IF C>1920THEN 4500
4330 J=J+1
4340 IF J>80THEN 4530
4360 IF L>=0THEN 4361
   : L=0
4361 B=0
   : IF L<>1THEN 4362
   : B=1
4362 MAT COPY P$()<C,1>TO M$()
   : IF M$(1)=HEX(00)THEN 4363
   : IF B=1THEN 1840
4363 ON L+1GOTO 4625,4420
   : GOTO 4380
4370 IF K$="-"THEN 4289
   : IF K$="."THEN 4289
4371 IF K$<"0"THEN 1840
   : IF K$>"9"THEN 1840
   : GOTO 4289
4380 MAT COPY P$()<C,1>TO M$()
   : IF M$(1)<>HEX(00)THEN 4381
   : A2=1
   : GOTO 4382
4381 MAT COPY P$()<C+L-1,1>TO M$()
   : IF M$(1)<>HEX(00)THEN 1840
4382 B=0
   : IF A2<>1THEN 4383
   : B=1
4383 MAT COPY P$()<C,1>TO M$()
   : IF M$(1)=HEX(00)THEN 4384
   : IF B=1THEN 4710
4384 IF N<CTHEN 4570
   : IF A2=1THEN 4420
4400 MAT COPY Q$()<1,L-1>TO P$()<C+1,L-1>
4420 INIT(5C)K$()
4430 MAT COPY K$()TO P$()<C,1>
4440 MAT COPY P$()<C-J+1,80>TO C$()
4460 $TRAN(C$(),R$())
4470 $GIO#4(400DA000,I$)C$()
4480 $GIO#4(A000,I$)R2$()<1,J>
4490 IF A2<>1THEN 4491
   : I2=0
4491 IF I2=1THEN 1840
4492 MAT COPY P$()<C+L-1,1>TO M$()
   : IF M$(1)=HEX(00)THEN 980
   : I2=1
   : GOTO 980
4500 C,I,J=1
4510 $GIOHOME#4(4001,I$)
4520 GOTO 4360
4530 J=1
4540 I=I+1
4550 $GIOLINEFEED#4(400A,I$)
4560 GOTO 4360
4570 L1=1921-C
4580 L2=L-L1
4590 IF C=1920THEN 4610
4600 MAT COPY Q$()<1,L1-1>TO P$()<C+1,L1-1>
4610 MAT COPY Q$()<L1,L2-1>TO P$()<1,L2-1>
4620 GOTO 4420
4625 M=0
4626 GOTO 3920
4640 IF C=MTHEN 4675
4650 $GIO#4(4008,I$)
   : C=C-1
   : J=J-1
   : L=L+1
   : IF J>=1THEN 4380
4660 J=80
   : I=I-1
   : $GIO#4(400C,I$)
   : IF I>0THEN 4380
4670 I=24
   : C=1920
   : GOTO 4380
4675 $GIO#4(4007,I$)
   : GOTO 980
4710 I2,A2=0
   : I0=1
   : L$=F1$(1)
4720 $TRAN(L$,S$())
4730 IF L$>X$THEN 1840
4735 IF L$<X$THEN 4945
4740 IF K$(1)>=X$THEN 1840
4760 OR (F1$(1),01)
4770 MAT COPY F1$()TO P$()<A1,1>
4790 M=C
4820 MAT COPY P$()<C,1921-C>TO Q$()<1,1921-C>
4830 IF C=1THEN 4850
4840 MAT COPY P$()<1,C-1>TO Q$()<1922-C,C-1>
4850 L=1920
4860 IF L$<X$THEN 4380
4870 MAT SEARCHQ$(),>=X$TO E$()
4880 IF E$(1)=A$THEN 4380
4890 L=256*VAL(E$(1))+VAL(STR(E$(1),2))-1
4900 N=M+L-1
4910 IF N<=1920THEN 4380
4920 N=N-1920
4930 GOTO 4380
4945 IF C=1920THEN 4675
4950 M=C
   : N=1919
   : L=1920-C
4955 MAT COPY P$()<C,L>TO Q$()<1,L>
4960 GOTO 4380
5020 IF C=1THEN 5040
5030 MAT COPY -P$()<1,C-1>TO Q$()<1,C-1>
5040 MAT COPY -P$()<C,1921-C>TO Q$()<C,1921-C>
5050 $TRAN(Q$(),S$())
5060 C2=1
5070 MAT SEARCHQ$()<C2+1,1920-C2>,=X$TO E$()
5080 IF E$(1)=A$THEN 5270
5090 C2=C2+256*VAL(E$(1))+VAL(STR(E$(1),2))
5100 MAT COPY Q$()<C2-1,1>TO K$()
5110 IF K$(1)>=X$THEN 5260
5120 C=C-C2+1
5130 IF C>0THEN 5160
5140 C=C+1920
5150 GOTO 5130
5160 MAT COPY P$()<C,1>TO K$()
5170 I=INT((C-1)/80)+1
5180 J=C-80*I+80
5190 A1=C-1
5200 IF A1>0THEN 5220
5210 A1=1920
5220 MAT COPY P$()<A1,1>TO F1$()
5230 AND (F1$(1),BF)
5240 GOSUB 1790
5250 GOTO 720
5260 IF C2<1920THEN 5070
5270 C,I,J,A1=1
5280 K$(1),F1$(1)=P$(1,1)
5290 AND (F1$(1),BF)
5300 GOSUB 1790
5310 GOTO 720
5340 L$=F1$(1)
5350 $TRAN(L$,S$())
5360 IF L$>X$THEN 1840
5370 IF K$(1)>=X$THEN 1840
5380 IF F1$(1)<X$THEN 5530
5390 OR (F1$(1),01)
5400 MAT COPY F1$()TO P$()<A1,1>
5410 MAT SEARCHP$()<C,81-J>,>=X$TO E$()
5420 C2=81-J
5430 IF E$(1)=A$THEN 5530
5440 C2=VAL(STR(E$(1),2))-1
5450 MAT COPY P$()<C+1,C2-1>TO P$()<C,C2>
5460 C$(1)=HEX(00)
5470 MAT COPY C$()<1,1>TO P$()<C+C2-1,1>
5480 MAT COPY P$()<C-J+1,80>TO C$()
5490 $TRAN(C$(),R$())
5500 $GIO#4(400DA000,I$)C$()
5510 $GIO#4(A000,I$)R2$()<1,J>
5520 GOTO 720
5530 C2=81-J
5540 GOTO 5450
6020 X=40
   : IF P1=1THEN 6080
   : X=64
   : IF P1=2THEN 6080
   : X=80
   : IF P1=3THEN 6080
6030 X1$=HEX(0D)
   : MAT SEARCHQ$()<P,1921-P>,=X1$TO E$()
   : IF E$(1)=HEX(0000)THEN 6070
   : X=256*VAL(E$(1))+VAL(STR(E$(1),2))
6040 I$=HEX(0400)
   : X1$=HEX(19)
   : MAT SEARCHQ$()<P,X>,=X1$TO E$()
   : IF E$(1)=HEX(0000)THEN 6045
   : X=256*VAL(E$(1))+VAL(STR(E$(1),2))
   : F=1
6045 $GIO#5(1212A000,I$)Q$()<P,X>
   : AND (STR(I$,8,1),10)
   : IF STR(I$,8,1)>HEX(00)THEN 6060
6050 IF F=1THEN 6053
   : P=P+X
   : IF P<=1920THEN 6055
6053 F=0
   : P=0
   : GOSUB 1880
   : $GIOENABLERCV#6(44064000,I$)
6055 IF M=0THEN 720
   : GOTO 980
6060 PRINT HEX(07030A0A0A0A0A0A0A),,"PRINTER NOT READY"
   : $GIODISABLERCV#6(44054000,I$)
   : IF M=0THEN 720
   : GOTO 980
6070 P=0
   : GOSUB 1880
   : $GIOENABLERCV#6(44064000,I$)
   : GOTO 6055
6080 I$=HEX(0F00)
   : X1$=HEX(19)
   : MAT SEARCHQ$()<P,X>,=X1$TO E$()
   : IF E$(1)=HEX(0000)THEN 6090
   : X=256*VAL(E$(1))+VAL(STR(E$(1),2))
   : F=1
6090 $GIO#5(1212A000400D,I$)Q$()<P,X>
   : AND (STR(I$,8,1),10)
   : IF STR(I$,8,1)>HEX(00)THEN 6060
   : GOTO 6050
6140 IF K$(1)>=X$THEN 1840
6150 IF F1$(1)>=HEX(A0)THEN 1840
6155 INIT(00)Q$(),K$()
6170 IF F1$(1)<X$THEN 6360
6173 OR (F1$(1),01)
   : MAT COPY F1$()TO P$()<A1,1>
6190 IF C>=1920THEN 6260
6200 MAT SEARCHP$()<C+1,1920-C>,>=X$TO E$()
6210 IF E$(1)=A$THEN 6260
6220 N=C+256*VAL(E$(1))+VAL(STR(E$(1),2))-1
6230 MAT COPY Q$()TO P$()<C,N-C+1>
6240 GOSUB 1880
6245 GOTO 720
6260 MAT COPY Q$()TO P$()<C,1921-C>
6270 MAT SEARCHP$()<1,C>,>=X$TO E$()
6280 IF E$(1)>A$THEN 6290
   : PRINT HEX(03)
   : STOP "PGM ERROR"
6290 N=256*VAL(E$(1))+VAL(STR(E$(1),2))-1
6300 IF N=0THEN 6330
6310 MAT COPY Q$()TO P$()<1,N>
6330 GOSUB 1880
6340 GOTO 720
6360 MAT COPY Q$()TO P$()<C,1921-C>
6370 GOSUB 1880
6380 GOTO 720
6420 IF F1$(1)<X$THEN 6910
6425 A1=0
6430 INIT(00)K$()
6435 PRINT HEX(030A)
   : N1=0
6450 IF A1=1920THEN 6840
   : MAT SEARCHP$()<A1+1,1920-A1>,>=X$TO E$()
6460 IF E$(1)=A$THEN 6840
6470 A1=A1+256*VAL(E$(1))+VAL(STR(E$(1),2))
6480 MAT COPY P$()<A1,1>TO F1$()
6490 AND (F1$(1),20)
6500 IF F1$(1)=HEX(00)THEN 6540
6510 IF A1<1920THEN 6450
6520 GOTO 6840
6540 N1=N1+1
   : PRINT HEX(0C);"ERASING FIELD #";N1
   : IF A1=1920THEN 6760
   : MAT SEARCHP$()<A1+1,1920-A1>,>=X$TO E$()
6550 IF E$(1)=A$THEN 6680
6560 L=256*VAL(E$(1))+VAL(STR(E$(1),2))-1
6570 IF L=0THEN 6450
6580 MAT COPY K$()TO P$()<A1+1,1>
6590 IF L=1THEN 6610
6600 MAT COPY P$()<A1+1,L-1>TO P$()<A1+2,L-1>
6610 MAT COPY P$()<A1,1>TO F1$()
6620 AND (F1$(1),FE)
6630 MAT COPY F1$()TO P$()<A1,1>
6640 A1=A1+L
6650 IF A1<1920THEN 6450
6660 GOTO 6760
6680 L=1920-A1
6690 IF L=0THEN 6760
   : MAT COPY K$()TO P$()<A1+1,1>
6700 IF L=1THEN 6720
6710 MAT COPY P$()<A1+1,L-1>TO P$()<A1+2,L-1>
6720 MAT COPY P$()<A1,1>TO F1$()
6730 AND (F1$(1),FE)
6740 MAT COPY F1$()TO P$()<A1,1>
6760 MAT SEARCHP$(),>=X$TO E$()
6770 L=256*VAL(E$(1))+VAL(STR(E$(1),2))-1
6780 IF L=0THEN 6840
6790 STR(P$(1,1),1,1)=A$
6800 IF L=1THEN 6840
6810 MAT COPY P$()TO P$()<2,L-1>
6840 C=1919
6860 GOSUB 2570
6880 GOSUB 1880
6890 GOTO 720
6910 INIT(00)P$(),K$(),F1$()
6920 C,I,J,A1=1
6930 GOSUB 1880
6940 GOTO 720
7000 $GIOTOPOFFORM#5(400D400C,I$)
7010 FOR K=1TO 1920STEP 80
7020 MAT COPY P$()<K,80>TO C$()
7030 $TRAN(C$(),R$())
7040 $GIO#5(A000400D,I$)C$()
7050 NEXT K
7060 $GIOTOPOFFORM#5(400C400D,I$)
7200 GOTO 720
9040 C,I,J=1
   : A2,I0,I2=0
9050 A1=1
9060 F1$(1)=P$(1,1)
9070 AND (F1$(1),BF)
9080 M$="KEYBOARD LOCKED."
9085 INIT(08)Z$
   : STR(Z$,1,2)=HEX(010C)
9100 INIT(0A)R1$()
9110 INIT(01)R1$(1)
9120 INIT(09)R2$()
9130 INIT(0D)R2$(1)
9150 INIT(20)R$()
9160 INIT(00)P$(),Q$()
9180 INIT(00)J$(),A$
9190 INIT(01)J$(3),J$(4),J$(5),J$(6),J$(7),J$(8)
9200 J$(1)=HEX(00000000000000000300000000040000)
9210 STR(J$(4),12,1)=HEX(07)
   : STR(J$(6),15,1)=HEX(0A)
9220 J$(9)=HEX(0006080007000B000000000000000000)
9240 J$(11)=HEX(07000000000000090000000000000000)
9242 J$(15)=HEX(00000000000502000000000000000000)
9250 GOSUB 1880
9270 S1$=HEX(000086C64D5C4001604000)
   : STR(S1$,3,4)=T$
   : $GIOCONNECT#6(4401A2004400,I$)S1$
9280 F$=" "
9290 A1$=HEX(20)
9305 STR(R$(1),14,1)=HEX(0D)
9310 R$(3)=HEX(202122232425262728292A2B2C2D2E2F)
9315 STR(R$(2),13,3)="* ;"
9320 R$(4)=HEX(303132333435363738393A3B3C3D3E3F)
9330 R$(5)=HEX(404142434445464748494A4B4C4D4E4F)
9340 R$(6)=HEX(505152535455565758595A868B855EA0)
9350 R$(7)=HEX(606162636465666768696A6B6C6D6E6F)
9360 R$(8)=HEX(707172737475767778797A7B7C7D7E7F)
9370 X$=HEX(80)
9380 INIT(31)S$(1),S$(2),S$(3),S$(4),S$(5),S$(6),S$(7),S$(8)
9390 INIT(80)S$(9),S$(10),S$(13),S$(14)
9400 INIT(81)S$(11),S$(12),S$(15),S$(16)
9410 GOTO 1570
9420 DEFFN'30
   : LOAD DC T"START"
9430 DEFFN'29
   : LOAD DC T"CHANGEID"