home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / testdemo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  10KB  |  310 lines
  1. 1 REM *********************************
  2. 2 REM ** 'TESTDEMO' DEMONSTRATIONS-  **
  3. 3 REM **  PROGRAMM        FUER       **
  4. 4 REM ** 'GR2001'  -   BEFEHLE       **
  5. 5 REM ** --------------------------- **
  6. 6 REM ** DR.H.DOMES           (1986) **
  7. 7 REM ** JOSEF MARX STR. 13          **
  8. 8 REM ** A - 8043 GRAZ / AUSTRIA     **
  9. 9 REM *********************************
  10. 20 LE$="                   "
  11. 30 DEFFNBO(WI)=WI*2*(null)/360
  12. 250 GOTO700
  13. 300 POKE198,0:WAIT198,1:(null) :RETURN
  14. 350 (null)ZM,X0,Y0,X1,Y1   :RETURN
  15. 360 (null)ZM,X0,Y0,FNBO(WI),L1,L2:RETURN
  16. 400 (null)ZM,X0,Y0,X1,Y1,RI,SW:RETURN
  17. 450 (null) ZM,R,B,H,V,A,X0,Y0,A$ :RETURN
  18. 500 (null)ZM,X1%,Y1%,X2%,Y2%:RETURN
  19. 520 (null)HV,SZ,OF:RETURN
  20. 550 IFZX<40ANDZY<25THENPOKE214,ZY:POKE211,ZX:SYS58640
  21. 600 RETURN
  22. 650 REM******************************
  23. 700 (null)1:(null)4,0:(null):PRINT"[147][156]";CHR$(8)
  24. 750 FORX=0TO319STEP8:FORY=00TO68STEP8 :(null)X,Y,1,2:(null)X,199-Y,1,2
  25. 800 (null)X,71+Y,2,1:NEXT:NEXT:(null)255
  26. 900 ZM=2:R=1:B=2:H=3:V=15:A=16:X0=46:Y0=10:READA$:GOSUB450
  27. 950 :
  28. 1000 (null)5,2:ZM=0:R=1:B=2:H=3:V=15:A=16:X0=46 :Y0=40:READA$:GOSUB450
  29. 1050 :
  30. 1100 ZM=2:R=1:B=1:H=1:V=8 :A=16:X0=30:Y0=88:READA$:GOSUB450
  31. 1150 :
  32. 1200 ZM=0:R=1:B=2:H=3:V=15:A=16:X0=46:Y0=100:READA$:GOSUB450
  33. 1250 :
  34. 1300 (null)14,2
  35. 1350 ZM=0:R=1:B=2:H=3:V=15:A=16:X0=46:Y0=140:READA$:GOSUB450
  36. 1400 :
  37. 1450 ZM=2:R=1:B=1:H=1:V=8 :A=8 :X0=56:Y0=175:READA$:GOSUB450
  38. 1500 :(null)0,0
  39. 1550 READ X1,Y1,X2,Y2:(null)0,X1,Y1,X2,Y2:
  40. 1600 READ X1,Y1,X2,Y2:(null)0,X1,Y1,X2,Y2
  41. 1650 (null)0,0:
  42. 1660 GOSUB2050:POKE198,0
  43. 1700 GOSUB50170
  44. 1710 BL=1:(null)0:GOSUB50270
  45. 1719 REM-------------------------------
  46. 1720 ONI GOSUB 2150,2550,55000,6850,7400,52000,3800,3800,1800
  47. 1721 REM-------------------------------
  48. 1750 GOTO1710
  49. 1800 (null)255:(null)255:(null)
  50. 1810 PRINT"[147][144]BEEP:L[207]"CHR$(34)"GRA1"CHR$(34)",8":PRINT"RUN"
  51. 1820 POKE631,19:FORI=1TO3:POKE631+I,13:NEXT:POKE198,4:END
  52. 2001 REM****** VORSPANN ***************
  53. 2050 PRINT"[147]":(null):(null)4,0:(null)4,0:(null)0
  54. 2100 A$="DEMO     GRAFIK"
  55. 2110 ZM=0:R=1:B=1:H=1:V=0:A= 7:X0=01:Y0=02:GOSUB450
  56. 2115 A$="BEFEHLE:   2001 ":Y0=12:GOSUB450
  57. 2120 (null)0,0:Y=0:FORX=0TO70STEP8:IFPEEK(203)<>64THEN2140
  58. 2125 (null)X,Y:NEXT:PRINT"<TASTE>[146]";
  59. 2130 PRINT"":FORX=70TO80STEP2:IFPEEK(203)<>64THEN2140
  60. 2135 (null)X,Y:NEXT:PRINT"[156]":IFPEEK(203)=64THEN2100
  61. 2140 GOSUB300:(null):RETURN
  62. 2149 REM*****   RECHT   ***************
  63. 2150 (null):ZM=0:R=1:B=1:H=1:V=0:A= 8:X0=01:Y0=2:A$="RECHT"
  64. 2160 GOSUB450:(null)0,0:GOSUB300:(null)
  65. 2170 PRINT"[159]":(null)0,0:GOSUB300:PRINT"[156]"
  66. 2180 (null)
  67. 2199 REM*******************************
  68. 2200 Y0=PEEK(162)AND100:ZM=2:YZ=1:AX=2:AY=2:REM SCHRITTWEITE
  69. 2250 (null):(null)1
  70. 2300 FORX0=0TO159STEPAX:Y0=Y0+AY*YZ:IFY0>199THENYZ=-1:Y0=Y0+AY*YZ:(null)
  71. 2350 IFY0<0THENYZ=1:Y0=Y0+AY*YZ:(null)
  72. 2400 X1=319-X0:Y1=199-Y0:GOSUB350:NEXT
  73. 2450 IFAX<3THEN(null):AX=AX+2:GOTO2300
  74. 2460 GOSUB300:(null):RETURN
  75. 2500 REM*********************************
  76. 2550 (null):(null)1:ZM=0:X0=10:Y0=10:  R=1:H=2:B=2:A=16:V=2
  77. 2560 A$="STATISTIK DEMO":GOSUB450
  78. 2600 REM*********************************
  79. 2650 X0=10:Y0=190:R=1:H=1:B=1:A=08:V=1
  80. 2700 T =RND(-TI)
  81. 2750 FORI=1TO10:Y0(I)=RND(8)*160+30:NEXT:REM STATISTIKWERTE
  82. 2800 FORY=190TO30STEP-16:(null) 0,8,Y:(null)0,318,Y:NEXT:(null) 0,12,110:(null)0,315,110
  83. 2850 FORX=42TO312STEP28:(null)0,X,110:(null)0,X+1,110:      :NEXT
  84. 2900 (null) 0,190 :(null)0,30:REM 0=HORIZ
  85. 2950 (null) 1,8   :(null)1,318:REM 1=VERTIK.
  86. 2960 X0=296:Y0=106:R=1:H=1:B=1:A=08:V=1:ZM=1:A$="   [146]":GOSUB450
  87. 2970 ZM=0:A$="50%":GOSUB450
  88. 2980 A$="100%":X0=288:Y0=22:GOSUB450
  89. 2990 Z=0
  90. 3000 FORX1=40TO319STEP28:Z=Z+1:X0=X1-22:Y0=Y0(Z):Y1=190:YP%=100*(190.5-Y0)/160
  91. 3050 GOSUB350
  92. 3100 A$=STR$(YP%):A$=RIGHT$(A$,LEN(A$)-1) :Y0=Y1+2:X0=X0+2:
  93. 3150 :IFYP%<10THENX0=X0+8
  94. 3200 GOSUB450:NEXT
  95. 3250 RI=0:SW=3
  96. 3300 GOSUB300:(null)
  97. 3350 Z=0
  98. 3400 FORX1=40TO319STEP28:Z=Z+1:X0=X1-22:Y0=Y0(Z):Y1=190:YP%=100*(190-Y0)/160
  99. 3450 GOSUB400:NEXT
  100. 3500 RI=1:SW=2:GOSUB300
  101. 3600 Z=0
  102. 3650 FORX1=40TO319STEP28:Z=Z+1:X0=X1-22:Y0=Y0(Z):Y1=190
  103. 3700 GOSUB400:NEXT:GOSUB300
  104. 3710 Z=0:RI=1:SW=2
  105. 3715 FORX1=40TO319STEP28:ZM=2:Z=Z+1:X0=X1-22:Y0=Y0(Z):Y1=189
  106. 3720 GOSUB400:ZM=0:GOSUB350:NEXT
  107. 3750 GOSUB300:RETURN
  108. 3800 REM******************************
  109. 3810 PRINT"[147]":(null)0:(null)
  110. 3820 PRINT" DEMONSTRATION DISCREEN/GTSCREEN[146]"
  111. 3825 PRINT" ANLEITUNG: ";LE$
  112. 3830 PRINT"EDITIERMODUS   MENUEZEILE: GRUEN[156]"
  113. 3832 PRINT"<JOYSTICK FIRE>[146] : PUNKT SETZEN/LOESCHEN"
  114. 3833 PRINT"<RETURN>[146]        : ---------''----------"
  115. 3834 PRINT"<SPACE>[146]         : SETZ-/ LOESCHMODUS"
  116. 3835 PRINT"( GESETZTER PUNKT ERSCHEINT ALS [209]   )"
  117. 3836 PRINT"[159]AUSWAHL[156]:CURSOR AUF GEWUENSCHTE FUNKTION IN MENUEZEILE & <RETURN>[146]"
  118. 3837 PRINT"[154]GTSCREEN[156][146]: EDITIERTER AUSSCHNITT WIRD IN HIRES BILD EINGEFUEGT, ";
  119. 3838 PRINT"LOKALISIERT DURCH <RETURN>[146]/<FIRE>[146] DANN IN MENUEZEILE AUS-WAHL ";
  120. 3839 PRINT"<RETURN>[146]".
  121. 3840 PRINT"[158]HIRESAUSSCHNITT HOLEN : MENUE-ZEILE:GELB[156]"
  122. 3841 PRINT"AUSSCHNITTORT <RETURN>[146]/<FIRE>[146] DANN IN   MENUEZEILE AUSWAHL ";
  123. 3842 PRINT"<DISCREEN>[146] <RETURN>[146]."
  124. 3843 PRINT"ZM : ZEICHENMODUS: SETZ/LOESCH/INV"
  125. 3844 PRINT"<TASTE>[146][145]":GETE$:IFE$=""THENPOKE646,F1:F1=F1+1+15*(F1>=14):GOTO3844
  126. 3848 REM*******************************
  127. 3849 REM****** DISCREEN/GTSCREEN  *****
  128. 3850 PRINT"[147][156]"
  129. 3860 SE$(0)="RESET ":SE$(1)="SET   "
  130. 3900 WC$=CHR$(13):ZM=0:R=1:B=1:H=1:V=00:A=8:X0=00:Y0=00:A$="DI/GT":GOSUB450
  131. 3950 ZM=2:X0=00:Y0=8:H=2:A=6:A$="SCREEN":GOSUB450
  132. 4000 ZM=1:Y1%=8:Y2%=25:FORX1=0TO48STEP6:X1%=X1:X2%=X1:GOSUB500:NEXT
  133. 4050 (null)00,00
  134. 4100 ZX=0:ZY=24:GOSUB550
  135. 4150 PRINT"         / GTSCREEN /   INV   / MENUE /[156]";
  136. 4200 FORI=704TO704+63:POKEI,0:NEXT:K=0:FORI=39915TO39929:POKE704+K,PEEK(I):K=K+1:NEXT
  137. 4350 :
  138. 4400 (null)1:FL=51268:BC(0)=32:BC(1)=81:K=0
  139. 4450 KK=KK+1
  140. 4500 K=K-(K=0)+(K=1):(null):ZX=0:ZY=24:GOSUB550:PRINTSE$(K);
  141. 4600 REM*******************************
  142. 4650 POKEFL,0:(null)2:POKE51265,8:X1%=X%/8:Y1%=Y%/8:FI=PEEK(FL)
  143. 4700 IFPEEK(203)=60THEN4450
  144. 4720 GETW$
  145. 4750 IFY1%<24THEN5050
  146. 4800 IFX1%>32AND(FIORW$=WC$)THENFI=0:RETURN
  147. 4850 IFX1%<10AND(FIORW$=WC$)THENFI=0:GOTO4450
  148. 4900 IFX1%>10ANDX1%<20AND(FIORW$=WC$)THENFI=0:GOTO5550
  149. 4950 IFX1%>20ANDX1%<30AND(FIORW$=WC$)THENFI=0:(null):GOSUB5300
  150. 5000 GOTO4650
  151. 5050 P=X1%+40*Y1%:PE=PEEK(1024+P)
  152. 5150 IFFIORPEEK(203)=1THENPOKE(1024+P),BC(K):POKE(55296+P),4
  153. 5200 GOTO4650
  154. 5250 REM*****"INVERS********************
  155. 5300 [217]1:[204]:[227]0,0,0:[153]"WAIT" : [224]100,0:[233]
  156. 5320 [224]0,0:[233]:[217]1:[142]
  157. 5449 [143]*******************************
  158. 5450 [143]***** GTSCREEN  ***************
  159. 5500 [209]
  160. 5550 [237] 0,189:[208]1
  161. 5600 ZX[178]0:ZY[178]24:[141]550:[153]"SYS/ ZM      / GTSCREEN/ DISCREEN/ MENUE WAITCLR";
  162. 5650 ZX[178]5:[141]550:[153]Z1;:[151]51265,8
  163. 5700 [151]FL,0:[208]2:FI[178][194](FL)
  164. 5720 [161]W$
  165. 5750 [139]FI[176]W$[178]WC$[167][141]6550
  166. 5800 [139]Y%[179]190[176](FI[178]0[175]W$[179][177]WC$)[167]5700
  167. 5850 [209]:X1%[178]X%[173]8:Y1%[178]Y%[173]8
  168. 5900 :
  169. 5950 [139]X1%[177]0[175]X1%[179]10[167]Z1[178]Z1[170]1[170]3[172](Z1[177][178]2):ZX[178]5:ZY[178]24:[141]550:[153]Z1;
  170. 6000 :
  171. 6050 [139]X1%[177]10[175]X1%[179]20[175]RB[167]ZM[178]2:[141]350:[227]Z1,X0,Y0:RB[178]0
  172. 6100 :
  173. 6150 [139]X1%[177]20[175]X1%[179]30[175]RB[167]ZM[178]2:[141]350:[237]:[224]X0,Y0:RB[178]0:[137]4100
  174. 6200 :
  175. 6250 [139]X1%[177]30[175]X1%[179]40[167][137]7650
  176. 6300 :
  177. 6400 [151]51265,8:[143] STEP 8
  178. 6450 [137]5700
  179. 6500 :
  180. 6550 [139]X%[177]279[176]Y%[177]175[167][142]
  181. 6600 [139]RB[167]ZM[178]2:[141]350:RB[178]0
  182. 6650 [139]RB[178]0[167]ZM[178]2:X0[178]X%:Y0[178]Y%:X1[178]X%[170]40:Y1[178]Y%[170]24:[141]350:RB[178]1
  183. 6700 [151]51265,8
  184. 6750 [142]
  185. 6800 [143]****************************
  186. 6849 [143]*****   ENLARG    **********
  187. 6850 [204]:[205]4,0:[237]0,190:ZX[178]0:ZY[178]24:[141]550
  188. 6900 [153]"DEMO ENLARG :<TASTE>";:[141]300
  189. 6910 [141]6950:
  190. 6920 [129]I[178]0[164]2:[221]I:[141]300:[204]:[217]1:[130]
  191. 6930 [206]0:[209]255:[142]
  192. 6949 [143]----------"  MUSTER -----------
  193. 6950 AX=2:AY=2:REM SCHRITTWEITE
  194. 6955 Y0=PEEK(162)/2.5:ZM=2:YZ=1
  195. 7000 (null):(null)1
  196. 7050 FORX0=0TO158STEPAX:Y0=Y0+AY*YZ:IFY0>90THENYZ=-1:Y0=Y0+AY*YZ:(null)
  197. 7100 IFY0<0THENYZ=1:Y0=Y0+AY*YZ:(null)
  198. 7150 X1=158-X0:Y1=90-Y0:Y1=Y1*(1+(Y0>90))        :GOSUB350:NEXT
  199. 7200 IFAX<3THEN(null):AX=AX+2:GOTO7050
  200. 7250 (null)0,0:(null)1:(null):(null)1:(null):(null):(null)1:(null)4,0:RETURN
  201. 7251 REM-------------------------------
  202. 7398 REM*******************************
  203. 7399 REM**********"  MIRROR  **********
  204. 7400 [204]:[205]4,0
  205. 7460 ZM[178]0:R[178]1:A[178]8:B[178]1:H[178]2:V[178]0:X0[178]25:Y0[178]172:A$[178]"DEMO MIRROR ":[141]450
  206. 7462 X0[178]150:Y0[178]100:R[178]4:[141]450
  207. 7465 R[178]1:B[178]6:H[178]6:X0[178]25:Y0[178]120:A$[178]"_":[141]450
  208. 7466 [211]0,189:[211]1,159
  209. 7470 X0[178]250:Y0[178]120:A$[178]"^":[141]450
  210. 7480 AX[178]4:AY[178]4:[141]6955
  211. 7500 [217]:[204]:[218]1:SZ[178]40
  212. 7510 [237]0,190
  213. 7520 [129]HV[178]0[164]1:[129]OF[178]0[164]3:[129]SZ[178]0[164]40[169]10
  214. 7522 [237]:[206]1:[141]520:[141]7680:[237]0,190
  215. 7525 [129]UU[178]0[164]1000:[130]
  216. 7530 [204]:[218]1:[161]W$:[139]W$[178]"*"[167]HV[178]1:OF[178]3:SZ[178]40:[209]:[209]
  217. 7532 [130]:[130]:[130]
  218. 7535 [141]550:[153]"<TASTE> MENUE"LE$;:[141]300:
  219. 7649 [143]------------------------
  220. 7650 [237]:[209]255:[142]
  221. 7651 [143]------------------------
  222. 7680 ZX[178]0:ZY[178]24:[141]550:[153]LE$LE$:[141]550
  223. 7685 [153]"MIRROR "HV" ,"SZ" ,"OF"   OPEN<*>CLRWAIT STOP";:[142]
  224. 7699 [143] ********************************
  225. 7700 [131] GRAFIK 2000, (C) F.BRENDEL
  226. 7750 [131] MODIFIED BY,DR.H.DOMES
  227. 7800 [131] GRAFIK 2001,MADE IN AUSTRIA
  228. 7850 [131] 5,5,314,70,   5,75, 314,194
  229. 50010 :
  230. 50020 :
  231. 50030 :
  232. 50040 [151]53280,0:[151]53281,0:[153]"CLR"
  233. 50050 [143]------------------------10.12.85-
  234. 50060 [143] MU$(...)AUSWAHLBEGRIFFE
  235. 50070 [143] TL$( ) TITEL FUER MENUESEITE
  236. 50080 [143] MI(BLOCK#) INDEX BEG.BLOCK IN MU$
  237. 50090 [143] "MB=MAXIM BLOCKANZAHL
  238. 50100 REM "NI= EINGABEZAHL
  239. 50110 [143] "NU=UNTERGRENZE, NO=OBERGRENZE
  240. 50120 REM "DATA STRUKTUR:
  241. 50130 [143] "^^" BLOCKBEGINN
  242. 50140 [143] "__" DATENENDENN
  243. 50150 [143] "*@" ZAHLENEINGABE,NU,NO
  244. 50160 [143]--------------------------------
  245. 50170 [134]MU$(80),MI(20),TL$(20)
  246. 50180 DI$(0)[178]"ONONON":DI$(1)[178]"":DI$(2)[178]"ON":     DI$(3)[178]""
  247. 50190 LE$[178]"                    "
  248. 50200 [143]--------------------------------
  249. 50210 I[178]0:ZI[178]1:[143]EINLESEN
  250. 50215 [135]MU$:[139]MU$[179][177]"!!"[167]50215
  251. 50220 [135]MU$
  252. 50230 [139]MU$[178]"^^"[167][135]TL$(ZI):MI(ZI)[178]I:     ZI[178]ZI[170]1:[137]50220
  253. 50240 [139]MU$[179][177]"__"[167]MU$(I)[178]MU$:I[178]I[170]1:[137]50220
  254. 50250 MI(ZI)[178]I:MB[178]ZI[171]1:[142]
  255. 50260 [143]--------------------------------
  256. 50270 :
  257. 50300 IB[178]MI(BL):IE[178]MI(BL[170]1)[171]1
  258. 50310 [153]"LOAD":[151]198,0:[141]50340
  259. 50320 [209]:[209]255: [142]
  260. 50330 [143]--------------------------------
  261. 50340 [153]""TL$(BL)DI$(3)
  262. 50350 [139]MU$(IB)[178]"*@"[167]50480
  263. 50360 [129]I[178]IB[164]IE:[153]MU$(I):[153]:[130]
  264. 50370 [153]""TL$(BL)DI$(3):I[178]IB:
  265. 50380 [153]""MU$(I)
  266. 50390 [161]W$:[139]W$[179][177]"ON"[175]W$[179][177]""[175]W$[179][177][199](13)[167]50390
  267. 50400 LI[178]I:[143] LETZTER I WERT
  268. 50410 [139]W$[178][199](13)[167]I[178]I[171]IB[170]1:[142]
  269. 50420 [139]W$[178]""[167]I[178]I[170]1:ZI[178]1:[139]I[177]IE[167]I[178]IE:ZI[178]2
  270. 50430 [139]W$[178]"ON"[167]I[178]I[171]1:ZI[178]0:[139]I[179]IB[167]I[178]IB:ZI[178]2
  271. 50440 [153]"ON"MU$(LI):[153]DI$(ZI)""MU$(I)
  272. 50450 [137]50390
  273. 50460 [143]================================
  274. 50470 [143]================================
  275. 50480 NU[178][197](MU$(IB[170]1)):NO[178][197](MU$(IB[170]2))
  276. 50490 [129]I[178]0[164]2:[153]""LE$:[130]:[153]"ONONONCLR"
  277. 50500 [153][163]5)"    CMDCMDCMDCMD"NI"ON":[151]646,C:C[178]4
  278. 50510 [161]W$:[139]W$[178]""[167]C[178]5:NI[178]NI[170]1:[139]NO[179]NI[167]NI[178]NU
  279. 50520 [139]W$[178]"CMD"[167]C[178]2:NI[178]NI[171]1:[139]NI[179]NU[167]NI[178]NO
  280. 50530 [139]W$[178]""[167]C[178]2:NI[178]NI[171]10:[139]NI[179]NU[167]NI[178]NO
  281. 50540 [139]W$[178]"ON"[167]C[178]5:NI[178]NI[170]10:[139]NO[179]NI[167]NI[178]NU
  282. 50550 [139]W$[178][199](13)[167][142]:[143]=======
  283. 50560 [137]50500
  284. 50570 [143]================================
  285. 50580 [131] "!!":[143] STARTFLAG
  286. 50590 [131] "^^",DEMONSTRATION > GRAFIK 2001 <
  287. 50600 [131] RECHT,BLOCK,RORECHT,ENLARG,MIRROR,SPRPLOT,GTSCREEN,DISCREEN
  288. 50610 [131] "OPENENDECLR"
  289. 50640 [131] "__":[143] ENDFLAG
  290. 51999 [143]****" SPRPLOT        **********
  291. 52000 (null)1:(null)
  292. 52020 FORI=1TO3:N$="TESTSPRITE"+RIGHT$(STR$(I),1):(null)I,N$,8:NEXT
  293. 52050 FORY=0TO150STEP42:FORX=0TO280STEP72              
  294. 52080 FORI=1TO3:(null)I,0,X+24*(I-1),Y:NEXT:NEXT:NEXT
  295. 52150 FORI=4TO6:N$="TESTSPRITE"+RIGHT$(STR$(I),1):(null)I,N$,8:NEXT
  296. 52180 FORY=21TO171STEP42:FORX=0TO280STEP72:FORI=4TO6
  297. 52200 (null)I,0,X+24*(I-4),Y:NEXT:NEXT :NEXT:GOSUB300
  298. 52300 P1=1:FORII=0TO40:RN=RND(-TI):X=RND(8)*245:Y=RND(8)*145
  299. 52303 (null)P1,00:P1=P1+1+15*(P1>14)
  300. 52305 (null)1,X,Y,X+71,Y+41:(null)0,X,Y,X+71,Y+41
  301. 52310 FORI=1TO3:(null)I,0,X+(I-1)*24,Y:NEXT
  302. 52315 FORI=4TO6:(null)I,0,X+(I-4)*24,Y+21:NEXT
  303. 52320 NEXT:(null):(null)4,0:(null)255:RETURN
  304. 54999 REM **** "RORECHT" **************
  305. 55000 (null)1:(null)
  306. 55010 L1=50:L2=10:Y1=50:Y2=145:W1=0:W2=360:X2=310
  307. 55110 FORX1=0TO300STEP10:W1=W1+9:WI=W1:X0=X1:Y0=Y1:GOSUB360
  308. 55120 W2=W2-9:WI=W2:X2=X2-10:X0=X2:Y0=Y2:GOSUB360
  309. 55210 NEXT:(null)255:GOSUB300:(null)0:RETURN
  310.