home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 237 / 237.d81 / star.ext (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  811b  |  24 lines

  1. 3 poke53281,0:poke53280,0:poke53265,11
  2. 4 poke32767,13
  3. 5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  4. 10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160:gosub500
  5. 20 poke53265,27
  6. 30 print"[144]load"chr$(34)"pres.pkd"chr$(34)","dv
  7. 32 print"run"
  8. 36 poke631,13:poke632,13:poke198,2:end
  9. 500 dv=peek(186):ifdv<8thendv=8
  10. 501 sys57812"name",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  11. 502 v$=str$(peek(71)+256*peek(72))
  12. 503 v=val(v$):pokev+1,0:pokev+2,192:y=0:forx=0to20
  13. 504 ifpeek(49152+x)=13theny=x:x=20
  14. 505 next:   pokev,y+1
  15. 509 print"[147]":a$="                                     "
  16. 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]"
  17. 520 poke214,10:print:poke646,15:fori=1to10:print""b$:next
  18. 530 poke214,12:print:poke646,11:fori=1to7:printtab(3)left$(b$,33):next
  19. 540 poke214,11:print:poke646,3:fori=1to7:printtab(4)""left$(b$,33):next
  20. 550 poke214,13:print:poke646,7:fori=1to3:printtab(6)""left$(a$,29):next
  21. 560 poke214,14:print:printtab(10)"[158][194]ooting "+v$
  22. 580 return
  23. 10000 d=peek(186):n$="star":open15,d,15,"s0:"+n$:close15:saven$,d:end
  24.