/ 64'er 1993 November / 64er_Magazin_93-11_1993_Markt__Technik_de_Side_A.d64 / ba.basic.demo

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 50 2a 5b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.P*[****|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 5b 2a 2a |********|*****[**|
|00000030| 2a 20 20 20 20 20 20 20 | 20 20 42 41 53 49 43 2d |*       |  BASIC-|
|00000040| 44 45 4d 4f 20 46 55 45 | 52 20 20 20 20 20 20 20 |DEMO FUE|R       |
|00000050| 20 20 2a 2a 2a 2a 2a 5b | 2a 2a 2a 20 20 20 20 20 |  *****[|***     |
|00000060| 20 20 20 20 20 50 4f 50 | 55 50 20 56 31 2e 31 20 |     POP|UP V1.1 |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2a 2a 2a |        |    ****|
|00000080| 2a 5b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*[******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 03 0d 03 24 52 45 |********|**...$RE|
|000000b0| 4d 20 2a 20 42 41 53 49 | 43 2d 44 45 4d 4f 20 46 |M * BASI|C-DEMO F|
|000000c0| 55 45 52 20 22 50 4f 50 | 55 50 20 56 31 22 20 2a |UER "POP|UP V1" *|
|000000d0| 24 05 52 45 4d 05 03 0d | 03 03 0d 03 1e 5b 5a 55 |$.REM...|.....[ZU|
|000000e0| 45 52 53 54 20 4d 55 53 | 53 20 44 49 45 20 52 4f |ERST MUS|S DIE RO|
|000000f0| 55 54 49 4e 45 20 2e 2e | 2e 1e 17 5b 22 50 4f 50 |UTINE ..|...["POP|
|00000100| 55 50 20 56 31 2e 31 22 | 20 55 4e 44 20 2e 2e 2e |UP V1.1"| UND ...|
|00000110| 17 03 0d 03 24 49 46 20 | 51 3d 30 20 54 48 45 4e |....$IF |Q=0 THEN|
|00000120| 20 51 3d 31 3a 4c 4f 41 | 44 22 50 4f 50 55 50 20 | Q=1:LOA|D"POPUP |
|00000130| 56 31 22 2c 38 2c 31 24 | 03 0d 03 03 0d 03 1c 5b |V1",8,1$|.......[|
|00000140| 44 41 53 20 4d 45 4e 55 | 45 20 47 45 4c 41 44 45 |DAS MENU|E GELADE|
|00000150| 4e 20 57 45 52 44 45 4e | 21 1c 03 0d 03 1b 53 59 |N WERDEN|!.....SY|
|00000160| 53 20 34 39 31 35 32 2b | 36 2c 22 4d 45 4e 55 45 |S 49152+|6,"MENUE|
|00000170| 22 2c 38 31 39 32 3a 1b | 26 47 4f 53 55 42 20 4c |",8192:.|&GOSUB L|
|00000180| 4f 41 44 2d 53 54 41 54 | 55 53 3a 52 45 4d 20 46 |OAD-STAT|US:REM F|
|00000190| 49 4c 45 20 47 45 4c 41 | 44 45 4e 20 3f 26 03 0d |ILE GELA|DEN ?&..|
|000001a0| 03 05 52 45 4d 05 03 0d | 03 2a 50 52 49 4e 54 22 |..REM...|.*PRINT"|
|000001b0| 93 22 3a 50 3d 34 39 31 | 35 32 3a 50 4f 4b 45 35 |.":P=491|52:POKE5|
|000001c0| 33 32 38 30 2c 30 3a 50 | 4f 4b 45 35 33 32 38 31 |3280,0:P|OKE53281|
|000001d0| 2c 30 2a 03 0d 03 2a 41 | 24 3d 22 93 11 11 11 11 |,0*...*A|$=".....|
|000001e0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|000001f0| 46 4f 4c 47 45 4e 44 45 | 52 20 4d 45 4e 55 45 2a |FOLGENDE|R MENUE*|
|00000200| 25 2d 50 55 4e 4b 54 20 | 57 55 52 44 45 20 41 55 |%-PUNKT |WURDE AU|
|00000210| 53 47 45 57 41 45 48 4c | 54 3a 22 2b 43 48 52 24 |SGEWAEHL|T:"+CHR$|
|00000220| 28 31 33 29 25 03 0d 03 | 03 0d 03 26 5b 41 55 46 |(13)%...|...&[AUF|
|00000230| 46 4f 52 44 45 52 55 4e | 47 2c 20 44 45 4e 20 4e |FORDERUN|G, DEN N|
|00000240| 41 4d 45 4e 20 45 49 4e | 5a 55 47 45 42 45 4e 3a |AMEN EIN|ZUGEBEN:|
|00000250| 26 03 0d 03 07 5f 4e 41 | 4d 45 07 2a 53 59 53 20 |&...._NA|ME.*SYS |
|00000260| 50 2b 33 2c 38 2c 33 2c | 39 2c 32 3a 50 52 49 4e |P+3,8,3,|9,2:PRIN|
|00000270| 54 22 13 22 3a 49 4e 50 | 55 54 4e 24 3a 49 46 4e |T".":INP|UTN$:IFN|
|00000280| 24 3d 22 22 2a 0b 54 48 | 45 4e 20 4e 41 4d 45 0b |$=""*.TH|EN NAME.|
|00000290| 03 0d 03 1f 5b 57 49 4e | 2d 4e 52 2e 20 39 20 28 |....[WIN|-NR. 9 (|
|000002a0| 22 44 41 4e 4b 45 22 29 | 20 41 55 46 52 55 46 45 |"DANKE")| AUFRUFE|
|000002b0| 4e 1f 03 0d 03 28 46 4f | 52 59 3d 30 54 4f 32 32 |N....(FO|RY=0TO22|
|000002c0| 20 53 54 45 50 20 33 3a | 53 59 53 20 50 2b 33 2c | STEP 3:|SYS P+3,|
|000002d0| 39 2c 36 2c 59 2c 31 3a | 4e 45 58 54 28 03 0d 03 |9,6,Y,1:|NEXT(...|
|000002e0| 26 46 4f 52 48 3d 31 54 | 4f 32 35 30 30 3a 4e 45 |&FORH=1T|O2500:NE|
|000002f0| 58 54 3a 50 52 49 4e 54 | 22 93 22 3a 47 4f 54 4f |XT:PRINT|".":GOTO|
|00000300| 50 41 55 53 45 26 03 0d | 03 05 52 45 4d 05 03 0d |PAUSE&..|..REM...|
|00000310| 03 1a 5f 50 41 55 53 45 | 20 46 4f 52 48 3d 31 54 |.._PAUSE| FORH=1T|
|00000320| 4f 32 30 30 30 3a 4e 45 | 58 54 1a 03 0d 03 03 0d |O2000:NE|XT......|
|00000330| 03 26 5b 48 49 45 52 20 | 57 49 52 44 20 44 41 53 |.&[HIER |WIRD DAS|
|00000340| 20 48 41 55 50 54 4d 45 | 4e 55 45 20 41 55 46 47 | HAUPTME|NUE AUFG|
|00000350| 45 52 55 46 45 4e 26 03 | 0d 03 20 5f 4d 41 49 4e |ERUFEN&.|.. _MAIN|
|00000360| 20 53 59 53 20 50 2c 31 | 20 20 3a 52 45 4d 20 48 | SYS P,1|  :REM H|
|00000370| 41 55 50 54 4d 45 4e 55 | 45 20 03 0d 03 20 41 3d |AUPTMENU|E ... A=|
|00000380| 50 45 45 4b 28 32 29 20 | 20 3a 52 45 4d 20 4e 52 |PEEK(2) | :REM NR|
|00000390| 2e 20 44 45 53 20 4d 45 | 4e 55 45 53 20 27 42 3d |. DES ME|NUES 'B=|
|000003a0| 50 45 45 4b 28 33 29 20 | 20 3a 52 45 4d 20 4e 52 |PEEK(3) | :REM NR|
|000003b0| 2e 20 44 45 53 20 4d 45 | 4e 55 45 2d 50 55 4e 4b |. DES ME|NUE-PUNK|
|000003c0| 54 45 53 27 03 0d 03 2a | 5b 57 55 52 44 45 20 44 |TES'...*|[WURDE D|
|000003d0| 41 53 20 44 49 52 2e 20 | 41 4e 47 45 57 41 45 48 |AS DIR. |ANGEWAEH|
|000003e0| 4c 54 2c 20 45 4e 54 48 | 41 45 4c 54 20 44 49 45 |LT, ENTH|AELT DIE|
|000003f0| 2a 29 5b 41 44 52 45 53 | 53 45 20 32 20 44 45 4e |*)[ADRES|SE 2 DEN|
|00000400| 20 57 45 52 54 20 30 20 | 55 4e 44 20 44 49 45 20 | WERT 0 |UND DIE |
|00000410| 41 44 52 45 53 53 45 20 | 33 29 2a 5b 44 45 4e 20 |ADRESSE |3)*[DEN |
|00000420| 53 54 41 54 55 53 20 44 | 45 52 20 4f 50 45 52 41 |STATUS D|ER OPERA|
|00000430| 54 49 4f 4e 20 28 53 2e | 20 41 4e 4c 45 49 54 55 |TION (S.| ANLEITU|
|00000440| 4e 47 29 2a 03 0d 03 27 | 49 46 20 42 3d 30 20 41 |NG)*...'|IF B=0 A|
|00000450| 4e 44 20 41 3c 3e 30 20 | 47 4f 54 4f 20 53 43 48 |ND A<>0 |GOTO SCH|
|00000460| 4c 55 53 53 3a 52 45 4d | 20 45 4e 44 45 27 03 0d |LUSS:REM| ENDE'..|
|00000470| 03 29 49 46 20 41 3d 30 | 20 41 4e 44 20 42 3c 3d |.)IF A=0| AND B<=|
|00000480| 31 20 47 4f 54 4f 20 4d | 41 49 4e 3a 52 45 4d 20 |1 GOTO M|AIN:REM |
|00000490| 44 49 52 20 57 55 52 44 | 45 29 1a 4d 49 54 20 22 |DIR WURD|E).MIT "|
|000004a0| 4c 49 4e 4b 53 50 46 45 | 49 4c 22 20 42 45 45 4e |LINKSPFE|IL" BEEN|
|000004b0| 44 45 54 1a 03 0d 03 2a | 49 46 20 41 3d 30 20 41 |DET....*|IF A=0 A|
|000004c0| 4e 44 20 42 3d 32 20 47 | 4f 54 4f 20 44 49 52 2d |ND B=2 G|OTO DIR-|
|000004d0| 53 54 41 54 55 53 3a 52 | 45 4d 20 41 4c 4c 47 45 |STATUS:R|EM ALLGE|
|000004e0| 2a 14 4d 45 49 4e 45 52 | 20 44 49 53 4b 2d 46 45 |*.MEINER| DISK-FE|
|000004f0| 48 4c 45 52 14 03 0d 03 | 28 49 46 20 41 3d 30 20 |HLER....|(IF A=0 |
|00000500| 41 4e 44 20 42 3d 33 20 | 54 48 45 4e 20 47 4f 53 |AND B=3 |THEN GOS|
|00000510| 55 42 20 4c 4f 41 44 2d | 53 54 41 54 55 53 3a 28 |UB LOAD-|STATUS:(|
|00000520| 20 47 4f 54 4f 20 4d 41 | 49 4e 3a 52 45 4d 20 50 | GOTO MA|IN:REM P|
|00000530| 52 47 2e 20 4c 45 53 45 | 2d 46 45 48 4c 45 52 20 |RG. LESE|-FEHLER |
|00000540| 03 0d 03 03 0d 03 2a 5b | 4a 45 20 4e 41 43 48 20 |......*[|JE NACH |
|00000550| 41 4e 47 45 57 41 45 48 | 4c 54 45 4d 20 57 49 4e |ANGEWAEH|LTEM WIN|
|00000560| 44 4f 57 20 57 45 52 44 | 45 4e 20 48 49 45 52 2a |DOW WERD|EN HIER*|
|00000570| 24 5b 44 49 45 20 45 4e | 54 53 50 52 45 43 48 45 |$[DIE EN|TSPRECHE|
|00000580| 4e 44 45 4e 20 55 4e 54 | 45 52 50 52 4f 47 52 41 |NDEN UNT|ERPROGRA|
|00000590| 4d 4d 45 24 0f 5b 41 4e | 47 45 53 50 52 55 4e 47 |MME$.[AN|GESPRUNG|
|000005a0| 45 4e 0f 28 5b 44 41 53 | 20 48 41 55 50 54 4d 45 |EN.([DAS| HAUPTME|
|000005b0| 4e 55 45 20 48 41 54 20 | 44 49 45 20 4e 52 2e 20 |NUE HAT |DIE NR. |
|000005c0| 31 2c 20 44 45 53 48 41 | 4c 42 28 0a 5b 22 41 20 |1, DESHA|LB(.["A |
|000005d0| 2d 20 31 22 0a 03 0d 03 | 2a 4f 4e 20 41 2d 31 20 |- 1"....|*ON A-1 |
|000005e0| 47 4f 54 4f 20 44 41 54 | 45 49 2c 42 45 41 52 42 |GOTO DAT|EI,BEARB|
|000005f0| 45 49 54 2c 46 4f 52 4d | 41 54 2c 54 4f 4f 4c 53 |EIT,FORM|AT,TOOLS|
|00000600| 2c 2a 0b 46 4f 4e 54 2c | 49 4e 46 4f 0b 03 0d 03 |,*.FONT,|INFO....|
|00000610| 28 52 45 4d 20 2e 2e 2e | 20 58 2d 42 45 4c 49 45 |(REM ...| X-BELIE|
|00000620| 42 49 47 45 20 50 52 4f | 47 52 41 4d 4d 2d 5a 45 |BIGE PRO|GRAMM-ZE|
|00000630| 49 4c 45 4e 2e 2e 2e 28 | 1c 52 45 4d 20 2d 2d 2d |ILEN...(|.REM ---|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 1c 03 0d 03 24 | 5b 48 49 45 52 20 4b 4f |---....$|[HIER KO|
|00000660| 45 4e 4e 54 45 20 44 41 | 53 20 31 2e 20 55 4e 54 |ENNTE DA|S 1. UNT|
|00000670| 45 52 50 52 4f 47 52 41 | 4d 4d 24 0c 5b 53 54 45 |ERPROGRA|MM$.[STE|
|00000680| 48 45 4e 2e 2e 2e 0c 26 | 5b 4a 45 20 4e 41 43 48 |HEN....&|[JE NACH|
|00000690| 20 41 4e 47 45 57 41 45 | 48 4c 54 45 4d 20 4d 45 | ANGEWAE|HLTEM ME|
|000006a0| 4e 55 45 2d 50 55 4e 4b | 54 20 49 4d 26 27 5b 4d |NUE-PUNK|T IM&'[M|
|000006b0| 45 4e 55 45 20 57 45 52 | 44 45 4e 20 48 49 45 52 |ENUE WER|DEN HIER|
|000006c0| 20 44 49 45 20 45 4e 54 | 53 50 52 45 43 48 45 4e | DIE ENT|SPRECHEN|
|000006d0| 44 45 4e 27 1e 5b 55 4e | 54 45 52 50 52 4f 47 52 |DEN'.[UN|TERPROGR|
|000006e0| 41 4d 4d 45 20 41 4e 47 | 45 53 50 52 55 4e 47 45 |AMME ANG|ESPRUNGE|
|000006f0| 4e 1e 03 0d 03 2a 5f 44 | 41 54 45 49 20 4f 4e 20 |N....*_D|ATEI ON |
|00000700| 42 20 47 4f 53 55 42 20 | 4c 41 44 45 4e 2c 53 50 |B GOSUB |LADEN,SP|
|00000710| 45 49 43 48 45 52 4e 2c | 44 52 55 43 4b 45 2a 09 |EICHERN,|DRUCKE*.|
|00000720| 4e 2c 44 45 58 49 54 09 | 03 0d 03 0b 47 4f 54 4f |N,DEXIT.|....GOTO|
|00000730| 50 41 55 53 45 0b 03 0d | 03 1b 52 45 4d 20 2d 2d |PAUSE...|..REM --|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 2d 1b 03 0d 03 08 | 5f 4c 41 44 45 4e 08 25 |---.....|_LADEN.%|
|00000760| 50 52 49 4e 54 20 41 24 | 3a 50 52 49 4e 54 22 44 |PRINT A$|:PRINT"D|
|00000770| 41 54 45 49 3a 20 4c 41 | 44 45 4e 22 3a 52 45 54 |ATEI: LA|DEN":RET|
|00000780| 55 52 4e 25 03 0d 03 0c | 5f 53 50 45 49 43 48 45 |URN%....|_SPEICHE|
|00000790| 52 4e 0c 29 50 52 49 4e | 54 20 41 24 3a 50 52 49 |RN.)PRIN|T A$:PRI|
|000007a0| 4e 54 22 44 41 54 45 49 | 3a 20 53 50 45 49 43 48 |NT"DATEI|: SPEICH|
|000007b0| 45 52 4e 22 3a 52 45 54 | 55 52 4e 29 03 0d 03 0a |ERN":RET|URN)....|
|000007c0| 5f 44 52 55 43 4b 45 4e | 0a 27 50 52 49 4e 54 20 |_DRUCKEN|.'PRINT |
|000007d0| 41 24 3a 50 52 49 4e 54 | 22 44 41 54 45 49 3a 20 |A$:PRINT|"DATEI: |
|000007e0| 44 52 55 43 4b 45 4e 22 | 3a 52 45 54 55 52 4e 27 |DRUCKEN"|:RETURN'|
|000007f0| 03 0d 03 08 5f 44 45 58 | 49 54 08 24 50 52 49 4e |...._DEX|IT.$PRIN|
|00000800| 54 20 41 24 3a 50 52 49 | 4e 54 22 44 41 54 45 49 |T A$:PRI|NT"DATEI|
|00000810| 3a 20 45 58 49 54 22 3a | 52 45 54 55 52 4e 24 03 |: EXIT":|RETURN$.|
|00000820| 0d 03 1c 52 45 4d 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...REM -|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 1c 03 0d |--------|-----...|
|00000840| 03 2a 5f 42 45 41 52 42 | 45 49 54 20 4f 4e 20 42 |.*_BEARB|EIT ON B|
|00000850| 20 47 4f 53 55 42 20 56 | 45 52 53 43 48 49 45 42 | GOSUB V|ERSCHIEB|
|00000860| 45 4e 2c 4b 4f 50 49 45 | 52 45 2a 18 4e 2c 4c 4f |EN,KOPIE|RE*.N,LO|
|00000870| 45 53 43 48 45 4e 2c 42 | 4c 4f 43 4b 2c 42 45 58 |ESCHEN,B|LOCK,BEX|
|00000880| 49 54 18 03 0d 03 0b 47 | 4f 54 4f 50 41 55 53 45 |IT.....G|OTOPAUSE|
|00000890| 0b 03 0d 03 05 52 45 4d | 05 03 0d 03 0e 5f 56 45 |.....REM|....._VE|
|000008a0| 52 53 43 48 49 45 42 45 | 4e 0e 27 50 52 49 4e 54 |RSCHIEBE|N.'PRINT|
|000008b0| 41 24 3a 50 52 49 4e 54 | 22 42 45 41 52 42 45 49 |A$:PRINT|"BEARBEI|
|000008c0| 54 3a 20 56 45 52 53 43 | 48 49 45 42 45 4e 22 3a |T: VERSC|HIEBEN":|
|000008d0| 27 08 52 45 54 55 52 4e | 08 03 0d 03 0b 5f 4b 4f |'.RETURN|....._KO|
|000008e0| 50 49 45 52 45 4e 0b 2a | 50 52 49 4e 54 41 24 3a |PIEREN.*|PRINTA$:|
|000008f0| 50 52 49 4e 54 22 42 45 | 41 52 42 45 49 54 3a 20 |PRINT"BE|ARBEIT: |
|00000900| 4b 4f 50 49 45 52 45 4e | 22 3a 52 45 54 55 52 4e |KOPIEREN|":RETURN|
|00000910| 2a 03 0d 03 0b 5f 4c 4f | 45 53 43 48 45 4e 0b 2a |*...._LO|ESCHEN.*|
|00000920| 50 52 49 4e 54 41 24 3a | 50 52 49 4e 54 22 42 45 |PRINTA$:|PRINT"BE|
|00000930| 41 52 42 45 49 54 3a 20 | 4c 4f 45 53 43 48 45 4e |ARBEIT: |LOESCHEN|
|00000940| 22 3a 52 45 54 55 52 4e | 2a 03 0d 03 08 5f 42 4c |":RETURN|*...._BL|
|00000950| 4f 43 4b 08 27 50 52 49 | 4e 54 41 24 3a 50 52 49 |OCK.'PRI|NTA$:PRI|
|00000960| 4e 54 22 42 45 41 52 42 | 45 49 54 3a 20 42 4c 4f |NT"BEARB|EIT: BLO|
|00000970| 43 4b 22 3a 52 45 54 55 | 52 4e 27 03 0d 03 08 5f |CK":RETU|RN'...._|
|00000980| 42 45 58 49 54 08 26 50 | 52 49 4e 54 41 24 3a 50 |BEXIT.&P|RINTA$:P|
|00000990| 52 49 4e 54 22 42 45 41 | 52 42 45 49 54 3a 20 45 |RINT"BEA|RBEIT: E|
|000009a0| 58 49 54 22 3a 52 45 54 | 55 52 4e 26 03 0d 03 1d |XIT":RET|URN&....|
|000009b0| 52 45 4d 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |REM ----|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 1d 03 0d 03 2a |--------|---....*|
|000009d0| 5f 46 4f 52 4d 41 54 20 | 4f 4e 20 42 20 47 4f 53 |_FORMAT |ON B GOS|
|000009e0| 55 42 20 5a 45 49 4c 45 | 2c 53 45 49 54 45 2c 54 |UB ZEILE|,SEITE,T|
|000009f0| 45 58 54 2c 46 45 58 49 | 2a 03 54 03 0b 47 4f 54 |EXT,FEXI|*.T..GOT|
|00000a00| 4f 50 41 55 53 45 0b 03 | 0d 03 05 52 45 4d 05 03 |OPAUSE..|...REM..|
|00000a10| 0d 03 08 5f 5a 45 49 4c | 45 08 25 50 52 49 4e 54 |..._ZEIL|E.%PRINT|
|00000a20| 41 24 3a 50 52 49 4e 54 | 22 46 4f 52 4d 41 54 3a |A$:PRINT|"FORMAT:|
|00000a30| 20 5a 45 49 4c 45 22 3a | 52 45 54 55 52 4e 25 03 | ZEILE":|RETURN%.|
|00000a40| 0d 03 08 5f 53 45 49 54 | 45 08 25 50 52 49 4e 54 |..._SEIT|E.%PRINT|
|00000a50| 41 24 3a 50 52 49 4e 54 | 22 46 4f 52 4d 41 54 3a |A$:PRINT|"FORMAT:|
|00000a60| 20 53 45 49 54 45 22 3a | 52 45 54 55 52 4e 25 03 | SEITE":|RETURN%.|
|00000a70| 0d 03 07 5f 54 45 58 54 | 07 24 50 52 49 4e 54 41 |..._TEXT|.$PRINTA|
|00000a80| 24 3a 50 52 49 4e 54 22 | 46 4f 52 4d 41 54 3a 20 |$:PRINT"|FORMAT: |
|00000a90| 54 45 58 54 22 3a 52 45 | 54 55 52 4e 24 03 0d 03 |TEXT":RE|TURN$...|
|00000aa0| 08 5f 46 45 58 49 54 08 | 24 50 52 49 4e 54 41 24 |._FEXIT.|$PRINTA$|
|00000ab0| 3a 50 52 49 4e 54 22 46 | 4f 52 4d 41 54 3a 20 45 |:PRINT"F|ORMAT: E|
|00000ac0| 58 49 54 22 3a 52 45 54 | 55 52 4e 24 03 0d 03 1d |XIT":RET|URN$....|
|00000ad0| 52 45 4d 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |REM ----|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 1d 03 0d 03 2a |--------|---....*|
|00000af0| 5f 54 4f 4f 4c 53 20 4f | 4e 20 42 20 47 4f 53 55 |_TOOLS O|N B GOSU|
|00000b00| 42 20 4c 45 58 49 4b 4f | 4e 2c 54 48 45 53 41 55 |B LEXIKO|N,THESAU|
|00000b10| 52 55 53 2c 4d 41 43 52 | 2a 18 4f 2c 44 41 54 55 |RUS,MACR|*.O,DATU|
|00000b20| 4d 2c 4c 49 4e 49 45 52 | 45 4e 2c 54 45 58 49 54 |M,LINIER|EN,TEXIT|
|00000b30| 18 03 0d 03 0b 47 4f 54 | 4f 50 41 55 53 45 0b 03 |.....GOT|OPAUSE..|
|00000b40| 0d 03 05 52 45 4d 05 03 | 0d 03 0a 5f 4c 45 58 49 |...REM..|..._LEXI|
|00000b50| 4b 4f 4e 0a 26 50 52 49 | 4e 54 41 24 3a 50 52 49 |KON.&PRI|NTA$:PRI|
|00000b60| 4e 54 22 54 4f 4f 4c 53 | 3a 20 4c 45 58 49 4b 4f |NT"TOOLS|: LEXIKO|
|00000b70| 4e 22 3a 52 45 54 55 52 | 4e 26 03 0d 03 0c 5f 54 |N":RETUR|N&...._T|
|00000b80| 48 45 53 41 55 52 55 53 | 0c 28 50 52 49 4e 54 41 |HESAURUS|.(PRINTA|
|00000b90| 24 3a 50 52 49 4e 54 22 | 54 4f 4f 4c 53 3a 20 54 |$:PRINT"|TOOLS: T|
|00000ba0| 48 45 53 41 55 52 55 53 | 22 3a 52 45 54 55 52 4e |HESAURUS|":RETURN|
|00000bb0| 28 03 0d 03 08 5f 4d 41 | 43 52 4f 08 24 50 52 49 |(...._MA|CRO.$PRI|
|00000bc0| 4e 54 41 24 3a 50 52 49 | 4e 54 22 54 4f 4f 4c 53 |NTA$:PRI|NT"TOOLS|
|00000bd0| 3a 20 4d 41 43 52 4f 22 | 3a 52 45 54 55 52 4e 24 |: MACRO"|:RETURN$|
|00000be0| 03 0d 03 08 5f 44 41 54 | 55 4d 08 24 50 52 49 4e |...._DAT|UM.$PRIN|
|00000bf0| 54 41 24 3a 50 52 49 4e | 54 22 54 4f 4f 4c 53 3a |TA$:PRIN|T"TOOLS:|
|00000c00| 20 44 41 54 55 4d 22 3a | 52 45 54 55 52 4e 24 03 | DATUM":|RETURN$.|
|00000c10| 0d 03 0b 5f 4c 49 4e 49 | 45 52 45 4e 0b 27 50 52 |..._LINI|EREN.'PR|
|00000c20| 49 4e 54 41 24 3a 50 52 | 49 4e 54 22 54 4f 4f 4c |INTA$:PR|INT"TOOL|
|00000c30| 53 3a 20 4c 49 4e 49 45 | 52 45 4e 22 3a 52 45 54 |S: LINIE|REN":RET|
|00000c40| 55 52 4e 27 03 0d 03 08 | 5f 54 45 58 49 54 08 23 |URN'....|_TEXIT.#|
|00000c50| 50 52 49 4e 54 41 24 3a | 50 52 49 4e 54 22 54 4f |PRINTA$:|PRINT"TO|
|00000c60| 4f 4c 53 3a 20 45 58 49 | 54 22 3a 52 45 54 55 52 |OLS: EXI|T":RETUR|
|00000c70| 4e 23 03 0d 03 1e 52 45 | 4d 20 2d 2d 2d 2d 2d 2d |N#....RE|M ------|
|00000c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c90| 2d 2d 1e 03 0d 03 07 5f | 46 4f 4e 54 07 2a 4f 4e |--....._|FONT.*ON|
|00000ca0| 20 42 20 47 4f 53 55 42 | 20 4e 4f 52 4d 41 4c 2c | B GOSUB| NORMAL,|
|00000cb0| 48 4f 43 48 2c 54 49 45 | 46 2c 4b 4c 45 49 4e 2c |HOCH,TIE|F,KLEIN,|
|00000cc0| 47 52 4f 53 53 2c 2a 23 | 4e 4f 43 48 a4 47 52 4f |GROSS,*#|NOCH.GRO|
|00000cd0| 45 53 53 45 52 2c 41 4d | a4 47 52 4f 45 53 53 54 |ESSER,AM|.GROESST|
|00000ce0| 45 4e 2c 46 4f 45 58 49 | 54 23 03 0d 03 0b 47 4f |EN,FOEXI|T#....GO|
|00000cf0| 54 4f 50 41 55 53 45 0b | 03 0d 03 05 52 45 4d 05 |TOPAUSE.|....REM.|
|00000d00| 03 0d 03 09 5f 4e 4f 52 | 4d 41 4c 09 24 50 52 49 |...._NOR|MAL.$PRI|
|00000d10| 4e 54 41 24 3a 50 52 49 | 4e 54 22 46 4f 4e 54 3a |NTA$:PRI|NT"FONT:|
|00000d20| 20 4e 4f 52 4d 41 4c 22 | 3a 52 45 54 55 52 4e 24 | NORMAL"|:RETURN$|
|00000d30| 03 0d 03 07 5f 48 4f 43 | 48 07 22 50 52 49 4e 54 |...._HOC|H."PRINT|
|00000d40| 41 24 3a 50 52 49 4e 54 | 22 46 4f 4e 54 3a 20 48 |A$:PRINT|"FONT: H|
|00000d50| 4f 43 48 22 3a 52 45 54 | 55 52 4e 22 03 0d 03 07 |OCH":RET|URN"....|
|00000d60| 5f 54 49 45 46 07 22 50 | 52 49 4e 54 41 24 3a 50 |_TIEF."P|RINTA$:P|
|00000d70| 52 49 4e 54 22 46 4f 4e | 54 3a 20 54 49 45 46 22 |RINT"FON|T: TIEF"|
|00000d80| 3a 52 45 54 55 52 4e 22 | 03 0d 03 08 5f 4b 4c 45 |:RETURN"|...._KLE|
|00000d90| 49 4e 08 23 50 52 49 4e | 54 41 24 3a 50 52 49 4e |IN.#PRIN|TA$:PRIN|
|00000da0| 54 22 46 4f 4e 54 3a 20 | 4b 4c 45 49 4e 22 3a 52 |T"FONT: |KLEIN":R|
|00000db0| 45 54 55 52 4e 23 03 0d | 03 08 5f 47 52 4f 53 53 |ETURN#..|.._GROSS|
|00000dc0| 08 23 50 52 49 4e 54 41 | 24 3a 50 52 49 4e 54 22 |.#PRINTA|$:PRINT"|
|00000dd0| 46 4f 4e 54 3a 20 47 52 | 4f 53 53 22 3a 52 45 54 |FONT: GR|OSS":RET|
|00000de0| 55 52 4e 23 03 0d 03 10 | 5f 4e 4f 43 48 a4 47 52 |URN#....|_NOCH.GR|
|00000df0| 4f 45 53 53 45 52 10 25 | 50 52 49 4e 54 41 24 3a |OESSER.%|PRINTA$:|
|00000e00| 50 52 49 4e 54 22 46 4f | 4e 54 3a 20 4e 4f 43 48 |PRINT"FO|NT: NOCH|
|00000e10| 20 47 52 4f 45 53 53 45 | 52 22 3a 25 08 52 45 54 | GROESSE|R":%.RET|
|00000e20| 55 52 4e 08 03 0d 03 0f | 5f 41 4d a4 47 52 4f 45 |URN.....|_AM.GROE|
|00000e30| 53 53 54 45 4e 0f 2a 50 | 52 49 4e 54 41 24 3a 50 |SSTEN.*P|RINTA$:P|
|00000e40| 52 49 4e 54 22 46 4f 4e | 54 3a 20 41 4d 20 47 52 |RINT"FON|T: AM GR|
|00000e50| 4f 45 53 53 54 45 4e 22 | 3a 52 45 54 55 52 4e 2a |OESSTEN"|:RETURN*|
|00000e60| 03 0d 03 09 5f 46 4f 45 | 58 49 54 09 22 50 52 49 |...._FOE|XIT."PRI|
|00000e70| 4e 54 41 24 3a 50 52 49 | 4e 54 22 46 4f 4e 54 3a |NTA$:PRI|NT"FONT:|
|00000e80| 20 45 58 49 54 22 3a 52 | 45 54 55 52 4e 22 03 0d | EXIT":R|ETURN"..|
|00000e90| 03 1c 52 45 4d 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..REM --|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 1c 03 0d 03 |--------|----....|
|00000eb0| 07 5f 49 4e 46 4f 07 2a | 50 52 49 4e 54 41 24 3a |._INFO.*|PRINTA$:|
|00000ec0| 50 52 49 4e 54 22 49 4e | 46 4f 3a 20 54 53 43 48 |PRINT"IN|FO: TSCH|
|00000ed0| 55 45 53 53 21 22 3a 47 | 4f 54 4f 50 41 55 53 45 |UESS!":G|OTOPAUSE|
|00000ee0| 2a 03 0d 03 1c 52 45 4d | 20 2d 2d 2d 2d 2d 2d 2d |*....REM| -------|
|00000ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 1c |--------|-------.|
|00000f00| 03 0d 03 0a 5f 53 43 48 | 4c 55 53 53 0a 0d 50 52 |...._SCH|LUSS..PR|
|00000f10| 49 4e 54 22 93 22 3b 4e | 24 0d 05 45 4e 44 05 03 |INT".";N|$..END..|
|00000f20| 0d 03 1c 52 45 4d 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...REM -|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 1c 03 0d |--------|-----...|
|00000f40| 03 0d 5f 5a 55 46 41 4c | 4c a4 52 54 43 0d 27 52 |.._ZUFAL|L.RTC.'R|
|00000f50| 3d 52 4e 44 28 30 29 2a | 31 35 3a 54 3d 52 4e 44 |=RND(0)*|15:T=RND|
|00000f60| 28 54 49 29 2a 31 35 3a | 43 3d 52 4e 44 28 31 29 |(TI)*15:|C=RND(1)|
|00000f70| 2a 31 35 3a 27 08 52 45 | 54 55 52 4e 08 03 0d 03 |*15:'.RE|TURN....|
|00000f80| 03 0d 03 2a 5b 42 45 49 | 20 22 53 59 53 20 34 39 |...*[BEI| "SYS 49|
|00000f90| 31 35 32 2b 36 2e 2e 2e | 22 20 26 20 22 53 59 53 |152+6...|" & "SYS|
|00000fa0| 20 34 39 31 35 32 2b 39 | 2e 2e 2e 22 2a 20 5b 44 | 49152+9|..."* [D|
|00000fb0| 49 45 4e 54 20 41 44 52 | 2e 20 33 20 41 4c 53 20 |IENT ADR|. 3 ALS |
|00000fc0| 53 54 41 54 55 53 2d 42 | 59 54 45 3a 20 1c 5b 57 |STATUS-B|YTE: .[W|
|00000fd0| 45 52 54 20 30 20 3d 20 | 50 52 4f 47 52 41 4d 4d |ERT 0 = |PROGRAMM|
|00000fe0| 20 47 45 4c 41 44 45 4e | 1c 27 5b 57 45 52 54 20 | GELADEN|.'[WERT |
|00000ff0| 31 20 3d 20 4c 45 53 45 | 2d 46 45 48 4c 45 52 20 |1 = LESE|-FEHLER |
|00001000| 28 4e 49 43 48 54 20 47 | 45 4c 41 44 45 4e 29 27 |(NICHT G|ELADEN)'|
|00001010| 03 0d 03 0e 5f 4c 4f 41 | 44 2d 53 54 41 54 55 53 |...._LOA|D-STATUS|
|00001020| 0e 1a 49 46 20 50 45 45 | 4b 28 33 29 3d 30 20 54 |..IF PEE|K(3)=0 T|
|00001030| 48 45 4e 20 52 45 54 55 | 52 4e 1a 03 0d 03 0b 5f |HEN RETU|RN....._|
|00001040| 4c 4d 53 a4 4c 4f 4f 50 | 0b 12 47 4f 53 55 42 20 |LMS.LOOP|..GOSUB |
|00001050| 5a 55 46 41 4c 4c a4 52 | 54 43 12 03 0d 03 1d 53 |ZUFALL.R|TC.....S|
|00001060| 59 53 34 39 31 35 32 2b | 33 2c 31 30 2c 31 30 2c |YS49152+|3,10,10,|
|00001070| 31 30 2c 33 2c 52 2c 54 | 2c 43 1d 03 0d 03 20 47 |10,3,R,T|,C.... G|
|00001080| 45 54 20 54 24 3a 20 49 | 46 20 54 24 3d 22 22 20 |ET T$: I|F T$="" |
|00001090| 47 4f 54 4f 20 4c 4d 53 | a4 4c 4f 4f 50 20 03 0d |GOTO LMS|.LOOP ..|
|000010a0| 03 12 50 52 49 4e 54 20 | 22 93 22 3a 52 45 54 55 |..PRINT |".":RETU|
|000010b0| 52 4e 12 03 0d 03 1e 52 | 45 4d 20 2d 2d 2d 2d 2d |RN.....R|EM -----|
|000010c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010d0| 2d 2d 2d 1e 03 0d 03 0d | 5f 44 49 52 2d 53 54 41 |---.....|_DIR-STA|
|000010e0| 54 55 53 0d 12 47 4f 53 | 55 42 20 5a 55 46 41 4c |TUS..GOS|UB ZUFAL|
|000010f0| 4c a4 52 54 43 12 03 0d | 03 1a 53 59 53 20 50 2b |L.RTC...|..SYS P+|
|00001100| 33 2c 31 31 2c 31 30 2c | 31 30 2c 33 2c 52 2c 54 |3,11,10,|10,3,R,T|
|00001110| 2c 43 1a 03 0d 03 21 47 | 45 54 20 54 24 3a 49 46 |,C....!G|ET T$:IF|
|00001120| 20 54 24 3d 22 22 20 47 | 4f 54 4f 20 44 49 52 2d | T$="" G|OTO DIR-|
|00001130| 53 54 41 54 55 53 21 15 | 50 52 49 4e 54 22 93 22 |STATUS!.|PRINT"."|
|00001140| 3a 47 4f 54 4f 20 50 41 | 55 53 45 15 03 0d 03 03 |:GOTO PA|USE.....|
|00001150| 0d 03 03 0d 03 00       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+