1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... BIL32K.BAS 3 REM ! Utg}va 1982-01-10 4 REM ! av (c) Olle Bliding <2182> 5 REM ! Minne 32 Kbytes 6 REM +++++++++++++++++++++++++++++++++ 7 REM Samma som BIL16K men har flera 8 REM banor. 9 REM 10 REM Screening av 11 REM Allan Varcoe & G|ran Olsson 12 REM 13 IF PEEK(472)=80 THEN ; INP(3) 14 REM +++++++++++++++++++++++++++++++++ 15 ; CHR$(12%)"W - BROMS" : ; "S - GAS","V[NSTER-[ '-H\GER" 16 ; " I F\RH]LLAND TILL BILENS RIKTNING." 17 ; 'TRYCK "S" F\R START.' : ; 'TRYCK "RETURN" D] "R[TT" BANA [R FRAMME.' : ; "DU F]R K\RA I 2 min (120 s)." 18 IF INP(56%)<>211% 18 19 GOSUB 66 : FOR F=1 TO 700 : IF INP(56%)=141% GOSUB 66 : GOTO 21 ELSE NEXT F : Q=Q+1 AND 7 : GOTO 19 20 DATA 71,79 ,71,78, 70,79, 69,79, 68,79, 69,78, 70, 78 21 U%=0% : T3%=65008% : GOSUB 100 22 IF Q=6 OR Q=7 THEN X1=25 ELSE X1=8 23 Y1=5 : A=0 : B=.4 : G1=X1 : H1=5 24 IF DOT(X1,Y1) THEN OUT 6,9 : FOR F=1 TO 2000 : NEXT F : OUT 6,0 : U%=U%+2% : GOTO 22 25 SETDOT X1,Y1 : SETDOT G1,H1 26 IF B>0 AND B>A AND B>-A GOSUB 43 : GOTO 35 27 IF A>0 AND A>B AND A>-B GOSUB 50 : GOTO 35 28 IF A<0 AND A=0 THEN B=-.01 35 IF C%=1% GOSUB 92 36 C%=C%+1% AND 15% 37 IF Z>=120 ; CUR(0,3)"120.00 s" : GOTO 130 : REM OM DU VILL K\RA L[NGRE S] KAN DU [NDRA H[R <- 38 IF T%=INT(X1) IF S1%<=INT(Y1) IF S2%>=INT(Y1) 101 39 IF T1%=INT(X1) IF S3%<=INT(Y1) IF S4%>=INT(Y1) 101 40 CLRDOT X1,Y1 : CLRDOT G1,H1 41 G1=X1 : H1=Y1 : X1=X1+A : Y1=Y1+B : GOTO 24 42 REM om B>0 och B>A dvs --> 43 IF INP(56%)=219% A=A-.05 44 IF INP(56%)=167% A=A+.05 45 IF INP(56%)=215% B=B-.02 46 IF INP(56%)=211% B=B+.01 47 IF A>B AND A<0 GOTO 49 48 IF B<=0 B=.01 49 RETURN 50 REM om A>B och A>0 dvs -_- 51 IF INP(56%)=219% B=B+.05 52 IF INP(56%)=167% B=B-.05 53 IF INP(56%)=215% A=A-.02 54 IF INP(56%)=211% A=A+.01 55 IF -B>A A=A-.1 : GOTO 57 56 IF A<=0 A=.01 57 RETURN 58 REM om A<0 och B>A dvs ,', 59 IF INP(56%)=219% B=B-.05 60 IF INP(56%)=167% B=B+.05 61 IF INP(56%)=215% A=A+.02 62 IF INP(56%)=211% A=A-.01 63 IF -B=0 A=-.01 65 RETURN 66 ON Q+1 GOTO 159,67,104,134,184,208,232,256 67 ; CHR$(12%); 68 ; CUR(1%,0%)'////////////////////////////////////'; 69 ; CUR(2%,0%)'  '; 70 ; CUR(3%,0%)'  '; 71 ; CUR(4%,0%)'  '; 72 ; CUR(5%,0%)'  '; 73 ; CUR(6%,0%)'  '; 74 ; CUR(7%,0%)'    '; 75 ; CUR(8%,0%)'    '; 76 ; CUR(9%,0%)'    '; 77 ; CUR(10%,0%)'  #  '; 78 ; CUR(11%,0%)'   '; 79 ; CUR(12%,0%)'   '; 80 ; CUR(13%,0%)'   '; 81 ; CUR(14%,0%)'   '; 82 ; CUR(15%,0%)'   '; 83 ; CUR(16%,0%)'   '; 84 ; CUR(17%,0%)' //////////////////// '; 85 ; CUR(18%,0%)' '; 86 ; CUR(19%,0%)' '; 87 ; CUR(20%,0%)' '; 88 ; CUR(21%,0%)' '; 89 ; CUR(22%,0%)' '; 90 ; CUR(23%,0%)'|||||||||||||||||||||||||||||||||||||'; 91 FOR I%=1% TO 7% : READ A%,B% : SETDOT A%,B% : NEXT I% : S1%=3% : S2%=20% : T%=21% : T1%=0% : RESTORE : RETURN 92 REM UTSKRIFT OCH AVL[SNING AV KL. 93 FOR I%=0% TO 2% 94 Z3%(I%)=255% XOR PEEK(T3%+I%) 95 NEXT I% 96 Z=((Z3%(2)*256)+Z3%(1))*5.12+Z3%(0)/50 97 ; CUR(0%,3%)INT(Z+.5)" s" 98 RETURN 99 REM NOLLST[LLNING AV KLOCKAN 100 POKE 65008%,-1%,-1%,SWAP%(-1%) : RETURN 101 IF A>0% K%=-1% ELSE K%=1% 102 IF Q=2% S%=S%+K% : CLRDOT X1,Y1 : X1=X1-K%*2% : ; CUR(0,12)S%/2%" varv" : GOTO 40 103 S%=S%+K% : CLRDOT X1,Y1 : X1=X1-K%*2% : ; CUR(0,12)S%" varv" : GOTO 40 104 ; CHR$(12%); 105 ; CUR(1%,0%)'7#####################################k'; 106 ; CUR(2%,0%)'5 j'; 107 ; CUR(3%,0%)'5 ppppppppppppppppppppppp j'; 108 ; CUR(4%,0%)'5 #o?'' j'; 109 ; CUR(5%,0%)'5 "/?# j'; 110 ; CUR(6%,0%)'up "+/! `x~'; 111 ; CUR(7%,0%)'|p +o''! p|'; 112 ; CUR(8%,0%)'|p #o'' `x'; 113 ; CUR(9%,0%)'|p x~'; 114 ; CUR(10%,0%)'|0 x'; 115 ; CUR(11%,0%)'?! "+'; 116 ; CUR(12%,0%)''' p0 "/'; 117 ; CUR(13%,0%)'''! `~t "o'; 118 ; CUR(14%,0%)'?! x}t "o'; 119 ; CUR(15%,0%)'?'' x~}0 #o'; 120 ; CUR(16%,0%)''' `~|0 +o'; 121 ; CUR(17%,0%)'?! xt +'; 122 ; CUR(18%,0%)'7 zu j'; 123 ; CUR(19%,0%)'5  j'; 124 ; CUR(20%,0%)'5 j'; 125 ; CUR(21%,0%)'5 j'; 126 ; CUR(22%,0%)'5 j'; 127 ; CUR(23%,0%)'uppppppppppppppppppppppppppppppppppppp'; 128 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=15% : T%=11% : T1%=55% : S3%=60% 129 S4%=78% : RETURN 130 FOR F=1 TO 1000 : NEXT F 131 IF Q=2 ; CUR(0,23)INT(2^(S%)+.5)-U%*2%" po{ng" : GOTO 133 132 ; : ; CUR(0,23)INT(2^S%+.5)-U%" po{ng" 133 GET A$ : GET A$ : Z=CALL(3413) 134 ; CHR$(12%); 135 ; CUR(1%,0%)'7#####################################k'; 136 ; CUR(2%,0%)'5 j'; 137 ; CUR(3%,0%)'5 j'; 138 ; CUR(4%,0%)'5 j'; 139 ; CUR(5%,0%)'5 pppppppppppppppppppp0 j'; 140 ; CUR(6%,0%)'5 5 j'; 141 ; CUR(7%,0%)'5 5 j'; 142 ; CUR(8%,0%)'5 5 j'; 143 ; CUR(9%,0%)'5 5 j'; 144 ; CUR(10%,0%)'5 5 j'; 145 ; CUR(11%,0%)'upppppppppp 5 pppppppppppz'; 146 ; CUR(12%,0%)'5 5 j'; 147 ; CUR(13%,0%)'5 5 j'; 148 ; CUR(14%,0%)'5 5 j'; 149 ; CUR(15%,0%)'5 5 j'; 150 ; CUR(16%,0%)'5 5 j'; 151 ; CUR(17%,0%)'5 (,,,,,,,,,-,,,,,,,,,$ j'; 152 ; CUR(18%,0%)'5 j'; 153 ; CUR(19%,0%)'5 j'; 154 ; CUR(20%,0%)'5 j'; 155 ; CUR(21%,0%)'5 j'; 156 ; CUR(22%,0%)'5 j'; 157 ; CUR(23%,0%)'uppppppppppppppppppppppppppppppppppppp'; 158 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=19% : T%=17% : T1%=0% : RETURN 159 ; CHR$(12%); 160 ; CUR(1%,0%)'7#####################################k'; 161 ; CUR(2%,0%)'5 j'; 162 ; CUR(3%,0%)'5 j'; 163 ; CUR(4%,0%)'5 j'; 164 ; CUR(5%,0%)'5 h,,,,,,l j'; 165 ; CUR(6%,0%)'5 j##########k j j'; 166 ; CUR(7%,0%)'5 j j j j'; 167 ; CUR(8%,0%)'5 7 7####### j j j'; 168 ; CUR(9%,0%)'5 upppuppp0 j j j'; 169 ; CUR(10%,0%)'5 ppppppppupppupp j j j'; 170 ; CUR(11%,0%)'5 5 BANA 5 5 j j j j'; 171 ; CUR(12%,0%)'5 k F\R upppppzppppzp0j j'; 172 ; CUR(13%,0%)'5 "5NYB\RJARE j j 5j j'; 173 ; CUR(14%,0%)'5 k7#####k j j 5j j'; 174 ; CUR(15%,0%)'5 j5 7##5j 7##! j 5j j'; 175 ; CUR(16%,0%)'5 j5 ###7k###7####k#"#7##k j'; 176 ; CUR(17%,0%)'5 j-,,,,%j 5 jpppuppz j'; 177 ; CUR(18%,0%)'5 jppppppz upppppppp5 j'; 178 ; CUR(19%,0%)'5 j'; 179 ; CUR(20%,0%)'5 j'; 180 ; CUR(21%,0%)'5 j'; 181 ; CUR(22%,0%)'5 j'; 182 ; CUR(23%,0%)'uppppppppppppppppppppppppppppppppppppp'; 183 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=24% : T%=18% : T1%=0% : RETURN 184 ; CHR$(12%)CUR(1%,0%)"7############+'###############k"; 185 ; CUR(2%,0%)'5 "o% j'; 186 ; CUR(3%,0%)'5 +! j'; 187 ; CUR(4%,0%)'5 ~}0 "o! xt j'; 188 ; CUR(5%,0%)'5 }p x~t j'; 189 ; CUR(6%,0%)'5 }t p~} j'; 190 ; CUR(7%,0%)'5 |0 `~ j'; 191 ; CUR(8%,0%)'5 }p `~ j'; 192 ; CUR(9%,0%)'5 } j'; 193 ; CUR(10%,0%)'5  j'; 194 ; CUR(11%,0%)'5  j'; 195 ; CUR(12%,0%)'5  j'; 196 ; CUR(13%,0%)'5  j'; 197 ; CUR(14%,0%)'5 /# "+o j'; 198 ; CUR(15%,0%)'5 ?'' "+o j'; 199 ; CUR(16%,0%)'5 ?''! "+o j'; 200 ; CUR(17%,0%)'5 '' + j'; 201 ; CUR(18%,0%)'5 ?! "o? j'; 202 ; CUR(19%,0%)'5 " x}p j'; 203 ; CUR(20%,0%)'5 x}t j'; 204 ; CUR(21%,0%)'5 xt0 j'; 205 ; CUR(22%,0%)'5 x|0 j'; 206 ; CUR(23%,0%)'uppppppppp~tppppppppp'; 207 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=13% : T%=12% : T1%=0% : RETURN 208 ; CHR$(12%)CUR(1%,0%)'7###########################/'; 209 ; CUR(2%,0%)'5 '; 210 ; CUR(3%,0%)'5 x|0 '; 211 ; CUR(4%,0%)'|p "+o||| '; 212 ; CUR(5%,0%)'} /o5 '; 213 ; CUR(6%,0%)'}4 +/}| '; 214 ; CUR(7%,0%)'|t // '; 215 ; CUR(8%,0%)'tp #|| '; 216 ; CUR(9%,0%)'||0 /o|| '; 217 ; CUR(10%,0%)'?'' */o '; 218 ; CUR(11%,0%)'### j j'; 219 ; CUR(12%,0%)'## |~ j'; 220 ; CUR(13%,0%)'7## h|||/ '; 221 ; CUR(14%,0%)'///% h||~ '; 222 ; CUR(15%,0%)'7 |~?// '; 223 ; CUR(16%,0%)' ||?/% '; 224 ; CUR(17%,0%)' (|//% '; 225 ; CUR(18%,0%)' "+o'' '; 226 ; CUR(19%,0%)' +? '; 227 ; CUR(20%,0%)' " '; 228 ; CUR(21%,0%)' '; 229 ; CUR(22%,0%)' '; 230 ; CUR(23%,0%)'|pppppppppppppp|'; 231 FOR I%=1% TO 7% : READ A%,B% : SETDOT A%,B% : NEXT I% : T%=12% : S1%=4% : S2%=30% : T1%=0% : RESTORE : RETURN 232 ; CHR$(12%)CUR(1%,0%)'7#########'; 233 ; CUR(2%,0%)'5 '; 234 ; CUR(3%,0%)'5 '; 235 ; CUR(4%,0%)'5 '; 236 ; CUR(5%,0%)'5 '; 237 ; CUR(6%,0%)'5 5 '; 238 ; CUR(7%,0%)'5 5 j'; 239 ; CUR(8%,0%)'5 5 j'; 240 ; CUR(9%,0%)'5 5 j'; 241 ; CUR(10%,0%)'5 5 j'; 242 ; CUR(11%,0%)'5 pppppppppppppuppppppppppppp j'; 243 ; CUR(12%,0%)'5 5 j'; 244 ; CUR(13%,0%)'5 5 j'; 245 ; CUR(14%,0%)'5 5 j'; 246 ; CUR(15%,0%)'5 5 j'; 247 ; CUR(16%,0%)'uppppppppppppp0 5 ppppppppppppppz'; 248 ; CUR(17%,0%)'5 5 '; 249 ; CUR(18%,0%)'5 5 '; 250 ; CUR(19%,0%)'5 '; 251 ; CUR(20%,0%)'5 '; 252 ; CUR(21%,0%)'5 '; 253 ; CUR(22%,0%)'5 '; 254 ; CUR(23%,0%)'uppppppppp'; 255 FOR I%=1% TO 7% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=19% : T%=35% : T1%=0% : RETURN 256 ; CHR$(12%)CUR(1%,0%)'7###################'; 257 ; CUR(2%,0%)'5 '; 258 ; CUR(3%,0%)'5 '; 259 ; CUR(4%,0%)'5 5 '; 260 ; CUR(5%,0%)'5 5 '; 261 ; CUR(6%,0%)'5 5 '; 262 ; CUR(7%,0%)'5 5 j'; 263 ; CUR(8%,0%)'5 5 j'; 264 ; CUR(9%,0%)'5 5 j'; 265 ; CUR(10%,0%)'5 5 j'; 266 ; CUR(11%,0%)'5 ppppppppppuppppppppp0 j'; 267 ; CUR(12%,0%)'5 5 5 j'; 268 ; CUR(13%,0%)'5 5 5 j'; 269 ; CUR(14%,0%)'5 5 5 j'; 270 ; CUR(15%,0%)'5 5 5 j'; 271 ; CUR(16%,0%)'5 5 0 5 j'; 272 ; CUR(17%,0%)'5 5 5 5 j'; 273 ; CUR(18%,0%)'5 5 j'; 274 ; CUR(19%,0%)'5 5 j'; 275 ; CUR(20%,0%)'5 5 j'; 276 ; CUR(21%,0%)'5 5 j'; 277 ; CUR(22%,0%)'5 5 j'; 278 ; CUR(23%,0%)'uppppppppppppppppppupppppppppppppppppp'; 279 FOR I%=1% TO 5% : READ A%,B% : SETDOT A%,B% : NEXT I% : RESTORE : S1%=3% : S2%=19% : T%=35% : T1%=0% : RETURN