10 ! REAKTION.800 - efter Avanc. prog. p} ABC80 20 ! Omgjord f|r ABC800-806 av B M}rtensson Word & Music Lund 30 ! ------------------------------------------ 40 ! 50 ! Omg}ng-pos 60 EXTEND : INTEGER 70 ; CHR$(12) "REAKTION.800. Tryck in 'j'-tangent n{r bollen faller." 80 X=0 : REM bollens koordinat 90 ; CUR(X,60) "" 100 REM V{nta-ite * RND-tid 110 FOR I=0 TO 1000+2000*RND 120 A$=CHR$(INP(34)) : IF A$="j" GOTO 230 130 NEXT I 140 REM V[NTA-END 150 REM *FALL-ITE (GOLV OR TANGENT) 160 A$=CHR$(INP(34)) : IF X>23 OR A$="j" THEN GOTO 210 170 ; CUR(X,60) " " CUR(X+1,60) "" X; 180 FOR Y=1 TO 10 : NEXT Y ! Sv}righetsgraden regleras med v{nteloop 190 X=X+1 200 GOTO 150 210 ! FALL-END 220 GOTO 270 230 ! OMG]NG-ADM (FUSK) 240 REM TANGENT TRYCKT F\R TIDIGT 250 ; CUR(10,0) "FUSK !" 260 GOTO 330 270 REM OMG]NG-END 280 IF X<5 PRINT CUR(10,10) "SUPERREAKTION!!!" : GOTO 330 290 IF X<10 PRINT "BRA REAKTION!" : GOTO 330 300 IF X<13 PRINT "MEDELBRA!" : GOTO 330 310 IF X<20 PRINT "HYFSAT..." : GOTO 330 320 ; "B{ttre kan du v{l? " : GOTO 330 330 REM REAKTION-END 340 PRINT "Fler f|rs|k" : INPUT Svar$ 360 IF ASCII(Svar$)=74 OR ASCII(Svar$)=106 GOTO 10 370 IF ASCII(Svar$)=78 OR ASCII(Svar$)=110 GOTO 390 380 GOTO 340 390 END