9 REM************** MULTIPLE INITIALIZATION 10 P5,P6,P7=99 19 REM************* # SAME AS <> 20 IF P2<>C9 THEN 139 21 IF A<>B AND J<> 27 THEN 100 22 IF INT(10*RND(0))<>5 THEN 22 23 IF C$<>B$ THEN 144 29 REM************* # NOT SAME AS <> 30 ENTER #V 31 PRINT #1;A,B,C,D 32 READ #1,3 33 READ #1;H,I,J 34 IF END #1 THEN 100 35 MAT PRINT #5, A 36 MAT READ #M,N+1;D 37 MAT PRINT #5,A 38 MAT READ #2,3;B 39 REM**************** DIMS 40 DIM X(50),Y(10,10) 41 DIM A(2),B(5,5) 42 DIM C(3) 43 DIM D(3),E(4,4) 44 DIM F(4) 45 DIM G(5,5) 46 DIM H(40,4),I(30) 47 DIM J(30) 49 REM**************** GOSUB/GOTO 50 ON X+Y GOTO 100,200,300 51 ON N+1 GOSUB 200,300,400 52 ON TYP(B) GOTO 200,210,220 53 GOTO 400 54 GOSUB 600 55 ON X(6) GOTO 400,900,1000 59 REM**************** PRINTS WITHOUT LOGICALS 60 PRINT TAB(X);N 61 PRINT X; CHR$(13%);CHR$(10%);Y 62 PRINT X;LIN(3);Y 63 PRINT X;SPACE$(1);Y 64 PRINT X;SPACE$(4);Y 65 PRINT S;SPACE$(1);Y;CHR$(13%);CHR$(10%);Z;SPACE$(2);W;CHR$(13%);CHR$(10%) 66 PRINT A(3,3); 67 PRINT MID(Z$,2,5 ) 68 PRINT MID(Z$,2,5 ),Z,X,MID(Y$,1,3 ),A$,RIGHT(B$,3) 69 PRINT RIGHT(Y$,5),X,C,MID(Y$,1,3 ) 70 PRINT MID(A$,K,B+1%-(K)),Z,X,A$ 71 PRINT A$ 72 PRINT RIGHT(A$,5) 73 PRINT RIGHT(A$,I) 74 PRINT MID(A$,I,J+1%-(I)) 75 PRINT A$,MID(A$,I,J+1%-(I)),RIGHT(A$,3) 76 PRINT MID(A$,X(2),Y(7)+1%-(X(2))) 77 PRINT T,R,X$,MID(A$,X(2),Y(7)+1%-(X(2))) 78 PRINT MID(A$,1,3 ),Q,MID(B$,M,K+1%-(M)),Y 79 REM**************** READ/INPUT 80 MAT INPUT B(5) 81 MAT READ B(5) 82 READ C$ 83 READ X,A$,Y,Z9$\B$=LEFT(B$,2 )+Z9$ 84 READ X$,Y$(5),A,B,Z$ 85 READ Z9$\Y$=LEFT(Y$,0 )+Z9$+RIGHT(Y$,4 ) 86 READ X,Y$,Z 87 READ Z,X,C(3),Z9$\A$=LEFT(A$,4 )+Z9$+RIGHT(A$,10 ) 88 READ A$(5,9),Z$(1,3),X,Y 89 READ Z9$\Z$=LEFT(Z$,2 )+Z9$+RIGHT(Z$,6 ) 90 READ Z$,X,Y,X$ 91 INPUT Z9$\A$=LEFT(A$,5 )+Z9$ 92 INPUT Z9$\A$=LEFT(A$,5 )+Z9$ 93 INPUT Z9$\A$=LEFT(A$,I-1%)+Z9$ 94 INPUT X,A$,A$(3,6),B$ 95 INPUT X,A$,Z9$\A$=LEFT(A$,2 )+Z9$+RIGHT(A$,10 ) 96 INPUT Z9$\A$=LEFT(A$,A(2)-1%)+Z9$+RIGHT(A$,J(4,I)+1%) 97 READ C(X),P$,R7 99 REM**************** STOP,REM,DEF 100 GO TO 32767 101 REM TEST 102 DEF FNA(B2)=A^2 + B2/4 109 REM*************** LOGICALS (INCL. PRINTS) 110 PRINT (A MIN 10) 111 IF A91 OR B<5 THEN 131 113 PRINT C OR D 114 LET B5 = NOT P 115 IF NOT A THEN 166 116 PRINT A AND B 117 PRINT A OR B 118 PRINT NOT B 119 PRINT (A MIN 10) 120 IF NOT A THEN 1300 121 IF (NOT C) AND A THEN 144 122 LET B=NOT A 123 PRINT NOT (X AND Y) 124 IF NOT (A=B) THEN 144 129 REM*************** IFS 130 IF A>B THEN B$=LEFT(B$,6 )+"FLAG"+RIGHT(B$,11 ) 131 IF MID(A$,5,2 )>=MID(B$,7,2 ) THEN 63 132 IF MID(N$,3,3 ) < RIGHT(R$,9) THEN 144 133 IF RIGHT(A$,10)="END" THEN 81 134 IF MID(A$,7,3 )>=MID(B$,3,3 ) THEN Z=100 135 IF MID(A$,7,3 ) >= MID(B$,3,3 ) THEN C$=LEFT(C$,2 )+"AD"+RIGHT(C$,5 ) 136 IF MID(A$,7,3 ) >= MID(B$,3,3 ) THEN C$=LEFT(C$,2 )+MID(D$,4,2 )+RIGHT(C$,5 ) 137 IF MID(A$,7,3 )>MID(B$,3,3 ) THEN 81 138 IF MID(A$,7,3 )>MID(B$,3,3 ) THEN X=100 139 IF MID(A$,7,3 ) > MID(B$,3,3 ) THEN C$=LEFT(C$,2 )+ "AH"+RIGHT(C$,5 ) 140 IF MID(A$,7,3 ) > MID(B$,3,3 ) THEN C$=LEFT(C$,2 )+MID(D$,4,2 )+RIGHT(C$,5 ) 141 IF MID(A$,7,3 )=MID(B$,I,J+1%-(I)) THEN 100 142 IF MID(A$,I,J+1%-(I))=MID(B$,3,3 ) THEN Z=100 143 IF MID(A$,7,3 )=MID(B$,3,3 ) THEN C$=LEFT(C$,2 )+"QW"+RIGHT(C$,5 ) 144 IF MID(A$,7,3 )=MID(B$,3,3 ) THEN C$=LEFT(C$,2 )+MID(D$,4,2 )+RIGHT(C$,5 ) 145 IF MID(A$,4,Z(3,4)+-3 )<>MID(G$,X(2),Z(I,J)+1%-(X(2))) THEN C$=LEFT(C$,2 )+"AAA"+RIGHT(C$,K(2,4)+1%) 149 REM************ MISC.,NON FLAG 150 MAT X=ZER(30,10) 151 A$=MID(B$,3,3 ) 152 A$=RIGHT(B$,4) 153 A$=LEFT(A$,5 )+MID(B$,9,3 )+RIGHT(A$,9 ) 154 A$=LEFT(A$,I-1%)+MID(K$,9,J-I+9+-8 )+RIGHT(A$,K+1%) 159 REM************* FLAG WORDS 160 IF (A9 MAX B) <=5 THEN 1150 161 IF TIM(0)-A >15 THEN 1200 162 CHAIN V$ 163 COM A,B,C$ 164 FILES GHIJK 165 PRINT USING "DDD.DDD";Z1 166 IMAGE "MONEY",6DX,"COST",6DX,"INPUT" 167 CHAIN A$ 168 REM************ INTERSTRING CONVERSIONS 169 READ B$,Z9$\A$=LEFT(A$,2 )+Z9$+RIGHT(A$,8 ) 170 READ B$,Z9$\A$=LEFT(A$,2 )+Z9$+RIGHT(A$,J+3+1%) 171 READ B$,Z9$\A$=LEFT(A$,I+2-1%)+Z9$+RIGHT(A$,8 ) 172 IF MID(A$,11,5 ) = MID(B$,7,5 ) THEN C$=LEFT(C$,1 )+MID(D$,12,3 )+RIGHT(C$,5 ) 173 IF MID(A$,I+11,J+15+1%-(I+11))=MID(B$,I+7,J+11+1%-(I+7)) THEN C$=LEFT(C$,I+2-1%)+MID(D$,I+12,J+14+1%-(I+12))+RIGHT(C$,J+4+1%) 10000 GO TO 32767 20000 GOTO 32767 32767 END