1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... BIL16K.BAS 3 REM ! Utg}va 1982-01-10 4 REM ! av (c) Olle Bliding <2182> 5 REM ! Minne 16 Kbytes 6 REM +++++++++++++++++++++++++++++++++ 7 REM 8 REM Screening av 9 REM Allan Varcoe & G|ran Olsson 10 REM 11 IF PEEK(472)=80 THEN ; INP(3) 12 REM +++++++++++++++++++++++++++++++++ 13 ; CHR$(12%)"W - BROMS" : ; "S - GAS","V[NSTER-[ '-H\GER" 14 ; " I F\RH]LLAND TILL BILENS RIKTNING." 15 ; 'TRYCK "S" F\R START.' : ; 'TRYCK "RETURN" D] "R[TT" BANA [R FRAMME.' : ; "DU F]R K\RA I 2 min (120 s)." 16 IF INP(56%)<>211% 16 17 GOSUB 64 : FOR F=1 TO 700 : IF INP(56%)=141% GOSUB 64 : GOTO 19 ELSE NEXT F : Q=Q+1 AND 3 : GOTO 17 18 DATA 71,79 ,71,78, 70,79, 69,79, 68,79, 69,78, 70, 78 19 U%=0% : T3%=65008% : GOSUB 98 20 X1=8 21 Y1=5 : A=0 : B=.4 : G1=X1 : H1=5 22 IF DOT(X1,Y1) THEN OUT 6,9 : FOR F=1 TO 2000 : NEXT F : OUT 6,0 : U%=U%+2% : GOTO 20 23 SETDOT X1,Y1 : SETDOT G1,H1 24 IF B>0 AND B>A AND B>-A GOSUB 41 : GOTO 33 25 IF A>0 AND A>B AND A>-B GOSUB 48 : GOTO 33 26 IF A<0 AND A=0 THEN B=-.01 33 IF C%=1% GOSUB 90 34 C%=C%+1% AND 15% 35 IF Z>=120 ; CUR(0,3)"120.00 s" : GOTO 128 : REM OM DU VILL K\RA L[NGRE S] KAN DU [NDRA H[R <- 36 IF T%=INT(X1) IF S1%<=INT(Y1) IF S2%>=INT(Y1) 99 37 IF T1%=INT(X1) IF S3%<=INT(Y1) IF S4%>=INT(Y1) 99 38 CLRDOT X1,Y1 : CLRDOT G1,H1 39 G1=X1 : H1=Y1 : X1=X1+A : Y1=Y1+B : GOTO 22 40 REM om B>0 och B>A dvs --> 41 IF INP(56%)=219% A=A-.05 42 IF INP(56%)=167% A=A+.05 43 IF INP(56%)=215% B=B-.02 44 IF INP(56%)=211% B=B+.01 45 IF A>B AND A<0 GOTO 47 46 IF B<=0 B=.01 47 RETURN 48 REM om A>B och A>0 dvs -_- 49 IF INP(56%)=219% B=B+.05 50 IF INP(56%)=167% B=B-.05 51 IF INP(56%)=215% A=A-.02 52 IF INP(56%)=211% A=A+.01 53 IF -B>A A=A-.1 : GOTO 55 54 IF A<=0 A=.01 55 RETURN 56 REM om A<0 och B>A dvs ,', 57 IF INP(56%)=219% B=B-.05 58 IF INP(56%)=167% B=B+.05 59 IF INP(56%)=215% A=A+.02 60 IF INP(56%)=211% A=A-.01 61 IF -B=0 A=-.01 63 RETURN 64 ON Q+1 GOTO 157,65,102,132 65 ; CHR$(12%); 66 ; CUR(1%,0%)'////////////////////////////////////'; 67 ; CUR(2%,0%)'  '; 68 ; CUR(3%,0%)'  '; 69 ; CUR(4%,0%)'  '; 70 ; CUR(5%,0%)'  '; 71 ; CUR(6%,0%)'  '; 72 ; CUR(7%,0%)'    '; 73 ; CUR(8%,0%)'    '; 74 ; CUR(9%,0%)'    '; 75 ; CUR(10%,0%)'  #  '; 76 ; CUR(11%,0%)'   '; 77 ; CUR(12%,0%)'   '; 78 ; CUR(13%,0%)'   '; 79 ; CUR(14%,0%)'   '; 80 ; CUR(15%,0%)'   '; 81 ; CUR(16%,0%)'   '; 82 ; CUR(17%,0%)' //////////////////// '; 83 ; CUR(18%,0%)' '; 84 ; CUR(19%,0%)' '; 85 ; CUR(20%,0%)' '; 86 ; CUR(21%,0%)' '; 87 ; CUR(22%,0%)' '; 88 ; CUR(23%,0%)'|||||||||||||||||||||||||||||||||||||'; 89 FOR I%=1% TO 7% : READ A%,B% : SETDOT A%,B% : NEXT I% : S1%=3% : S2%=20% : T%=21% : T1%=0% : RESTORE : RETURN 90 REM UTSKRIFT OCH AVL[SNING AV KL. 91 FOR I%=0% TO 2% 92 Z3%(I%)=255% XOR PEEK(T3%+I%) 93 NEXT I% 94 Z=((Z3%(2)*256)+Z3%(1))*5.12+Z3%(0)/50 95 ; CUR(0%,3%)INT(Z+.5)" s" 96 RETURN 97 REM NOLLST[LLNING AV KLOCKAN 98 POKE 65008%,-1%,-1%,SWAP%(-1%) : RETURN 99 IF A>0% K%=-1% ELSE K%=1% 100 IF Q=2% S%=S%+K% : CLRDOT X1,Y1 : X1=X1-K%*2% : ; CUR(0,12)S%/2%" varv" : GOTO 38 101 S%=S%+K% : CLRDOT X1,Y1 : X1=X1-K%*2% : ; CUR(0,12)S%" varv" : GOTO 38 102 ; CHR$(12%); 103 ; CUR(1%,0%)'7#####################################k'; 104 ; CUR(2%,0%)'5 j'; 105 ; CUR(3%,0%)'5 ppppppppppppppppppppppp j'; 106 ; CUR(4%,0%)'5 #o?'' j'; 107 ; CUR(5%,0%)'5 "/?# j'; 108 ; CUR(6%,0%)'up "+/! `x~'; 109 ; CUR(7%,0%)'|p +o''! p|'; 110 ; CUR(8%,0%)'|p #o'' `x'; 111 ; CUR(9%,0%)'|p x~'; 112 ; CUR(10%,0%)'|0 x'; 113 ; CUR(11%,0%)'?! "+'; 114 ; CUR(12%,0%)''' p0 "/'; 115 ; CUR(13%,0%)'''! `~t "o'; 116 ; CUR(14%,0%)'?! x}t "o'; 117 ; CUR(15%,0%)'?'' x~}0 #o'; 118 ; CUR(16%,0%)''' `~|0 +o'; 119 ; CUR(17%,0%)'?! xt +'; 120 ; CUR(18%,0%)'7 zu j'; 121 ; CUR(19%,0%)'5  j'; 122 ; CUR(20%,0%)'5 j'; 123 ; CUR(21%,0%)'5 j'; 124 ; CUR(22%,0%)'5 j'; 125 ; CUR(23%,0%)'uppppppppppppppppppppppppppppppppppppp'; 126 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=15% : T%=11% : T1%=55% : S3%=60% 127 S4%=78% : RETURN 128 FOR F=1 TO 1000 : NEXT F 129 IF Q=2 ; CUR(0,23)INT(2^(S%)+.5)-U%*2%" po{ng" : GOTO 131 130 ; : ; CUR(0,23)INT(2^S%+.5)-U%" po{ng" 131 GET A$ : GET A$ : Z=CALL(3413) 132 ; CHR$(12%); 133 ; CUR(1%,0%)'7#####################################k'; 134 ; CUR(2%,0%)'5 j'; 135 ; CUR(3%,0%)'5 j'; 136 ; CUR(4%,0%)'5 j'; 137 ; CUR(5%,0%)'5 pppppppppppppppppppp0 j'; 138 ; CUR(6%,0%)'5 5 j'; 139 ; CUR(7%,0%)'5 5 j'; 140 ; CUR(8%,0%)'5 5 j'; 141 ; CUR(9%,0%)'5 5 j'; 142 ; CUR(10%,0%)'5 5 j'; 143 ; CUR(11%,0%)'upppppppppp 5 pppppppppppz'; 144 ; CUR(12%,0%)'5 5 j'; 145 ; CUR(13%,0%)'5 5 j'; 146 ; CUR(14%,0%)'5 5 j'; 147 ; CUR(15%,0%)'5 5 j'; 148 ; CUR(16%,0%)'5 5 j'; 149 ; CUR(17%,0%)'5 (,,,,,,,,,-,,,,,,,,,$ j'; 150 ; CUR(18%,0%)'5 j'; 151 ; CUR(19%,0%)'5 j'; 152 ; CUR(20%,0%)'5 j'; 153 ; CUR(21%,0%)'5 j'; 154 ; CUR(22%,0%)'5 j'; 155 ; CUR(23%,0%)'uppppppppppppppppppppppppppppppppppppp'; 156 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=19% : T%=17% : T1%=0% : RETURN 157 ; CHR$(12%); 158 ; CUR(1%,0%)'7#####################################k'; 159 ; CUR(2%,0%)'5 j'; 160 ; CUR(3%,0%)'5 j'; 161 ; CUR(4%,0%)'5 j'; 162 ; CUR(5%,0%)'5 h,,,,,,l j'; 163 ; CUR(6%,0%)'5 j##########k j j'; 164 ; CUR(7%,0%)'5 j j j j'; 165 ; CUR(8%,0%)'5 7 7####### j j j'; 166 ; CUR(9%,0%)'5 upppuppp0 j j j'; 167 ; CUR(10%,0%)'5 ppppppppupppupp j j j'; 168 ; CUR(11%,0%)'5 5 BANA 5 5 j j j j'; 169 ; CUR(12%,0%)'5 k F\R upppppzppppzp0j j'; 170 ; CUR(13%,0%)'5 "5NYB\RJARE j j 5j j'; 171 ; CUR(14%,0%)'5 k7#####k j j 5j j'; 172 ; CUR(15%,0%)'5 j5 7##5j 7##! j 5j j'; 173 ; CUR(16%,0%)'5 j5 ###7k###7####k#"#7##k j'; 174 ; CUR(17%,0%)'5 j-,,,,%j 5 jpppuppz j'; 175 ; CUR(18%,0%)'5 jppppppz upppppppp5 j'; 176 ; CUR(19%,0%)'5 j'; 177 ; CUR(20%,0%)'5 j'; 178 ; CUR(21%,0%)'5 j'; 179 ; CUR(22%,0%)'5 j'; 180 ; CUR(23%,0%)'uppppppppppppppppppppppppppppppppppppp'; 181 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=24% : T%=18% : T1%=0% : RETURN