home *** CD-ROM | disk | FTP | other *** search
/ Commodore Free 20 / Commodore_Free_Issue_20_2008_Commodore_Computer_Club.d64 / star (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  844b  |  29 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:gosub400
  5. 20 poke53265,27
  6. 30 print"[144]load"chr$(34)"quikmenu.pkd"chr$(34)","dv
  7. 32 print"run"
  8. 36 poke631,13:poke632,13:poke198,2:end
  9. 400 dv=peek(186):ifdv<8thendv=8
  10. 401 n$="[209]uik[205]enu from [204][207][193][196][211][212][193][210]"
  11. 402 open1,dv,15,"r0:quik.ini=quik.ini"
  12. 403 input#1,en:close1
  13. 404 if en<>63then407
  14. 405 open4,dv,8,"quik.ini":get#4,a$,b$
  15. 406 input#4,n$:close4
  16. 407 rem
  17. 509 print"[147]":a$="                                     "
  18. 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]"
  19. 520 poke214,10:print:poke646,15:fori=1to10:print""b$:next
  20. 530 poke214,12:print:poke646,11:fori=1to7:printtab(3)left$(b$,33):next
  21. 540 poke214,11:print:poke646,3:fori=1to7:printtab(4)""left$(b$,33):next
  22. 550 poke214,13:print:poke646,7:fori=1to3:printtab(6)""left$(a$,29):next
  23. 555 n$="[158][194]ooting "+n$
  24. 556 tb=19-len(n$)/2+2
  25. 560 poke214,14:print:printtab(tb)n$
  26. 580 return
  27. 10000 d=peek(186):n$="star":open15,d,15,"s0:"+n$:close15:saven$,d:end
  28. 60000 goto10000
  29.