home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh28a.d64 / superprint (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  402 lines
  1. 0 REM WRITTEN BY R. BONSE & H.J. CIPRINA      IN 1987
  2. 5 REM REVISION: 30.12.87
  3. 10 POKE55,255:POKE56,120:REM BASIC ENDE
  4. 15 IFL7=1THEN500
  5. 20 POKE53280,0:POKE53281,0:PRINT"[147][153]";CHR$(14);CHR$(8):RESTORE
  6. 25 PRINTTAB(15)"[211][213][208][197][210][208][210][201][206][212]"
  7. 30 PRINTTAB(15)"[163][163][163][163][163][163][163][163][163][163]"
  8. 35 PRINT"   WRITTEN BY [200].[202]. [195]IPRINA & [210]. [194]ONSE"
  9. 40 PRINTTAB(7)"(C) 1988 BY [205]ARKT & [212]ECHNIK"
  10. 45 PRINT""TAB(6)"[196]IESES [208]ROGRAMM ERSTELLT [196]IR"
  11. 50 PRINT""TAB(18)"DEN":PRINTTAB(18)"[163][163][163]"
  12. 55 PRINTTAB(7)"[211][213][208][197][210] [199][197][207][211] [196]RUCKERTREIBER"
  13. 60 PRINTTAB(4)"FUER [197]PSON UND [203]OMPATIBLE UND DEN"
  14. 65 PRINTTAB(6)"[211]TAR [206][204]-10 MIT [195][194][205]-[201]NTERFACE"
  15. 70 POKE198,0:WAIT198,1
  16. 75 PRINT"[147][215]ELCHER [196]RUCKERTREIBER SOLL ANGEPASST":PRINT"WERDEN ?"
  17. 80 EP$="[197]PSON [198][216]-80":PRINT"<[198]1>[146] ";EP$
  18. 90 NL$="[211]TAR [206][204]-10(COM)":PRINT"<[198]3>[146] ";NL$:POKE198,0
  19. 92 PRINT"[196]ER NEUE [196]RUCKERTREIBER WIRD AUCH AUF"
  20. 93 PRINT"DIESE [196]ISKETTE GESCHRIEBEN!"
  21. 95 GETA$:IFA$=""THEN95
  22. 100 IF A$="[134]"THEN200
  23. 105 IFA$<>"[133]"THEN95
  24. 110 IN$=EP$:PRINT"[147]... READING ";EP$
  25. 115 GOSUB10000:SU$=OU$:GOSUB5000
  26. 120 IF PEEK(30980)=112THENV$="3":GOTO150
  27. 125 IF PEEK(30980)=101THENV$="2":GOTO150
  28. 130 PRINT"[196]IESER [196]RUCKERTREIBER KANN NICHT VON"
  29. 135 PRINT"DIESEM [208]ROGRAMM ANGEPASST WERDEN.":END
  30. 150 PRINT"[196]RUCKERTREIBER VON [199][197][207][211] [214]1.";V$
  31. 155 IF V$="2"THENLN$="EP1.2"
  32. 160 IFV$="3"THENLN$="FX1.3"
  33. 162 FORF=1TO1000:NEXT
  34. 165 PRINT"... LOADING ";LN$
  35. 170 L7=1:LOADLN$,8,1:REM NACHLADEN
  36. 200 IN$=NL$:PRINT"[147]... READING ";NL$
  37. 205 GOSUB10000:SU$=OU$:GOSUB5000
  38. 210 V$="1":LN$="NL1.3":GOTO165
  39. 400 T=0
  40. 405 READA:T=T+1:GOTO405
  41. 500 IFV$="1"THEN1800
  42. 502 RESTORE:PRINT"[147][215]AEHLE:":PRINT"[163][163][163][163][163][163][163]"
  43. 505 PRINT"<[198]1>[146] = [211]TAR [206][204]-10 MIT [195][194][205]-[201]NTERFACE"
  44. 510 PRINT"<[198]3>[146] = [197]PSON [198][216]-80 & [203]OMPATIBLE"
  45. 515 PRINT"<[198]5>[146] = [193]NDERE [196]RUCKER":POKE198,0
  46. 520 GETA$:IFA$=""THEN520
  47. 525 A=ASC(A$):IFA<133 OR A>135THEN520
  48. 530 A=2*A-217:PRINT"[147][196]U HAST [198]";CHR$(A);" GEWAEHLT."
  49. 535 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  50. 537 AA=A
  51. 540 IF V$="1"THEN1200
  52. 545 IF V$="3"THEN1000
  53. 550 IFA=53 THENGOSUB700:GOSUB985:GOTO986
  54. 555 IFA=51 THEN 610
  55. 556 GOSUB560
  56. 557 READA,B,C,D,E,F:POKEA,B:POKEC,D:POKEE,F:GOTO5100
  57. 560 FOR F=1TO9:READA:NEXT:REM 9 UEBERLESEN
  58. 565 GOSUB 3000:REM SEKUND. ADR
  59. 570 GOSUB 3100:REM LINEFEED
  60. 575 GOSUB 3200:REM EINSPRUNG
  61. 580 GOSUB 3205:REM ZEILENVOR N/216
  62. 600 READA,B,C,D:POKEA,B:POKEC,D:RETURN
  63. 610 GOSUB560
  64. 620 FORF=1TO6:READA:NEXT:GOTO5100
  65. 699 REM EIGENE ANPASSUNG
  66. 700 A2=1:PRINT"[200]AT DER [196]RUCKER EINEN 640 [208]UNKTE [205]ODUS? (J/N)"
  67. 705 GETA1$:IFA1$=""THEN705
  68. 710 IFA1$<>"J"THENIFA1$<>"N"THEN705
  69. 715 PRINT"[200]AT DER [196]RUCKER EINEN 1920 [208]UNKTE [205]ODUS?(J/N)"
  70. 720 GETA2$:IFA2$=""THEN720
  71. 725 IFA2$<>"J"THENIFA2$<>"N"THEN720
  72. 730 IFA1$="N"THENIFA2$="N"THEN990
  73. 735 IFA1$="N"THENIFA2$="J"THENAA=49:READB,B:REM NL
  74. 740 IFA1$="J"THENIFA2$="J"THENAA=51:REM FX
  75. 745 IFA1$="J"THENIFA2$="N"THEN990
  76. 775 IFAA=49GOTO870
  77. 780 PRINT"[202]ETZT WIRD DER 640 [208]UNKTE [205]ODUS DES"
  78. 785 PRINT"[196]RUCKERS EINGESTELLT."
  79. 790 PRINT"[198]UER DEN [198][216]-80 SIND ES 5 [215]ERTE:":PRINT"27 42 4 128 2":PRINT
  80. 795 MA=5:GOSUB800:GOTO860
  81. 800 PRINT"[205]AXIMAL KANNST [196]U";MA;"[215]ERTE EINGEBEN."
  82. 805 W1$="":INPUT"[215]IEVIELE [215]ERTE WILLST [196]U EINGEBEN ";W1$:W1=VAL(W1$)
  83. 810 IFW1<1ORW1>MATHENPRINT"[145]";:GOTO805
  84. 815 FORF=1TOW1
  85. 820 W1$(F)="":PRINT"[215]ERT";F:INPUTW1$(F):W1(F)=VAL(W1$(F))
  86. 825 IFW1(F)<0ORW1(F)>255THENPRINT"[145][145]";:GOTO820
  87. 830 NEXT
  88. 835 PRINT"";:FORF=1TOW1:PRINTW1(F);:NEXT
  89. 840 POKE198,0:PRINTCHR$(13);"[215]ERTE KORREKT (J/N)?"
  90. 845 GETA$:IFA$=""THEN845
  91. 850 IFA$<>"J"THENPRINT"":GOTO800
  92. 855 RETURN
  93. 860 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM GRAFCODE2 -1+F
  94. 865 READB:POKEB,W1:REM P640 +1
  95. 870 PRINT"[147][202]ETZT WIRD DER 1920 [208]UNKTE [205]ODUS DES"
  96. 875 PRINT"[196]RUCKERS EINGESTELLT."
  97. 880 PRINT"[198]UER DEN [198][216]-80 SIND ES 5 [215]ERTE:":PRINT"27 42 3 128 7":PRINT
  98. 885 MA=5:GOSUB800
  99. 890 READB:FORF=W1TO1STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM GRAFCODE -1+F
  100. 895 READB:POKEB,W1:REM GRAFIC3 +1
  101. 900 PRINT"[147][202]ETZT WIRD DER [218]EILENVORSCHUB IN N/216"
  102. 905 PRINT"FUER DEN [206]ORMAL-[205]ODUS EINGESTELLT."
  103. 907 IFV$<>"2"THEN916
  104. 910 PRINT"[198]UER DEN [198][216]-80 SIND ES 3 [215]ERTE:":PRINT"27 51 24   (24/216)":PRINT
  105. 915 MA=3:GOSUB800:GOTO924
  106. 916 PRINT"[198]UER DEN [198][216]-80 SIND ES 5 [215]ERTE:"
  107. 917 PRINT"27 64 27 51 24   (RESET + 24/216)":PRINT
  108. 918 MA=5:GOSUB800
  109. 919 PRINT"[215]IEVIELE [215]ERTE SIND DAS OHNE DEN"
  110. 920 PRINT"[210]ESETCODE?"
  111. 921 INPUTRC$:RC=VAL(RC$):IFRC<0ORRC>255THENPRINT"[145][145]":GOTO921
  112. 922 READR:POKER,RC
  113. 924 READB:FORF=W1TO1STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM VORCODE -1+F
  114. 925 READB:POKEB,W1:REM ANZAHL ZEILENVOR.
  115. 930 PRINT"[147][202]ETZT BITTE DEN [195]ODE FUER 1/216."
  116. 935 PRINT"[198]UER DEN [198][216]-80 SIND ES 3 [215]ERTE:":PRINT"27 51 1   (1/216)":PRINT
  117. 940 MA=3:GOSUB800
  118. 945 READB:FORF=W1TO1STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM CODE -1+F
  119. 950 READB:POKEB,W1:REM ANZAHL 1/216
  120. 955 PRINT"[206]UN BITTE NOCH DEN [218]EILENVORSCHUB FUER"
  121. 960 PRINT"DEN [197]XTENDET-[205]ODUS, HIERBEI BITTE NUR"
  122. 965 PRINT"DEN 'N'-[215]ERT DES [218]EILENVORSCHUBS (N/216)";
  123. 970 PRINT"EINGEBEN. [198]UER DEN [198][216]-80 IST DIES 24":PRINT"(24/216)":W1$=""
  124. 975 INPUT"[215]ERT";W1$:IFW1$=""THENPRINT"[145]";:GOTO975
  125. 976 W1=VAL(W1$)
  126. 980 IFW1<0ORW1>255THEN975
  127. 982 READB:POKEB,W1
  128. 983 RETURN
  129. 985 PRINT"[147]":GOSUB3000:GOSUB3100:GOSUB3200:FORF=1TO8:READB:NEXT:RETURN
  130. 986 IFAA=49GOTO557
  131. 987 GOTO620
  132. 990 PRINT"[147][212]UT MIR [204]EID, DIESER [196]RUCKER KANN NICHT"
  133. 995 PRINT"ANGEPASST WERDEN.":END
  134. 1000 FORF=1TO34:READB:NEXT
  135. 1005 IF A=51 THEN 1050
  136. 1010 IF A=53 THEN 1100
  137. 1015 READA,B,C,D,E:GOSUB560
  138. 1020 READA,B,C,D:POKEA,B:POKEC,D
  139. 1025 IFLF$="N"THENREADA:FORF=0TO4:POKEA+F,234:NEXT:GOTO1040
  140. 1030 READA
  141. 1040 IFAA=49THENREADA,B:POKEA,B:GOTO5100
  142. 1045 READA,B:GOTO5100
  143. 1050 READA,B,C,D,E:GOSUB560:FORF=1TO4:READB:NEXT:GOTO1025
  144. 1100 GOSUB700:GOSUB4000:GOSUB985
  145. 1105 IFAA=49THENREADA,B,C,D:POKEA,B:POKEC,D:GOTO1025
  146. 1110 FORF=1TO4:READB:NEXT:GOTO1025
  147. 1200 FORF=1TO74:READB:NEXT
  148. 1205 IF A=53 THEN 1300
  149. 1210 FORF=1TO14:READA:NEXT:FORF=1TO3:READA,B:POKEA,B:NEXT:GOSUB565
  150. 1215 IFLF$="N"THENREADA:FORF=0TO4:POKEA+F,234:NEXT:GOTO1225
  151. 1220 READA
  152. 1225 PRINT"[193][146][211][195] [201][201] ODER [195][146]OMMODORE [194]ETRIEBSART?":POKE198,0
  153. 1230 GETA$:IFA$=""THEN1230
  154. 1235 IFA$="C"THENREADA:GOTO5100
  155. 1240 IFA$<>"A"THEN1230
  156. 1245 READA:POKEA,234:POKEA+1,234:GOTO5100
  157. 1300 GOSUB1400:GOSUB4000:READA,B:FORF=1TO2:READA,B:POKEA,B:NEXT
  158. 1305 PRINT"[147]":GOSUB3000:GOSUB3100:GOSUB3200:FORF=1TO4:READB:NEXT
  159. 1310 READA,B,C,D:POKEA,B:POKEC,D:GOTO1215
  160. 1400 PRINT"[147][200]AT DER [196]RUCKER EINEN 1920 [208]UNKTE [205]ODUS?(J/N)":POKE198,0
  161. 1405 GETA$:IFA$=""THEN1405
  162. 1410 IFA$="N"THEN990
  163. 1415 IFA$<>"J"THEN1405
  164. 1420 PRINT"[147][197]S WIRD DIE VIERFACHE [208]UNKTDICHTEBENOE-"
  165. 1425 PRINT"TIGT. [196]IESE IST AUF 960 [196]RUCKPUNKTE EIN-";
  166. 1430 PRINT"ZUSTELLEN!"
  167. 1435 PRINT"[194]EIM [211]TAR [206][204]-10 SIND ES 5 [215]ERTE:"
  168. 1440 PRINT"27 42 3 192 3":GOTO795
  169. 1800 RESTORE:PRINT"[147][215]AEHLE:":PRINT"[163][163][163][163][163][163][163]"
  170. 1805 PRINT"<[198]1>[146] = [211]TAR [206][204]-10/[197]PSON [198][216]-80 (& [203]OMP.)":PRINT
  171. 1810 PRINT"<[198]5>[146] = [193]NDERE [196]RUCKER":POKE198,0
  172. 1815 GETA$:IFA$=""THEN1815
  173. 1820 IFA$="[133]"ORA$="[135]"THEN525
  174. 1825 GOTO1815
  175. 3000 READA:SA=PEEK(A)-240
  176. 3005 POKE211,17:POKE214,5:SYS58732:PRINTSA
  177. 3010 INPUT"[145][211]EKUNDAERADRESSE";SA
  178. 3015 IF SA<0 OR SA>255 THENSA=5:GOTO3005
  179. 3020 POKEA,240+SA
  180. 3025 READA:POKEA,224+SA
  181. 3030 READA:POKEA,96+SA:RETURN
  182. 3100 LF$="N":POKE211,23:POKE214,7:SYS58732:PRINTLF$
  183. 3105 INPUT"[145][204]INEFEED ERFORDERLICH";LF$
  184. 3110 IFLF$<>"J" AND LF$<>"N"THEN3100
  185. 3115 READA:IFLF$="N"THENPOKEA,96:REM RTS
  186. 3120 RETURN
  187. 3200 FORF=1TO3:READA,B:POKEA,B:NEXT:RETURN
  188. 3205 PRINT"[218]EILENVORSCHUB (N/216 INCH FUER DEN"
  189. 3210 ZA=24:POKE211,24:POKE214,10:SYS58732:PRINTZA
  190. 3215 INPUT"[145][206]ORMAL-[205]ODUS (640 [208]KT.)";ZA
  191. 3220 IFZA<3ORZA>255THEN3210
  192. 3225 PRINT"[218]EILENVORSCHUB (N/216 INCH FUER DEN"
  193. 3230 ZE=24:POKE211,26:POKE214,13:SYS58732:PRINTZE
  194. 3235 INPUT"[145][197]XTENDET-[205]ODUS (576 [208]KT.)";ZE
  195. 3240 IFZE<3ORZE>255THEN3230
  196. 3245 READA:POKEA,ZA:READA,B:POKEA,B
  197. 3250 READA:POKEA,ZE:RETURN
  198. 3999 REM ANPASSUNG AN NLQ + ZEILENABSTAND IM NORMALMODUS
  199. 4000 IFV$="1"GOTO4100
  200. 4005 PRINT"[147][194]ITTE DEN [195]ODE FUER [206][204][209]-[211]CHRIFT BZW."
  201. 4010 PRINT"[194]OLD UND [198]ETTDRUCK EINGEBEN. [194]EIM"
  202. 4012 PRINT"[197]PSON [198][216] -80 SIND ES 4 [215]ERTE:"
  203. 4015 PRINT"27 69 27 71 ([194]OLD & [198]ETT)"
  204. 4020 MA=4:GOSUB800
  205. 4030 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM BOLD + FETT O. NLQ
  206. 4035 READB:POKEB,W1:REM ANZ. B+F O. NLQ
  207. 4040 PRINT"[147][202]ETZT FEHLT NOCH DER [218]EILENVORSCHUB IM"
  208. 4045 PRINT"[194]OLD/[198]ETT- BZW. [206][204][209]-[205]ODUS. [194]EIM [198][216]-80"
  209. 4050 PRINT"SIND ES 4 [215]ERTE:"
  210. 4055 PRINT"27 64 27 50  (RESET + 1/6)"
  211. 4060 MA=4:GOSUB800
  212. 4065 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM ZEILENABSTAND
  213. 4070 READB:POKEB,W1:REM ANZ. ZEILENAB
  214. 4075 RETURN
  215. 4100 PRINT"[147][194]ITTE DEN [195]ODE FUER [206][204][209]-[211]CHRIFT EIN-"
  216. 4105 PRINT"GEBEN. [194]EIM [211]TAR [206][204]-10 SIND ES 3 [215]ERTE:"
  217. 4110 PRINT"27 120 49   ([206][204][209])"
  218. 4120 MA=3:GOSUB800
  219. 4130 READB:FORF=W1TO1 STEP-1:POKEB+F,W1(W1-F+1):NEXT:REM BOLD + FETT O. NLQ
  220. 4135 READB:POKEB,W1:REM ANZ. B+F O. NLQ
  221. 4140 PRINT"[147][202]ETZT FEHLT NOCH DER [195]ODE FUER DIE"
  222. 4145 PRINT"[196]RUCKERINITIALISIERUNG ([210]ESET)."
  223. 4146 PRINT"[193]LTERNATIV KANN AUCH EIN ANDERER [218]EILEN-VORSCHUB EINGESTELLT WERDEN."
  224. 4150 PRINT"[198]UER DEN [206][204]-10 SIND ES 2 [215]ERTE:"
  225. 4155 PRINT"27 64 (RESET)"
  226. 4157 PRINT"[197]S MUESSEN GENAU 2 [215]ERTE EINGEGEBEN"
  227. 4158 PRINT"WERDEN."
  228. 4160 W1$="":INPUT"[215]ERT 1: ";W1$:W1=VAL(W1$)
  229. 4165 IFW1<0ORW1>255THENPRINT"[145][145]":GOTO4160
  230. 4170 READB:POKEB,W1:REM 1. (null)ERT
  231. 4180 W1$="":INPUT"[215]ERT 2: ";W1$:W1=VAL(W1$)
  232. 4185 IFW1<0ORW1>255THENPRINT"[145][145]":GOTO4180
  233. 4190 READB:POKEB,W1:REM 2. (null)ERT
  234. 4195 PRINT"[215]ERTE KORREKT (J/N)":POKE198,0
  235. 4200 GETA$:IFA$=""THEN4200
  236. 4205 IFA$="N"GOTO4140
  237. 4210 IFA$<>"J"THEN4200
  238. 4215 RETURN
  239. 4999 REM LADEROUTINE
  240. 5000 OPEN15,8,15,"I0":OPEN8,8,8,OU$+",U,R":PRINT
  241. 5005 INPUT#15,EN,EN$,ET,ES:IFEN<>0THENPRINTEN;EN$,ET;ES:CLOSE8:CLOSE15:GOTO6000
  242. 5010 LA=30976:REM LADEADRESSE
  243. 5015 GET#8,A$:IFA$=""THENA$=CHR$(0)
  244. 5020 POKELA,ASC(A$):LA=LA+1:IF ST=0 THEN5015
  245. 5025 INPUT#15,EN,EN$,ET,ES:PRINT"";EN;EN$;ET;ES
  246. 5030 CLOSE8:CLOSE15:RETURN
  247. 5099 REM SAVE ROUTINE
  248. 5100 PRINT"[147][213]NTER WELCHEM [206]AMEN SOLL DER NEUE"
  249. 5105 PRINT"[196]RUCKERTREIBER ABGESPEICHERT WERDEN?"
  250. 5110 INPUTIN$:GOSUB10000:NA$=OU$
  251. 5115 PRINT"... WRITING ";IN$
  252. 5120 PRINT"------------ DO NOT DISTURB ------------"
  253. 5125 OPEN15,8,15,"I0":OPEN8,8,8,NA$+",U,W"
  254. 5130 INPUT#15,EN,EN$,ET,ES:IFEN<>0THENCLOSE8:CLOSE15:GOTO5900
  255. 5135 READEA: REM ENDADR.
  256. 5136 HI=INT(A/256):LO=A-256*HI
  257. 5140 FORF=30976TOEA:WE=PEEK(F):PRINT#8,CHR$(WE);
  258. 5145 NEXT:CLOSE8:INPUT#15,EN,EN$,ET,ES:IF EN<>0 THEN CLOSE15:GOTO5900
  259. 5150 PRINT"[211]UCHEN DES ALTEN [201]NFOBLOCKS"
  260. 5155 OPEN8,8,8,"#2":OPEN9,8,9,"#1":FL=0
  261. 5160 INPUT#15,EN,EN$,ET,ES:IFEN<>0THENCLOSE8:CLOSE9:CLOSE15:GOTO5900
  262. 5165 EE$="":FORF=0TO15:EE$=EE$+CHR$(160):NEXT
  263. 5170 SU$=LEFT$(SU$+EE$,16):GOSUB5175:GOTO5230
  264. 5175 TR=18:SE=1
  265. 5180 PRINT#15,"U1 8 0";TR,SE
  266. 5185 GET#8,NT$:NT$=NT$+CHR$(0)
  267. 5190 GET#8,NS$:NS$=NS$+CHR$(0)
  268. 5195 FORF=0TO7:PRINT#15,"M-R"CHR$(F*32+5)CHR$(5)CHR$(27):DE$(F)=""
  269. 5200 FORG=1TO27:GET#15,A$:IFA$=""THENA$=CHR$(0)
  270. 5205 DE$(F)=DE$(F)+A$:NEXT:NEXT:F=0
  271. 5210 IF SU$=LEFT$(DE$(F),16)THENRETURN
  272. 5215 F=F+1:IFF<8THEN5210
  273. 5220 TR=ASC(NT$):SE=ASC(NS$):IFTR=0THENCLOSE8:CLOSE9:CLOSE15:GOTO5900
  274. 5225 GOTO5180
  275. 5230 IT=ASC(MID$(DE$(F),17,1))
  276. 5235 IS=ASC(MID$(DE$(F),18,1))
  277. 5240 PRINT#15,"U1 9 0";IT,IS
  278. 5245 SU$=LEFT$(NA$+EE$,16):GOSUB5175
  279. 5250 TN=1:SN=0
  280. 5255 PRINT#15,"B-A 0";TN;SN
  281. 5260 INPUT#15,EN,EN$,ET,ES:PRINT"";EN;EN$;ET;ES
  282. 5265 IFEN=0THEN5285
  283. 5270 TN=ET:SN=ES:IFTN=0THENCLOSE8:CLOSE9:CLOSE15:GOTO5900
  284. 5275 GOTO5255
  285. 5280 REM SCHREIBEN DES NEUEN INFOBLOCKS
  286. 5285 PRINT"[215]ELCHES [196]ATUM HABEN WIR HEUTE ?"
  287. 5290 INPUT"[202]AHR  :";JA$
  288. 5295 INPUT"[205]ONAT :";MO$
  289. 5300 INPUT"[212]AG   :";TA$
  290. 5305 INPUT"[211]TUNDE:";H$
  291. 5310 INPUT"[205]INUTE:";MI$
  292. 5315 PRINT"[193]NLEGEN DES NEUEN [201]NFOBLOCKS"
  293. 5320 PRINT#15,"M-W"CHR$(F*32+21)CHR$(5)CHR$(2)CHR$(TN)CHR$(SN)
  294. 5325 PRINT#15,"M-W"CHR$(F*32+23)CHR$(5)CHR$(3)CHR$(0)CHR$(9)CHR$(VAL(JA$))
  295. 5330 PRINT#15,"M-W"CHR$(F*32+26)CHR$(5)CHR$(2)CHR$(VAL(MO$))CHR$(VAL(TA$))
  296. 5335 PRINT#15,"M-W"CHR$(F*32+28)CHR$(5)CHR$(2)CHR$(VAL(H$))CHR$(VAL(MI$))
  297. 5340 IFV$="2"THENPRINT#15,"M-W"CHR$(F*32+30)CHR$(5)CHR$(2)CHR$(6)CHR$(0)
  298. 5341 IFV$="3"THENPRINT#15,"M-W"CHR$(F*32+30)CHR$(5)CHR$(2)CHR$(7)CHR$(0)
  299. 5342 IFV$="1"THENPRINT#15,"M-W"CHR$(F*32+30)CHR$(5)CHR$(2)CHR$(8)CHR$(0)
  300. 5345 PRINT#15,"U2 8 0";TR;SE
  301. 5350 IN$="[196]URRAN & [195]IPRINA":GOSUB10000:OU$=OU$+CHR$(0)
  302. 5355 PRINT#15,"M-W"CHR$(97)CHR$(4)CHR$(17);OU$
  303. 5360 PRINT#15,"M-W"CHR$(73)CHR$(4)CHR$(2)CHR$(LO)CHR$(HI):REM ENDADR.
  304. 5365 PRINT#15,"M-W"CHR$(160)CHR$(4)CHR$(1)CHR$(0):REM INFOTEXT LOESCHEN
  305. 5370 PRINT#15,"U2 9 0";TN;SN
  306. 5375 INPUT#15,EN,EN$,ET,ES:PRINT""EN;EN$;ET;ES
  307. 5380 CLOSE8:CLOSE9:CLOSE15
  308. 5385 PRINT"[196]ER NEUE [196]RUCKERTREIBER IST FERTIG !"
  309. 5390 PRINT"[214]IEL [211]PASS BEIM [193]USDRUCKEN !!":END
  310. 5900 PRINT"[196][160][201][160][211][160][203]    [197][160][210][160][210][160][207][160][210] !"
  311. 5905 PRINT"";EN;EN$,ET,ES:END
  312. 6000 PRINT"[206]OCH MAL VERSUCHEN (J/N) ?":POKE198,0
  313. 6005 GETA$:IFA$=""THEN6005
  314. 6010 IFA$="J"THEN5000
  315. 6015 END
  316. 6999 REM NACHLADEN
  317. 7000 LOADOU$,8,1
  318. 9997 END
  319. 9998 REM ROUTINE VERWANDELT TEXT IN GEOS FORMAT UM
  320. 9999 REM EINGABE IN IN$ AUSGABE IN OU$
  321. 10000 IL=LEN(IN$): IF IL=0 THEN RETURN
  322. 10005 OU$="":FORF=1TOIL
  323. 10010 AS=ASC(MID$(IN$,F,1))
  324. 10015 IFAS<65THEN10030
  325. 10020 IFAS<91THENAS=AS+32:GOTO10030
  326. 10025 IFAS>192THENIFAS<219THENAS=AS-128
  327. 10030 OU$=OU$+CHR$(AS):NEXT:RETURN
  328. 18999 REM DATEN FUER EIGENE ANPASSUNG         GEOS 1.2 (9 STK.)
  329. 19000 DATA32236
  330. 19005 DATA31530
  331. 19010 DATA31319
  332. 19015 DATA31316
  333. 19020 DATA31303
  334. 19025 DATA31300
  335. 19030 DATA31603
  336. 19035 DATA31616
  337. 19040 DATA32236
  338. 19999 REM DATEN FUER FX-80 UND NL-10          GEOS 1.2 (25 STK.)
  339. 20000 DATA31020,31034,31048
  340. 20005 DATA31348
  341. 20010 DATA30976,76,30977,198,30978,122
  342. 20015 DATA31304,31305,51
  343. 20020 DATA32236
  344. 20025 DATA31320,7,31322,3
  345. 20030 DATA31333,147,31334,122
  346. 20035 DATA31466,67
  347. 20040 DATA32241
  348. 20999 REM DATEN FUER EIGENE ANPASSUNG         GEOS 1.3 (14 STK.)
  349. 21000 DATA32487
  350. 21005 DATA31737
  351. 21010 DATA31509
  352. 21015 DATA31506
  353. 21017 DATA31887
  354. 21020 DATA31451
  355. 21025 DATA31435
  356. 21030 DATA31823
  357. 21035 DATA31836
  358. 21040 DATA32487
  359. 21045 DATA31252
  360. 21050 DATA31242
  361. 21055 DATA31456
  362. 21060 DATA31448
  363. 21999 REM DATEN FUER FX-80 UND NL-10          GEOS 1.3 (26 STK.)
  364. 22000 DATA31031,31045,31059
  365. 22010 DATA31538
  366. 22020 DATA30976,76,30977,132,30978,123
  367. 22025 DATA31452,31453,51
  368. 22030 DATA 32487
  369. 22035 DATA31510,7,31512,3
  370. 22040 DATA31523,81,31524,123
  371. 22045 DATA31278
  372. 22047 DATA31656,10
  373. 22050 DATA32493
  374. 22999 REM DATEN FUER EIGENE ANPASSUNG         GEOS 1.3 (13 STK.) NL
  375. 23000 DATA32498
  376. 23005 DATA31698
  377. 23010 DATA31527
  378. 23015 DATA31524
  379. 23017 DATA31916
  380. 23020 DATA31452
  381. 23025 DATA31439
  382. 23030 DATA31852
  383. 23035 DATA31865
  384. 23040 DATA32498
  385. 23045 DATA31256
  386. 23050 DATA31246
  387. 23055 DATA31444
  388. 23060 DATA31449
  389. 23999 REM DATEN FUER NL-10                    GEOS 1.3
  390. 24000 DATA 31524,5
  391. 24002 DATA31288,103,31289,123
  392. 24005 DATA31035,31049,31063
  393. 24010 DATA31560
  394. 24020 DATA30976,76,30977,166,30978,123
  395. 24025 DATA31453,31454,51
  396. 24030 DATA 32498
  397. 24035 DATA31178,67
  398. 24040 DATA31346,45
  399. 24045 DATA31595
  400. 24050 DATA31285
  401. 24060 DATA32504
  402.