home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 123 / 123.d81 / b.printmeister (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 100 dv=peek(186):ifdv<8thendv=8
  2. 110 delay=116:poke53280,0:poke53281,0
  3. 120 print"[147]";
  4. 130 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. 140 print"":fori=217to242:pokei,peek(i)or128:next
  6. 150 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. 160 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  8. 170 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. 180 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. 190 poke214,10:print"[145][159]";
  11. 200 fori=1to11:reada$
  12. 210 printspc(20-len(a$)/2)""a$:a$="":next
  13. 220 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then220
  14. 230 a$="printmeister"
  15. 240 data"[208] [210] [201] [206] [212] [205] [197] [201] [211] [212] [197] [210]","by [194]ob [205]arkland and [198]ender [212]ucker
  16. 250 [131]"  (len)1994 by (NULL)oftdisk (NULL)ublishing"
  17. 260 [131]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  18. 270 data"   [212]his is the copyrighted work of
  19. 280 [131]"(NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$, (NULL)(NULL)(NULL) intended
  20. 290 data"for distribution as public domain ","or shareware.  [210]eport any illegal
  21. 300 [131]"distribution of this program by   "
  22. 310 [131]"calling (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service:
  23. 320 data"1-800-594-3370 or 1-318-221-8718
  24. 330 [129]i[178]dv[164]dv:[160]2:[159]2,i,2:[160]2:[139]st[167]350
  25. 340 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]360
  26. 350 [130]:[153]""a$" not found!":[151]186,8:[128]
  27. 360 q$[178][199](34):[151]646,[194](53281):[153]"";
  28. 370 [153]"p(NULL)4096,0:p(NULL)44,16:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  29. 380 [153]"r(NULL):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
  30. 390 [151]635,145:[151]636,13:[151]198,6
  31.