The Rainbow Vol. 09 No. 01 - August 1989 - TRS-80 Color ...

2120 BL=BL+1
2130 GOT0680
2_40 BL=BL-1
2150 FOR H=N TO 9
2160 B(H , 1l=B(H+1,1) : B(H,2)=B(H+
1, 2)
2170 NEXTH
2180 GOT0680
2184 '
2185 ' MENU SELECTION
2190 J1 =JOYSTK(0) :J2=JOYSTK( 1)
2200 IF J242 THEN LINE(0,140)-(
56,159) ,PSET,B
2215 IF (J2>=21) AND (J242 THEN 310
2243 IF (J2>=21) AND (J2- 10 THEN SC=SC -
1
2440 NEXT N
2450 IF SC=0 THEN S0=0:GOT02500
2460 A=SC*100:8=1 -( MV /32) :SO=INT
(A+(B*125))
2494 '
2495 ' DRAW END SCREEN
32 THE RAINBOW August 1989
2500 LINE(0,95)-(57 ,160 ),PRES ET,
BF
2510 DRAW "BM0,120C2; "+AL$(19)+AL
$(3)+AL$(15)+AL$(18)+AL$(5 )
2520 SO$=STR$(S0)
2530 DRA W"BM3,136C3 "
2540 FOR N=1TOLEN(S0$)
2550 K$=MID$(S0$,N,1l
2560 IF K$= " " THEN 2600
2570 IF K$= "" THE N 2600
2580 DRAWNUM$(VAL(K$))
2590 K$= ""
2600 KS= "" : NEXT N
2610 LINE(0,15) - (56,55),PRESET , B
F
2620 DRAW "BM6.12C2; "+AL$(16)+AL$
(12)+AL$(1)+A L$(25)
2630 DRAW"BM0,25C2;"+AL$(1 )+AL$(
7)+AL$(1)+A L$(9)+AL$(14)+ "BR4U1B
U2U3R5U4L7D2 "
2640 DRAW "BM9 ,45C2; "+AL$(25)+ "BR
6"+AL$(14)
2650 J1=JOYSTK(0)
2660 IF J132 THEN LINE(25 ,34)-(
3 9 , 48) , P SET , B: LINE ( 6 , 34) - ( 21 , 48)
,PRESET ,B
2680 IF PEEK(65280)=254 OR PEEK(
65280)=126 THEN GOT02690 ELSE GO
T02650
2690 IF J1