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"