Program 7 |
1 REM URND.URND.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 80 FOR X=0 TO 255 90 LET Y=128+120*SIN(X/128*PI) 100 GOSUB 9980 110 NEXT X 120 GOTO 9980 130 NEXT X 140 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 |