_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

KUEHL.LIST

FILE INFORMATION

FILENAME(S): KUEHL.LIST

FILE TYPE(S): SEQ

FILE SIZE: 660b

FIRST SEEN: 2025-11-30 01:08:01

APPEARS ON: 6 disk(s)

FILE HASH

6a66a6ac1d8753bd6bdd89f63024c064fdc834fedaa52f0c079448cc074f4117

FOUND ON DISKS (6 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C OMAL KUEHL.LIST SEQ Treasure Chest - Wolfgang Rauprich 30 1 DOWNLOAD FILE
FREEWARE DISK NR KUEHL.LIST SEQ Treasure Chest - Wolfgang Rauprich 30 1 DOWNLOAD FILE
COMAL 0 14 KUEHL.LIST SEQ Treasure Chest - Wolfgang Rauprich 31 1 DOWNLOAD FILE
C OMAL 0 14 KUEHL.LIST SEQ Treasure Chest - Wolfgang Rauprich 31 1 DOWNLOAD FILE
C OMAL KUEHL.LIST SEQ Treasure Chest - Wolfgang Rauprich 30 1 DOWNLOAD FILE
FREESOFT DISK NR KUEHL.LIST SEQ Treasure Chest - Wolfgang Rauprich 30 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 20  CB 55 45 48 4C 2D C6 49  |0010 // .UEHL-.I|
00000010: 47 55 52 45 4E 0D 30 30  32 30 20 2F 2F 0D 30 30  |GUREN.0020 //.00|
00000020: 32 35 20 44 49 4D 20 57  45 52 54 45 28 31 3A 32  |25 DIM WERTE(1:2|
00000030: 30 29 0D 30 30 33 30 20  50 52 49 4E 54 20 43 48  |0).0030 PRINT CH|
00000040: 52 24 28 31 34 29 2C 22  93 22 0D 30 30 34 30 20  |R$(14),".".0040 |
00000050: 50 52 49 4E 54 20 22 CB  55 45 48 4C 2D C6 49 47  |PRINT ".UEHL-.IG|
00000060: 55 52 45 4E 22 0D 30 30  35 30 20 50 52 49 4E 54  |UREN".0050 PRINT|
00000070: 20 22 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 22  | "............."|
00000080: 0D 30 30 36 30 20 50 52  49 4E 54 20 0D 30 30 37  |.0060 PRINT .007|
00000090: 30 20 49 4E 50 55 54 20  22 C2 45 52 45 49 43 48  |0 INPUT ".EREICH|
000000A0: 20 C1 4E 5A 41 48 4C 20  44 45 52 20 D7 45 52 54  | .NZAHL DER .ERT|
000000B0: 45 20 3A 22 3A 20 4E 31  2C 4E 32 0D 30 30 38 30  |E :": N1,N2.0080|
000000C0: 20 49 4E 50 55 54 20 22  C2 45 52 45 49 43 48 20  | INPUT ".EREICH |
000000D0: D7 45 47 4C 41 45 4E 47  45 4E 20 3A 22 3A 20 57  |.EGLAENGEN :": W|
000000E0: 45 47 27 4D 49 4E 2C 57  45 47 27 4D 41 58 0D 30  |EG'MIN,WEG'MAX.0|
000000F0: 30 39 30 20 52 45 50 45  41 54 20 0D 30 31 30 30  |090 REPEAT .0100|
00000100: 20 4E 3A 3D 52 4E 44 28  4E 31 2C 4E 32 29 0D 30  | N:=RND(N1,N2).0|
00000110: 31 31 30 20 46 4F 52 20  49 3A 3D 31 20 54 4F 20  |110 FOR I:=1 TO |
00000120: 4E 20 44 4F 20 57 45 52  54 45 28 49 29 3A 3D 52  |N DO WERTE(I):=R|
00000130: 4E 44 28 57 45 47 27 4D  49 4E 2C 57 45 47 27 4D  |ND(WEG'MIN,WEG'M|
00000140: 41 58 29 0D 30 31 32 30  20 5A 45 49 43 48 4E 45  |AX).0120 ZEICHNE|
00000150: 0D 30 31 32 35 20 55 4E  54 49 4C 20 45 53 43 0D  |.0125 UNTIL ESC.|
00000160: 30 31 33 30 20 53 45 54  54 45 58 54 20 0D 30 31  |0130 SETTEXT .01|
00000170: 34 30 20 45 4E 44 20 0D  30 31 35 30 20 2F 2F 0D  |40 END .0150 //.|
00000180: 30 31 36 30 20 50 52 4F  43 20 5A 45 49 43 48 4E  |0160 PROC ZEICHN|
00000190: 45 20 0D 30 31 37 30 20  2F 2F 20 53 45 54 47 52  |E .0170 // SETGR|
000001A0: 41 50 48 49 43 20 30 0D  30 31 37 31 20 42 41 43  |APHIC 0.0171 BAC|
000001B0: 4B 47 52 4F 55 4E 44 20  28 31 35 29 0D 30 31 37  |KGROUND (15).017|
000001C0: 32 20 42 4F 52 44 45 52  20 28 31 35 29 0D 30 31  |2 BORDER (15).01|
000001D0: 37 33 20 50 45 4E 43 4F  4C 4F 52 20 28 30 29 0D  |73 PENCOLOR (0).|
000001E0: 30 31 37 35 20 48 49 44  45 54 55 52 54 4C 45 20  |0175 HIDETURTLE |
000001F0: 0D 30 31 38 30 20 46 4F  52 20 49 3A 3D 31 20 54  |.0180 FOR I:=1 T|
00000200: 4F 20 34 20 44 4F 0D 30  31 39 30 20 46 4F 52 20  |O 4 DO.0190 FOR |
00000210: 4B 3A 3D 31 20 54 4F 20  4E 20 44 4F 0D 30 32 30  |K:=1 TO N DO.020|
00000220: 30 20 46 4F 52 57 41 52  44 20 28 57 45 52 54 45  |0 FORWARD (WERTE|
00000230: 28 4B 29 29 0D 30 32 31  30 20 52 49 47 48 54 20  |(K)).0210 RIGHT |
00000240: 28 39 30 29 0D 30 32 32  30 20 45 4E 44 46 4F 52  |(90).0220 ENDFOR|
00000250: 20 4B 0D 30 32 33 30 20  45 4E 44 46 4F 52 20 49  | K.0230 ENDFOR I|
00000260: 0D 30 32 34 30 20 46 4F  52 20 49 3A 3D 31 20 54  |.0240 FOR I:=1 T|
00000270: 4F 20 31 30 30 30 20 44  4F 20 4E 55 4C 4C 0D 30  |O 1000 DO NULL.0|
00000280: 32 35 30 20 45 4E 44 50  52 4F 43 20 5A 45 49 43  |250 ENDPROC ZEIC|
00000290: 48 4E 45 0D                                       |HNE.            |

0010 // KUEHL-FIGUREN.0020 //.0025 DIM W
ERTE(1:20).0030 PRINT CHR$(14),".".0040 
PRINT "KUEHL-FIGUREN".0050 PRINT "......
.......".0060 PRINT .0070 INPUT "BEREICH
 ANZAHL DER WERTE :": N1,N2.0080 INPUT "
BEREICH WEGLAENGEN :": WEG'MIN,WEG'MAX.0
090 REPEAT .0100 N:=RND(N1,N2).0110 FOR 
I:=1 TO N DO WERTE(I):=RND(WEG'MIN,WEG'M
AX).0120 ZEICHNE.0125 UNTIL ESC.0130 SET
TEXT .0140 END .0150 //.0160 PROC ZEICHN
E .0170 // SETGRAPHIC 0.0171 BACKGROUND 
(15).0172 BORDER (15).0173 PENCOLOR (0).
0175 HIDETURTLE .0180 FOR I:=1 TO 4 DO.0
190 FOR K:=1 TO N DO.0200 FORWARD (WERTE
(K)).0210 RIGHT (90).0220 ENDFOR K.0230 
ENDFOR I.0240 FOR I:=1 TO 1000 DO NULL.0
250 ENDPROC ZEICHNE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL