10 FOR H=0 TO 100 STEP 50<br>
20 FOR Q=0 TO 100 STEP 25<br>
30 FOR D= 0 TO 100 STEP 10<br>
40 FOR N=0 TO 100 STEP 5<br>
50 FOR P=0 TO 100 STEP 5<br>
60 IF (P+ N + D+Q+ H)( )100 THEN 90<br>
70 C=C+ 1<br>
80 PRINT C: P: N/5: D/10; Q/25; H/50<br>
90 NEXT P<br>
100 NEXT N<br>
110 NEXT D<br>
120 NEXT Q<br>
130 NEXT H<br>
140 PRINT "TOTAL": C<br>
120 NEXT Q<br>==Cursor under control==
130 NEXT H<br>This routine takes up 416 bytes and permits the user to move the cursor around the screen. It comes from the Sidney Australia Users Group via the Tri-State Users Group in Lincoln, Rhode Island.
140 PRINT 100 CALL CLEAR<br>110 CALL CHAR (44,"TOTALFFFF": )<br>120 R=1<br>130 C=3<br>140 CALL HCHAR (R,C,44)<br>150 CALL KEY (0,K,S)<br>160 IF S=0 THEN 150<br>170 IF K=68 THEN 210<br>180 IF K=69 THEN 230<br>190 IF K=83 THEN 250<br>200 IF K = 88 THEN 270<br>210 C=C+ABS(C<>30)<br>220 GOTO 280<br>230 R = R-ABS (R<>)3)<br>240 GOTO 280<br>250 C=C-ABS(C<>3)<br>260 GOTO 280<br>270 R=R+ABS(R<>24)<br>280 CALL HCHAR (R,C,44)<br>290 GOTO 150<br>
==Adventurous words==
Cursor under control
This routine takes up 416 bytes and
permits the user to move the cursor
around the screen. It comes from the
Sidney Australia Users Group via the
Tri-State Users Group in Lincoln,
Rhode Island.
100 CALL CLEAR
110 CALL CHAR (44, "FFFF")
120 R= 1
130 C=3
140 CALL HCHAR (R,C,44)
150 CALL KEY (0,K,S)
160 IF S=0 THEN 150
170 IF K=68 THEN 210
180 IF K=69 THEN 230
190 IF K=83 THEN 250
200 IF K = 88 THEN 270
210 C=C+ABS(C()30)
220 GOTO 280
230 R = R-ABS (R( )3)
240 GOTO 280
250 C=C-ABS(C() 3)
260 GOTO 280
270 R=R+ABS(R()24)
280 CALL HCHAR (R,C,44)
290 GOTO 150
Adventurous words
Members of the Cedar Valley 99er
Users Group of Grand Rapids, Iowa,
