At line 94 removed one line 
! !!! CODE IS BUGGY !!! 
At line 96 changed one line 
; R.O.T.O. by Mike Stortz 
; R.O.T.O. by Mike Stortz 
At line 158 changed one line 
37 37 37 37 37 84 88 0], 
37 37 37 37 37 84 80 0], 
At line 186 changed one line 
0 198 238 246 254 238 230 230 
0 198 230 246 254 238 230 230 
At line 217 changed one line 
24 36 42 46 52 8 8 8 
24 36 42 46 52 0 0 8 
At line 221 changed one line 
16 8 8 8 0], 
16 8 8 0 0], 
At line 224 changed one line 
[ 0 254 16 16 16 26 26 28 
[ 0 254 16 16 16 20 20 20 
At line 231 changed 2 lines 
rotor= [254 124 56 16 56 124 
127 62 28 8 28 62], 
rotor=[254 124 56 16 56 124 
127 62 28 8 28 62], 
At line 234 changed one line 
can= [24 60 126 90 195 195 219 255], 
can=[24 60 126 90 195 195 219 255], 
At line 237 changed 2 lines 
[112 112 112 68 0 misc_page 
4 6 11 6 139 48], 
[ 112 112 112 68 0 misc_page 
4 6 11 6 139 48], 
At line 241 changed 2 lines 
[112 70 160 misc_page 136 
65 0 dl_page], 
[ 112 70 160 misc_page 136 
65 0 dl_page], 
At line 245 changed one line 
missile,mdata=[ 3 12 48 192], 
missile,mdata=[3 12 48 192], 
At line 250 changed one line 
CARD ARRAY table(bytes),fall (20) 
CARD ARRAY table(bytes),fall(20) 
At line 253 changed one line 
INT ARRAY mxd(4) 
INT ARRAY mxd(4) 
At line 262 changed one line 
vscrol=ys hscrol=xs*xsm 
vscrol=ys hscrol=xs+xsm 
At line 267 changed one line 


At line 284 changed one line 
IF enable=1 THEN 
IF enable=1 THEN 
At line 314 changed 2 lines 
W1=rtclok 
DO until rtclok=w1+w OD 
w1=rtclok 
DO until rtclok=W1+w OD 
At line 339 changed one line 
Phase==+1 
phase==+1 
At line 361 changed one line 
shield==+carried LSH 2 
shield==+carried LSH 2 
At line 369 changed one line 
carried=0 fuel=50 whine=0 
carried=0 fuel=50 whine=0 
At line 381 changed 3 lines 
IF Rand (0)=255 AND 
Rand (5)=0 and 
shake=0 THEN 
IF Rand(0)=255 AND 
Rand(5)=0 AND 
shake=0 THEN 
At line 387 changed 2 lines 
IF Shield<0 THEN shield=0 FI 
IF Shield=0 THEN end=2 FI 
IF shield<0 THEN shield=0 FI 
IF shield=0 THEN end=2 FI 
At line 392 changed one line 
shakec==l 
shakec==1 
At line 400 changed one line 
IF screen(a)=0 THEN 
IF screen(a)=0 THEN 
At line 413 added one line 

At line 425 changed one line 
Zero(Misc_adr+80,80) ZeroOut() 
Zero(Misc_adr+80,80) ZeroOut() 
At line 427 changed one line 
dindex=2 rowcrs=4 colcrs=0 
dindex=2 rowcrs=4 colcrs=0 
At line 429 changed 12 lines 
IF end=1 THEN 
PrintDE(6," NO PACKS LEFT") 
ELSEIF end=2 THEN 
PrintDE(6," SHIELD DEPLETED") 
ELSEIF end=3 THEN 
PrintDE(6," CANNISTER RUPTURED") 
ELSEIF end=4 THEN 
PrintD(6," TOO MANY CANNISTERS") 
ELSEIF end=5 THEN 
PrintDE(6," ARCADIA THANKS YOU") 
FI 
PutDE(6) PrintDE(6," game over") 
IF end=1 THEN 
PrintDE(6," NO PACKS LEFT") 
ELSEIF end=2 THEN 
PrintDE(6," SHIELD DEPLETED") 
ELSEIF end=3 THEN 
PrintDE(6," CANNISTER RUPTURED") 
ELSEIF end=4 THEN 
PrintD(6," TOO MANY CANNISTERS") 
ELSEIF end=5 THEN 
PrintDE(6," ARCADIA THANKS YOU") 
FI 
PutDE(6) PrintDE(6," game over") 
At line 442 changed 8 lines 
FOR a=1 TO 400 DO 
Sound(0,a rsh 1,8,6) 
DO UNTIL vcount=128 OD 
FOR i=0 TO 60 DO 
colpf0=vcount+rtclok 
wsync=0 
OD 
OD 
FOR a=1 TO 400 DO 
Sound(0,a RSH 1,8,6) 
DO UNTIL vcount=128 OD 
FOR i=0 TO 60 DO 
colpf0=vcount+rtclok 
wsync=0 
OD 
OD 
At line 455 changed 2 lines 
joy=15!stick(0) xd=0 yd=0 
IF (joy&8)<>0 THEN xd= 1 FI 
joy=15!Stick(0) xd=0 yd=0 
IF (joy&8)<>0 THEN xd=1 FI 
At line 458 changed one line 
IF (joy&2)<>0 THEN yd= 2 FI 
IF (joy&2)<>0 THEN yd=2 FI 
At line 461 changed one line 
oxd=xd oyd=yd 
oxd=xd oyd=yd 
At line 466 changed one line 
PROC Scroll() 
PROC Scroll() 
At line 468 changed one line 
IF (joy&4)<>0 THEN xs==+1 x==+1 
IF (joy&4)<>0 THEN xs==+1 x==+1 
At line 471 changed one line 
ELSE cx==1 xs=0 
ELSE cx==1 xs=0 
At line 477 changed one line 
ELSE cx==+1 xs=7 
ELSE cx==+1 xs=7 
At line 482 changed 3 lines 
IF ys=8 THEN 
IF cy=68 THEN ys==1 
ELSE cy==+1 ys=0 
IF ys=8 THEN 
IF cy=68 THEN ys==1 
ELSE cy==+1 ys=0 
At line 490 changed one line 
ELSE cy==1 ys=7 
ELSE cy==1 ys=7 
At line 496 changed one line 
ary=@a a=screen*table(cy)+cx j=12 
ary=@a a=screen+table(cy)+cx j=12 
At line 530 changed 2 lines 
SndRSt() 
Zero(missile,256) mx(0)=0 mx(1)=0 
SndRst() 
Zero(missile,256) mx(0)=0 mx(1)=0 
At line 536 changed one line 
FOR j=1 TO 20 DO 
FOR j=1 to 20 DO 
At line 541 changed 2 lines 
k=Rand(24) ary(k)==&Rand(0) 
k=Rand(24) ary(k+256)==&Rand(0) 
k=Rand(24) ary(k)==&Rand(0) 
k=Rand(24) ary(k+256)==&Rand(0) 
At line 562 changed one line 


At line 586 added one line 

At line 605 changed 2 lines 
k=my(zz)72*ys 
j==RSH 3 k==RSH 3 
k=my(zz)72+ys 
j==RSH 3 k==RSH 3 
At line 611 added one line 

At line 629 changed one line 


At line 633 added one line 

At line 635 changed one line 


At line 638 changed one line 
ChargeShield() 
ChargeShield() 
At line 652 changed 2 lines 
IF Strig(0)=0 and flag=0 THEN 
flag=1 mc==!1 
IF Strig(0)=0 AND flag=0 THEN 
flag=1 mc==!1 
At line 683 changed one line 
IF j=0 THEN Sound(1,0,0,0) FI 
IF j=0 THEN Sound(1,0,0,0) FI 
At line 698 changed one line 
temp=0 
temp=0 
At line 703 changed one line 
temp==+64 
temp==+64 
At line 756 changed one line 
FOR i=0 to 7 DO 
FOR i=0 to 7 DO 
At line 765 changed one line 
rowcrs=2 colcrs=0 
rowcrs=2 colcrs=0 
At line 768 changed one line 
PrintE("shield score:") 
PrintE("shield score:") 
At line 778 changed one line 


At line 781 changed one line 


At line 794 changed one line 
IF (k&16)<>0 AND 
IF (K&16)<>0 AND 
At line 822 changed one line 
Zero(Missile,1280) 
Zero(missile,1280) 
At line 826 changed one line 
colr2=40 colr3=68 colr4=64 
colr2=40 colr3=68 colr4=64 
At line 837 changed one line 
screen(j*20+i) = logo (k) 
screen(j*20+i)=logo(k) 
At line 844 added one line 

At line 852 changed one line 
dlist(i)=0 
dlist(i)=0 
At line 858 changed one line 
PrintD(6," ìáóô ") PrintID(6,score) 
PrintD(6," last ") PrintID(6,score) 
At line 860 changed one line 
PrintD(6,"èéçè ") PrintCD(6,high) 
PrintD(6,"high ") PrintCD(6,high) 
At line 865 changed 10 lines 
PrintDE(6," òåóåòöå ïòå ") 
PrintDE(6,"ôòáîóðïòô ïðåòáôéïî") 
PrintDE(6," ÔÈÅ ÃÉÔÙ ÏÆ ") 
PrintDE(6,"ÁÒÃÁÄÉÁ ÉÓ ÕÎÄÅÒ ") 
PrintDE(6,"ÁÔÔÁÃË® ÙÏÕÒ ÊÏÂ ") 
PrintDE(6,"ÉÓ ÔÏ ÒÅÃÏÖÅÒ ÆÕÅÌ") 
PrintDE(6,"ÃÁÎÎÉÓÔÅÒÓ ÏÆ ÈÙËÅ") 
PrintDE(6,"ÁÎÄ ÒÅÔÕÒÎ ÔÈÅÍ ÔÏ") 
PrintDE(6,"ÔÈÅ ÕÐÐÅÒ ÌÅÆÔ ÅÎÄ") 
PrintDE(6,"ÏÆ ÔÈÅ ÃÁÖÅÒÎÓ® ÉÆ") 
PrintDE(6," reserve ore ") 
PrintDE(6,"transport operation") 
PrintDE(6," THE CITY OF ") 
PrintDE(6,"ARCADIA IS UNDER ") 
PrintDE(6,"ATTACK. YOUR JOB ") 
PrintDE(6,"IS TO RECOVER FUEL") 
PrintDE(6,"CANNISTERS OF HYKE") 
PrintDE(6,"AND RETURN THEM TO") 
PrintDE(6,"THE UPPER LEFT END") 
PrintDE(6,"OF THE CAVERNS. IF") 
At line 878 changed one line 
PrintDE(6,"1000. ARCADIA HAS ") 
PrintDE(6,"1000, ARCADIA HAS ") 
At line 881 changed one line 
PrintDE(6,"ARRIVE. DON'T ") 
PrintDE(6,"ARRIVE. DON'T ") 
At line 884 changed one line 
PrintDE(6,"10 AT A TIME. AND ") 
PrintDE(6,"10 AT A TIME, AND ") 
At line 890 changed 2 lines 
PrintDE(6," ðòåóó START") 
PrintDE(6," ôï ðìáù") 
PrintDE(6," press START") 
PRINTDE(6," to play") 
At line 903 changed 2 lines 
ELSE 
xd=0 yd=1 
ELSE xd=0 yd=1 

At line 923 changed 2 lines 
b=misc_adr 
FI 
b=misc_adr FI 

At line 926 changed one line 
dlist(33)=Peek(@b) 
dlist(33)=Peek(@b) 
At line 929 changed one line 
Wait(2) 
Wait(2) 
At line 931 changed 4 lines 
EXIT 
FI 
OD 
UNTIL consol=6 OR Strig(0)=0 OD 
EXIT 
FI 
OD 
UNTIL consol=6 OR Strig(0)=0 OD 
At line 985 changed 8 lines 
vdslst=Dli nmien=192 
GetDir() 
IF fuel=0 THEN 
yd=2 joy==%2 
ELSE 
DoPhase() 
FI 
MoveMan() 
vdslst=Dli nmien=192 
GetDir() 
IF fuel=0 THEN 
yd=2 joy==%2 
ELSE 
DoPhase() 
FI 
MoveMan() 
At line 994 changed 6 lines 
IF x<70 OR x>176 OR 
y<90 OR y>172 THEN 
Scroll() 
ELSE 
Wait(1) 
FI 
IF x<70 OR x>176 OR 
y<90 OR y>172 THEN 
Scroll() 
ELSE 
Wait(1) 
FI 
At line 1,001 changed 5 lines 
CheckFuel() 
CheckShake() 
CheckRocks() 
StartMiss() MoveMiss() 
Bump() 
CheckFuel() 
CheckShake() 
CheckRocks() 
StartMiss() MoveMiss() 
Bump() 
At line 1,007 changed 5 lines 
IF whine<>0 THEN 
whine==1 
Sound(3,whine,10,4) 
IF whine=0 THEN 
Sound(3,0,0,0) 
IF whine<>0 THEN 
whine==1 
Sound(3,whine,10,4) 
IF whine=0 THEN 
Sound(3,0,0,0) 
FI 
At line 1,013 changed 8 lines 
FI 
IF ch<255 THEN 
ch=255 SndRst() 
DO UNTIL ch<255 OR 
consol<>7 OR 
Strig(0)=0 OD 
ch=255 
FI 
IF ch<255 THEN 
ch=255 SndRst() 
DO UNTIL ch<255 OR 
consol<>7 OR 
Strig(0)=0 OD 
ch=255 
FI 
At line 1,034 changed one line 


At line 1,052 added 2 lines 
 
PDF: [roto_action.pdf] 