home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / apple.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  514b  |  20 lines
  1. 1000 ifa=0thena=1:load"apple.ml",8,1
  2. 1010 b=28672:c=b+3:d=c+3:e=d+3:g=e+3
  3. 1020 h=g+3:j=h+6
  4. 1030 print"[147]creating 40 scenery frames"
  5. 1040 print"* please wait one minute *"
  6. 1050 forde=1to2000:next:sysb:sysc
  7. 1060 poke53265,59:poke53270,216
  8. 1070 poke53272,128:poke56576,150
  9. 1080 print"[147]":for fr=0to39:sysg
  10. 1090 forq=0to80step40:poke701,q+fr*.4
  11. 1100 poke702,24:poke700,1:sysd:next
  12. 1110 forq=0to80step40:poke700,3
  13. 1120 poke701,q+fr*.6:poke702,56:sysd
  14. 1130 poke701,q+fr*.8:poke702,64:sysd
  15. 1140 poke700,0:poke701,q+fr:poke702,0
  16. 1150 sysd:poke700,2:poke701,q+fr*2
  17. 1160 poke702,80:sysd:nextq:syse:sysh
  18. 1170 poke53269,0:next:poke53272,169
  19. 1180 poke53265,27:poke56576,151:sysj
  20.