Meteor Shower (Exidy Sorcerer) by Claus Buchholz

NEW
 1 FOR A=-1024 TO -1 : POKE A,0 : NEXT A
 2 FOR A=-1024 TO -994 STEP 10 : POKE A,32 : NEXT A
 3 FOR A=-992 TO -962 STEP 10 : POKE A,2 : NEXT A
 4 POKE -958,96 : POKE -946,6 : POKE -8,1 : POKE -7,2 : POKE -6,4
 5 POKE -5,8 : POKE -4,16 : POKE -3,32 : POKE -2,64 : POKE -1,128
 6 FOR A=-3968 TO -2049 : POKE A, 128+127*RND(1) : NEXT A
 7 A=-1800*RND(1)-2049 : IF RND(1)>0.01 THEN GOTO 7
 8 D=PEEK(A) : C=PEEK(A+63) : B=PEEK(A+126)
 9 POKE A,255 : POKE A+63,255 : POKE A+126,255
 10 POKE A,D : POKE A+63,C : POKE A+126,B : GOTO 7

Meteor Shower for Exidy Sorcerer Standard BASIC V1.0

Claus Buchholz

AtariAge: ClausB

This was developed on an actual Sorcerer. The POKEs are all into screen RAM and custom character RAM.