/ 64'er 1991 Janurary / 64er_Magazin_91-01_1991_Markt__Technik_de_Side_A.d64 / uhr / c64.bas

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 22 4c 23 | 08 4c 48 08 4c d8 08 a9 |1 REM"L#|.LH.L...|
|00000010| 3b a2 08 a4 02 8d 11 d0 | 8e 18 d0 a2 01 98 9d ff |;.......|........|
|00000020| dc 60 a9 1b a2 15 a0 03 | d0 eb a9 e0 85 fb a5 02 |.`......|........|
|00000030| 85 fa a2 20 a8 91 fa c8 | d0 fb e6 fb ca d0 f5 60 |... ....|.......`|
|00000040| 00 0a 32 20 52 45 4d 22 | 20 fd ae 20 8a ad 20 aa |..2 REM"| .. .. .|
|00000050| b1 98 a0 c0 84 fb a4 02 | 84 fa a2 04 91 fa c8 d0 |........|........|
|00000060| fb e6 fb ca d0 f6 f0 c3 | 78 a9 34 85 01 a5 02 85 |........|x.4.....|
|00000070| f9 a5 fb 4a 4a 4a 85 fa | 0a 0a 65 fa 4a 66 f9 4a |...JJJ..|..e.Jf.J|
|00000080| 66 f9 69 e0 85 fa 4c 90 | 08 00 0a 33 20 52 45 4d |f.i...L.|...3 REM|
|00000090| 22 a5 14 29 f8 18 65 f9 | 85 f9 a5 15 65 fa 85 fa |"..)..e.|....e...|
|000000a0| a5 fb 29 07 a8 a5 14 29 | 07 aa bd d0 08 ae ff 03 |..)....)|........|
|000000b0| f0 0a 11 f9 91 f9 a9 37 | 85 01 58 60 85 f8 a9 ff |.......7|..X`....|
|000000c0| 38 e5 f8 31 f9 91 f9 4c | b5 08 00 0a 34 20 52 45 |8..1...L|....4 RE|
|000000d0| 4d 22 80 40 20 10 08 04 | 02 01 20 fd ae 20 9e b7 |M".@ ...|.. .. ..|
|000000e0| 8e ff 03 20 fd ae 20 eb | b7 86 fe 86 fb a5 14 85 |... .. .|........|
|000000f0| fc a5 15 85 fd 20 fd ae | 20 eb b7 86 63 a5 14 85 |..... ..| ...c...|
|00000100| 61 a5 15 85 62 a5 fc 85 | 14 a5 fd 85 15 d8 4c 16 |a...b...|......L.|
|00000110| 09 00 0a 35 20 52 45 4d | 22 38 a5 61 e5 14 85 68 |...5 REM|"8.a...h|
|00000120| a5 62 e5 15 85 69 10 1c | 49 ff 85 6a a5 68 49 ff |.b...i..|I..j.hI.|
|00000130| 18 69 01 85 68 a5 69 65 | 02 85 69 a9 ff 85 6c 85 |.i..h.ie|..i...l.|
|00000140| 6d 4c 53 09 a9 01 85 6c | 4c 4f 09 00 0a 36 20 52 |mLS....l|LO...6 R|
|00000150| 45 4d 22 a5 02 85 6d a5 | 69 d0 0d a5 68 d0 09 a5 |EM"...m.|i...h...|
|00000160| 02 85 64 85 65 4c 6a 09 | a9 ff 85 64 85 65 a5 02 |..d.eLj.|...d.e..|
|00000170| 85 6b 38 a5 63 e5 fb 85 | 6a a5 6b e5 02 85 6b 10 |.k8.c...|j.k...k.|
|00000180| 24 49 ff 85 6b a5 6a 49 | ff 18 69 01 85 6a 4c 94 |$I..k.jI|..i..jL.|
|00000190| 09 00 0a 37 20 52 45 4d | 22 a5 6b 65 02 85 6b a9 |...7 REM|".ke..k.|
|000001a0| ff 85 6e 4c a5 09 a9 01 | 85 6e a5 6b c5 69 90 0d |..nL....|.n.k.i..|
|000001b0| a5 6a c5 68 90 07 a9 ff | 85 66 4c bc 09 a9 01 85 |.j.h....|.fL.....|
|000001c0| 66 20 68 08 a5 fb c5 63 | d0 16 a5 14 c5 61 d0 10 |f h....c|.....a..|
|000001d0| a5 15 c5 62 d0 0a 4c 1b | 0a 00 0a 38 20 52 45 4d |...b..L.|...8 REM|
|000001e0| 22 a5 65 30 1b 38 a5 64 | e5 68 85 64 a5 65 e5 69 |".e0.8.d|.h.d.e.i|
|000001f0| 85 65 18 a5 fb 65 6e 85 | fb a5 66 30 c5 4c bf 09 |.e...en.|..f0.L..|
|00000200| 18 a5 64 65 6a 85 64 a5 | 65 65 6b 85 65 18 a5 14 |..dej.d.|eek.e...|
|00000210| 65 6c 85 14 a5 15 65 6d | 85 15 a5 66 10 a4 4c bf |el....em|...f..L.|
|00000220| 09 a5 02 a2 0d 95 60 ca | d0 fb 60 00 0a 39 20 53 |......`.|..`..9 S|
|00000230| 59 53 32 30 35 35 3a 50 | 4f 4b 45 35 33 32 38 31 |YS2055:P|OKE53281|
|00000240| 2c 30 3a 50 4f 4b 45 35 | 33 32 38 30 2c 30 3a 50 |,0:POKE5|3280,0:P|
|00000250| 52 49 4e 54 22 93 9b 20 | 20 22 54 49 24 3a 49 4e |RINT".. | "TI$:IN|
|00000260| 50 55 54 22 13 22 3b 54 | 49 24 3a 52 28 30 29 3d |PUT".";T|I$:R(0)=|
|00000270| 35 35 3a 49 3d 31 34 39 | 3a 55 3d 39 39 0a 31 30 |55:I=149|:U=99.10|
|00000280| 20 53 59 53 32 30 35 38 | 2c 31 36 3a 46 4f 52 41 | SYS2058|,16:FORA|
|00000290| 3d 2a 2a 2a 45 52 52 4f | 52 2a 2a 2a 2f 36 54 4f |=***ERRO|R***/6TO|
|000002a0| 2a 2a 2a 45 52 52 4f 52 | 2a 2a 2a 2a 32 53 54 45 |***ERROR|****2STE|
|000002b0| 50 2a 2a 2a 45 52 52 4f | 52 2a 2a 2a 2f 36 3a 58 |P***ERRO|R***/6:X|
|000002c0| 3d 43 4f 53 28 41 29 2a | 38 32 3a 59 3d 53 49 4e |=COS(A)*|82:Y=SIN|
|000002d0| 28 41 29 2a 38 32 3a 4b | 3d 43 4f 53 28 41 29 2a |(A)*82:K|=COS(A)*|
|000002e0| 55 3a 4e 3d 35 34 32 37 | 32 0a 31 31 20 4d 3d 53 |U:N=5427|2.11 M=S|
|000002f0| 49 4e 28 41 29 2a 55 3a | 53 59 53 32 30 36 34 3a |IN(A)*U:|SYS2064:|
|00000300| 52 28 31 29 3d 37 37 3a | 52 28 32 29 3d 38 30 3a |R(1)=77:|R(2)=80:|
|00000310| 49 46 4b 3c 58 54 48 45 | 4e 43 3d 58 3a 58 3d 4b |IFK<XTHE|NC=X:X=K|
|00000320| 3a 4b 3d 43 3a 43 3d 59 | 3a 59 3d 4d 3a 4d 3d 43 |:K=C:C=Y|:Y=M:M=C|
|00000330| 3a 54 28 30 29 3d 36 35 | 0a 31 32 20 53 59 53 32 |:T(0)=65|.12 SYS2|
|00000340| 30 36 31 2c 31 2c 58 2b | 49 2c 59 2b 55 2c 4b 2b |061,1,X+|I,Y+U,K+|
|00000350| 49 2c 4d 2b 55 3a 4e 45 | 58 54 3a 4f 3d 56 41 4c |I,M+U:NE|XT:O=VAL|
|00000360| 28 4d 49 44 24 28 54 49 | 24 2c 33 2c 32 29 29 3a |(MID$(TI|$,3,2)):|
|00000370| 50 4f 4b 45 4e 2b 32 34 | 2c 39 35 3a 54 28 31 29 |POKEN+24|,95:T(1)|
|00000380| 3d 31 37 0a 31 33 20 46 | 4f 52 54 3d 30 54 4f 32 |=17.13 F|ORT=0TO2|
|00000390| 3a 5a 28 54 29 3d 56 41 | 4c 28 4d 49 44 24 28 54 |:Z(T)=VA|L(MID$(T|
|000003a0| 49 24 2c 54 2a 32 2b 31 | 2c 32 29 29 3a 49 46 41 |I$,T*2+1|,2)):IFA|
|000003b0| 54 48 45 4e 50 4f 4b 45 | 4e 2b 31 2c 31 30 3a 50 |THENPOKE|N+1,10:P|
|000003c0| 4f 4b 45 4e 2b 35 2c 33 | 34 3a 50 4f 4b 45 4e 2b |OKEN+5,3|4:POKEN+|
|000003d0| 36 2c 31 35 0a 31 34 20 | 4e 45 58 54 3a 54 24 3d |6,15.14 |NEXT:T$=|
|000003e0| 54 49 24 3a 5a 28 30 29 | 3d 5a 28 30 29 2a 35 2b |TI$:Z(0)|=Z(0)*5+|
|000003f0| 49 4e 54 28 5a 28 31 29 | 2f 31 32 29 3a 51 3d 5a |INT(Z(1)|/12):Q=Z|
|00000400| 28 32 29 3a 50 3d 30 3a | 49 46 5a 28 31 29 3c 3e |(2):P=0:|IFZ(1)<>|
|00000410| 4f 54 48 45 4e 4f 3d 5a | 28 31 29 3a 50 3d 31 0a |OTHENO=Z|(1):P=1.|
|00000420| 31 35 20 46 4f 52 41 3d | 32 54 4f 30 53 54 45 50 |15 FORA=|2TO0STEP|
|00000430| 2d 31 3a 4b 3d 49 3a 4d | 3d 55 3a 57 3d 2a 2a 2a |-1:K=I:M|=U:W=***|
|00000440| 45 52 52 4f 52 2a 2a 2a | 2a 31 2e 35 2b 5a 28 41 |ERROR***|*1.5+Z(A|
|00000450| 29 2a 2a 2a 2a 45 52 52 | 4f 52 2a 2a 2a 2f 33 30 |)****ERR|OR***/30|
|00000460| 3a 59 3d 53 49 4e 28 57 | 29 2a 52 28 41 29 2b 4d |:Y=SIN(W|)*R(A)+M|
|00000470| 3a 58 3d 43 4f 53 28 57 | 29 2a 52 28 41 29 2b 4b |:X=COS(W|)*R(A)+K|
|00000480| 0a 31 36 20 42 3d 32 2d | 41 3a 53 3d 49 4e 54 28 |.16 B=2-|A:S=INT(|
|00000490| 5a 28 41 29 2f 31 35 29 | 3a 53 3d 2d 28 53 2f 32 |Z(A)/15)|:S=-(S/2|
|000004a0| 2d 49 4e 54 28 53 2f 32 | 29 29 2a 34 2b 31 3a 49 |-INT(S/2|))*4+1:I|
|000004b0| 46 4b 3e 58 54 48 45 4e | 4b 3d 58 3a 58 3d 49 3a |FK>XTHEN|K=X:X=I:|
|000004c0| 4d 3d 59 3a 59 3d 55 0a | 31 37 20 46 4f 52 54 3d |M=Y:Y=U.|17 FORT=|
|000004d0| 2d 42 2b 31 54 4f 42 3a | 43 3d 54 2a 53 3a 49 46 |-B+1TOB:|C=T*S:IF|
|000004e0| 41 3d 32 54 48 45 4e 50 | 4f 4b 45 4e 2b 34 2c 30 |A=2THENP|OKEN+4,0|
|000004f0| 3a 50 4f 4b 45 4e 2b 34 | 2c 54 28 50 29 0a 31 38 |:POKEN+4|,T(P).18|
|00000500| 20 49 46 50 4f 52 41 3d | 32 54 48 45 4e 45 3d 54 | IFPORA=|2THENE=T|
|00000510| 2a 53 28 41 29 3a 53 59 | 53 32 30 36 31 2c 30 2c |*S(A):SY|S2061,0,|
|00000520| 47 28 41 29 2b 54 2c 48 | 28 41 29 2b 45 2c 49 28 |G(A)+T,H|(A)+E,I(|
|00000530| 41 29 2b 54 2c 4a 28 41 | 29 2b 45 0a 31 39 20 53 |A)+T,J(A|)+E.19 S|
|00000540| 59 53 32 30 36 31 2c 31 | 2c 4b 2b 54 2c 4d 2b 43 |YS2061,1|,K+T,M+C|
|00000550| 2c 58 2b 54 2c 59 2b 43 | 3a 4e 45 58 54 54 3a 53 |,X+T,Y+C|:NEXTT:S|
|00000560| 28 41 29 3d 53 3a 49 28 | 41 29 3d 58 3a 4a 28 41 |(A)=S:I(|A)=X:J(A|
|00000570| 29 3d 59 3a 47 28 41 29 | 3d 4b 3a 48 28 41 29 3d |)=Y:G(A)|=K:H(A)=|
|00000580| 4d 3a 4e 45 58 54 41 0a | 32 30 20 41 3d 30 3a 47 |M:NEXTA.|20 A=0:G|
|00000590| 45 54 41 24 3a 4f 4e 28 | 41 24 3d 22 22 29 2b 33 |ETA$:ON(|A$="")+3|
|000005a0| 2b 28 54 49 24 3d 54 24 | 29 47 4f 54 4f 32 30 2c |+(TI$=T$|)GOTO20,|
|000005b0| 31 33 2c 39 0a 39 39 39 | 39 20 52 45 4d 20 20 53 |13,9.999|9 REM  S|
|000005c0| 41 56 45 22 40 3a 55 48 | 52 22 2c 38 20 20 20 20 |AVE"@:UH|R",8    |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005e0| 20 3a 52 45 4d 20 20 41 | 55 47 55 53 54 20 53 43 | :REM  A|UGUST SC|
|000005f0| 48 57 41 42 2c 20 41 2d | 38 30 31 30 20 47 52 41 |HWAB, A-|8010 GRA|
|00000600| 5a 0a                   |                         |Z.      |        |
+--------+-------------------------+-------------------------+--------+--------+