10/2LEKTION
FILE INFORMATION
FILENAME(S): 10/2LEKTION
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-20 00:37:13
APPEARS ON: 6 disk(s)
FILE HASH
9f2d33205a9e980d0ee547bdda00c97320b4358e8a449c1788ddd0e84283cee5
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASICKURS | 10/2LEKTION | PRG | Treasure Chest - Holger | 27 | 3 | DOWNLOAD FILE |
| LERNEN MIT BASIC | 10/2LEKTION | PRG | Treasure Chest - Joker79 | 27 | 2 | DOWNLOAD FILE |
| HANS | 10/2LEKTION | PRG | Treasure Chest - LehrerMIL | 27 | 6 | DOWNLOAD FILE |
| BASIC KURS | 10/2LEKTION | PRG | Treasure Chest - ralf | 27 | 0 | DOWNLOAD FILE |
| SPIELE NR 41 A | 10/2LEKTION | PRG | Treasure Chest - Wolfgang Rauprich | 8 | 2 | DOWNLOAD FILE |
| ASIC KURS C64 | 10/2LEKTION | PRG | Belgium | 27 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 01 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 02 00 97 35 33 32 38 30 2C 31 3A 97 35 33 32 |....53280,1:.532| 00000040: 38 31 2C 31 3A 89 31 36 00 7A 08 03 00 99 22 93 |81,1:.16.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 04 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 05 00 81 49 B2 31 |;:.:.C$......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 C3 08 07 00 A1 41 24 3A 8B 41 24 B2 22 |:.......A$:.A$."| 000000C0: 22 A7 37 00 CB 08 08 00 99 3A 8E 00 00 09 10 00 |".7......:......| 000000D0: 5A 24 B2 C7 28 33 34 29 3A 43 24 B2 22 A6 22 3A |Z$..(34):C$.".":| 000000E0: 8D 33 3A 99 22 13 11 11 11 11 11 11 22 A3 31 33 |.3:.".......".13| 000000F0: 29 22 1C 4C 45 4B 54 49 4F 4E 20 31 30 11 11 22 |)".LEKTION 10.."| 00000100: 00 1E 09 11 00 99 A3 31 33 29 22 11 11 11 11 11 |.......13)".....| 00000110: 11 1F 46 4F 52 54 53 45 54 5A 55 4E 47 22 00 25 |..FORTSETZUNG".%| 00000120: 09 12 00 8D 37 00 51 09 14 00 99 22 93 22 3A 99 |....7.Q....".":.| 00000130: A3 36 29 22 1C 12 20 48 4F 43 48 41 55 46 4C 4F |.6)".. HOCHAUFLO| 00000140: 45 53 45 4E 44 45 20 47 52 41 50 48 49 4B 20 92 |ESENDE GRAPHIK .| 00000150: 22 00 98 09 1E 00 99 22 11 11 1F 45 49 4E 45 20 |"......"...EINE | 00000160: 4D 41 58 49 4D 41 4C 45 20 41 55 46 4C 4F 45 53 |MAXIMALE AUFLOES| 00000170: 55 4E 47 20 56 4F 4E 22 3A 99 A3 36 29 22 11 81 |UNG VON":..6)"..| 00000180: 32 30 30 20 58 20 33 32 30 20 42 49 4C 44 50 55 |200 X 320 BILDPU| 00000190: 4E 4B 54 45 4E 1F 11 22 00 EA 09 28 00 99 22 4C |NKTEN.."...(.."L| 000001A0: 41 45 53 53 54 20 53 49 43 48 20 44 55 52 43 48 |AESST SICH DURCH| 000001B0: 20 42 45 4C 45 47 45 4E 20 45 49 4E 45 53 20 42 | BELEGEN EINES B| 000001C0: 45 2D 22 3A 99 22 53 54 49 4D 4D 54 45 4E 20 53 |E-":."STIMMTEN S| 000001D0: 50 45 49 43 48 45 52 42 45 52 45 49 43 48 45 53 |PEICHERBEREICHES| 000001E0: 20 4D 49 54 20 45 49 4E 45 4D 00 35 0A 32 00 99 | MIT EINEM.5.2..| 000001F0: 22 81 42 49 54 4D 55 53 54 45 52 1F 2C 20 44 41 |".BITMUSTER., DA| 00000200: 53 20 44 45 4D 20 47 45 57 55 45 4E 53 43 48 54 |S DEM GEWUENSCHT| 00000210: 45 4E 20 47 52 41 50 48 45 4E 22 3A 99 22 45 4E |EN GRAPHEN":."EN| 00000220: 54 53 50 52 49 43 48 54 2C 20 45 52 52 45 49 43 |TSPRICHT, ERREIC| 00000230: 48 45 4E 2E 22 00 7A 0A 3C 00 99 22 11 44 49 45 |HEN.".z.<..".DIE| 00000240: 53 45 52 20 42 45 52 45 49 43 48 20 57 49 52 44 |SER BEREICH WIRD| 00000250: 20 44 41 4E 4E 20 41 55 46 20 44 45 4D 20 42 49 | DANN AUF DEM BI| 00000260: 4C 44 2D 22 3A 99 22 53 43 48 49 52 4D 20 41 42 |LD-":."SCHIRM AB| 00000270: 47 45 42 49 4C 44 45 54 2E 22 00 B7 0A 46 00 99 |GEBILDET."...F..| 00000280: 22 11 44 49 45 53 45 53 20 56 45 52 46 41 48 52 |".DIESES VERFAHR| 00000290: 45 4E 20 4E 45 4E 4E 54 20 4D 41 4E 22 3A 99 A3 |EN NENNT MAN":..| 000002A0: 31 30 29 22 11 23 20 81 42 49 54 4D 41 50 50 49 |10)".# .BITMAPPI| 000002B0: 4E 47 20 1F 23 2E 22 00 08 0B 50 00 99 22 11 48 |NG .#."...P..".H| 000002C0: 49 45 52 5A 55 20 4D 55 53 53 20 5A 55 45 52 53 |IERZU MUSS ZUERS| 000002D0: 54 20 44 41 53 20 81 42 49 54 20 33 1F 20 49 4E |T DAS .BIT 3. IN| 000002E0: 20 44 45 52 22 3A 99 22 81 41 44 52 45 53 53 45 | DER":.".ADRESSE| 000002F0: 20 35 33 32 37 32 1F 20 47 45 53 45 54 5A 54 20 | 53272. GESETZT | 00000300: 57 45 52 44 45 4E 2E 22 00 58 0B 5A 00 99 22 44 |WERDEN.".X.Z.."D| 00000310: 49 45 53 20 42 45 57 49 52 4B 54 2C 20 44 41 53 |IES BEWIRKT, DAS| 00000320: 53 20 44 45 52 20 53 50 45 49 43 48 45 52 42 45 |S DER SPEICHERBE| 00000330: 52 45 49 43 48 22 3A 99 22 41 42 20 38 31 39 32 |REICH":."AB 8192| 00000340: 20 46 55 45 52 20 44 41 53 20 81 42 49 54 4D 41 | FUER DAS .BITMA| 00000350: 50 50 49 4E 47 1F 22 3B 00 79 0B 64 00 99 22 20 |PPING.";.y.d.." | 00000360: 42 45 4E 55 54 5A 54 22 3A 99 22 57 49 52 44 2E |BENUTZT":."WIRD.| 00000370: 22 3A 8D 37 3A 99 22 93 22 00 C7 0B 6E 00 99 22 |":.7:."."...n.."| 00000380: 55 4D 20 44 49 45 53 45 4E 20 42 45 52 45 49 43 |UM DIESEN BEREIC| 00000390: 48 20 41 55 46 20 44 45 4D 20 42 49 4C 44 53 43 |H AUF DEM BILDSC| 000003A0: 48 49 52 4D 22 3A 99 22 41 42 5A 55 42 49 4C 44 |HIRM":."ABZUBILD| 000003B0: 45 4E 2C 20 4D 55 53 53 20 4E 55 4E 20 4E 4F 43 |EN, MUSS NUN NOC| 000003C0: 48 20 44 41 53 22 3B 00 D7 0B 73 00 99 22 81 20 |H DAS";...s..". | 000003D0: 42 49 54 20 35 1F 22 00 1D 0C 78 00 99 22 49 4E |BIT 5."...x.."IN| 000003E0: 20 81 41 44 52 45 53 53 45 20 35 33 32 36 35 20 | .ADRESSE 53265 | 000003F0: 1F 47 45 53 45 54 5A 54 20 57 45 52 44 45 4E 2E |.GESETZT WERDEN.| 00000400: 22 3A 99 22 44 49 45 53 20 53 43 48 41 4C 54 45 |":."DIES SCHALTE| 00000410: 54 20 44 45 4E 20 81 42 49 54 2D 22 3B 00 33 0C |T DEN .BIT-";.3.| 00000420: 82 00 99 22 4D 41 50 2D 4D 4F 44 45 1F 20 45 49 |..."MAP-MODE. EI| 00000430: 4E 2E 22 00 83 0C 8C 00 99 22 11 4E 55 4E 20 42 |N."......".NUN B| 00000440: 45 53 54 45 48 54 20 4E 4F 43 48 20 44 41 53 20 |ESTEHT NOCH DAS | 00000450: 50 52 4F 42 4C 45 4D 2C 20 45 49 4E 45 4E 22 3A |PROBLEM, EINEN":| 00000460: 99 22 56 4F 52 47 45 47 45 42 45 4E 45 4E 20 47 |."VORGEGEBENEN G| 00000470: 52 41 50 48 45 4E 20 28 41 4C 53 4F 20 45 49 4E |RAPHEN (ALSO EIN| 00000480: 45 22 3B 00 BC 0C 96 00 99 22 20 46 55 4E 4B 54 |E";......" FUNKT| 00000490: 49 4F 4E 22 3B 3A 99 22 55 53 57 2E 29 20 49 4E |ION";:."USW.) IN| 000004A0: 20 45 49 4E 20 42 49 54 4D 55 53 54 45 52 20 55 | EIN BITMUSTER U| 000004B0: 4D 5A 55 52 45 43 48 4E 45 4E 2E 22 00 E9 0C A0 |MZURECHNEN."....| 000004C0: 00 99 22 11 45 49 4E 45 20 45 49 4E 46 41 43 48 |..".EINE EINFACH| 000004D0: 45 20 4D 45 54 48 4F 44 45 2C 20 41 4E 47 45 57 |E METHODE, ANGEW| 000004E0: 41 4E 44 54 20 41 55 46 22 00 16 0D AA 00 99 22 |ANDT AUF"......"| 000004F0: 45 49 4E 45 20 1E 53 49 4E 55 53 2D 46 55 4E 4B |EINE .SINUS-FUNK| 00000500: 54 49 4F 4E 1F 2C 20 5A 45 49 47 54 20 44 41 53 |TION., ZEIGT DAS| 00000510: 20 46 4F 4C 2D 22 00 54 0D B4 00 99 22 47 45 4E | FOL-".T...."GEN| 00000520: 44 45 20 50 52 4F 47 52 41 4D 4D 2E 22 3A 99 22 |DE PROGRAMM.":."| 00000530: 11 53 4F 4C 4C 20 45 49 4E 45 20 41 4E 44 45 52 |.SOLL EINE ANDER| 00000540: 45 20 46 55 4E 4B 54 49 4F 4E 20 46 28 58 29 20 |E FUNKTION F(X) | 00000550: 47 45 2D 22 00 83 0D BE 00 99 22 5A 45 49 43 48 |GE-"......"ZEICH| 00000560: 4E 45 54 20 57 45 52 44 45 4E 2C 20 53 4F 20 4D |NET WERDEN, SO M| 00000570: 55 53 53 20 44 49 45 53 45 20 49 4E 20 5A 45 49 |USS DIESE IN ZEI| 00000580: 4C 45 22 00 B2 0D C8 00 99 22 36 30 20 49 4E 20 |LE"......"60 IN | 00000590: 44 45 52 20 46 4F 52 4D 20 1E 12 20 59 20 3D 20 |DER FORM .. Y = | 000005A0: 49 4E 54 28 46 28 58 29 29 20 92 1F 20 45 49 4E |INT(F(X)) .. EIN| 000005B0: 2D 22 00 F5 0D D2 00 99 22 47 45 53 45 54 5A 54 |-"......"GESETZT| 000005C0: 20 57 45 52 44 45 4E 2E 22 3A 99 22 11 11 1C 12 | WERDEN.":."....| 000005D0: 20 41 43 48 54 55 4E 47 20 92 20 3A 20 46 4F 4C | ACHTUNG . : FOL| 000005E0: 47 45 4E 44 45 20 47 52 45 4E 5A 45 4E 20 46 55 |GENDE GRENZEN FU| 000005F0: 45 52 20 22 3B 00 3E 0E DC 00 99 22 58 20 55 4E |ER ";.>...."X UN| 00000600: 44 22 3A 99 A3 31 32 29 22 59 20 53 49 4E 44 20 |D":..12)"Y SIND | 00000610: 5A 55 20 42 45 52 55 45 43 4B 53 49 43 48 54 49 |ZU BERUECKSICHTI| 00000620: 47 45 4E 3A 22 3A 99 A3 31 32 29 22 11 30 3C 58 |GEN:":..12)".0<X| 00000630: 3C 33 31 39 20 20 55 4E 44 20 20 30 22 3B 00 4C |<319 UND 0";.L| 00000640: 0E E1 00 99 22 3C 59 3C 31 39 39 22 00 58 0E E6 |...."<Y<199".X..| 00000650: 00 8D 37 3A 99 22 93 22 00 78 0E F0 00 99 A3 31 |..7:.".".x.....1| 00000660: 30 29 22 12 20 1C 53 49 4E 55 53 2D 46 55 4E 4B |0)". .SINUS-FUNK| 00000670: 54 49 4F 4E 20 92 1F 22 00 9E 0E FA 00 99 22 11 |TION .."......".| 00000680: 11 11 20 31 30 20 50 4F 4B 45 35 33 32 37 32 2C |.. 10 POKE53272,| 00000690: 50 45 45 4B 28 35 33 32 37 32 29 4F 52 38 00 C2 |PEEK(53272)OR8..| 000006A0: 0E FC 00 99 22 20 32 30 20 50 4F 4B 45 35 33 32 |...." 20 POKE532| 000006B0: 36 35 2C 50 45 45 4B 28 35 33 32 36 35 29 4F 52 |65,PEEK(53265)OR| 000006C0: 33 32 00 EB 0E FE 00 99 22 20 32 35 20 46 4F 52 |32......" 25 FOR| 000006D0: 4B 3D 30 54 4F 39 39 39 3A 50 4F 4B 45 31 30 32 |K=0TO999:POKE102| 000006E0: 34 2B 4B 2C 31 34 3A 4E 45 58 54 00 14 0F 00 01 |4+K,14:NEXT.....| 000006F0: 99 22 20 32 37 20 46 4F 52 49 3D 30 54 4F 37 39 |." 27 FORI=0TO79| 00000700: 39 39 3A 50 4F 4B 45 38 31 39 32 2B 49 2C 30 3A |99:POKE8192+I,0:| 00000710: 4E 45 58 54 00 2A 0F 02 01 99 22 20 35 30 20 46 |NEXT.*...." 50 F| 00000720: 4F 52 58 3D 30 54 4F 33 31 39 00 51 0F 04 01 99 |ORX=0TO319.Q....| 00000730: 22 20 36 30 20 59 3D 49 4E 54 28 31 30 30 2B 38 |" 60 Y=INT(100+8| 00000740: 30 2A 53 49 4E 28 58 2A 32 2A FF 2F 31 36 30 29 |0*SIN(X*2*./160)| 00000750: 29 00 66 0F 06 01 99 22 20 37 30 20 46 4F 52 4E |).f...." 70 FORN| 00000760: 3D 30 54 4F 32 34 00 95 0F 08 01 99 22 20 38 30 |=0TO24......" 80| 00000770: 20 49 46 59 3E 4E 2A 38 2D 31 41 4E 44 59 3C 28 | IFY>N*8-1ANDY<(| 00000780: 4E 2B 31 29 2A 38 54 48 45 4E 42 59 3D 38 31 39 |N+1)*8THENBY=819| 00000790: 32 2B 4E 2A 22 00 C2 0F 0A 01 99 22 20 20 20 20 |2+N*"......" | 000007A0: 33 32 30 2B 38 2A 49 4E 54 28 58 2F 38 29 2B 59 |320+8*INT(X/8)+Y| 000007B0: 2D 38 2A 4E 3A 4E 3D 32 34 3A 47 4F 54 4F 31 30 |-8*N:N=24:GOTO10| 000007C0: 30 22 00 D2 0F 0C 01 99 22 20 39 30 20 4E 45 58 |0"......" 90 NEX| 000007D0: 54 4E 00 F2 0F 0E 01 99 22 31 30 30 20 42 49 3D |TN......"100 BI=| 000007E0: 38 2A 28 31 2B 49 4E 54 28 58 2F 38 29 29 2D 58 |8*(1+INT(X/8))-X| 000007F0: 2D 31 00 28 10 10 01 99 22 31 31 30 20 49 46 50 |-1.(...."110 IFP| 00000800: 45 45 4B 28 42 59 29 3C 3E 30 54 48 45 4E 50 4F |EEK(BY)<>0THENPO| 00000810: 4B 45 42 59 2C 50 45 45 4B 28 42 59 29 4F 52 32 |KEBY,PEEK(BY)OR2| 00000820: 5E 20 20 20 20 42 49 22 00 4F 10 12 01 99 22 31 |^ BI".O...."1| 00000830: 32 30 20 49 46 50 45 45 4B 28 42 59 29 3D 30 54 |20 IFPEEK(BY)=0T| 00000840: 48 45 4E 50 4F 4B 45 42 59 2C 32 5E 42 49 22 00 |HENPOKEBY,2^BI".| 00000850: 60 10 14 01 99 22 31 33 30 20 4E 45 58 54 58 22 |`...."130 NEXTX"| 00000860: 00 6C 10 18 01 8D 37 3A 99 22 93 22 00 A8 10 22 |.l....7:."."..."| 00000870: 01 99 22 1E 5A 45 49 4C 45 20 20 31 30 1F 3A 20 |..".ZEILE 10.: | 00000880: 42 45 52 45 49 43 48 20 46 55 45 52 20 42 49 54 |BEREICH FUER BIT| 00000890: 4D 41 50 50 49 4E 47 22 3A 99 A3 31 31 29 22 41 |MAPPING":..11)"A| 000008A0: 42 20 38 31 39 32 2E 22 00 E4 10 2C 01 99 22 1E |B 8192."...,..".| 000008B0: 5A 45 49 4C 45 20 20 32 30 1F 3A 20 42 49 54 4D |ZEILE 20.: BITM| 000008C0: 41 50 4D 4F 44 45 20 57 49 52 44 20 45 49 4E 47 |APMODE WIRD EING| 000008D0: 45 2D 22 3A 99 A3 31 31 29 22 53 43 48 41 4C 54 |E-":..11)"SCHALT| 000008E0: 45 54 2E 22 00 12 11 36 01 99 22 1E 5A 45 49 4C |ET."...6..".ZEIL| 000008F0: 45 20 20 32 35 1F 3A 20 57 41 48 4C 20 44 45 52 |E 25.: WAHL DER| 00000900: 20 46 41 52 42 4B 4F 4D 42 49 4E 41 54 49 4F 4E | FARBKOMBINATION| 00000910: 2E 22 00 42 11 40 01 99 22 11 1E 5A 45 49 4C 45 |.".B.@.."..ZEILE| 00000920: 20 20 32 37 1F 3A 20 42 49 4C 44 53 43 48 49 52 | 27.: BILDSCHIR| 00000930: 4D 20 57 49 52 44 20 47 45 4C 4F 45 53 43 48 54 |M WIRD GELOESCHT| 00000940: 2E 22 00 60 11 4A 01 99 22 11 1E 5A 45 49 4C 45 |.".`.J.."..ZEILE| 00000950: 20 20 36 30 1F 3A 20 46 55 4E 4B 54 49 4F 4E 22 | 60.: FUNKTION"| 00000960: 00 9F 11 54 01 99 22 11 1E 5A 45 49 4C 45 20 20 |...T.."..ZEILE | 00000970: 38 30 1F 3A 20 4E 55 4D 4D 45 52 20 44 45 53 20 |80.: NUMMER DES | 00000980: 42 59 54 45 53 20 57 49 52 44 20 42 45 2D 22 3A |BYTES WIRD BE-":| 00000990: 99 A3 31 31 29 22 52 45 43 48 4E 45 54 2E 22 00 |..11)"RECHNET.".| 000009A0: CD 11 5E 01 99 22 1E 5A 45 49 4C 45 20 31 30 30 |..^..".ZEILE 100| 000009B0: 1F 3A 20 42 49 54 4D 55 53 54 45 52 20 57 49 52 |.: BITMUSTER WIR| 000009C0: 44 20 42 45 52 45 43 48 4E 45 54 2E 22 00 10 12 |D BERECHNET."...| 000009D0: 68 01 99 22 11 1E 5A 45 49 4C 45 20 31 31 30 1F |h.."..ZEILE 110.| 000009E0: 3A 20 50 52 55 45 46 54 2C 20 4F 42 20 45 49 4E |: PRUEFT, OB EIN| 000009F0: 20 42 49 54 20 47 45 53 45 54 5A 54 22 3A 99 A3 | BIT GESETZT":..| 00000A00: 35 29 22 1E 2B 31 32 30 1F 3A 20 49 53 54 2E 22 |5)".+120.: IST."| 00000A10: 00 3D 12 72 01 99 22 11 11 1C 42 45 4D 2E 3A 20 |.=.r.."...BEM.: | 00000A20: 41 4E 44 45 52 45 20 46 41 52 42 4B 4F 4D 42 49 |ANDERE FARBKOMBI| 00000A30: 4E 41 54 49 4F 4E 20 44 55 52 43 48 22 00 76 12 |NATION DURCH".v.| 00000A40: 77 01 99 A3 36 29 22 41 45 4E 44 45 52 4E 20 44 |w...6)"AENDERN D| 00000A50: 45 53 20 47 45 50 4F 4B 45 44 45 4E 20 57 45 52 |ES GEPOKEDEN WER| 00000A60: 54 45 53 22 3A 99 A3 36 29 22 28 5A 45 49 4C 45 |TES":..6)"(ZEILE| 00000A70: 20 32 35 29 2E 22 00 A0 12 7C 01 99 A3 36 29 22 | 25)."...|...6)"| 00000A80: 42 49 4C 44 53 43 48 49 52 4D 46 41 52 42 45 3A |BILDSCHIRMFARBE:| 00000A90: 20 55 4E 54 45 52 45 20 34 20 42 49 54 53 20 22 | UNTERE 4 BITS "| 00000AA0: 00 CA 12 81 01 99 A3 36 29 22 46 41 52 42 45 20 |.......6)"FARBE | 00000AB0: 44 45 53 20 47 52 41 50 48 45 4E 3A 20 4F 42 45 |DES GRAPHEN: OBE| 00000AC0: 52 45 20 34 20 42 49 54 53 22 00 F3 12 86 01 99 |RE 4 BITS"......| 00000AD0: A3 36 29 22 1F 44 2E 48 2E 20 55 4E 54 45 52 45 |.6)".D.H. UNTERE| 00000AE0: 53 20 55 2E 20 4F 42 45 52 45 53 20 4E 59 42 42 |S U. OBERES NYBB| 00000AF0: 4C 45 22 00 FF 12 90 01 8D 37 3A 99 22 93 22 00 |LE"......7:.".".| 00000B00: 15 13 9A 01 97 35 33 32 37 32 2C C2 28 35 33 32 |.....53272,.(532| 00000B10: 37 32 29 B0 38 00 2C 13 A4 01 97 35 33 32 36 35 |72).8.,....53265| 00000B20: 2C C2 28 35 33 32 36 35 29 B0 33 32 00 46 13 A9 |,.(53265).32.F..| 00000B30: 01 81 4B B2 30 A4 39 39 39 3A 97 31 30 32 34 AA |..K.0.999:.1024.| 00000B40: 4B 2C 31 34 3A 82 00 60 13 AB 01 81 49 B2 30 A4 |K,14:..`....I.0.| 00000B50: 37 39 39 39 3A 97 38 31 39 32 AA 49 2C 30 3A 82 |7999:.8192.I,0:.| 00000B60: 00 6D 13 C2 01 81 58 B2 30 A4 33 31 39 00 8A 13 |.m....X.0.319...| 00000B70: CC 01 59 B2 B5 28 31 30 30 AA 38 30 AC BF 28 58 |..Y..(100.80..(X| 00000B80: AC 32 AC FF AD 31 36 30 29 29 00 96 13 D6 01 81 |.2...160))......| 00000B90: 4E B2 30 A4 32 34 00 D4 13 E0 01 8B 59 B1 4E AC |N.0.24......Y.N.| 00000BA0: 38 AB 31 AF 59 B3 28 4E AA 31 29 AC 38 A7 42 59 |8.1.Y.(N.1).8.BY| 00000BB0: B2 38 31 39 32 AA 4E AC 33 32 30 AA 38 AC B5 28 |.8192.N.320.8..(| 00000BC0: 58 AD 38 29 AA 59 AB 38 AC 4E 3A 4E B2 32 34 3A |X.8).Y.8.N:N.24:| 00000BD0: 89 35 30 30 00 DB 13 EA 01 82 4E 00 F3 13 F4 01 |.500......N.....| 00000BE0: 42 49 B2 38 AC 28 31 AA B5 28 58 AD 38 29 29 AB |BI.8.(1..(X.8)).| 00000BF0: 58 AB 31 00 10 14 FE 01 8B C2 28 42 59 29 B3 B1 |X.1.......(BY)..| 00000C00: 30 A7 97 42 59 2C C2 28 42 59 29 B0 32 AE 42 49 |0..BY,.(BY).2.BI| 00000C10: 00 26 14 08 02 8B C2 28 42 59 29 B2 30 A7 97 42 |.&.....(BY).0..B| 00000C20: 59 2C 32 AE 42 49 00 2D 14 12 02 82 58 00 48 14 |Y,2.BI.-....X.H.| 00000C30: 1C 02 8D 37 3A 97 35 33 32 37 32 2C 32 31 3A 97 |...7:.53272,21:.| 00000C40: 35 33 32 36 35 2C 32 37 00 63 14 26 02 97 35 33 |53265,27.c.&..53| 00000C50: 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 3A 99 |280,1:.53281,1:.| 00000C60: 22 93 22 00 94 14 30 02 8D 33 3A 99 22 11 11 11 |"."...0..3:."...| 00000C70: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 20 45 4E |............. EN| 00000C80: 44 45 20 56 4F 4E 20 4C 45 4B 54 49 4F 4E 20 31 |DE VON LEKTION 1| 00000C90: 30 20 92 22 00 C5 14 3A 02 99 22 11 11 11 11 11 |0 ."...:..".....| 00000CA0: 1D 1D 1D 1F 53 49 4E 44 20 53 49 45 20 42 45 52 |....SIND SIE BER| 00000CB0: 45 49 54 20 46 55 45 52 20 4C 45 4B 54 49 4F 4E |EIT FUER LEKTION| 00000CC0: 20 31 31 3F 22 00 E4 14 44 02 99 22 11 11 1D 1D | 11?"...D.."....| 00000CD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 28 4A 2F 4E |............(J/N| 00000CE0: 29 20 3F 22 00 F7 14 4E 02 A1 42 24 3A 8B 42 24 |) ?"...N..B$:.B$| 00000CF0: B2 22 22 A7 35 39 30 00 07 15 58 02 8B 42 24 B2 |."".590...X..B$.| 00000D00: 22 4E 22 A7 37 30 30 00 18 15 62 02 8B 42 24 B3 |"N".700...b..B$.| 00000D10: B1 22 4A 22 A7 35 39 30 00 48 15 66 02 99 22 13 |."J".590.H.f..".| 00000D20: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 20 |............... | 00000D30: 42 49 54 54 45 20 57 41 52 54 45 4E 21 20 20 20 |BITTE WARTEN! | 00000D40: 20 20 20 20 20 20 20 22 00 79 15 68 02 99 22 11 | ".y.h..".| 00000D50: 11 11 11 11 1D 1D 1D 20 20 20 4C 45 4B 54 49 4F |....... LEKTIO| 00000D60: 4E 20 31 31 20 57 49 52 44 20 47 45 4C 41 44 45 |N 11 WIRD GELADE| 00000D70: 4E 2E 20 20 20 20 20 20 22 00 9C 15 69 02 99 22 |N. "...i.."| 00000D80: 11 11 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000D90: 20 20 20 20 20 20 20 20 20 20 20 22 00 B1 15 6C | "...l| 00000DA0: 02 93 22 31 31 2F 31 4C 45 4B 54 49 4F 4E 22 2C |.."11/1LEKTION",| 00000DB0: 38 00 C1 15 BC 02 81 49 B2 31 A4 37 30 30 3A 82 |8......I.1.700:.| 00000DC0: 49 00 CC 15 D0 02 9E 36 34 37 33 38 00 00 00 01 |I......64738....|
.......45,B(174):.46,B(175):.:.788,52:.6 57,128.H....53280,1:.53281,1:.16.Z....". .":.I.1.39:.C$;:.:.I.1.22:.".."C$;:.:.". ";......I.1.38:."."C$".";:.:.C$......I.1 .23:."."C$".";:.:..C....A$:.A$."".7.K... .:......Z$.G(34):C$.".":.3:.".......".13 )".LEKTION 10..".......13)".......FORTSE TZUNG".%....7.Q....".":..6)".. HOCHAUFLO ESENDE GRAPHIK ."......"...EINE MAXIMALE AUFLOESUNG VON":..6)"..200 X 320 BILDPU NKTEN.."...(.."LAESST SICH DURCH BELEGEN EINES BE-":."STIMMTEN SPEICHERBEREICHES MIT EINEM.5.2..".BITMUSTER., DAS DEM GE WUENSCHTEN GRAPHEN":."ENTSPRICHT, ERREIC HEN.".Z.<..".DIESER BEREICH WIRD DANN AU F DEM BILD-":."SCHIRM ABGEBILDET."...F.. ".DIESES VERFAHREN NENNT MAN":..10)".# . BITMAPPING .#."...P..".HIERZU MUSS ZUERS T DAS .BIT 3. IN DER":.".ADRESSE 53272. GESETZT WERDEN.".X.Z.."DIES BEWIRKT, DAS S DER SPEICHERBEREICH":."AB 8192 FUER DA S .BITMAPPING.";.Y.D.." BENUTZT":."WIRD. ":.7:.".".G.N.."UM DIESEN BEREICH AUF DE M BILDSCHIRM":."ABZUBILDEN, MUSS NUN NOC H DAS";.W.S..". BIT 5."...X.."IN .ADRESS E 53265 .GESETZT WERDEN.":."DIES SCHALTE T DEN .BIT-";.3...."MAP-MODE. EIN."..... .".NUN BESTEHT NOCH DAS PROBLEM, EINEN": ."VORGEGEBENEN GRAPHEN (ALSO EINE";..... ." FUNKTION";:."USW.) IN EIN BITMUSTER U MZURECHNEN."... ..".EINE EINFACHE METHOD E, ANGEWANDT AUF"......"EINE .SINUS-FUNK TION., ZEIGT DAS FOL-".T...."GENDE PROGR AMM.":.".SOLL EINE ANDERE FUNKTION F(X) GE-"......"ZEICHNET WERDEN, SO MUSS DIES E IN ZEILE"...H.."60 IN DER FORM .. Y = INT(F(X)) .. EIN-"...R.."GESETZT WERDEN. ":.".... ACHTUNG . : FOLGENDE GRENZEN FU ER ";.>...."X UND":..12)"Y SIND ZU BERUE CKSICHTIGEN:":..12)".0<X<319 UND 0";.L ...."<Y<199".X....7:.".".X.....10)". .SI NUS-FUNKTION .."......"... 10 POKE53272, PEEK(53272)OR8.B...." 20 POKE53265,PEEK( 53265)OR32......" 25 FORK=0TO999:POKE102 4+K,14:NEXT......" 27 FORI=0TO7999:POKE8 192+I,0:NEXT.*...." 50 FORX=0TO319.Q.... " 60 Y=INT(100+80*SIN(X*2*./160)).F...." 70 FORN=0TO24......" 80 IFY>N*8-1ANDY<( N+1)*8THENBY=8192+N*".B...." 320+8*IN T(X/8)+Y-8*N:N=24:GOTO100".R...." 90 NEX TN......"100 BI=8*(1+INT(X/8))-X-1.(.... "110 IFPEEK(BY)<>0THENPOKEBY,PEEK(BY)OR2 ^ BI".O...."120 IFPEEK(BY)=0THENPOKEB Y,2^BI".`...."130 NEXTX".L....7:."."..." ..".ZEILE 10.: BEREICH FUER BITMAPPING" :..11)"AB 8192."...,..".ZEILE 20.: BITM APMODE WIRD EINGE-":..11)"SCHALTET."...6 ..".ZEILE 25.: WAHL DER FARBKOMBINATION .".B.@.."..ZEILE 27.: BILDSCHIRM WIRD G ELOESCHT.".`.J.."..ZEILE 60.: FUNKTION" ...T.."..ZEILE 80.: NUMMER DES BYTES WI RD BE-":..11)"RECHNET.".M.^..".ZEILE 100 .: BITMUSTER WIRD BERECHNET."...H.."..ZE ILE 110.: PRUEFT, OB EIN BIT GESETZT":.. 5)".+120.: IST.".=.R.."...BEM.: ANDERE F ARBKOMBINATION DURCH".V.W...6)"AENDERN D ES GEPOKEDEN WERTES":..6)"(ZEILE 25).". .|...6)"BILDSCHIRMFARBE: UNTERE 4 BITS " .J.....6)"FARBE DES GRAPHEN: OBERE 4 BIT S".......6)".D.H. UNTERES U. OBERES NYBB LE"......7:."."......53272,B(53272).8.,. ...53265,B(53265).32.F....K.0.999:.1024. K,14:..`....I.0.7999:.8192.I,0:..M.B..X. 0.319...L.Y..(100.80..(X.2...160))...V.. N.0.24.T....Y.N.8.1.Y.(N.1).8.BY.8192.N. 320.8..(X.8).Y.8.N:N.24:.500......N..... BI.8.(1..(X.8)).X.1......B(BY)..0..BY,B( BY).2.BI.&....B(BY).0..BY,2.BI.-....X.H. ...7:.53272,21:.53265,27.C.&..53280,1:.5 3281,1:."."...0..3:."................ EN DE VON LEKTION 10 .".E.:..".........SIND SIE BEREIT FUER LEKTION 11?"...D..".... ............(J/N) ?"...N..B$:.B$."".590. ..X..B$."N".700...B..B$.."J".590.H.F..". ............... BITTE WARTEN! " .Y.H.."........ LEKTION 11 WIRD GELADE N. "...I..".... "...L.."11/1LEKTION",8.A....I.1.700:. I.L.P..64738....
> CLICK IMAGE PREVIEW FOR FULL MODAL