Posted: Mon Dec 14, 2009 9:56 pm
Code: Select all
READY.
1 REM GODZILLA - BY GLEN FISHER
2 :
3 REM CURSOR/64 #5
4 :
5 REM COPYRIGHT (C) 1983 THE CODE WORKS
6 REM BOX 6905, SANTA BARBARA, CA 93111
7 :
10 REM AS OF 2/7/83 9:30 AM GF
90 CLR:GOTO 62000
100 DIM TR(4,4),SH(4,4),PL(4,4),PO(4,4),LN(4,4),JR(15),JC(15),DM(10),DM$(10)
105 DIM BS(11),BG(11),BI(11),NT(24),DR(24)
110 SP=CRT+1016:SB=13*64
115 PRINT "“SETTING UP..."
120 READ T$:IF T$<>"\" THEN 120
130 R0=50:C0=24:HW=0:GW=0
140 DN$="":BL$=" "
150 SID=54272:FORI=0TO28:POKESID+I,0:NEXT
160 C1$="š":C2$="–"
200 FORI=0 TO15:READ JR(I),JC(I):NEXT I
210 FOR I=1 TO 10:READ DM$(I),DM(I):NEXT I
220 FOR I=1 TO 10:READ BI(I),BS(I),BG(I):NEXT
230 FOR I=1 TO 24:READ NT(I),T:DR(I)=T*20:NEXT
510 READ N:FOR I=0 TO N-1:READ T:POKE SB+I,T:NEXT
520 FOR I=N TO 63:POKE SB+I,0:NEXT
530 A=SB+64:FOR I=0 TO 60 STEP 3:POKEA+I,255:POKEA+I+1,255:POKE A+I+2,224:NEXT
540 FOR I=0 TO 3:POKE VIC+I+I+1,0:POKE SP+I,14:NEXT:POKE VIC+16,0:POKE SP,13
550 A=SB+128:FOR I=0 TO 63:POKE A+I,0:NEXT
560 FOR I=0 TO 7:POKE A+3*I,255:NEXT:POKE SP+1,15
600 POKE VIC+21,15:POKE VIC+23,12:POKE VIC+29,12:POKE VIC+27,14
610 POKE VIC+39,5:POKE VIC+40,1:POKE VIC+41,2:POKE VIC+42,6
620 POKE VIC+2,144
900 FOR I=1 TO 7 STEP 2:POKE VIC+I,0:NEXT:PRINT"“BUILDING JAPAN...
1000 RESTORE:MP=0:FOR I=0 TO 4:FOR J=0 TO 4
1010 READ A,PO:PL=0:SH=0:IF PO>0 THEN PO=INT(1E7/PO+.5)
1020 IF PO>0 THEN PL=INT(RND(1)*100)+1:TR=INT(PO/80)
1030 IF PO=0 THEN SH=INT(RND(1)*6)+1:TR=SH*350
1040 PL(I,J)=PL:SH(I,J)=SH:PO(I,J)=PO:TR(I,J)=TR:LN(I,J)=(PO>0):IFPL>MPTHENMP=PL
1045 NEXTJ,I
1050 DATA 83,0, 87,0, 92,0, 97,1,102,0
1060 DATA 283,0,287,0,291,0,256,1,301,1
1070 DATA 483,0,487,0,492,0,456,1,501,0
1080 DATA 683,0,687,1.5,691,1,655,.4,701,0
1090 DATA 844,1,806,1,851,0,856,0,861,0
1400 PRINT "“—";
1410 FOR I=1 TO 5
1420 N=5:IF I>1 THEN N=4:FOR J=1 TO 5:PRINT "····Ð";:NEXT J:PRINT
1430 FOR J=1 TO N:FOR K=1 TO 5:PRINT " ª";:NEXT K:IF J<N OR I<5 THEN PRINT
1440 NEXT J,I:PRINT""
1500 PRINT "—"
1510 FOR I=1 TO 20:READ T,T$:PRINT SPC(T);T$:NEXT:POKE VIC+3,186
1520 DATA17," ß",17," ",17," ’µ",16,"© ’ß",15,"©’¸¸ß©",15,"ßß
1530 DATA16," ß",16," ",16," ",15,"© ’©",14,"© ",13,"© "
1540 DATA11," ’©",11," Ñ",6,"© ",4,"ß ’©¸ ’¸¸¸©"
1550 DATA7,"©’ ’©",3," ’ ©",4," ",4,"©"
1610 PRINT C2$;"