8-Bit Software Online Conversion
Santa Game - Listing
5MODE7
10 *LOAD SANTA1
20 *TAPE
30 *KEY0FOR I%=&3000 TO &5C80 STEP 4:
!(I%-&2780)=!(I%):NEXT:CALL&1770|M
31 PRINT''"Please Wait"''
40 *FX138,0,128
50 ENVELOPE 1,1,1,1,1,1,1,1,0,0,0,-5,
120,120
60 ENVELOPE 2,1,2,2,2,40,30,20,0,0,0,
-1,120,120
70 ENVELOPE 3,1,-10,-10,-10,11,1,1,0,
0,0,-1,120,120
80 ENVELOPE 4,1,0,-1,0,6,2,2,0,0,0,-2
,110,110
90 END