ZX-81 HiRes Graph

  95 RAND USR INIT
 100 RAND USR GRAF
 105 RAND USR 16609
 110 INPUT D
8500 FOR I=0 TO 250 STEP 10
8502 PRINT USR 18557;I,0,1,I,180
8504 NEXT I
8506 FOR I=0 TO 180 STEP 10
8508 PRINT USR 18557,0,I,1,250,I
8510 NEXT I
8512 FOR I=0 TO 180 STEP 10
8515 PRINT USR 16752,0,I,1;STR$ (I/20)
8517 NEXT I
8520 PRINT USR 16752,60,180,1;"SCHWINDWERTDARSTELLUNG"
8524 PRINT USR 16752,40,160,1;"■■MAX. SCHW.W. ";" ";[illegible];" ";"0/0■■"
8526 FOR K=D/10 TO D+D/10 STEP D/10
8528 PRINT USR 16752,D/D*K/D*(K/(0.5*K))*116,5+(5*SIN ((K*10/D*90/180*PI))),1;STR$ K
8530 NEXT K
8535 PRINT USR 16752,20,170,1;"WIEVIEL SCHWINDWERTE: "
8540 INPUT N
8541 DIM K(30)
8542 DIM A(30)
8545 PRINT USR 16752,20,150,1;"■N= "+STR$ N
8548 PRINT USR 16752,20,170,1;"ZEIT+SCHWINDWERTE EINGEBEN:"
8549 FOR Z=1 TO N
8550 INPUT K
8652 LET K(Z)=K
8553 PRINT USR 16752,20,140,1;"■■■T= "+STR$ K(Z)
8554 IF K(Z)>D THEN LET K(Z)=D
8555 INPUT A
8556 LET A(Z)=A
8557 PRINT USR 16752,100,140,1;"■■■SCHW.= "+STR$ A(Z)
8558 NEXT Z
8560 FOR Z=1 TO N
8570 PRINT USR 18557,(K(Z))/(0.5*D)*125,A(Z)*20,1,((K(Z+1))/(0.5*D))*125,A(Z+1)*20
8575 IF Z=N-1 THEN GOTO 8585
8580 NEXT Z
8585 INPUT N$
8587 IF N$="1" THEN GOTO 9991
9991 RAND USR 15600
9992 SLOW
9994 STOP
9996 SAVE "SCHWINDUNG/HRG■"
9997 GOTO 95
9998 RAND 1
9999 RAND USR 15913