150 GOSUB 9980
160 LET X=128+80*SIN(I/120*PI)+20*SIN(I/60*PI)
170 LET Y=128-80*SIN(I/120*PI)+20*SIN(I/60*PI)
180 GOSUB 9980
190 NEXT I
1000 GOTO 9988
9980 REM PLOTS (X,Y) INTO A$
9981 IF X<0 OR X>255 OR Y<0 OR Y>255 THEN RETURN
9982 LET C=1+INT(X/8)
9983 LET R=256-INT Y
9984 POKE 16526, CODE A$(C,R)
9985 POKE 16527,2**(8*C-INT X-1)
9986 LET A$(C,R)=CHR$(USR 16514)
9987 RETURN
9988 REM PRINTS A$ 8 LINES AT A TIME
9989 FOR I=0 TO 246 STEP 8
9990 FOR J=1 TO 32
9991 FOR K=1 TO 8
9992 POKE 32255+K+8*(J-1), CODE A$(J,K+I)
9993 NEXT K
9994 NEXT J
9995 FOR H=0 TO 31
9996 POKE 16444+H,H
9997 NEXT H
9998 LET HPRINT=USR 31744
9999 NEXT I
Program 7
1 REM U RND.U RND .TAN..
2 IF PEEK 16384+256*PEEK 16389=31744 THEN GOTO 5
3 PRINT "MEMORY NOT RESERVED"
4 STOP
5 FOR I=0 TO 112
6 POKE 31744+I, PEEK (2161+I)
7 NEXT I
8 POKE 31800,63
9 POKE 31857,201
10 POKE 16517,95
11 POKE 16524,79
12 DIM A$(32,256)
20 FOR I=1 TO 32
30 LET A$(I,128)=CHR$ 255
40 NEXT I
50 FOR I=1 TO 256
60 LET A$(1,I)=" "
70 NEXT I
75 LET A$(1,128)=CHR$255
To Next Page
Loading...
