Revenge of Trasmoz [RELEASE]

[Orko Ready]

[Nich]

Now that Revenge of Trasmoz has been released, here's a type-in listing for anyone who needs some 'help':

Code Select Expand

1 ' Revenge of Trasmoz pokes
2 ' by Nich
3 '
10 MODE 1
20 INPUT"Invulnerability for both players (Y/N)? ",i$
30 i$=UPPER$(i$):IF INSTR("YN",i$)=0 THEN 20
40 IF i$="Y" THEN 90
50 INPUT"Infinite lives for both players (Y/N)?  ",v$
60 v$=UPPER$(v$):IF INSTR("YN",v$)=0 THEN 50
70 INPUT"Infinite time (Y/N)? ",t$
80 t$=UPPER$(t$):IF INSTR("YN",t$)=0 THEN 70
90 INPUT"Start on level (1-13)? ",n
100 IF n<1 OR n>13 THEN 90
110 MODE 0:BORDER 0:FOR i=0 TO 15:READ a:INK i,a:NEXT
120 DATA 0,2,6,18,9,1,7,3,5,14,13,24,16,15,20,26
130 LOAD"screen0",&C000
140 a=&BE80
150 READ h$
160 IF h$="END" THEN 190
170 h=VAL("&"+h$):POKE a,h:c=c+h
180 a=a+1:GOTO 150
190 IF c<>5437 THEN PRINT"Error in data!":END
200 IF i$="Y" THEN POKE &BE82,&C9
210 IF v$="Y" THEN POKE &BE83,0
220 IF t$="Y" THEN POKE &BE84,0
230 POKE &BE85,n
240 CALL &BE80
250 DATA 18,04,cd,0d,35,01,21,b6
260 DATA be,11,00,c0,06,05,cd,77
270 DATA bc,21,40,00,cd,83,bc,cd
280 DATA 7a,bc,21,82,be,7e,32,26
290 DATA 49,23,7e,32,3b,49,23,7e
300 DATA 32,32,6c,23,7e,32,23,70
310 DATA 32,25,70,c3,e8,46,64,61
320 DATA 74,61,30
330 DATA END

[Gryzor]

Can't have the complete experience without a loader to be typed in...