home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 January / Ahoy_Magazine_85-01_1985_Double_L.d64 / midprint (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1006 b   |  45 lines
  1. 100 poke53281,1:print"[147]"
  2. 102 gosub410
  3. 103 printtab(4)"[147]enter (zzz) when composition finished"
  4. 104 forc=1to3000:next
  5. 105 printchr$(147);tab(8)"upper or lower case? (u/l)"
  6. 107 getc$:ifc$=""then107
  7. 108 ifc$="l"thenpoke53272,23:goto115
  8. 109 ifc$="u"thenpoke53272,21:goto115
  9. 110 ifc$<>"l"orc$<>"u"then107
  10. 115 dima$(25):print"[147]"
  11. 120 forn=1to23
  12. 130 print"enter line #"n:inputa$(n):ifa$(n)="zzz"then145
  13. 140 nextn
  14. 145 print"[147]"
  15. 146 w=10-int(n/2)
  16. 147 forz=1tow:print"";:nextz
  17. 150 forx=1to23
  18. 160 t=int(40-len(a$(x)))/2
  19. 165 ifa$(x)="zzz"then185
  20. 170 printtab(t)a$(x)
  21. 180 nextx
  22. 185 print"[154]  press f1 to print screen-f3 to renew  "
  23. 190 getf$:iff$=""then190
  24. 200 iff$="[133]"then300
  25. 210 iff$="[134]"thenrun
  26. 300 ifpeek(53272)=23thenm=7
  27. 305 open1,4,m:ifan<>1then310
  28. 307 forf=1to37:print#1:nextf
  29. 310 forx=1to24
  30. 320 ifa$(x)="zzz"thenclose1:goto360
  31. 330 l=len(a$(x)):s=int(l/2):t=20-s
  32. 335 ifan=1thenprint#1,chr$(15)tab(t+40)a$(x):goto350
  33. 340 print#1,chr$(14)tab(t)a$(x)
  34. 350 nextx
  35. 360 print"[154]     f1 to reprint-f3 to rerun        "
  36. 370 getr$:ifr$=""then370
  37. 380 ifr$="[133]"then300
  38. 390 ifr$="[134]"thenrun
  39. 400 goto370
  40. 410 print"do you want announcement print format?":printtab(15)"(y/n)"
  41. 420 getan$:ifan$=""then420
  42. 430 ifan$="y"thenan=1:return
  43. 440 ifan$="n"thenan=0:return
  44. 450 goto420
  45.