home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 October / 64er_Magazin_88-10_1988_Markt__Technik_de_Side_A.d64 / blister (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  140 lines
  1. 100 goto330
  2. 110 print#3:ifdr=0thenreturn
  3. 120 print#4:return
  4. 130 ou=3:af=-1
  5. 140 if ind+len(ze$)-6*(y4=0)+sp<81then170
  6. 150 a$=mid$(ze$,81+6*(y4=0)-ind-sp):ze$=left$(ze$,80+6*(y4=0)-ind-sp)
  7. 155 gosub130:pr=1:ze$=a$:ind=ind+sp-6*(y4=0)
  8. 160 gosub130:ind=ind-sp+6*(y4=0):ze$="":a$="":return
  9. 170 print#ou,spc(ind)ze$;
  10. 180 if af then if dr then af=not af:ou=4:ind=ind-sp*(y7=1):goto170
  11. 190 if dr then ind=ind+sp*(y7=1):y7=0
  12. 200 if pr then pr=0:y8=y8+1:goto110
  13. 210 return
  14. 220 :
  15. 230 ify5thengosub110:y5=0:y8=y8+1
  16. 240 i1=ind:ind=0:gosub130:ind=i1:ze$=""
  17. 250 ify4thenind=ind-6:y4=0
  18. 260 ify3thenind=ind+2:y3=0
  19. 270 ifdy=2thenind=ind+2:dy=1
  20. 275 gett$
  21. 280 return
  22. 290 :
  23. 300 x2=x:get#1,a$:x=asc(a$+n$):if(64andst)=0thenreturn
  24. 310 gosub110:gosub110:pr=1:ind=0:y7=1:ze$="[197]nde des [209]uelltextes.":gosub130:goto920
  25. 320 gosub300:x1=x:gosub300:x=x1+256*x:return
  26. 330 dim bf$(203):ind=0:dr=0:y8=3:y9=0:ze$=""
  27. 340 fori=1to203:read bf$(i):next
  28. 345 fori=828to923:read a:pokei,a:next
  29. 350 poke53280,0:poke53281,0
  30. 360 n$=chr$(0):i=0
  31. 370 printchr$(147)chr$(9)chr$(14)chr$(8)chr$(30);
  32. 380 print"          [212][211][194] - [198]ormat - [204]ister         ":print"":ifa$="j"then390
  33. 385 print"[201]nhalt (j/n) ? ";:poke204,0:poke198,0:wait198,1:geta$
  34. 386 poke205,2:wait207,1,1:poke204,1:printa$
  35. 388 ifa$="j"thenprint"[147]";:sys828:poke198,0:wait198,1:goto370
  36. 389 ifa$<>"n"thenprint"[145]";:goto385
  37. 390 print"[145]('i' fuer [201]nhalt, 'x' fuer [193]bbruch)":print:print
  38. 395 print"[145][194][146]ildschirm oder [196][146]rucker : ";
  39. 400 poke204,0:poke198,0:wait198,1
  40. 410 geta$:ifa$<>"b"anda$<>"d"anda$<>"x"anda$<>"i"goto400
  41. 420 poke205,2:wait207,1,1:poke204,1:ifa$="b"thenprint"[194]ildschirm":sp=0:goto440
  42. 425 ifa$="x"thenprint"[193]bbruch":print:goto920
  43. 427 ifa$="i"thena$="j":goto388
  44. 430 print"[196]rucker":dr=1:sp=8:open4,4,7
  45. 440 print
  46. 450 open3,3
  47. 460 open1,0:print"[208]rogrammname: ";:input#1,na$:close1:gosub110
  48. 470 open2,8,15:open1,8,2,na$+",p,r":gosub900 :gosub320:ifx=2049then490
  49. 480 gosub110:ze$="[196]as [208]rogramm liegt nicht am [194]asic-[211]tart.":y7=1:pr=1:gosub130:goto920
  50. 490 print"[147]";:zz=1:y7=1:ze$="[208]rogramm "+na$:pr=1:gosub130:gosub110:gosub110
  51. 500 gosub320:ifx=0then310
  52. 505 if y8<61 then 525
  53. 507 ifdr=0then525
  54. 510 fory0=y8+1to72:gosub110:next:y8=2:zz=zz+1
  55. 520 ze$="[211]eite"+str$(zz)+" von "+na$:i3=ind:ind=0:y7=1:pr=1:gosub130:gosub110:gosub110
  56. 522 ind=i3
  57. 525 gosub320:y7=1:ze$=right$("     "+str$(x),5)+" "
  58. 530 gosub230
  59. 535 ift$="x"thengosub110:gosub110:pr=1:ind=0:y7=1:ze$="[193]bgebrochen.":gosub130:goto920
  60. 540 ifze=0thenx=0:y=0:y1=0:y2=0:y3=0:sb=0:ze=1:ify9=2thenind=ind-2:y9=0
  61. 550 gosub300
  62. 560 ifx=131orx=143theny2=1-(x=131):ze$=ze$+bf$(x):a$=""
  63. 570 ifx2<>100andx=32andy2=0then550
  64. 580 ifx2=100andx=58then710
  65. 590 iflen(ze$)=0andx=58then550
  66. 600 ifx=255thenze$=ze$+"[255]":goto550
  67. 610 ify6andy1=0andx=44thenind=ind-2
  68. 630 ify1andx=58andy9=0theni=i+1:y9=2
  69. 635 ifx=58andy2=2theny2=0
  70. 637 if ind<0thenind=0:ze$=ze$+" => [198]ehler im [209]uelltext. [146] "
  71. 640 ifx=58andy2=0thenze$=ze$+a$:a$="":pr=1:i=i+y3:gosub130:ze$="":y6=0:y7=1
  72. 650 ifx=58andy2=0andy4=0theny4=1:ind=ind+6
  73. 660 ifitheny3=1:gosub260:i=i-1
  74. 670 ifx=0thenpr=1:ze=0:y6=0:gosub130:goto500
  75. 680 ifx2<>100andx=100andy2=0then550
  76. 690 ifx2<>100andx=34theny2=noty2
  77. 700 if(x2<>100)and(x<127)ory2thenze$=ze$+a$
  78. 710 ify2then550
  79. 720 ifx>127andx<204thenze$=ze$+bf$(x)
  80. 730 ifx2=100thenze$=ze$+bf$(x)
  81. 740 ifx=129andy1=0theny3=1:goto550
  82. 750 ifx=130andy1=0thenind=ind-2:y6=1:goto550
  83. 760 if(x=142orx=128orx=137orx=144orx=162)andy1=0theny5=1
  84. 770 ifx=128andy1=0thenind=0:ify4thenind=6
  85. 780 ifsbandx=167thensb=sb+1:goto550
  86. 790 ifx=139thensb=1:y1=1
  87. 800 ifx2<>100then550
  88. 810 if(x=37orx=50orx=52orx=55orx=57orx=67orx=108)andy1=0theny5=1
  89. 820 if(x=52andy1=0)orx=54orx=41or(x=71anddy=1)or(x=34anddy=1)thenind=ind-2
  90. 830 ifx=71anddy=1thendy=2
  91. 840 ifx=34anddy=1thendy=0
  92. 850 ifx=32orx=58orx=49orx=34theny3=1:ifx=34andsb=2thensb=sb+1:dy=1
  93. 860 ifx=49thenind=0:ify4thenind=6
  94. 870 ifx=34andsb=0theny3=0
  95. 880 goto550
  96. 890 :
  97. 900 input#2,a$,b$:ifa$="00"thenreturn
  98. 910 gosub110:y7=1:pr=1:ze$="[196]isk-[197]rror: "+b$:gosub130
  99. 920 close1:close2:close3:close4:end
  100. 930 :
  101. 940 data "[200][201][210][197][211] ","[208][204][207][212] ","[204][201][206][197] ","[194][204][207][195][203] ","[198][195][200][210] ","[198][195][207][204] ","[198][201][204][204] "
  102. 950 data "[210][197][195] ","[210][207][212] ","[196][210][193][215] ","[195][200][193][210] ","[200][201] [195][207][204] ","[201][206][214] ","[198][210][193][195] "
  103. 960 data "[205][207][214][197] ","[208][204][193][195][197]","[213][208][194] ","[213][208][215] ","[204][197][198][212][215] ","[204][197][198][212][194] ","[196][207][215][206][194] "
  104. 970 data "[196][207][215][206][215] ","[210][201][199][200][212][194] ","[210][201][199][200][212][215] ","[205][213][204][212][201] ","[195][207][204][207][213][210] ","[205][205][207][194] "
  105. 980 data "[194][198][204][193][211][200] "
  106. 990 data "[205][207][194] [211][197][212] ","[205][213][211][201][195] ","[198][204][193][211][200] ","[210][197][208][197][193][212] ","[208][204][193][217] ","[196][207]","[195][197][206][212][210][197] "
  107. 1000 data "[197][206][214][197][204][207][208][197] ","[195][199][207][212][207] ","[215][193][214][197] ","[198][197][212][195][200] ","[193][212](","[213][206][212][201][204] ",">> "
  108. 1010 data ">> ","[213][211][197] ",">> ","[199][204][207][194][193][204] ",">> ","[210][197][211][197][212] ", "[208][210][207][195] "
  109. 1020 data "[195][193][204][204] ","[197][216][197][195] ","[197][206][196] [208][210][207][195] ","[197][216][201][212] ","[197][206][196] [204][207][207][208] ","[207][206] [203][197][217] "
  110. 1030 data "[196][201][211][193][194][204][197] "
  111. 1040 data "[210][197][211][213][205][197] ","[204][207][207][208] ","[196][197][204][193][217] ",">> ",">> ",">> ",">> "
  112. 1050 data "[211][197][195][213][210][197] ","[196][201][211][193][208][193] ","[195][201][210][195][204][197] ","[207][206] [197][210][210][207][210] ","[206][207] [197][210][210][207][210] ","[204][207][195][193][204] "
  113. 1060 data "[210][195][207][205][208] "
  114. 1070 data "[197][204][211][197] ","[210][197][212][210][193][195][197] ","[212][210][193][195][197] ","[196][201][210] ","[208][193][199][197] ","[196][213][205][208] ","[198][201][206][196] "
  115. 1080 data "[207][208][212][201][207][206] ","[193][213][212][207] ","[207][204][196] ","[202][207][217]","[205][207][196]","[196][201][214]","[196]! "
  116. 1090 data "[196][213][208]","[201][206][203][197][217] ","[201][206][211][212]","[212][197][211][212]","[204][201][206] ","[197][216][207][210]","[201][206][211][197][210][212]"
  117. 1100 data "[208][207][212]","[208][197][206][216] ",">> ","[208][197][206][217] ","[211][207][213][206][196] ","[199][210][193][208][200][201][195][211] ","[196][197][211][201][199][206] "
  118. 1110 data "[210][204][207][195][205][207][194] ","[195][205][207][194] ","[194][195][203][199][206][196][211] ","[208][193][213][211][197] ","[206][210][205]","[205][207][194] [207][198][198] ","[207][198][198] "
  119. 1120 data "[193][206][199][204] ","[193][210][195] ","[195][207][204][196] ","[211][195][210][211][214] ","[211][195][210][204][196] ","[212][197][216][212] ","[195][211][197][212] "
  120. 1130 data "[214][207][204] ","[196][201][211][203] ","[200][210][196][195][208][217] ","[203][197][217] ","[208][193][201][206][212] ","[204][207][215] [195][207][204] ","[195][207][208][217] "
  121. 1140 data "[205][197][210][199][197] ","[210][197][206][213][205][194][197][210] ","[205][197][205] ","[196][197][212][197][195][212] ","[195][200][197][195][203]","[196][201][211][208][204][193][217] ","[197][210][210]"
  122. 1150 data "[207][213][212] ","[197][206][196] ","[198][207][210] ","[206][197][216][212] ","[196][193][212][193] ","[201][206][208][213][212]#","[201][206][208][213][212] "
  123. 1160 data "[196][201][205] ","[210][197][193][196] ","[204][197][212] ","[199][207][212][207] ","[210][213][206] ","[201][198] ","[210][197][211][212][207][210][197] "
  124. 1170 data "[199][207][211][213][194] ","[210][197][212][213][210][206] ","[210][197][205] ","[211][212][207][208] ","[207][206] ","[215][193][201][212] ","[204][207][193][196] "
  125. 1180 data "[211][193][214][197] ","[214][197][210][201][198][217] ","[196][197][198] ","[208][207][203][197] ","[208][210][201][206][212]#","[208][210][201][206][212] ","[195][207][206][212] "
  126. 1190 data "[204][201][211][212] ","[195][204][210] ","[195][205][196] ","[211][217][211] ","[207][208][197][206] ","[195][204][207][211][197] ","[199][197][212] "
  127. 1200 data "[206][197][215] ","[212][193][194]("," [212][207] ","[198][206] ","[211][208][195]("," [212][200][197][206] "," [206][207][212] "
  128. 1210 data " [211][212][197][208] ","+","-","*","/","^"," [193][206][196] "
  129. 1220 data " [207][210] ",">","=","<","[211][199][206]","[201][206][212]","[193][194][211]"
  130. 1230 data "[213][211][210]","[198][210][197]","[208][207][211]","[211][209][210]","[210][206][196]","[204][207][199]","[197][216][208]"
  131. 1240 data "[195][207][211]","[211][201][206]","[212][193][206]","[193][212][206]","[208][197][197][203]","[204][197][206]","[211][212][210]$"
  132. 1250 data "[214][193][204]","[193][211][195]","[195][200][210]$","[204][197][198][212]$","[210][201][199][200][212]$","[205][201][196]$","[199][207] "
  133. 1260 :
  134. 32000 data162,155,160,3,169,1,32,189,255,169,1,162,8,160,0,32,186,255,32,192
  135. 32001 data255,162,1,32,198,255,162,5,32,207,255,202,208,250,133,99,32,207
  136. 32002 data255,133,98,32,209,189,32,207,255,166,144,240,4,32,144,3,96,32,210
  137. 32003 data255,201,34,208,238,32,225,255,240,240,32,207,255,32,210,255,208
  138. 32004 data243,169,13,32,210,255,162,3,208,200,32,204,255,169,1,32,195,255
  139. 32005 data76,204,255,36
  140.