0 GOTO 1310
1FORS=VTO&H3E8:SCREEN,O,A:LOCATEI,&HF:?S$C$;:LINE(&H7C,Z)-STEP(Z,&HB0)
2LINE(&HFC,Z)-STEP(Z,&HB0):PSET(&H18,&H54):LINESTEP(-A,C)-STEP(C,Z)
3S$=STR$(S):A=O:I=A+S*B:V=V+Y(STRIG(Z)):Y=W+V:W=INT(Y+RND(I)*(I+I+A)-I)
4IFY>ZTHENIFY<&H34THENLINE(&H7C,Y(Y))-STEP(Z,W(Y)),C
5IFW>ZTHENIFW<&H34THENLINE(&HFC,Y(W))-STEP(Z,W(W)),C
6FORX=&H78TOZSTEP-&H4:I=T-A:SCREEN,I,A:?C$;:LINE(X,Z)-STEP(Z,&HB0)
7LINESTEP(&H80,Z)-STEP(Z,-&HB0):A=I:I=W(A):V=V+Y(STRIG(Z)):Y=Y+V:W=W+V
8IFY>ZTHENIFY<&H34THENLINE(X,Y(Y))-STEP(Z,W(Y)),C
9IFW>ZTHENIFW<&H34THENLINE(X+&H80,Y(W))-STEP(Z,W(W)),C
10PSET(&H18,&H58-I):LINESTEP(-A,I)-STEP(C,Z)
11IFPOINTSTEP(C,Z)THENNEXT:I=&HA-LEN(S$):LOCATEI,&HF:?S$;:NEXT
12SCREEN,,A:SOUND&H9,Z:IF&H3E9-STHENX=Z:NEXT:S=&H3E8:NEXT
1000 REM -- GAME OVER ---------
1010 PLAY "rf"
1020 LOCATE 6,5
1030 PRINT " [   GAME  OVER   ] "
1040 LOCATE 6,10
1050 PRINT " [ HIT SPACE KEY! ] "
1060 IF STRIG(0)=1 GOTO 1060
1070 EXEC &H1058
1080 I=RND(1)
1090 S$=INKEY$
1100 IF S$=CHR$(13) GOTO 1810
1110 IF S$<>" " GOTO 1080
1120 IF STRIG(0)=1 GOTO 1120
1200 REM -- GAME START --------
1210 SCREEN ,2:PRINT C$
1220 LOCATE 7,15:PRINT "  0"
1230 SCREEN ,1,2
1240 LOCATE 7,15:PRINT "  0"
1250 W=26:V=1:A=2:S$=""
1260 SOUND 11,0:SOUND 12,17
1270 SOUND 13,12:SOUND 9,16
1280 GOTO 1
1300 REM -- INITIALIZATION ----
1310 SCREEN 1,1
1320 CONSOLE 0,16,0,0
1330 COLOR 1,1,1:CLS
1340 LOCATE 9,7
1350 PRINT "Please Wait..."
1360 SCREEN 2,2,1
1370 CONSOLE 0,15,0,0
1380 COLOR 0,6,1:CLS
1390 LOCATE 0,15
1400 PRINT "SCORE:   0";TAB(19);"Rh Ƃł"
1410 EXEC &H1BB3
1420 PLAY "tv15l2o1"
1430 SOUND 7,&HEA:SOUND 6,12
1440 Z=0:I=RND(-TIME):Y=0:W=0
1450 A=0:C=6:V=0
1460 DIM Y(51),W(51)
1470 X=0:C$=CHR$(12):T=3
1480 S$="":S=0:O=1:B=0.2
1490 Y(0)=-1:Y(1)=1:Y(2)=4
1500 W(1)=1:W(2)=-4
1510 Y=4
1520 FOR I=8 TO 51
1530 Y(I)=Y:Y=Y+4:NEXT
1540 W=8
1550 FOR I=3 TO 6
1560 W(I)=W:W=W+4:NEXT
1570 FOR I=7 TO 45:W(I)=W:NEXT
1580 FOR I=46 TO 50
1590 W=W-4:W(I)=W:NEXT
1600 REM -- TITLE -------------
1610 SCREEN 2,1
1620 CONSOLE 0,16,0,0
1630 COLOR 0,6,1:CLS
1640 FOR Y=2 TO 10:READ S$
1650 LOCATE 12,Y
1660 PRINT "  ";S$;TAB(20)
1670 NEXT
1680 LOCATE 6,13
1690 PRINT " [ HIT SPACE KEY! ] "
1700 FOR X=0 TO 1
1710 I=RND(1)
1720 IF STRIG(0)=X GOTO 1710
1730 NEXT
1740 SCREEN ,,2
1750 CONSOLE 0,15
1760 LOCATE 0,15
1770 PRINT "SCORE:   0";TAB(19);"Rh Ƃł"
1780 GOTO 1250
1800 REM -- END ---------------
1810 SCREEN 1,1
1820 CONSOLE 0,16,1,1
1830 COLOR 1,1,1:CLS
1840 SCREEN 1,2,1
1850 CONSOLE 0,16,1,1
1860 COLOR 1,1,1:CLS
1870 SCREEN ,1
1880 EXEC &H1BB3
1900 REM -- PRINT DATA --------
1910 DATA ,"   R",  ,  h
1920 DATA  ,  ,,,
2000 REM
2010 REM **********************
2020 REM **                  **
2030 REM **  Rh Ƃł   **
2040 REM **                  **
2050 REM ** PC-6001(mk2(SR)) **
2060 REM ** PC-6601(SR)      **
2070 REM ** MODE:1 / PAGES:2 **
2080 REM **                  **
2090 REM **********************
