home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 48 / 048side2.d81 / star (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  585 b   |  16 lines
  1. 10 gosub500:poke32767,13
  2. 16 sys57812"music",dv,0:poke780,0:poke781,0:poke782,108:sys65493
  3. 30 print"[144]load"chr$(34)"presenter"chr$(34)","dv
  4. 32 print"run"
  5. 36 poke631,13:poke632,13:poke198,2:end
  6. 500 poke53281,0:poke53280,0:dv=peek(186):ifdv<8thendv=8
  7. 505 print"[147]":a$="                                     "
  8. 510 b$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  9. 515 close2:open2,dv,2,":features":get#2,i$,i$:input#2,i$:close2
  10. 520 poke214,10:print:poke646,15:fori=1to10:print""b$:next
  11. 530 poke214,12:print:poke646,11:fori=1to7:printtab(3)left$(b$,33):next
  12. 540 poke214,11:print:poke646,3:fori=1to7:printtab(4)""left$(b$,33):next
  13. 550 poke214,13:print:poke646,7:fori=1to3:printtab(6)""left$(a$,29):next
  14. 560 poke214,14:print:printtab(8)"[158][203]icking off [204][207][193][196][211][212][193][210] #"i$
  15. 580 return
  16.