home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 52 / Commodore_Disc_52_19xx_-_de.d64 / letter-maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  200 lines
  1. 10 rem ********************************
  2. 20 rem *                              *
  3. 30 rem *         letter-maker         *
  4. 40 rem *        --------------        *
  5. 50 rem *                              *
  6. 60 rem * (c) 91 by reinhard holler    *
  7. 70 rem *                              *
  8. 80 rem *                  muenchen    *
  9. 90 rem ********************************
  10. 95 ifpeek(772)=124then97
  11. 96 ca=2599:bp=2598:bz=2600:nx=208:goto100
  12. 97 ca=204:bp=207:bz=205:nx=198
  13. 100 poke53281,6:poke53280,6:printchr$(14)"[147]":a=1:da=100:n$="lm-letter"
  14. 110 print"[147]****************************************";:poke53280,6
  15. 120 print"*                                      *";
  16. 130 print"*           [176][177][177][177][177][177][177][177][177][177][177][177][177][177][177][174]           *";
  17. 140 print"*           [179] letter-maker [171]           *";
  18. 150 print"*           [173][178][178][178][178][178][178][178][178][178][178][178][178][178][178][189]           *";
  19. 160 print"*                                      *";
  20. 170 print"*   (c) 1991 by reinhard holler        *";
  21. 180 print"*                                      *";
  22. 190 print"*                      muenchen        *";
  23. 200 print"*                                      *";
  24. 210 print"****************************************";
  25. 220 goto 530
  26. 230 print""spc(12)"[153]brief erstellen"
  27. 240 print""spc(14)"[154]brief lesen"
  28. 250 print""spc(15)"[154]parameter"
  29. 260 print""spc(15)"[154]anleitung"
  30. 270 print""spc(17)"[154]ende!"
  31. 280 return
  32. 290 print""spc(12)"[154]brief erstellen"
  33. 300 print""spc(14)"[153]brief lesen"
  34. 310 print""spc(15)"[154]parameter"
  35. 320 print""spc(15)"[154]anleitung"
  36. 330 print""spc(17)"[154]ende!"
  37. 340 return
  38. 350 print""spc(12)"[154]brief erstellen"
  39. 360 print""spc(14)"[154]brief lesen"
  40. 370 print""spc(15)"[153]parameter"
  41. 380 print""spc(15)"[154]anleitung"
  42. 390 print""spc(17)"[154]ende!"
  43. 400 return
  44. 410 print""spc(12)"[154]brief erstellen"
  45. 420 print""spc(14)"[154]brief lesen"
  46. 430 print""spc(15)"[154]parameter"
  47. 440 print""spc(15)"[153]anleitung"
  48. 450 print""spc(17)"[154]ende!"
  49. 460 return
  50. 470 print""spc(12)"[154]brief erstellen"
  51. 480 print""spc(14)"[154]brief lesen"
  52. 490 print""spc(15)"[154]parameter"
  53. 500 print""spc(15)"[154]anleitung"
  54. 510 print""spc(17)"[153]ende!"
  55. 520 return
  56. 530 iffs=0thenfs=1:gosub 230
  57. 540 iffs=1andft=1 thenft=0:gosub 350
  58. 550 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)then550
  59. 560 if a$=""thena=a+1:goto590
  60. 570 if a$="[145]"thena=a-1:goto590
  61. 580 if a$=chr$(13)then670
  62. 590 if a=1 then gosub 230
  63. 600 if a=2 then gosub 290
  64. 610 if a=3 then gosub 350
  65. 620 if a=4 then gosub 410
  66. 630 if a=5 then gosub 470
  67. 640 if a>5 then a=1:gosub 230
  68. 650 if a<1 then a=5:gosub 470
  69. 660 goto 550
  70. 670 if a=1 then 750
  71. 680 if a=2 then 850
  72. 690 if a=3 then gosub 910
  73. 700 if a=4 then gosub 1270
  74. 710 input"[147]sicher beenden (j/n)";a$
  75. 720 if a$="j"then end
  76. 730 if a$="n"then a=1:fs=0:goto110
  77. 740 goto710
  78. 750 ti$="000000":open15,8,15,"s:"+n$:close15
  79. 760 open8,8,8,n$+",s,w":print"[147]"chr$(14);:poke53280,11
  80. 770 pokeca,0
  81. 780 geta$:ifa$=""then780
  82. 790 pokeca,1:ifpeek(bp)=0then820
  83. 800 pokebz,1:pokeca,0
  84. 810 ifpeek(bp)then810
  85. 815 pokeca,1
  86. 820 ifasc(a$)=15thena$=chr$(142)
  87. 821 printa$;:print#8,a$;
  88. 830 ifa$="_"thenclose8:fs=0:goto110
  89. 840 goto770
  90. 850 open8,8,8,n$:print"[147]"chr$(14);
  91. 860 get#8,a$:ifa$="_"thengoto 880
  92. 861 ifa$=chr$(16)thenpokenx,0:goto873
  93. 870 printa$;:fori=0toda:next
  94. 871 geta$:ifa$=""then860
  95. 872 ifa$="_"then880
  96. 873 geta$:ifa$=""then873
  97. 874 ifa$="_"then880
  98. 875 goto860
  99. 880 close8
  100. 890 geta$:ifa$=""then890
  101. 900 fs=0:a=1:goto110
  102. 910 print"[147]****************************************";
  103. 920 print"*                                      *";
  104. 930 print"*            parametermenue            *";
  105. 940 print"*                                      *";
  106. 950 print"****************************************";
  107. 960 pm=1:ft=1:gosub1110
  108. 970 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)then970
  109. 980 ifa$=""thenpm=pm+1:goto 1010
  110. 990 ifa$="[145]"thenpm=pm-1:goto 1010
  111. 1000 ifa$=chr$(13)then 1070
  112. 1010 ifpm=1thengosub 1110
  113. 1020 ifpm=2thengosub 1150
  114. 1030 ifpm=3thengosub 1190
  115. 1040 ifpm>3thenpm=1:gosub1110
  116. 1050 ifpm<1thenpm=3:gosub1190
  117. 1060 goto970
  118. 1070 ifpm=1thengoto 1230
  119. 1080 ifpm=2then1250
  120. 1090 ifpm=3then110
  121. 1100 goto970
  122. 1110 print""spc(15)"[153]briefname"
  123. 1120 print""spc(10)"[154]lesegeschwindigkeit"
  124. 1130 print""spc(15)"[154]hauptmenue"
  125. 1140 return
  126. 1150 print""spc(15)"[154]briefname"
  127. 1160 print""spc(10)"[153]lesegeschwindigkeit"
  128. 1170 print""spc(15)"[154]hauptmenue"
  129. 1180 return
  130. 1190 print""spc(15)"[154]briefname"
  131. 1200 print""spc(10)"[154]lesegeschwindigkeit"
  132. 1210 print""spc(15)"[153]hauptmenue"
  133. 1220 return
  134. 1230 print"":input"briefname";n$
  135. 1240 print"[154]":goto 910
  136. 1250 print"":input"lesegeschwindigkeit (1=sehr schnell,    200=langsam)";da
  137. 1260 goto 910
  138. 1270 print"[147][145]****************************************";
  139. 1280 print"*                                      *";
  140. 1290 print"*              anleitung               *";
  141. 1300 print"*                                      *";
  142. 1310 print"****************************************";
  143. 1320 print"[153]1. brief erstellen[154]"
  144. 1330 print"hier kann ein neuer brief geschrieben"
  145. 1340 print"werden. der name des briefes muess je-"
  146. 1350 print"doch vor starten dieses menuepunktes im"
  147. 1360 print"parametermenue festgelegt werden. es ist"
  148. 1370 print"zu beachten, dass 1. keine anfuehhrungs-"
  149. 1380 print"zeichen eingegeben werden koennen, und"
  150. 1390 print"2. das cursorblinken aus programmtech-"
  151. 1400 gosub 1860
  152. 1410 print"[147]nischen gruenden einige negative merkma-"
  153. 1420 print"le aufweist, die aber im fertigen brief"
  154. 1430 print"nicht mehr zu sehen sind. wenn man "
  155. 1440 print"naemlich den cursor mit den cursortasten"
  156. 1450 print"bewegt, so nehmen die zeichen unter dem"
  157. 1460 print"blinkcursor diesen auf dem bildschirm"
  158. 1470 print"auf. das heisst, das der zu schreibende"
  159. 1480 print"brief durch cursor-bewegungen etwas ver-"
  160. 1490 print"unstaltet wird. wie gesagt, das sieht"
  161. 1500 print"nur auf dem bildschirm so aus. aber es"
  162. 1510 print"ist doch bestimmt besser, man hat beim"
  163. 1520 gosub 1860
  164. 1530 print"[147]schreiben einen optisch nicht perfekten"
  165. 1540 print"bildschirm, als keinen cursor, der einem"
  166. 1550 print"die aktuelle position verraet."
  167. 1560 print"[153]2. brief lesen[154]"
  168. 1570 print"durch anwaehlen dieses menuepunktes wird"
  169. 1580 print"ein fertiger brief, dessen name im para-"
  170. 1590 print"metermenue festgelegt wird, gelesen."
  171. 1600 print"ist der text zu ende, so kommt man mit"
  172. 1610 print"einer beliebigen taste wieder ins haupt-"
  173. 1620 print"menue zurueck."
  174. 1630 gosub 1860
  175. 1640 print"[147][153]3. parameter[154]"
  176. 1650 print"in diesem menue werden der name des zu"
  177. 1660 print"schreibenden [150]und[154] zu lesenden briefes"
  178. 1670 print"festgelegt. ausserdem kann man hier die"
  179. 1680 print"geschwindigkeit, mit der der brief gele-"
  180. 1690 print"sen wird, veraendern."
  181. 1700 print"was es mit der [153]anleitung[154] auf sich hat,"
  182. 1710 print"duerfte klar sein."
  183. 1720 print"ein demotext, der alle moeglichkeiten"
  184. 1730 print"zeigt, ist unter dem namen [150]lmd[154] auf der"
  185. 1740 print"diskette enthalten."
  186. 1750 gosub 1860
  187. 1760 print"[147][153]uebrigens:[154] wenn man einen neuen brief"
  188. 1770 print"schreibt, darf auf der disk kein eintrag"
  189. 1780 print"mit dem im parametermenue gewaehlten na-"
  190. 1790 print"men enthalten sein. sonst wird dieser"
  191. 1800 print"geloescht!!! ausserdem sollte man nach"
  192. 1810 print"der eingabe des ersten buchstabens im"
  193. 1820 print"brief ein bisschen warten."
  194. 1830 print"und nun viel spass mit dem letter-maker."
  195. 1840 gosub 1860
  196. 1850 fs=0:a=1:goto110
  197. 1860 print"                     >space< druecken![145]"
  198. 1870 gett$:ift$<>chr$(32)then1870
  199. 1880 return
  200.