home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos26.d64 / geodruck (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  127 lines
  1. 1000 REM * GEODRUCK *
  2. 1010 REM * F.W. (C)03.1989/08.1989 *
  3. 1020 POKE53280,2:POKE53281,9:POKE646,7
  4. 1030 DIMNO(64,2)
  5. 1040 PRINTCHR$(147);CHR$(14)
  6. 1050 PRINT"              ************"
  7. 1060 PRINT"              *          *"
  8. 1070 PRINT"              * [199]EODRUCK *"
  9. 1080 PRINT"              *          *"
  10. 1090 PRINT"              ************"
  11. 1100 PRINT"              *   [198].[215].   *"
  12. 1110 PRINT"              ************":PRINT:PRINT
  13. 1120 PRINT"        [194]ITTE [196]ISKETTE EINLEGEN":PRINT
  14. 1130 PRINT"        UND EINE [212]ASTE DRUECKEN !"
  15. 1140 GETA$:IFA$=""THEN1140
  16. 1150 OPEN5,8,15,"I"
  17. 1160 OPEN3,8,3,"#"
  18. 1170 T=18:S=1
  19. 1180 PRINT:PRINT:PRINT:PRINT
  20. 1190 INPUT" [212]EXTNAME: ";SC$
  21. 1200 SG$=""
  22. 1210 FORI=1TOLEN(SC$)
  23. 1220 A=ASC(MID$(SC$,I,1))
  24. 1230 GOSUB2200
  25. 1240 SG$=SG$+CHR$(A)
  26. 1250 NEXTI
  27. 1260 PRINT#5,"U1:"3;0;T;S
  28. 1270 PRINT#5,"B-P:"3;0
  29. 1280 GOSUB2180:NT=A
  30. 1290 GOSUB2180:NS=A
  31. 1300 BP=2:GE=0:
  32. 1310 FORI=1TO8:
  33. 1320 PRINT#5,"B-P:"3;BP
  34. 1330 GOSUB2180:FT=A:
  35. 1340 GOSUB2180:TT=A:
  36. 1350 GOSUB2180:SS=A:
  37. 1360 FI$=""
  38. 1370 IFFT=0THEN1440
  39. 1380 FORJ=1TO16:GOSUB2180
  40. 1390 IFA=160THENJ=16:GOTO1410
  41. 1400 FI$=FI$+A$:
  42. 1410 NEXTJ
  43. 1420 PRINTFI$
  44. 1430 IFFI$=SG$THENPRINT" GEFUNDEN !",TT,SS:I=10:GE=1:GOTO1450
  45. 1440 BP=BP+32
  46. 1450 NEXTI
  47. 1460 IFGE=0THENIFNT>0THENT=NT:S=NS:GOTO1260
  48. 1470 IFGE=0THENPRINT" [204]EIDER KEIN ";SC$;" GEFUNDEN !":CLOSE5:END
  49. 1480 IFTT<0ORTT>35THENPRINT" [198]EHLER !":END
  50. 1490 PRINT#5,"U1:"3;0;TT;SS
  51. 1500 ANZ=0:BP=2
  52. 1510 PRINT#5,"B-P:"3;BP
  53. 1520 GOSUB2180:NT=A:PRINTNT
  54. 1530 GOSUB2180:NS=A:PRINTNS
  55. 1540 IFNT<1ORNT>35ORNS>21THEN1580
  56. 1550 NO(AN,1)=NT:NO(AN,2)=NS:PRINTNT,NS
  57. 1560 AN=AN+1:BP=BP+2:
  58. 1570 IFAN<64THEN1510
  59. 1580 IFAN=0THENPRINT" [203]EINE [211]EITEN !":CLOSE5:END
  60. 1590 INPUT" [194]ILDSCHIRM / [196]RUCKER ? (B/D) ";N$
  61. 1600 IFN$<>"D"ANDN$<>"B"THEN1590
  62. 1610 IFN$<>"D"THEN1640
  63. 1620 OPEN1,4,2:
  64. 1630 PRINT#1,CHR$(27)CHR$(64)
  65. 1640 FORI=0TOAN-1
  66. 1650 IFN$="B"THENPRINT"------------------------------"
  67. 1660 IFN$="D"THENPRINT#1,"------------------------------";CHR$(10)
  68. 1670 IFN$="B"THENPRINT" [211]EITE: ";I+1
  69. 1680 IFN$="D"THENPRINT#1," [211]EITE: ";I+1;CHR$(10)
  70. 1690 X=1:PO=22
  71. 1700 T=NO(I,1):S=NO(I,2)
  72. 1710 IFT<1ORT>35THENPRINT" [198]EHLER !":CLOSE1:CLOSE5:END
  73. 1720 PRINT#5,"U1:"3;0;T;S
  74. 1730 PRINT#5,"B-P:"3;0
  75. 1740 GOSUB2180:TT=A
  76. 1750 GOSUB2180:SS=A
  77. 1760 MA=255
  78. 1770 PRINT#5,"B-P:3;PO
  79. 1780 [139]TT[178]0[167]MA[178]SS[171]1
  80. 1790 [141]2180:PO[178]PO[170]1
  81. 1800 [139]A[179][177]23[167]1960
  82. 1810 [129]K[178]1[164]3
  83. 1820 PO[178]PO[170]1:[139]PO[177]MA[167]1860
  84. 1830 [141]2180
  85. 1840 SA(K)[178]A
  86. 1850 [130]K:[137]1790
  87. 1860 T[178]TT:S[178]SS:[139]TT[178]0[167][153]" ASCEHLER !":[160]5:[128]
  88. 1870 [152]5,"U1:"3;0;T;S
  89. 1880 [152]5,"B-P:"3;O
  90. 1890 [141]2180:TT[178]A
  91. 1900 [141]2180:SS[178]A
  92. 1910 MA[178]255
  93. 1920 PO[178]2
  94. 1930 [152]5,"B-P:"3;PO
  95. 1940 [139]TT[178]0[167]MA[178]SS
  96. 1950 [137]1830
  97. 1960 [139]A[179][177]12[167]2010
  98. 1970 [139]N$[178]"D"[167][152]1,[199](13)[199](10)
  99. 1980 [139]N$[178]"B"[167][153][199](13)[199](10)
  100. 1990 [139]N$[178]"D"[167][152]1,"----------------------------------------";[199](10)
  101. 2000 [139]N$[178]"B"[167][153]"----------------------------------------"
  102. 2010 [139]A[178]0[167][153]" ASCEHLER !":[160]5:[128]
  103. 2020 [141]2230
  104. 2030 [139]N$[178]"B"[167][139]A[177]31[167][153][199](A);
  105. 2040 [139]N$[178]"D"[167][139]A[177]31[167][152]1,[199](A);
  106. 2050 [139]N$[178]"B"[167][139]A[178]13[167]X[178]1:[153][199](A);
  107. 2060 [139]N$[178]"D"[167][139]A[178]13[167]X[178]1:[152]1,[199](A);
  108. 2070 [139]N$[178]"B"[167][139]X[177]30[167][139]A[178]32[167]:X[178]1:[153][199](13);
  109. 2080 [139]N$[178]"D"[167][139]X[177]30[167][139]A[178]32[167]:X[178]1:[152]1,[199](13);[199](10)
  110. 2090 X[178]X[170]1:[139]PO[179][178]MA[167][137]1790
  111. 2100 [139]TT[177]0[167]T[178]TT:S[178]SS:PO[178]2:[137]1720
  112. 2110 [139]N$[178]"D"[167][152]1,[199](13);[199](10)
  113. 2120 [139]N$[178]"D"[167]2150
  114. 2130 [153]:[133]" (null)AECHSTE (null)EITE    Q = VALNDE ";M$
  115. 2140 [139]M$[178]"Q"[167]I[178]AN
  116. 2150 [130]I
  117. 2160 [160]1:[160]3:[160]5
  118. 2170 [128]
  119. 2180 [161]#3,A$:A[178][198](A$[170][199](0))
  120. 2190 [142]
  121. 2200 [139]A[177]64[175]A[179]91[167]A[178]A[170]32:[142]
  122. 2210 [139]A[177]192[175]A[179]219[167]A[178]A[171]128:[142]
  123. 2220 [142]
  124. 2230 [139]A[177]64[175]A[179]91[167]A[178]A[170]128:[142]
  125. 2240 [139]A[177]96[175]A[179]123[167]A[178]A[171]32:[142]
  126. 2250 [142]
  127.