10/2LEKTION.8
FILE INFORMATION
FILENAME(S): 10/2LEKTION.8
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 16:15:15
APPEARS ON: 2 disk(s)
FILE HASH
24bddaf220e75c5581ae0838b6819ce6d179abea68b853c8b367807b07f2ed9e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE 6 | 10/2LEKTION.8 | PRG | BrainSkull, Andraes Maurer | 9 | 0 | DOWNLOAD FILE |
| BASIC KURS | 10/2LEKTION.8 | PRG | BrainSkull, Andraes Maurer | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 0A 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)| 00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 3A 97 37 |:.46,.(175):.:.7| 00000020: 38 38 2C 35 32 3A 97 36 35 37 2C 31 32 38 00 48 |88,52:.657,128.H| 00000030: 08 14 00 97 35 33 32 38 30 2C 31 3A 97 35 33 32 |....53280,1:.532| 00000040: 38 31 2C 31 3A 89 38 30 00 7A 08 1E 00 99 22 93 |81,1:.80.z....".| 00000050: 1E 22 3A 81 49 B2 31 A4 33 39 3A 99 43 24 3B 3A |.":.I.1.39:.C$;:| 00000060: 82 3A 81 49 B2 31 A4 32 32 3A 99 22 9D 11 22 43 |.:.I.1.22:.".."C| 00000070: 24 3B 3A 82 3A 99 22 9D 22 3B 00 97 08 28 00 81 |$;:.:.".";...(..| 00000080: 49 B2 31 A4 33 38 3A 99 22 9D 22 43 24 22 9D 22 |I.1.38:."."C$"."| 00000090: 3B 3A 82 3A 99 43 24 00 B2 08 32 00 81 49 B2 31 |;:.:.C$...2..I.1| 000000A0: A4 32 33 3A 99 22 91 22 43 24 22 9D 22 3B 3A 82 |.23:."."C$".";:.| 000000B0: 3A 8E 00 C4 08 3C 00 A1 41 24 3A 8B 41 24 B2 22 |:....<..A$:.A$."| 000000C0: 22 A7 36 30 00 CC 08 46 00 99 3A 8E 00 02 09 50 |".60...F..:....P| 000000D0: 00 5A 24 B2 C7 28 33 34 29 3A 43 24 B2 22 A6 22 |.Z$..(34):C$."."| 000000E0: 3A 8D 33 30 3A 99 22 13 11 11 11 11 11 11 22 A3 |:.30:.".......".| 000000F0: 31 33 29 22 1C 4C 45 4B 54 49 4F 4E 20 31 30 11 |13)".LEKTION 10.| 00000100: 11 22 00 20 09 5A 00 99 A3 31 33 29 22 11 11 11 |.". .Z...13)"...| 00000110: 11 11 11 1F 46 4F 52 54 53 45 54 5A 55 4E 47 22 |....FORTSETZUNG"| 00000120: 00 28 09 64 00 8D 36 30 00 54 09 6E 00 99 22 93 |.(.d..60.T.n..".| 00000130: 22 3A 99 A3 36 29 22 1C 12 20 48 4F 43 48 41 55 |":..6)".. HOCHAU| 00000140: 46 4C 4F 45 53 45 4E 44 45 20 47 52 41 50 48 49 |FLOESENDE GRAPHI| 00000150: 4B 20 92 22 00 9B 09 78 00 99 22 11 11 1F 45 49 |K ."...x.."...EI| 00000160: 4E 45 20 4D 41 58 49 4D 41 4C 45 20 41 55 46 4C |NE MAXIMALE AUFL| 00000170: 4F 45 53 55 4E 47 20 56 4F 4E 22 3A 99 A3 36 29 |OESUNG VON":..6)| 00000180: 22 11 81 32 30 30 20 58 20 33 32 30 20 42 49 4C |"..200 X 320 BIL| 00000190: 44 50 55 4E 4B 54 45 4E 1F 11 22 00 ED 09 82 00 |DPUNKTEN..".....| 000001A0: 99 22 4C 41 45 53 53 54 20 53 49 43 48 20 44 55 |."LAESST SICH DU| 000001B0: 52 43 48 20 42 45 4C 45 47 45 4E 20 45 49 4E 45 |RCH BELEGEN EINE| 000001C0: 53 20 42 45 2D 22 3A 99 22 53 54 49 4D 4D 54 45 |S BE-":."STIMMTE| 000001D0: 4E 20 53 50 45 49 43 48 45 52 42 45 52 45 49 43 |N SPEICHERBEREIC| 000001E0: 48 45 53 20 4D 49 54 20 45 49 4E 45 4D 00 38 0A |HES MIT EINEM.8.| 000001F0: 8C 00 99 22 81 42 49 54 4D 55 53 54 45 52 1F 2C |...".BITMUSTER.,| 00000200: 20 44 41 53 20 44 45 4D 20 47 45 57 55 45 4E 53 | DAS DEM GEWUENS| 00000210: 43 48 54 45 4E 20 47 52 41 50 48 45 4E 22 3A 99 |CHTEN GRAPHEN":.| 00000220: 22 45 4E 54 53 50 52 49 43 48 54 2C 20 45 52 52 |"ENTSPRICHT, ERR| 00000230: 45 49 43 48 45 4E 2E 22 00 7D 0A 96 00 99 22 11 |EICHEN.".}....".| 00000240: 44 49 45 53 45 52 20 42 45 52 45 49 43 48 20 57 |DIESER BEREICH W| 00000250: 49 52 44 20 44 41 4E 4E 20 41 55 46 20 44 45 4D |IRD DANN AUF DEM| 00000260: 20 42 49 4C 44 2D 22 3A 99 22 53 43 48 49 52 4D | BILD-":."SCHIRM| 00000270: 20 41 42 47 45 42 49 4C 44 45 54 2E 22 00 BA 0A | ABGEBILDET."...| 00000280: A0 00 99 22 11 44 49 45 53 45 53 20 56 45 52 46 |...".DIESES VERF| 00000290: 41 48 52 45 4E 20 4E 45 4E 4E 54 20 4D 41 4E 22 |AHREN NENNT MAN"| 000002A0: 3A 99 A3 31 30 29 22 11 23 20 81 42 49 54 4D 41 |:..10)".# .BITMA| 000002B0: 50 50 49 4E 47 20 1F 23 2E 22 00 0B 0B AA 00 99 |PPING .#."......| 000002C0: 22 11 48 49 45 52 5A 55 20 4D 55 53 53 20 5A 55 |".HIERZU MUSS ZU| 000002D0: 45 52 53 54 20 44 41 53 20 81 42 49 54 20 33 1F |ERST DAS .BIT 3.| 000002E0: 20 49 4E 20 44 45 52 22 3A 99 22 81 41 44 52 45 | IN DER":.".ADRE| 000002F0: 53 53 45 20 35 33 32 37 32 1F 20 47 45 53 45 54 |SSE 53272. GESET| 00000300: 5A 54 20 57 45 52 44 45 4E 2E 22 00 5B 0B B4 00 |ZT WERDEN.".[...| 00000310: 99 22 44 49 45 53 20 42 45 57 49 52 4B 54 2C 20 |."DIES BEWIRKT, | 00000320: 44 41 53 53 20 44 45 52 20 53 50 45 49 43 48 45 |DASS DER SPEICHE| 00000330: 52 42 45 52 45 49 43 48 22 3A 99 22 41 42 20 38 |RBEREICH":."AB 8| 00000340: 31 39 32 20 46 55 45 52 20 44 41 53 20 81 42 49 |192 FUER DAS .BI| 00000350: 54 4D 41 50 50 49 4E 47 1F 22 3B 00 7D 0B BE 00 |TMAPPING.";.}...| 00000360: 99 22 20 42 45 4E 55 54 5A 54 22 3A 99 22 57 49 |." BENUTZT":."WI| 00000370: 52 44 2E 22 3A 8D 36 30 3A 99 22 93 22 00 CB 0B |RD.":.60:."."...| 00000380: C8 00 99 22 55 4D 20 44 49 45 53 45 4E 20 42 45 |..."UM DIESEN BE| 00000390: 52 45 49 43 48 20 41 55 46 20 44 45 4D 20 42 49 |REICH AUF DEM BI| 000003A0: 4C 44 53 43 48 49 52 4D 22 3A 99 22 41 42 5A 55 |LDSCHIRM":."ABZU| 000003B0: 42 49 4C 44 45 4E 2C 20 4D 55 53 53 20 4E 55 4E |BILDEN, MUSS NUN| 000003C0: 20 4E 4F 43 48 20 44 41 53 22 3B 00 DB 0B D2 00 | NOCH DAS";.....| 000003D0: 99 22 81 20 42 49 54 20 35 1F 22 00 21 0C DC 00 |.". BIT 5.".!...| 000003E0: 99 22 49 4E 20 81 41 44 52 45 53 53 45 20 35 33 |."IN .ADRESSE 53| 000003F0: 32 36 35 20 1F 47 45 53 45 54 5A 54 20 57 45 52 |265 .GESETZT WER| 00000400: 44 45 4E 2E 22 3A 99 22 44 49 45 53 20 53 43 48 |DEN.":."DIES SCH| 00000410: 41 4C 54 45 54 20 44 45 4E 20 81 42 49 54 2D 22 |ALTET DEN .BIT-"| 00000420: 3B 00 37 0C E6 00 99 22 4D 41 50 2D 4D 4F 44 45 |;.7...."MAP-MODE| 00000430: 1F 20 45 49 4E 2E 22 00 87 0C F0 00 99 22 11 4E |. EIN."......".N| 00000440: 55 4E 20 42 45 53 54 45 48 54 20 4E 4F 43 48 20 |UN BESTEHT NOCH | 00000450: 44 41 53 20 50 52 4F 42 4C 45 4D 2C 20 45 49 4E |DAS PROBLEM, EIN| 00000460: 45 4E 22 3A 99 22 56 4F 52 47 45 47 45 42 45 4E |EN":."VORGEGEBEN| 00000470: 45 4E 20 47 52 41 50 48 45 4E 20 28 41 4C 53 4F |EN GRAPHEN (ALSO| 00000480: 20 45 49 4E 45 22 3B 00 C0 0C FA 00 99 22 20 46 | EINE";......" F| 00000490: 55 4E 4B 54 49 4F 4E 22 3B 3A 99 22 55 53 57 2E |UNKTION";:."USW.| 000004A0: 29 20 49 4E 20 45 49 4E 20 42 49 54 4D 55 53 54 |) IN EIN BITMUST| 000004B0: 45 52 20 55 4D 5A 55 52 45 43 48 4E 45 4E 2E 22 |ER UMZURECHNEN."| 000004C0: 00 ED 0C 04 01 99 22 11 45 49 4E 45 20 45 49 4E |......".EINE EIN| 000004D0: 46 41 43 48 45 20 4D 45 54 48 4F 44 45 2C 20 41 |FACHE METHODE, A| 000004E0: 4E 47 45 57 41 4E 44 54 20 41 55 46 22 00 1A 0D |NGEWANDT AUF"...| 000004F0: 0E 01 99 22 45 49 4E 45 20 1E 53 49 4E 55 53 2D |..."EINE .SINUS-| 00000500: 46 55 4E 4B 54 49 4F 4E 1F 2C 20 5A 45 49 47 54 |FUNKTION., ZEIGT| 00000510: 20 44 41 53 20 46 4F 4C 2D 22 00 58 0D 18 01 99 | DAS FOL-".X....| 00000520: 22 47 45 4E 44 45 20 50 52 4F 47 52 41 4D 4D 2E |"GENDE PROGRAMM.| 00000530: 22 3A 99 22 11 53 4F 4C 4C 20 45 49 4E 45 20 41 |":.".SOLL EINE A| 00000540: 4E 44 45 52 45 20 46 55 4E 4B 54 49 4F 4E 20 46 |NDERE FUNKTION F| 00000550: 28 58 29 20 47 45 2D 22 00 87 0D 22 01 99 22 5A |(X) GE-"...".."Z| 00000560: 45 49 43 48 4E 45 54 20 57 45 52 44 45 4E 2C 20 |EICHNET WERDEN, | 00000570: 53 4F 20 4D 55 53 53 20 44 49 45 53 45 20 49 4E |SO MUSS DIESE IN| 00000580: 20 5A 45 49 4C 45 22 00 B6 0D 2C 01 99 22 36 30 | ZEILE"...,.."60| 00000590: 20 49 4E 20 44 45 52 20 46 4F 52 4D 20 1E 12 20 | IN DER FORM .. | 000005A0: 59 20 3D 20 49 4E 54 28 46 28 58 29 29 20 92 1F |Y = INT(F(X)) ..| 000005B0: 20 45 49 4E 2D 22 00 F9 0D 36 01 99 22 47 45 53 | EIN-"...6.."GES| 000005C0: 45 54 5A 54 20 57 45 52 44 45 4E 2E 22 3A 99 22 |ETZT WERDEN.":."| 000005D0: 11 11 1C 12 20 41 43 48 54 55 4E 47 20 92 20 3A |.... ACHTUNG . :| 000005E0: 20 46 4F 4C 47 45 4E 44 45 20 47 52 45 4E 5A 45 | FOLGENDE GRENZE| 000005F0: 4E 20 46 55 45 52 20 22 3B 00 42 0E 40 01 99 22 |N FUER ";.B.@.."| 00000600: 58 20 55 4E 44 22 3A 99 A3 31 32 29 22 59 20 53 |X UND":..12)"Y S| 00000610: 49 4E 44 20 5A 55 20 42 45 52 55 45 43 4B 53 49 |IND ZU BERUECKSI| 00000620: 43 48 54 49 47 45 4E 3A 22 3A 99 A3 31 32 29 22 |CHTIGEN:":..12)"| 00000630: 11 30 3C 58 3C 33 31 39 20 20 55 4E 44 20 20 30 |.0<X<319 UND 0| 00000640: 22 3B 00 50 0E 4A 01 99 22 3C 59 3C 31 39 39 22 |";.P.J.."<Y<199"| 00000650: 00 5D 0E 54 01 8D 36 30 3A 99 22 93 22 00 7D 0E |.].T..60:.".".}.| 00000660: 5E 01 99 A3 31 30 29 22 12 20 1C 53 49 4E 55 53 |^...10)". .SINUS| 00000670: 2D 46 55 4E 4B 54 49 4F 4E 20 92 1F 22 00 A3 0E |-FUNKTION .."...| 00000680: 68 01 99 22 11 11 11 20 31 30 20 50 4F 4B 45 35 |h.."... 10 POKE5| 00000690: 33 32 37 32 2C 50 45 45 4B 28 35 33 32 37 32 29 |3272,PEEK(53272)| 000006A0: 4F 52 38 00 C7 0E 72 01 99 22 20 32 30 20 50 4F |OR8...r.." 20 PO| 000006B0: 4B 45 35 33 32 36 35 2C 50 45 45 4B 28 35 33 32 |KE53265,PEEK(532| 000006C0: 36 35 29 4F 52 33 32 00 F0 0E 7C 01 99 22 20 32 |65)OR32...|.." 2| 000006D0: 35 20 46 4F 52 4B 3D 30 54 4F 39 39 39 3A 50 4F |5 FORK=0TO999:PO| 000006E0: 4B 45 31 30 32 34 2B 4B 2C 31 34 3A 4E 45 58 54 |KE1024+K,14:NEXT| 000006F0: 00 19 0F 86 01 99 22 20 32 37 20 46 4F 52 49 3D |......" 27 FORI=| 00000700: 30 54 4F 37 39 39 39 3A 50 4F 4B 45 38 31 39 32 |0TO7999:POKE8192| 00000710: 2B 49 2C 30 3A 4E 45 58 54 00 2F 0F 90 01 99 22 |+I,0:NEXT./...."| 00000720: 20 35 30 20 46 4F 52 58 3D 30 54 4F 33 31 39 00 | 50 FORX=0TO319.| 00000730: 56 0F 9A 01 99 22 20 36 30 20 59 3D 49 4E 54 28 |V...." 60 Y=INT(| 00000740: 31 30 30 2B 38 30 2A 53 49 4E 28 58 2A 32 2A FF |100+80*SIN(X*2*.| 00000750: 2F 31 36 30 29 29 00 6B 0F A4 01 99 22 20 37 30 |/160)).k...." 70| 00000760: 20 46 4F 52 4E 3D 30 54 4F 32 34 00 9A 0F AE 01 | FORN=0TO24.....| 00000770: 99 22 20 38 30 20 49 46 59 3E 4E 2A 38 2D 31 41 |." 80 IFY>N*8-1A| 00000780: 4E 44 59 3C 28 4E 2B 31 29 2A 38 54 48 45 4E 42 |NDY<(N+1)*8THENB| 00000790: 59 3D 38 31 39 32 2B 4E 2A 22 00 C7 0F B8 01 99 |Y=8192+N*"......| 000007A0: 22 20 20 20 20 33 32 30 2B 38 2A 49 4E 54 28 58 |" 320+8*INT(X| 000007B0: 2F 38 29 2B 59 2D 38 2A 4E 3A 4E 3D 32 34 3A 47 |/8)+Y-8*N:N=24:G| 000007C0: 4F 54 4F 31 30 30 22 00 D7 0F C2 01 99 22 20 39 |OTO100"......" 9| 000007D0: 30 20 4E 45 58 54 4E 00 F7 0F CC 01 99 22 31 30 |0 NEXTN......"10| 000007E0: 30 20 42 49 3D 38 2A 28 31 2B 49 4E 54 28 58 2F |0 BI=8*(1+INT(X/| 000007F0: 38 29 29 2D 58 2D 31 00 2D 10 D6 01 99 22 31 31 |8))-X-1.-...."11| 00000800: 30 20 49 46 50 45 45 4B 28 42 59 29 3C 3E 30 54 |0 IFPEEK(BY)<>0T| 00000810: 48 45 4E 50 4F 4B 45 42 59 2C 50 45 45 4B 28 42 |HENPOKEBY,PEEK(B| 00000820: 59 29 4F 52 32 5E 20 20 20 20 42 49 22 00 54 10 |Y)OR2^ BI".T.| 00000830: E0 01 99 22 31 32 30 20 49 46 50 45 45 4B 28 42 |..."120 IFPEEK(B| 00000840: 59 29 3D 30 54 48 45 4E 50 4F 4B 45 42 59 2C 32 |Y)=0THENPOKEBY,2| 00000850: 5E 42 49 22 00 65 10 EA 01 99 22 31 33 30 20 4E |^BI".e...."130 N| 00000860: 45 58 54 58 22 00 72 10 F4 01 8D 36 30 3A 99 22 |EXTX".r....60:."| 00000870: 93 22 00 AE 10 FE 01 99 22 1E 5A 45 49 4C 45 20 |."......".ZEILE | 00000880: 20 31 30 1F 3A 20 42 45 52 45 49 43 48 20 46 55 | 10.: BEREICH FU| 00000890: 45 52 20 42 49 54 4D 41 50 50 49 4E 47 22 3A 99 |ER BITMAPPING":.| 000008A0: A3 31 31 29 22 41 42 20 38 31 39 32 2E 22 00 EA |.11)"AB 8192."..| 000008B0: 10 08 02 99 22 1E 5A 45 49 4C 45 20 20 32 30 1F |....".ZEILE 20.| 000008C0: 3A 20 42 49 54 4D 41 50 4D 4F 44 45 20 57 49 52 |: BITMAPMODE WIR| 000008D0: 44 20 45 49 4E 47 45 2D 22 3A 99 A3 31 31 29 22 |D EINGE-":..11)"| 000008E0: 53 43 48 41 4C 54 45 54 2E 22 00 18 11 12 02 99 |SCHALTET."......| 000008F0: 22 1E 5A 45 49 4C 45 20 20 32 35 1F 3A 20 57 41 |".ZEILE 25.: WA| 00000900: 48 4C 20 44 45 52 20 46 41 52 42 4B 4F 4D 42 49 |HL DER FARBKOMBI| 00000910: 4E 41 54 49 4F 4E 2E 22 00 48 11 1C 02 99 22 11 |NATION.".H....".| 00000920: 1E 5A 45 49 4C 45 20 20 32 37 1F 3A 20 42 49 4C |.ZEILE 27.: BIL| 00000930: 44 53 43 48 49 52 4D 20 57 49 52 44 20 47 45 4C |DSCHIRM WIRD GEL| 00000940: 4F 45 53 43 48 54 2E 22 00 66 11 26 02 99 22 11 |OESCHT.".f.&..".| 00000950: 1E 5A 45 49 4C 45 20 20 36 30 1F 3A 20 46 55 4E |.ZEILE 60.: FUN| 00000960: 4B 54 49 4F 4E 22 00 A5 11 30 02 99 22 11 1E 5A |KTION"...0.."..Z| 00000970: 45 49 4C 45 20 20 38 30 1F 3A 20 4E 55 4D 4D 45 |EILE 80.: NUMME| 00000980: 52 20 44 45 53 20 42 59 54 45 53 20 57 49 52 44 |R DES BYTES WIRD| 00000990: 20 42 45 2D 22 3A 99 A3 31 31 29 22 52 45 43 48 | BE-":..11)"RECH| 000009A0: 4E 45 54 2E 22 00 D3 11 3A 02 99 22 1E 5A 45 49 |NET."...:..".ZEI| 000009B0: 4C 45 20 31 30 30 1F 3A 20 42 49 54 4D 55 53 54 |LE 100.: BITMUST| 000009C0: 45 52 20 57 49 52 44 20 42 45 52 45 43 48 4E 45 |ER WIRD BERECHNE| 000009D0: 54 2E 22 00 16 12 44 02 99 22 11 1E 5A 45 49 4C |T."...D.."..ZEIL| 000009E0: 45 20 31 31 30 1F 3A 20 50 52 55 45 46 54 2C 20 |E 110.: PRUEFT, | 000009F0: 4F 42 20 45 49 4E 20 42 49 54 20 47 45 53 45 54 |OB EIN BIT GESET| 00000A00: 5A 54 22 3A 99 A3 35 29 22 1E 2B 31 32 30 1F 3A |ZT":..5)".+120.:| 00000A10: 20 49 53 54 2E 22 00 43 12 4E 02 99 22 11 11 1C | IST.".C.N.."...| 00000A20: 42 45 4D 2E 3A 20 41 4E 44 45 52 45 20 46 41 52 |BEM.: ANDERE FAR| 00000A30: 42 4B 4F 4D 42 49 4E 41 54 49 4F 4E 20 44 55 52 |BKOMBINATION DUR| 00000A40: 43 48 22 00 7C 12 58 02 99 A3 36 29 22 41 45 4E |CH".|.X...6)"AEN| 00000A50: 44 45 52 4E 20 44 45 53 20 47 45 50 4F 4B 45 44 |DERN DES GEPOKED| 00000A60: 45 4E 20 57 45 52 54 45 53 22 3A 99 A3 36 29 22 |EN WERTES":..6)"| 00000A70: 28 5A 45 49 4C 45 20 32 35 29 2E 22 00 A6 12 62 |(ZEILE 25)."...b| 00000A80: 02 99 A3 36 29 22 42 49 4C 44 53 43 48 49 52 4D |...6)"BILDSCHIRM| 00000A90: 46 41 52 42 45 3A 20 55 4E 54 45 52 45 20 34 20 |FARBE: UNTERE 4 | 00000AA0: 42 49 54 53 20 22 00 D0 12 6C 02 99 A3 36 29 22 |BITS "...l...6)"| 00000AB0: 46 41 52 42 45 20 44 45 53 20 47 52 41 50 48 45 |FARBE DES GRAPHE| 00000AC0: 4E 3A 20 4F 42 45 52 45 20 34 20 42 49 54 53 22 |N: OBERE 4 BITS"| 00000AD0: 00 F9 12 76 02 99 A3 36 29 22 1F 44 2E 48 2E 20 |...v...6)".D.H. | 00000AE0: 55 4E 54 45 52 45 53 20 55 2E 20 4F 42 45 52 45 |UNTERES U. OBERE| 00000AF0: 53 20 4E 59 42 42 4C 45 22 00 06 13 80 02 8D 36 |S NYBBLE"......6| 00000B00: 30 3A 99 22 93 22 00 1C 13 8A 02 97 35 33 32 37 |0:."."......5327| 00000B10: 32 2C C2 28 35 33 32 37 32 29 B0 38 00 33 13 94 |2,.(53272).8.3..| 00000B20: 02 97 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 |..53265,.(53265)| 00000B30: B0 33 32 00 4D 13 9E 02 81 4B B2 30 A4 39 39 39 |.32.M....K.0.999| 00000B40: 3A 97 31 30 32 34 AA 4B 2C 31 34 3A 82 00 67 13 |:.1024.K,14:..g.| 00000B50: A8 02 81 49 B2 30 A4 37 39 39 39 3A 97 38 31 39 |...I.0.7999:.819| 00000B60: 32 AA 49 2C 30 3A 82 00 74 13 B2 02 81 58 B2 30 |2.I,0:..t....X.0| 00000B70: A4 33 31 39 00 91 13 BC 02 59 B2 B5 28 31 30 30 |.319.....Y..(100| 00000B80: AA 38 30 AC BF 28 58 AC 32 AC FF AD 31 36 30 29 |.80..(X.2...160)| 00000B90: 29 00 9D 13 C6 02 81 4E B2 30 A4 32 34 00 DB 13 |)......N.0.24...| 00000BA0: D0 02 8B 59 B1 4E AC 38 AB 31 AF 59 B3 28 4E AA |...Y.N.8.1.Y.(N.| 00000BB0: 31 29 AC 38 A7 42 59 B2 38 31 39 32 AA 4E AC 33 |1).8.BY.8192.N.3| 00000BC0: 32 30 AA 38 AC B5 28 58 AD 38 29 AA 59 AB 38 AC |20.8..(X.8).Y.8.| 00000BD0: 4E 3A 4E B2 32 34 3A 89 37 34 30 00 E2 13 DA 02 |N:N.24:.740.....| 00000BE0: 82 4E 00 FA 13 E4 02 42 49 B2 38 AC 28 31 AA B5 |.N.....BI.8.(1..| 00000BF0: 28 58 AD 38 29 29 AB 58 AB 31 00 17 14 EE 02 8B |(X.8)).X.1......| 00000C00: C2 28 42 59 29 B3 B1 30 A7 97 42 59 2C C2 28 42 |.(BY)..0..BY,.(B| 00000C10: 59 29 B0 32 AE 42 49 00 2D 14 F8 02 8B C2 28 42 |Y).2.BI.-.....(B| 00000C20: 59 29 B2 30 A7 97 42 59 2C 32 AE 42 49 00 34 14 |Y).0..BY,2.BI.4.| 00000C30: 02 03 82 58 00 50 14 0C 03 8D 36 30 3A 97 35 33 |...X.P....60:.53| 00000C40: 32 37 32 2C 32 31 3A 97 35 33 32 36 35 2C 32 37 |272,21:.53265,27| 00000C50: 00 6B 14 16 03 97 35 33 32 38 30 2C 31 3A 97 35 |.k....53280,1:.5| 00000C60: 33 32 38 31 2C 31 3A 99 22 93 22 00 9D 14 20 03 |3281,1:."."... .| 00000C70: 8D 33 30 3A 99 22 11 11 11 11 11 11 1D 1D 1D 1D |.30:."..........| 00000C80: 1D 1D 1D 1D 1C 12 20 45 4E 44 45 20 56 4F 4E 20 |...... ENDE VON | 00000C90: 4C 45 4B 54 49 4F 4E 20 31 30 20 92 22 00 CE 14 |LEKTION 10 ."...| 00000CA0: 2A 03 99 22 11 11 11 11 11 1D 1D 1D 1F 53 49 4E |*..".........SIN| 00000CB0: 44 20 53 49 45 20 42 45 52 45 49 54 20 46 55 45 |D SIE BEREIT FUE| 00000CC0: 52 20 4C 45 4B 54 49 4F 4E 20 31 31 3F 22 00 ED |R LEKTION 11?"..| 00000CD0: 14 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........| 00000CE0: 1D 1D 1D 1D 1D 28 4A 2F 4E 29 20 3F 22 00 00 15 |.....(J/N) ?"...| 00000CF0: 3E 03 A1 42 24 3A 8B 42 24 B2 22 22 A7 38 33 30 |>..B$:.B$."".830| 00000D00: 00 10 15 48 03 8B 42 24 B2 22 4E 22 A7 39 30 30 |...H..B$."N".900| 00000D10: 00 21 15 52 03 8B 42 24 B3 B1 22 4A 22 A7 38 33 |.!.R..B$.."J".83| 00000D20: 30 00 51 15 5C 03 99 22 13 11 11 11 11 11 11 11 |0.Q.\.."........| 00000D30: 1D 1D 1D 1D 1D 1D 1D 1D 20 42 49 54 54 45 20 57 |........ BITTE W| 00000D40: 41 52 54 45 4E 21 20 20 20 20 20 20 20 20 20 20 |ARTEN! | 00000D50: 22 00 82 15 66 03 99 22 11 11 11 11 11 1D 1D 1D |"...f.."........| 00000D60: 20 20 20 4C 45 4B 54 49 4F 4E 20 31 31 20 57 49 | LEKTION 11 WI| 00000D70: 52 44 20 47 45 4C 41 44 45 4E 2E 20 20 20 20 20 |RD GELADEN. | 00000D80: 20 22 00 A5 15 70 03 99 22 11 11 1D 1D 20 20 20 | "...p..".... | 00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000DA0: 20 20 20 20 22 00 BC 15 7A 03 93 22 31 31 2F 31 | "...z.."11/1| 00000DB0: 4C 45 4B 54 49 4F 4E 2E 38 22 2C 38 00 CC 15 84 |LEKTION.8",8....| 00000DC0: 03 81 49 B2 31 A4 37 30 30 3A 82 49 00 D7 15 8E |..I.1.700:.I....| 00000DD0: 03 9E 36 34 37 33 38 00 00 00 45 4D |..64738...EM |
.......45,B(174):.46,B(175):.:.788,52:.6
57,128.H....53280,1:.53281,1:.80.Z....".
.":.I.1.39:.C$;:.:.I.1.22:.".."C$;:.:.".
";...(..I.1.38:."."C$".";:.:.C$...2..I.1
.23:."."C$".";:.:..D.<..A$:.A$."".60.L.F
..:....P.Z$.G(34):C$.".":.30:.".......".
13)".LEKTION 10..". .Z...13)".......FORT
SETZUNG".(.D..60.T.N..".":..6)".. HOCHAU
FLOESENDE GRAPHIK ."...X.."...EINE MAXIM
ALE AUFLOESUNG VON":..6)"..200 X 320 BIL
DPUNKTEN.."......"LAESST SICH DURCH BELE
GEN EINES BE-":."STIMMTEN SPEICHERBEREIC
HES MIT EINEM.8....".BITMUSTER., DAS DEM
GEWUENSCHTEN GRAPHEN":."ENTSPRICHT, ERR
EICHEN.".}....".DIESER BEREICH WIRD DANN
AUF DEM BILD-":."SCHIRM ABGEBILDET."...
..".DIESES VERFAHREN NENNT MAN":..10)".
# .BITMAPPING .#."......".HIERZU MUSS ZU
ERST DAS .BIT 3. IN DER":.".ADRESSE 5327
2. GESETZT WERDEN.".[...."DIES BEWIRKT,
DASS DER SPEICHERBEREICH":."AB 8192 FUER
DAS .BITMAPPING.";.}...." BENUTZT":."WI
RD.":.60:.".".K.H.."UM DIESEN BEREICH AU
F DEM BILDSCHIRM":."ABZUBILDEN, MUSS NUN
NOCH DAS";...R..". BIT 5.".!...."IN .AD
RESSE 53265 .GESETZT WERDEN.":."DIES SCH
ALTET DEN .BIT-";.7...."MAP-MODE. EIN.".
.....".NUN BESTEHT NOCH DAS PROBLEM, EIN
EN":."VORGEGEBENEN GRAPHEN (ALSO EINE";.
....." FUNKTION";:."USW.) IN EIN BITMUST
ER UMZURECHNEN."......".EINE EINFACHE ME
THODE, ANGEWANDT AUF"......"EINE .SINUS-
FUNKTION., ZEIGT DAS FOL-".X...."GENDE P
ROGRAMM.":.".SOLL EINE ANDERE FUNKTION F
(X) GE-"...".."ZEICHNET WERDEN, SO MUSS
DIESE IN ZEILE"...,.."60 IN DER FORM ..
Y = INT(F(X)) .. EIN-"...6.."GESETZT WER
DEN.":.".... ACHTUNG . : FOLGENDE GRENZE
N FUER ";.B.@.."X UND":..12)"Y SIND ZU B
ERUECKSICHTIGEN:":..12)".0<X<319 UND 0
";.P.J.."<Y<199".].T..60:.".".}.^...10)"
. .SINUS-FUNKTION .."...H.."... 10 POKE5
3272,PEEK(53272)OR8.G.R.." 20 POKE53265,
PEEK(53265)OR32...|.." 25 FORK=0TO999:PO
KE1024+K,14:NEXT......" 27 FORI=0TO7999:
POKE8192+I,0:NEXT./...." 50 FORX=0TO319.
V...." 60 Y=INT(100+80*SIN(X*2*./160)).K
...." 70 FORN=0TO24......" 80 IFY>N*8-1A
NDY<(N+1)*8THENBY=8192+N*".G...." 320
+8*INT(X/8)+Y-8*N:N=24:GOTO100".W.B.." 9
0 NEXTN...L.."100 BI=8*(1+INT(X/8))-X-1.
-.V.."110 IFPEEK(BY)<>0THENPOKEBY,PEEK(B
Y)OR2^ BI".T...."120 IFPEEK(BY)=0THEN
POKEBY,2^BI".E...."130 NEXTX".R....60:."
."......".ZEILE 10.: BEREICH FUER BITMA
PPING":..11)"AB 8192."......".ZEILE 20.
: BITMAPMODE WIRD EINGE-":..11)"SCHALTET
."......".ZEILE 25.: WAHL DER FARBKOMBI
NATION.".H...."..ZEILE 27.: BILDSCHIRM
WIRD GELOESCHT.".F.&.."..ZEILE 60.: FUN
KTION"...0.."..ZEILE 80.: NUMMER DES BY
TES WIRD BE-":..11)"RECHNET.".S.:..".ZEI
LE 100.: BITMUSTER WIRD BERECHNET."...D.
."..ZEILE 110.: PRUEFT, OB EIN BIT GESET
ZT":..5)".+120.: IST.".C.N.."...BEM.: AN
DERE FARBKOMBINATION DURCH".|.X...6)"AEN
DERN DES GEPOKEDEN WERTES":..6)"(ZEILE 2
5)."...B...6)"BILDSCHIRMFARBE: UNTERE 4
BITS ".P.L...6)"FARBE DES GRAPHEN: OBERE
4 BITS"...V...6)".D.H. UNTERES U. OBERE
S NYBBLE"......60:."."......53272,B(5327
2).8.3....53265,B(53265).32.M....K.0.999
:.1024.K,14:..G....I.0.7999:.8192.I,0:..
T....X.0.319.....Y..(100.80..(X.2...160)
)...F..N.0.24...P..Y.N.8.1.Y.(N.1).8.BY.
8192.N.320.8..(X.8).Y.8.N:N.24:.740...Z.
.N.....BI.8.(1..(X.8)).X.1......B(BY)..0
..BY,B(BY).2.BI.-....B(BY).0..BY,2.BI.4.
...X.P....60:.53272,21:.53265,27.K....53
280,1:.53281,1:."."... ..30:."..........
...... ENDE VON LEKTION 10 .".N.*.."....
.....SIND SIE BEREIT FUER LEKTION 11?"..
.4.."................(J/N) ?"...>..B$:.B
$."".830...H..B$."N".900.!.R..B$.."J".83
0.Q.\.."................ BITTE WARTEN!
"...F.."........ LEKTION 11 WI
RD GELADEN. "...P.."....
"...Z.."11/1LEKTION.8",8.L..
..I.1.700:.I.W....64738...EM
> CLICK IMAGE PREVIEW FOR FULL MODAL