/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Plus4 / PLUS4-INVADERS

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 72 65 6d 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |0 rem **|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 0a 31 | 20 72 65 6d 20 2a 20 77 |******.1| rem * w|
|00000030| 72 69 74 65 6e 20 62 79 | 3a 20 64 61 76 69 64 20 |riten by|: david |
|00000040| 63 2e 20 61 6e 64 65 72 | 73 6f 6e 20 2a 0a 32 20 |c. ander|son *.2 |
|00000050| 72 65 6d 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rem ****|********|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000070| 2a 2a 2a 2a 0a 33 20 67 | 6f 73 75 62 36 38 3a 67 |****.3 g|osub68:g|
|00000080| 6f 73 75 62 36 39 0a 34 | 20 73 63 6e 63 6c 72 3a |osub69.4| scnclr:|
|00000090| 70 6f 6b 65 32 30 35 2c | 38 3a 70 72 69 6e 74 3a |poke205,|8:print:|
|000000a0| 70 72 69 6e 74 22 20 74 | 6f 20 6d 6f 76 65 20 70 |print" t|o move p|
|000000b0| 6f 73 69 74 69 6f 6e 20 | 6c 65 66 74 20 6f 72 20 |osition |left or |
|000000c0| 72 69 67 68 74 2c 20 75 | 73 65 22 0a 35 20 70 72 |right, u|se".5 pr|
|000000d0| 69 6e 74 22 20 61 70 70 | 72 6f 70 72 69 61 74 65 |int" app|ropriate|
|000000e0| 20 63 75 72 73 6f 72 20 | 6b 65 79 2e 22 3a 70 72 | cursor |key.":pr|
|000000f0| 69 6e 74 3a 0a 36 20 70 | 72 69 6e 74 22 20 74 6f |int:.6 p|rint" to|
|00000100| 20 66 69 72 65 2c 20 70 | 72 65 73 73 20 27 66 27 | fire, p|ress 'f'|
|00000110| 2e 22 3a 70 72 69 6e 74 | 3a 70 72 69 6e 74 22 20 |.":print|:print" |
|00000120| 74 6f 20 65 6e 64 2c 20 | 70 72 65 73 73 20 27 65 |to end, |press 'e|
|00000130| 27 2e 22 0a 37 20 70 6f | 6b 65 32 30 35 2c 32 32 |'.".7 po|ke205,22|
|00000140| 3a 70 72 69 6e 74 3a 70 | 72 69 6e 74 74 61 62 28 |:print:p|rinttab(|
|00000150| 38 29 22 70 72 65 73 73 | 20 72 65 74 75 72 6e 20 |8)"press| return |
|00000160| 74 6f 20 73 74 61 72 74 | 22 0a 38 20 67 65 74 6b |to start|".8 getk|
|00000170| 65 79 6b 24 0a 39 20 69 | 66 6b 24 3d 63 68 72 24 |eyk$.9 i|fk$=chr$|
|00000180| 28 31 33 29 74 68 65 6e | 31 30 3a 65 6c 73 65 38 |(13)then|10:else8|
|00000190| 0a 31 30 20 73 63 6e 63 | 6c 72 3a 63 6f 6c 6f 72 |.10 scnc|lr:color|
|000001a0| 30 2c 31 2c 31 3a 63 6f | 6c 6f 72 34 2c 39 2c 30 |0,1,1:co|lor4,9,0|
|000001b0| 0a 31 31 20 67 72 61 70 | 68 69 63 31 2c 31 3a 63 |.11 grap|hic1,1:c|
|000001c0| 3d 31 38 3a 72 3d 32 33 | 3a 67 75 6e 24 3d 63 67 |=18:r=23|:gun$=cg|
|000001d0| 24 0a 31 32 20 63 68 61 | 72 31 2c 63 2c 72 2c 67 |$.12 cha|r1,c,r,g|
|000001e0| 75 6e 24 0a 31 33 20 63 | 6f 6c 6f 72 31 2c 32 2c |un$.13 c|olor1,2,|
|000001f0| 37 0a 31 34 20 67 6f 73 | 75 62 35 38 0a 31 35 20 |7.14 gos|ub58.15 |
|00000200| 67 65 74 7a 24 3a 69 66 | 7a 24 3d 22 22 74 68 65 |getz$:if|z$=""the|
|00000210| 6e 67 6f 73 75 62 33 35 | 0a 31 36 20 69 66 7a 24 |ngosub35|.16 ifz$|
|00000220| 3d 63 68 72 24 28 31 35 | 37 29 74 68 65 6e 67 6f |=chr$(15|7)thengo|
|00000230| 73 75 62 32 31 0a 31 37 | 20 69 66 7a 24 3d 63 68 |sub21.17| ifz$=ch|
|00000240| 72 24 28 32 39 29 74 68 | 65 6e 67 6f 73 75 62 32 |r$(29)th|engosub2|
|00000250| 34 0a 31 38 20 69 66 7a | 24 3d 22 66 22 74 68 65 |4.18 ifz|$="f"the|
|00000260| 6e 62 75 3d 63 2b 31 3a | 67 6f 73 75 62 32 37 3a |nbu=c+1:|gosub27:|
|00000270| 67 6f 73 75 62 33 35 0a | 31 39 20 69 66 7a 24 3d |gosub35.|19 ifz$=|
|00000280| 22 65 22 74 68 65 6e 67 | 6f 73 75 62 36 38 3a 67 |"e"theng|osub68:g|
|00000290| 72 61 70 68 69 63 30 3a | 6c 69 73 74 3a 73 74 6f |raphic0:|list:sto|
|000002a0| 70 0a 32 30 20 67 6f 74 | 6f 31 35 0a 32 31 20 69 |p.20 got|o15.21 i|
|000002b0| 66 63 3d 3c 31 74 68 65 | 6e 63 68 61 72 30 2c 63 |fc=<1the|nchar0,c|
|000002c0| 2c 72 2c 22 20 20 20 22 | 3a 63 3d 33 39 3a 65 6c |,r,"   "|:c=39:el|
|000002d0| 73 65 32 32 0a 32 32 20 | 63 68 61 72 30 2c 63 2c |se22.22 |char0,c,|
|000002e0| 72 2c 67 75 6e 24 3a 63 | 3d 63 2d 31 3a 63 68 61 |r,gun$:c|=c-1:cha|
|000002f0| 72 31 2c 63 2c 72 2c 67 | 75 6e 24 0a 32 33 20 72 |r1,c,r,g|un$.23 r|
|00000300| 65 74 75 72 6e 0a 32 34 | 20 69 66 63 3d 3e 33 39 |eturn.24| ifc=>39|
|00000310| 74 68 65 6e 63 68 61 72 | 30 2c 63 2c 72 2c 22 20 |thenchar|0,c,r," |
|00000320| 22 3a 63 3d 30 3a 65 6c | 73 65 32 35 0a 32 35 20 |":c=0:el|se25.25 |
|00000330| 63 68 61 72 30 2c 63 2c | 72 2c 67 75 6e 24 3a 63 |char0,c,|r,gun$:c|
|00000340| 3d 63 2b 31 3a 63 68 61 | 72 31 2c 63 2c 72 2c 67 |=c+1:cha|r1,c,r,g|
|00000350| 75 6e 24 0a 32 36 20 72 | 65 74 75 72 6e 0a 32 37 |un$.26 r|eturn.27|
|00000360| 20 76 6f 6c 38 3a 66 6f | 72 73 3d 31 30 32 33 74 | vol8:fo|rs=1023t|
|00000370| 6f 38 30 30 73 74 65 70 | 2d 34 30 3a 73 6f 75 6e |o800step|-40:soun|
|00000380| 64 31 2c 73 2c 31 3a 6e | 65 78 74 0a 32 38 20 63 |d1,s,1:n|ext.28 c|
|00000390| 6f 6c 6f 72 31 2c 37 2c | 33 3a 66 6f 72 69 3d 32 |olor1,7,|3:fori=2|
|000003a0| 32 74 6f 73 68 69 70 73 | 74 65 70 2d 38 3a 63 68 |2toships|tep-8:ch|
|000003b0| 61 72 31 2c 62 75 2c 69 | 2c 63 33 24 3a 6e 65 78 |ar1,bu,i|,c3$:nex|
|000003c0| 74 0a 32 39 20 66 6f 72 | 69 3d 32 32 74 6f 73 68 |t.29 for|i=22tosh|
|000003d0| 69 70 73 74 65 70 2d 38 | 3a 63 68 61 72 30 2c 62 |ipstep-8|:char0,b|
|000003e0| 75 2c 69 2c 63 33 24 0a | 33 30 20 6e 65 78 74 3a |u,i,c3$.|30 next:|
|000003f0| 63 6f 6c 6f 72 31 2c 32 | 2c 37 0a 33 31 20 63 6f |color1,2|,7.31 co|
|00000400| 6c 6f 72 31 2c 32 2c 37 | 3a 69 66 69 3d 31 74 68 |lor1,2,7|:ifi=1th|
|00000410| 65 6e 33 32 0a 33 32 20 | 69 66 62 75 3d 78 6f 72 |en32.32 |ifbu=xor|
|00000420| 62 75 3d 78 2b 31 6f 72 | 62 75 3d 78 2b 32 6f 72 |bu=x+1or|bu=x+2or|
|00000430| 62 75 3d 78 2b 33 6f 72 | 62 75 3d 78 2b 34 74 68 |bu=x+3or|bu=x+4th|
|00000440| 65 6e 67 6f 73 75 62 36 | 35 3a 65 6c 73 65 33 34 |engosub6|5:else34|
|00000450| 0a 33 33 20 64 65 3d 64 | 65 2b 31 3a 67 72 61 70 |.33 de=d|e+1:grap|
|00000460| 68 69 63 31 2c 31 3a 67 | 6f 73 75 62 35 38 0a 33 |hic1,1:g|osub58.3|
|00000470| 34 20 72 65 74 75 09 00 | 0a 33 35 20 64 65 66 66 |4 retu..|.35 deff|
|00000480| 6e 61 28 78 29 3d 69 6e | 74 28 78 2a 72 6e 64 28 |na(x)=in|t(x*rnd(|
|00000490| 31 29 2b 31 29 0a 33 36 | 20 7a 3d 66 6e 61 28 33 |1)+1).36| z=fna(3|
|000004a0| 34 29 0a 33 37 20 63 68 | 61 72 30 2c 78 2c 31 2c |4).37 ch|ar0,x,1,|
|000004b0| 63 31 24 3a 63 68 61 72 | 30 2c 78 2c 32 2c 63 32 |c1$:char|0,x,2,c2|
|000004c0| 24 0a 33 38 20 69 66 7a | 3d 78 74 68 65 6e 63 6e |$.38 ifz|=xthencn|
|000004d0| 3d 30 0a 33 39 20 69 66 | 63 6e 3d 31 74 68 65 6e |=0.39 if|cn=1then|
|000004e0| 34 32 0a 34 30 20 69 66 | 7a 3c 33 33 74 68 65 6e |42.40 if|z<33then|
|000004f0| 78 3d 78 2b 31 3a 67 6f | 74 6f 34 33 0a 34 31 20 |x=x+1:go|to43.41 |
|00000500| 69 66 7a 3e 33 33 74 68 | 65 6e 63 6e 3d 31 0a 34 |ifz>33th|encn=1.4|
|00000510| 32 20 78 3d 78 2d 31 3a | 69 66 78 3d 30 74 68 65 |2 x=x-1:|ifx=0the|
|00000520| 6e 78 3d 33 34 0a 34 33 | 20 69 66 78 3d 3c 30 74 |nx=34.43| ifx=<0t|
|00000530| 68 65 6e 78 3d 33 39 3a | 78 3d 78 2d 32 0a 34 34 |henx=39:|x=x-2.44|
|00000540| 20 69 66 78 3e 3d 33 35 | 74 68 65 6e 78 3d 30 3a | ifx>=35|thenx=0:|
|00000550| 78 3d 78 2b 32 0a 34 35 | 20 63 68 61 72 31 2c 78 |x=x+2.45| char1,x|
|00000560| 2c 31 2c 63 31 24 3a 63 | 68 61 72 31 2c 78 2c 32 |,1,c1$:c|har1,x,2|
|00000570| 2c 63 32 24 0a 34 36 20 | 69 66 78 3e 63 2b 38 6f |,c2$.46 |ifx>c+8o|
|00000580| 72 78 3c 63 2d 36 74 68 | 65 6e 72 65 74 75 72 6e |rx<c-6th|enreturn|
|00000590| 3a 65 6c 73 65 67 6f 73 | 75 62 34 38 0a 34 37 20 |:elsegos|ub48.47 |
|000005a0| 72 65 74 75 72 6e 0a 34 | 38 20 63 68 61 72 31 2c |return.4|8 char1,|
|000005b0| 78 2c 31 2c 63 31 24 3a | 63 68 61 72 31 2c 78 2c |x,1,c1$:|char1,x,|
|000005c0| 32 2c 63 32 24 0a 34 39 | 20 69 66 7a 3e 31 30 74 |2,c2$.49| ifz>10t|
|000005d0| 68 65 6e 35 30 3a 65 6c | 73 65 72 65 74 75 72 6e |hen50:el|sereturn|
|000005e0| 0a 35 30 20 76 6f 6c 38 | 3a 66 6f 72 73 3d 31 30 |.50 vol8|:fors=10|
|000005f0| 32 33 74 6f 38 30 30 73 | 74 65 70 2d 34 30 3a 73 |23to800s|tep-40:s|
|00000600| 6f 75 6e 64 31 2c 73 2c | 31 3a 6e 65 78 74 3a 64 |ound1,s,|1:next:d|
|00000610| 65 66 66 6e 7a 28 78 29 | 3d 69 6e 74 28 78 2a 72 |effnz(x)|=int(x*r|
|00000620| 6e 64 28 31 29 2b 31 29 | 0a 35 31 20 62 6c 3d 78 |nd(1)+1)|.51 bl=x|
|00000630| 2b 66 6e 7a 28 33 29 0a | 35 32 20 63 6f 6c 6f 72 |+fnz(3).|52 color|
|00000640| 31 2c 37 2c 33 3a 66 6f | 72 69 3d 33 74 6f 32 33 |1,7,3:fo|ri=3to23|
|00000650| 73 74 65 70 38 3a 63 68 | 61 72 31 2c 62 6c 2c 69 |step8:ch|ar1,bl,i|
|00000660| 2c 63 33 24 3a 6e 65 78 | 74 0a 35 33 20 66 6f 72 |,c3$:nex|t.53 for|
|00000670| 69 3d 33 74 6f 32 09 00 | 74 65 70 38 3a 63 68 61 |i=3to2..|tep8:cha|
|00000680| 72 30 2c 62 6c 2c 69 2c | 63 33 24 3a 6e 65 78 74 |r0,bl,i,|c3$:next|
|00000690| 3a 63 6f 6c 6f 72 31 2c | 32 2c 37 0a 35 34 20 69 |:color1,|2,7.54 i|
|000006a0| 66 62 6c 3d 63 6f 72 62 | 6c 3d 63 2b 31 6f 72 62 |fbl=corb|l=c+1orb|
|000006b0| 6c 3d 63 2b 32 74 68 65 | 6e 67 6f 73 75 62 36 35 |l=c+2the|ngosub65|
|000006c0| 3a 65 6c 73 65 35 36 0a | 35 35 20 69 6e 3d 69 6e |:else56.|55 in=in|
|000006d0| 2b 31 3a 73 63 6e 63 6c | 72 3a 67 6f 73 75 62 35 |+1:scncl|r:gosub5|
|000006e0| 38 0a 35 36 20 72 65 74 | 75 72 6e 0a 35 37 20 72 |8.56 ret|urn.57 r|
|000006f0| 65 74 75 72 6e 0a 35 38 | 20 73 63 24 3d 22 69 6e |eturn.58| sc$="in|
|00000700| 76 61 64 65 72 2d 20 20 | 20 20 2f 64 65 66 65 6e |vader-  |  /defen|
|00000710| 63 65 2d 20 20 20 20 22 | 0a 35 39 20 69 6e 24 3d |ce-    "|.59 in$=|
|00000720| 73 74 72 24 28 69 6e 29 | 3a 64 65 24 3d 73 74 72 |str$(in)|:de$=str|
|00000730| 24 28 64 65 29 0a 36 30 | 20 6d 69 64 24 28 73 63 |$(de).60| mid$(sc|
|00000740| 24 2c 39 2c 33 29 3d 69 | 6e 24 3a 6d 69 64 24 28 |$,9,3)=i|n$:mid$(|
|00000750| 73 63 24 2c 32 32 2c 33 | 29 3d 64 65 24 0a 36 31 |sc$,22,3|)=de$.61|
|00000760| 20 63 68 61 72 31 2c 35 | 2c 32 34 2c 73 63 24 0a | char1,5|,24,sc$.|
|00000770| 36 32 20 63 68 61 72 31 | 2c 63 2c 72 2c 67 75 6e |62 char1|,c,r,gun|
|00000780| 24 0a 36 33 20 63 68 61 | 72 31 2c 78 2c 31 2c 63 |$.63 cha|r1,x,1,c|
|00000790| 31 24 3a 63 68 61 72 31 | 2c 78 2c 32 2c 63 32 24 |1$:char1|,x,2,c2$|
|000007a0| 0a 36 34 20 72 65 74 75 | 72 6e 0a 36 35 20 76 6f |.64 retu|rn.65 vo|
|000007b0| 6c 38 3a 66 6f 72 73 3d | 38 74 6f 31 73 74 65 70 |l8:fors=|8to1step|
|000007c0| 2d 31 3a 76 6f 6c 73 3a | 73 6f 75 6e 64 33 2c 36 |-1:vols:|sound3,6|
|000007d0| 30 30 2c 31 31 3a 63 6f | 6c 6f 72 30 2c 32 2c 73 |00,11:co|lor0,2,s|
|000007e0| 2d 31 3a 73 63 6e 63 6c | 72 3a 6e 65 78 74 0a 36 |-1:scncl|r:next.6|
|000007f0| 36 20 63 6f 6c 6f 72 30 | 2c 31 2c 31 3a 73 63 6e |6 color0|,1,1:scn|
|00000800| 63 6c 72 3a 72 65 74 75 | 72 6e 0a 36 37 20 72 65 |clr:retu|rn.67 re|
|00000810| 73 75 6d 65 6e 65 78 74 | 0a 36 38 20 63 6f 6c 6f |sumenext|.68 colo|
|00000820| 72 30 2c 36 2c 34 3a 63 | 6f 6c 6f 72 31 2c 36 2c |r0,6,4:c|olor1,6,|
|00000830| 30 3a 63 6f 6c 6f 72 34 | 2c 39 2c 30 3a 72 65 74 |0:color4|,9,0:ret|
|00000840| 75 72 6e 0a 36 39 20 63 | 67 24 3d 63 68 72 24 28 |urn.69 c|g$=chr$(|
|00000850| 32 31 33 29 2b 63 68 72 | 24 28 31 37 37 29 2b 63 |213)+chr|$(177)+c|
|00000860| 68 72 24 28 32 30 31 29 | 0a 37 30 20 63 31 24 3d |hr$(201)|.70 c1$=|
|00000870| 63 68 72 24 28 32 09 00 | 29 2b 63 68 72 24 28 32 |chr$(2..|)+chr$(2|
|00000880| 30 36 29 2b 63 68 72 24 | 28 31 36 33 29 2b 63 68 |06)+chr$|(163)+ch|
|00000890| 72 24 28 32 30 35 29 2b | 63 68 72 24 28 32 30 31 |r$(205)+|chr$(201|
|000008a0| 29 0a 37 31 20 63 32 24 | 3d 63 68 72 24 28 32 30 |).71 c2$|=chr$(20|
|000008b0| 32 29 2b 63 68 72 24 28 | 31 37 38 29 2b 63 68 72 |2)+chr$(|178)+chr|
|000008c0| 24 28 31 37 38 29 2b 63 | 68 72 24 28 31 37 38 29 |$(178)+c|hr$(178)|
|000008d0| 2b 63 68 72 24 28 32 30 | 33 29 0a 37 32 20 63 33 |+chr$(20|3).72 c3|
|000008e0| 24 3d 63 68 72 24 28 31 | 39 34 29 0a 37 33 20 72 |$=chr$(1|94).73 r|
|000008f0| 65 74 75 72 6e 0a 72 65 | 61 64 79 2e 0a          |eturn.re|ady..   |
+--------+-------------------------+-------------------------+--------+--------+