A downloadable game

CONVEYOR.C10 (for the "PUR-120" category) can be played online here:

https://archive.org/details/conveyor_202502

A Youtube video of the game being played can be found here:

The latest VMC10 Emulator can be downloaded here:

https://archive.org/details/vmc-10-073-i_202405

Description of CONVEYOR Code

----------------------------

REM INIT
0 CLS:CLEAR4000:?@480,"CONVEYOR BELT";:DIMA$(7),C$(12):D=200:V=32:C$(12)=CHR$(128):FORB=16892TO16895:POKEB,15:NEXT:GOTO9
REM DEFINE MAIN LOOP, AND CHECK FOR REACHING THE TOP OR BEING HIT
1 FORB=1TO199:IFC<MORP=STHENG=1:IFP=STHENSOUND1,2:SOUND20,1:GOSUB8:L=L-1:POKE16893+L,96:G=0:ON-(L>-1)GOTO1:GOTO7
REM PRINT THE CONVEYOR BELTS
2 ?@.,MID$(A$(1),D-B,V)MID$(A$(2),B,V)MID$(A$(3),D-B,V)MID$(A$(4),B,V)MID$(A$(5),D-B,V)MID$(A$(6),B,V)MID$(A$(7),D-B,V);
3 ?MID$(A$(1),B,V)MID$(A$(2),D-B,V)MID$(A$(3),B,V)MID$(A$(4),D-B,V)MID$(A$(5),B,V)MID$(A$(6),D-B,V)MID$(A$(7),B,V)D-B
REM GET KEY INPUT BY DIRECTLY PEEKING THE KEYBOARD ROLLOVER TABLE
4 P=PEEK(C):POKEC,15:IFPEEK(2)THENK=-(1ANDNOTPEEK(W))*V-(2ANDNOTPEEK(X))*I+(1ANDNOTPEEK(Y))*V+(4ANDNOTPEEK(Z))*J
REM CHECK FOR MOVEMENT OUT OF BOUNDS AND FOR RETURN TO BOTTOM AFTER REACHING TOP
5 IFKTHENIFC+K<UANDC+K>TTHENC=C+K:IFGTHENIFC>NTHENQ=Q+(D-B):PRINT@496,Q;:G=0:SOUND200,1:SOUND150,1:SOUND178,2:GOTO1
REM RETURN TO TOP OF MAIN LOOP, OR END IF TIME IS UP
6 K=.:NEXT:PRINT@448,0;:SOUND1,2:SOUND20,1:GOSUB8:L=L-1:POKE16893+L,96:G=0:ON-(L>-1)GOTO1
REM END OF GAME ROUTINE
7 SOUND1,10:PRINT@456,"PLAY AGAIN (Y/N)";:INPUTM$:Q=0:L=3:FORB=16892TO16895:POKEB,15:NEXT:GOSUB8:ON-(M$<>"N")GOTO1:END
REM RE-INIT PLAYER TO BOTTOM OF SCREEN
8 W=16950:X=16952:Y=16949:Z=16945:M=16416:C=M+432:P=96:S=128:T=16384:U=16864:K=0:J=.25:G=0:N=16832:POKE16892,96:RETURN
REM CREATE THE RANDOM COLOURED CONVEYOR BELTS
9 FORB=1TO7:FORC=1TO11:C$(C)=CHR$(143+16*B):NEXT:FORK=1TO231:A$(B)=A$(B)+C$(RND(12)):NEXT:NEXT:GOSUB8:I=.5:L=3:K=0:GOTO1
10 REM                                                                                             1         1         1        
11 REM   1         2         3         4         5         6         7         8         9         0         1         2        
12 REM789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
13 REM INSPIRATION FOR 10-LINER
14 REM FROM COCO NATION FEB 8
15 REM conveyor JIM GERRIE 2024
16 REM USE edop KEYS. GO TO TOP
17 REM AND BACK AS FAST AS YOU
18 REM CAN AS MANY TIMES AS YOU
19 REM CAN! YOU HAVE 4 MEN.

More information