home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 208 / 208.d81 / b.diskovery208 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  613b  |  27 lines
  1. 10 dv=peek(186)
  2. 11 print"[147]":poke53280,0:poke53281,0
  3. 20 rem gosub100
  4. 21 gosub1000:print"[144]"
  5. 22 t=ti+120
  6. 23 ift>tithen23
  7. 30 a$="hello connect":d=dv:b$="l[207]a$,d"+chr$(13)+"r[213]"+chr$(13)
  8. 40 forx=1to10:poke630+x,asc(mid$(b$,x)):next:poke198,10:end
  9. 999 end
  10. 1000 rem return
  11. 1001 c0=peek(151):c1=peek(253)
  12. 1002 sys57812"play",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  13. 1003 sys49155"welcome.vox",dv
  14. 1010 poke151,0:poke253,12:poke53272,22
  15. 1020 poke214,09:print"[129]":reada1$,b1$
  16. 1030 printtab(19-len(a1$)/2)a1$
  17. 1040 print:printtab(19-len(b1$)/2)b1$;
  18. 1049 poke53370,0
  19. 1050 sys49152
  20. 1051 poke151,c0:poke253,c1
  21. 1052 poke53371,0
  22. 1055 return
  23. 1060 data"[215]elcome to [204][207][193][196][211][212][193][210]!"
  24. 1061 data"[212]his is [196]ave [205]oorman"
  25. 9999 end
  26. 10000 d=peek(186):n$="b.diskovery208":open15,d,15,"s0:"+n$:close15:saven$,d:end
  27.