Atari 8-bit Source code

100REM*****************************
110REM**
120REM*BOPOTRONCONSTRUCTIONSET*
130REM*BYKYLEPEACOCK*
140REM*ANALOGCOMPUTINGNO.24*
150REM**
160REM*****************************
170REM
180TRAP890
190DIMFILE$(15),D$(6),X$(10),G(150),L(150),B(150),P(150),V(150),X(150)
200REM***OUTPUTDEVICE
210D$="DATA":X$="C:D:P:E:S:"
220GOSUB870:?"DEVICEFILENAMEIS";:INPUT#16;FILE$
230FORX=1TO9:IFX$(X,X+1)=FILE$(1,2)THEN260
240NEXTX:GOTO890
250REM***LEVEL
260GOSUB870:POSITION16,1:?"":?:?"LEVEL#";:INPUT#16;LVL
270REM***BOPOTRONLOCATION
280?:?"BOPOTRONLOCATION(X,Y):";:INPUT#16;BOPX,BOPY:IFBOPX=K0ANDBOPY=K0THEN310
290?:?"INITIALPOWER:";:INPUT#16;PWR:?:?"MAXIMUMPOWER:";:INPUT#16;MAXPWR
300?:?"EXITGIRDERPOSITION(X,Y):";:INPUT#16;XITX,XITY
310REM***GIRDERDRAW
320GOSUB870:POSITION12,1:?"":?
330?"NUMBEROFGIRDERS:";:INPUT#16;GIRAMT:IFGIRAMT>50THEN330
340IFGIRAMT<=0THEN380
350?:?"STARTINGX,ENDINGX,Y":?
360?:FORX=1TOGIRAMT:XX=(X-1)*3:?"GIRDER";X;"POSITION:";:INPUT#16;A,B,C:G(XX+1)=A:G(XX+2)=B:G(XX+3)=C
370NEXTX
380REM***LADDERDRAW
390GOSUB870:POSITION12,1:?"":?
400?"NUMBEROFLADDERS:";:INPUT#16;LADAMT:IFLADAMT>50THEN360
410IFLADAMT<=0THEN450
420?:?"STARTINGY,ENDINGY,X":?
430?:FORX=1TOLADAMT:XX=(X-1)*3:?"LADDER";X;"POSITION:";:INPUT#16;A,B,C:L(XX+1)=A:L(XX+2)=B:L(XX+3)=C
440NEXTX
450REM***POWERPACKDRAW
460GOSUB870:POSITION10,1:?"":?
470?"NUMBEROFPOWERPACKS:";:INPUT#16;BATAMT:IFBATAMT>50THEN32767
480IFBATAMT<=0THEN510
490?:?"LOWERLEFTX,LOWERLEFTY":?
500?:FORX=1TOBATAMT:XX=X*2-1:?"POWERPACK";X;"POSITION:";:INPUT#16;A,B:B(XX)=A:B(XX+1)=B:NEXTX
510REM***POWERUNITDRAW
520GOSUB870:POSITION10,1:?"":?
530?"NUMBEROFPOWERUNITS:";:INPUT#16;PWRAMT:IFPWRAMT>50THEN530
540IFPWRAMT<=0THEN570
550?:?"LOWERLEFTX,LOWERLEFTY":?
560?:FORX=1TOPWRAMT:XX=X*2-1:?"POWERUNIT";X;"POSITION:";:INPUT#16;A,B:P(XX)=A:P(XX+1)=B:NEXTX
570REM***PLATFORMPROGRAMMING
580GOSUB870:POSITION10,1:?"":?
590V(1)=0:PLUS=1:?"NUMBEROFPLATFORMS:";:INPUT#16;PLRAMT:IFPLRAMT<0ORPLRAMT>2THEN590
600IFPLRAMT=0THEN690
610V(PLUS)=PLRAMT:PLUS=PLUS+1
620FORX=1TOPLRAMT:?:?"";X
630?:?"NUMBEROFVECTORS:";:INPUT#16;VEC:IFVEC<1ORVEC>5THEN630
640V(PLUS)=VEC:PLUS=PLUS+1
650?:?"ORIGINX,ORIGINY,":?"DESTINATIONX,DESTINATIONY,":?"SPEED"
660?:FORY=1TOVEC:?"VECTOR";Y;"TRAJECTORY:";:INPUT#16;A,B,C,D,E
670V(PLUS)=A:V(PLUS+1)=B:V(PLUS+2)=C:V(PLUS+3)=D:V(PLUS+4)=E:PLUS=PLUS+5
680NEXTY:NEXTX:HOLD=PLUS-1
690REM***DISPLAYOUTPUT
700GOSUB870:?"GENERATINGOUTPUT,PLEASEWAIT...";:OPEN#1,8,0,FILE$
710IFBOPX=K0ANDBOPY=K0THEN740
720PRINT#1;2080+(20*LVL);D$;BOPX;",";BOPY;",";PWR;",";MAXPWR
730PRINT#1;3080+(20*LVL);D$;XITX;",";XITY
740OFF=4080:AMOUNT=GIRAMT:MAX=GIRAMT*3:FORX=1TO150:X(X)=G(X):NEXTX:GOSUB800
750OFF=5080:AMOUNT=LADAMT:MAX=LADAMT*3:FORX=1TO150:X(X)=L(X):NEXTX:GOSUB800
760OFF=6080:AMOUNT=BATAMT:MAX=BATAMT*2:FORX=1TO150:X(X)=B(X):NEXTX:GOSUB800
770OFF=7080:AMOUNT=PWRAMT:MAX=PWRAMT*2:FORX=1TO150:X(X)=P(X):NEXTX:GOSUB800
780OFF=8080:AMOUNT=V(1):MAX=HOLD:FORX=1TO150:X(X)=V(X):NEXTX:GOSUB800
790END
800COUNT=0+1*(OFF=8080):IFAMOUNT=0THEN860
810PLUS=0:GOSUB880:PRINT#1;AMOUNT;",";
820COUNT=COUNT+1:PRINT#1;X(COUNT);
830IFCOUNT/25=INT(COUNT/25)THENPLUS=PLUS+1:IFCOUNT<>GIRAMT*MAXTHENPRINT#1;"":GOSUB880:GOTO820
840IFCOUNT=MAXTHENPRINT#1;"":GOTO860
850PRINT#1;",";:GOTO820
860RETURN
870?"":POSITION8,0:?"":?"REFERTOANALOGNO.24FORINSTRUCTION":?:RETURN
880PRINT#1;OFF+(20*LVL)+PLUS;"DATA";:RETURN
890?"":POSITION6,1:?""	

• Download link 1
• Download link 2