home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 135 / 135.d81 / b.lazertech (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 20 delay=116:poke53280,0:poke53281,0
  3. 30 print"[147]";
  4. 40 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  5. 50 print"":fori=217to242:pokei,peek(i)or128:next
  6. 60 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  7. 70 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  8. 80 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  9. 90 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  10. 100 poke214,10:print"[145][159]";
  11. 110 fori=1to11:reada$
  12. 120 printspc(20-len(a$)/2)""a$:a$="":next
  13. 130 sys57812"lazertech",dv,0:poke780,0:poke781,0:poke782,16:sys65493
  14. 150 data"* [204] [193] [218] [197] [210] [212] [197] [195] [200] *","written by [212]erry [204]. [198]lynn"
  15. 160 data"  ([195])1995 by [211]oftdisk [208]ublishing"
  16. 170 data"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  17. 180 [131]"   (NULL)his is the copyrighted work of
  18. 190 data"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [206][207][212] intended
  19. 200 [131]"for distribution as public domain ","or shareware.  ascor information on"
  20. 210 [131]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) and (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) products,   "
  21. 220 [131]"call (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service at"
  22. 230 [131]"1-800-594-3370 or 1-318-221-8718
  23. 300 sys25915
  24. 40000 fori=0to21:poke828+i,8+i:next
  25. 40010 ifdv<8ordv>29ordv=8then40030
  26. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  27. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  28. 40040 close2:open2,i,2:close2:ifstthen40060
  29. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  30. 40060 next:print"[147]":poke53272,23:poke186,8:end
  31. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  32. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  33. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  34.