1 GOTO3000 : REM *** SIEHE 3000- ! * 2 REM 3 REM MORSEOPERATOR V2.45 4 REM """"""""""""" 5 [143] * (C) 1989 ANDREAS FROHME * 6 [143] * DL 8 AAW * 7 [143] * GOSSLERSTR. 77 * 8 [143] * 3400 GOETTINGEN * 9 [143] * * 10 [143] * DIESES PROGRAMM DARF WEITERGE- GEGEBEN WERDEN. DA DER AUTOR 11 [143] * EIN MITTELLOSER STUDENT IST, BITTET ER JEDOCH ALLE 12 [143] * ZUFRIEDENEN BENUTZER UM EINEN KLEINEN ANERKENNUNGSBETRAG 13 [143] * (Z.B. 10.-DM) PER SCHECK ODER BAR AN OBIGE ADRESSE. 14 [143] * HERZLICEN DANK!! 15 BN[178]0:WN[178]0 25 [151]53280,6 30 [151]53281,6 35 [153]"LOAD  WAIT" 40 [153]"  MORSEREADER WAIT" 45 [153]"  WAIT" 50 [153]:[153] 55 [153]" DIESES PROGRAMM BIETET IHNEN AUCH EINE ELEKTR. MORSETASTE UND DIE" 60 [153]" MOEGLICHKEIT, MORSEZEICHEN AUFZUNEHMEN UND LESBAR ZU MACHEN (MORSEREADER)." 65 Z1[178]3:U1[178]6:W1[178]20 70 [153]" SIE KOENNEN ZWISCHEN MORSETASTE UND MORSEREADER MIT \WAIT UMSCHALTEN U. 75 PRINT" DAS TEMPO MIT ^[146] UND _[146] AENDERN!" 80 PRINT:PRINT" DER MORSEREADER KORRIGIERT DAS TEMPO AUCH AUTOMATISCH (MIT -[146] ABSCHALTBAR)." 85 PRINT" DABEI ERSCHEINT EIN S[146] FUER SCHNELLER BZW. EIN L[146] FUER LANGSAMER"; 90 PRINT" AUF DEM":PRINT" BILDSCHIRM.":PRINT 95 PRINT" IHRE MORSETASTE BZW. IHREN EMPFAENGER (UEBER KONVERTER) SCHLIESSEN SIE" 100 PRINT" PARALLEL ZUM JOYSTICK-FEUERKNOPF (PORT 1) AN; DEN SENDER AN USERP.PA2(=M) 105 [129] I[178]1[164] 5000 110 [161] P$:[139] P$[179][177]"" [167] 125 115 [130] 125 [153]"LOAD MORSEREADER":BN[178]0:WN[178]0 128 Z1[178]3:U1[178]6:W1[178]20:J[178]255:S$[178]"":BN[178]0:W[178]0:Z[178]0:U[178]0:BN[178]0 130 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("; 135 [153]" TEMPO: ^WAIT/_WAIT - STATISTIK: =WAIT - TASTE: \WAIT" 140 [153]:[153]" AUTOMATIK:AUS -WAIT EIN +WAIT - MODUSWECHSEL:*WAIT" 145 [153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";:[153] 150 J[178] [194](56321) 155 [161] Q$:[139]Q$[178]""[167]190 160 [139]Q$[178]"*"[167] 1000 162 [139]Q$[178]"\"[176]Q$[178]"T"[167] [151]53280,5:[151]53281,5:[137] 1465 165 [139]Q$[178][199](94)[167]U1[178]U1[171]1:W1[178]W1[171]5:[153]" ^WAIT";:[139]U1[179]10[167]Z1[178]3:[139]U1[179]3[167]Z1[178]2 170 [139]Q$[178][199](95)[167]U1[178]U1[170]1:W1[178]W1[170]5:[153]" _WAIT";:[139]U1[178][177]3[167]Z1[178]3:[139]U1[177][178]10[167]Z1[178]4 180 [139] Q$[178]"-" [167] AG[178]7:[153]:[153]" AUTOMATIK AUS!WAIT" 185 [139] Q$[178]"+" [167] AG[178]0:[153]:[153]" AUTOMATIK EIN!WAIT" 187 [139]Q$[178]"="[167] 125 190 [139] J[177]240 [167] 150 195 TC[178]TI:[137]260 200 U[178]0:Z[178]0:S$[178]"":W[178]0:J[178]0 205 J[178] [194](56321) 210 [161] Q$:[139]Q$[178]""[167]250 215 [139] J[179]240[167]255 220 [139]Q$[178]"*"[167] 1000 222 [139]Q$[178]"\"[176]Q$[178]"T"[167] [151]53280,5:[151]53281,5:[137] 1465 225 [139]Q$[178][199](94)[167]U1[178]U1[171]1:W1[178]W1[171]5:[153]" ^WAIT";:[139]U1[179]10[167]Z1[178]3:[139]U1[179]3[167]Z1[178]2 230 [139]Q$[178][199](95)[167]U1[178]U1[170]1:W1[178]W1[170]5:[153]" _WAIT";:[139]U1[178][177]3[167]Z1[178]3:[139]U1[177][178]10[167]Z1[178]4 240 [139] Q$[178]"-" [167] AG[178]7:[153]:[153]" AUTOMATIK AUS!WAIT" 245 [139] Q$[178]"+" [167] AG[178]0:[153]:[153]" AUTOMATIK EIN!WAIT" 247 [139]Q$[178]"="[167] 655 250 [139] J[177]240 [167] W[178]W[170]1:[137]205 255 J[178] [194](56321) 260 [139] J[179] 240 [167] Z[178]Z[170]1:[137]255 265 [139] J[177] 240 [167] 275 270 [137]255 275 [139] Z[179]Z1 [167] S$[178]S$[170]"P" 280 [139] Z[178][177]Z1 [167] S$[178]S$[170]"S" 285 [139] [195](S$)[177]8[167] 640 290 Z[178]0 295 J[178] [194](56321) 300 [139] J[177]240 [167] U[178]U[170]1 305 [139] J[179] 240 [167] U[178]0:[137]260 310 [139] U[177]U1[167] 320 315 [137] 295 320 [139] W[179][178]W1[173]2 [167] 340 325 [153]" ";:[139] ZS[178]7 [176] AG[178]7 [167] 340 330 [139] W1[179][178] 50[175] IR[178]0 [175] FD[178]0 [167] FD[178]1:[137]345 335 [139]W1[179][178]50[175]IR[178]0[167][153]" CMDCMDLWAIT";:U1[178]U1[170]1:W1[178]W1[170]5:J[178]7:[139]U1[178][177]3[167]Z1[178]3:[139]U1[177][178]10[167]Z1[178]5 340 FD[178]0:ZS[178]0 345 IR[178]0 350 L[178][195](S$) 355 BN[178]BN[170]1:[139]L[177]4[167]WN[178]WN[170]1 360 [145] L [137] 370,385,410,455,520,595,620,630,640 365 [137]640 370 [139] S$[178]"P"[167] [153]" E";:[137] 200 375 [139] S$[178]"S"[167] [153]" T";:[137] 200 380 [153]" SPC(";:[137]200 385 [139] S$[178]"PS"[167] [153]" A";:[137] 200 390 [139] S$[178]"SP"[167] [153]" N";:[137] 200 395 [139] S$[178]"PP"[167] [153]" I";:[137] 200 400 [139] S$[178]"SS"[167] [153]" M";:[137] 200 405 [153]" SPC(";:[137]200 410 [139] S$[178]"SPP"[167] [153]" D";:[137] 200 415 [139] S$[178]"SSP"[167] [153]" G";:[137] 200 420 [139] S$[178]"SPS"[167] [153]" K";:[137] 200 425 [139] S$[178]"SSS"[167] [153]" O";:[137] 200 430 [139] S$[178]"PSP"[167] [153]" R";:[137] 200 435 [139] S$[178]"PPP"[167] [153]" S";:[137] 200 440 [139] S$[178]"PPS"[167] [153]" U";:[137] 200 445 [139] S$[178]"PSS"[167] [153]" W";:[137] 200 450 [153]" SPC(";:[137]200 455 [139] S$[178]"SPPP"[167] [153]" B";:[137] 200 460 [139] S$[178]"SPSP"[167] [153]" C";:[137] 200 465 [139] S$[178]"PPSP"[167] [153]" F";:[137] 200 470 [139] S$[178]"PPPP"[167] [153]" H";:[137] 200 475 [139] S$[178]"PSSS"[167] [153]" J";:[137] 200 480 [139] S$[178]"PSPP"[167] [153]" L";:[137] 200 485 [139] S$[178]"PSSP"[167] [153]" P";:[137] 200 490 [139] S$[178]"SSPS"[167] [153]" Q";:[137] 200 495 [139] S$[178]"PPPS"[167] [153]" V";:[137] 200 500 [139] S$[178]"SPSS"[167] [153]" Y";:[137] 200 505 [139] S$[178]"SPPS"[167] [153]" X";:[137] 200 510 [139] S$[178]"SSPP"[167] [153]" Z";:[137] 200 515 [153]" SPC(";:[137]200 520 [139] S$[178]"PSSSS"[167] [153]" 1";:[137]200 525 [139] S$[178]"PPSSS"[167] [153]" 2";:[137] 200 530 [139] S$[178]"PPPSS"[167] [153]" 3";:[137] 200 535 [139] S$[178]"PPPPS"[167] [153]" 4";:[137] 200 540 [139] S$[178]"PPPPP"[167] [153]" 5";:[137] 200 545 [139] S$[178]"SPPPP"[167] [153]" 6";:[137] 200 550 [139] S$[178]"SSPPP"[167] [153]" 7";:[137] 200 555 [139] S$[178]"PSPSP"[167] [153]" +";:BN[178]BN[171]1:WN[178]WN[171]1 : [137] 655 560 [139] S$[178]"SSSPP"[167] [153]" 8";:[137] 200 565 [139] S$[178]"SPSPS"[167] [153]" #";:ZS[178]7: [137] 200 570 [139] S$[178]"SSSSP"[167] [153]" 9";:[137] 200 575 [139] S$[178]"SPPSP"[167] [153]" /";:ZS[178]7: [137] 200 580 [139] S$[178]"SSSSS"[167] [153]" 0";:[137] 200 585 [139] S$[178]"SPPPS"[167] [153]" =";:ZS[178]7: [137] 200 590 [153]" SPC(";:WN[178]WN[171]1:[137]200 595 [139]S$[178]"PSPSPS"[167] [153]" .";:ZS[178]7: [137]200 600 [139]S$[178]"SSPPSS"[167] [153]" ,";:ZS[178]7: [137]200 605 [139]S$[178]"PPSSPP"[167] [153]" ?";:ZS[178]7: [137]200 610 [139] S$[178]"SSSSSS"[167] 640 615 [153]" SPC(";:WN[178]WN[171]1:[137]200 620 [139] S$[178]"SSSSSSS"[167] 640 625 [153]" SPC(";:WN[178]WN[171]1:[137]200 630 [139]S$[178]"PPPPPPPP"[175]W[177]W1[173]2[167][153]"CMDCMD";:[139]J[178]7[167]U1[178]U1[171]1:W1[178]W1[171]5 635 [139] S$[178]"PPPPPPPP"[167] [153]"_IRRUNG!WAIT";:IR[178]7:BN[178]BN[171]2:IM[178]7:[137]200 640 [139] AG[178]7 [167] [153]" SPC(";:[137]200 645 U1[178]U1[171] 1:W1[178]W1[171] 5:[153]" SPC( SWAIT";:BN[178]BN[170]1:FD[178]0:[139]U1[179]10[167]Z1[178]3:[139]U1[179]3[167]Z1[178]2 650 [137]200 655 TX[178]TI[171]TC:[153]:[153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"; 657 [139] BN [179][178]1 [167] 125 660 TY[178]TX[173]60:TZ[178][181](TY[170].5) 663 BA7[178]BN[171]WN:GN[178]BN[170]WN 665 [153]:[153]" DAS WAREN"BN"ZEICHEN.":[153]" ("BA7"BUCHST. UND"WN"ZAHLEN/SATZZ.) 670 IFIM=7THENPRINT" (IRRUNGS-ZEICHEN NICHT MITGEZAEHLT)" 675 PRINT:PRINT" DAUER:"TZ"SEC."; 680 TR=GN/TZ*60:TW=INT(TR+.5) 685 PRINT" TEMPO:"TW"BPM." 695 PRINT:PRINT" TASTE:T[146] READER:R[146] MODUSWECHSEL:*[146]" 700 GETOM$:IFOM$=""THEN700 705 IF OM$="R"THEN Z1=3:U1=6:W1=20:GOTO125 710 IF OM$="T"OR OM$="\"THEN POKE53280,5:POKE53281,5:GOTO1465 715 IF OM$="*"THENPOKE53280,6:POKE53281,6:GOTO1000 720 GOTO700 725 END 1000 REM MORSEOPERATOR FUER C64 (C) ANDREAS FROHME 1989 1002 X=RND(-TI) 1005 POKE 53280,5 1010 POKE 53281,5 1015 SI=54272:FL=SI:FH=SI+1:TH=SI+3:W2=SI+4:H=SI+6:L=SI+24 1020 POKEL,15 1025 POKE H, 8*16+0 1030 POKE TH,8 1035 POKE FH,60:POKE FL,150 1038 POKE 56576,147 : POKE W2,64 1040 PRINT"[147][144]  [146]" 1045 PRINT"  MORSEOPERATOR [146]" 1050 PRINTTAB(12)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][146]" 1052 PRINTTAB(12)" 1989 DL8AAW [146]" 1055 REM * (C) 1989 ANDREAS FROHME * (C) ANDREAS FROHME 1989 1060 PRINT" SIE HABEN 4 MOEGLICHKEITEN:" 1065 PRINT" MIT DEM MODUS MORSEKURS[146] KOENNEN SIE DIE MORSEZEICHEN ERLERNEN." 1070 PRINT" IM MODUS TASTE[146] KOENNEN SIE DEN C64 ALS ELEKTRON. MORSETASTE NUTZEN." 1075 PRINT" MIT DEM MODUS READER[146] KANN DER COMPUTER MORSEZEICHEN AUFNEHMEN UND AUF"; 1080 PRINT" DEM BILDSCHIRM LESBAR MACHEN." 1085 PRINT" IM MODUS AUTOMATIK[146] SPIELT IHNEN DER COMPUTER EINE WAEHLBARE ANZAHL 1090 [153]" VON ZUFALLSZEICHEN VOR." 1095 [153]" GEBEN SIE NUN EIN MWAIT FUER MORSEKURS, EIN TWAIT FUER TASTE, EIN"; 1100 [153]" RWAIT FUER READER ODER EIN AWAIT FUER AUTOMATIK EIN!" 1105 [161] I$:[139]I$[178]""[167]1105 1110 [139] I$[178]"T"[167] 1465 1115 [139] I$[178]"A"[167]1925 1120 [139] I$[178]"R"[167] 15 1125 [139] I$[178]"M"[167]2195 1130 [137]1105 1135 [143] *** ZEICHENERZEUGUNG 1136 [161]V$:[139]V$[178]""[167] 1150 1137 [139]V$[179][177]"^"[175]V$[179][177]"_"[175]V$[179][177]"="[175]V$[179][177]">"[175]V$[179][177]"<"[167]1150 1138 [139] V$[178][199](60)[167] G[178]G[170]100:[137]1136 1140 [139] V$[178][199](62)[167] G[178]G[171]100:[137]1136 1141 [139] V$[178][199](94)[167] G[178]G[173]2 :PA[178]PA[171] 7:LP[178]LP[171].2:LS[178]LS[171] .6:[137]1136 1142 [139] V$[178][199](95)[167] G[178]G[172]2 :PA[178]PA[170] 7:LP[178]LP[170].2:LS[178]LS[170] .6:[137]1136 1143 [139]V$[178]"=" [167] TX[178]TI[171]TC:[153]:[141]2950:[153]:[153]" ABBRUCH!":[153]:[139]W[179]2[167] 1925 1145 [137]2080 1147 [137]1140 1150 [145]X[137]1155,1160,1165,1170,1175,1180,1185,1190,1195,1200,1205,1210,1215,1220 1152 [145]X[171]14[137]1225,1230,1235,1240,1245,1250,1255,1260,1265,1270,1275,1280,1285 1153 [145]X[171]27[137]1290,1295,1300,1305,1310,1315,1320,1325,1330,1335,1340,1345,1350 1154 [145]X[171]40[137]1355,1360,1365,1370 1155 M$[178]"A":[141]1405:[141]1435:[137] 2150 1160 M$[178]"B":[141]1435:[141]1405:[141]1405:[141]1405:[137] 2150 1165 M$[178]"C":[141]1435:[141]1405:[141]1435:[141]1405:[137] 2150 1170 M$[178]"D":[141]1435:[141]1405:[141]1405:[137] 2150 1175 M$[178]"E":[141]1405:[137] 2150 1180 M$[178]"F":[141]1405:[141]1405:[141]1435:[141]1405:[137] 2150 1185 M$[178]"G":[141]1435:[141]1435:[141]1405:[137] 2150 1190 M$[178]"H":[141]1405:[141]1405:[141]1405:[141]1405:[141]2150 1195 M$[178]"I":[141]1405:[141]1405:[137] 2150 1200 M$[178]"J":[141]1405:[141]1435:[141]1435:[141]1435:[137] 2150 1205 M$[178]"K":[141]1435:[141]1405:[141]1435:[137] 2150 1210 M$[178]"L":[141]1405:[141]1435:[141]1405:[141]1405:[137] 2150 1215 M$ [178]"M":[141]1435:[141]1435:[137] 2150 1220 M$ [178]"N":[141]1435:[141]1405:[137] 2150 1225 M$ [178]"O":[141]1435:[141]1435:[141]1435:[137] 2150 1230 M$[178]"P":[141]1405:[141]1435:[141]1435:[141]1405:[137] 2150 1235 M$[178]"Q":[141]1435:[141]1435:[141]1405:[141]1435:[137] 2150 1240 M$[178]"R":[141]1405:[141]1435:[141]1405:[137] 2150 1245 M$[178]"S":[141]1405:[141]1405:[141]1405:[137] 2150 1250 M$[178]"T":[141]1435:[137] 2150 1255 M$[178]"U":[141]1405:[141]1405:[141]1435:[137] 2150 1260 M$[178]"V":[141]1405:[141]1405:[141]1405:[141]1435:[137] 2150 1265 M$[178]"W":[141]1405:[141]1435:[141]1435:[137] 2150 1270 M$[178]"X":[141]1435:[141]1405:[141]1405:[141]1435:[137] 2150 1275 M$[178]"Y":[141]1435:[141]1405:[141]1435:[141]1435:[137] 2150 1280 M$[178]"Z":[141]1435:[141]1435:[141]1405:[141]1405:[137] 2150 1285 M$[178]"1":[141]1405:[141]1435:[141]1435:[141]1435:[141]1435:[137] 2150 1290 M$[178]"2":[141]1405:[141]1405:[141]1435:[141]1435:[141]1435:[137] 2150 1295 M$[178]"3":[141]1405:[141]1405:[141]1405:[141]1435:[141]1435:[137] 2150 1300 M$[178]"4":[141]1405:[141]1405:[141]1405:[141]1405:[141]1435:[137] 2150 1305 M$[178]"5":[141]1405:[141]1405:[141]1405:[141]1405:[141]1405:[137] 2150 1310 M$[178]"6":[141]1435:[141]1405:[141]1405:[141]1405:[141]1405:[137] 2150 1315 M$[178]"7":[141]1435:[141]1435:[141]1405:[141]1405:[141]1405:[137] 2150 1320 M$[178]"8":[141]1435:[141]1435:[141]1435:[141]1405:[141]1405:[137] 2150 1325 M$[178]"9":[141]1435:[141]1435:[141]1435:[141]1435:[141]1405:[137] 2150 1330 M$[178]"0":[141]1435:[141]1435:[141]1435:[141]1435:[141]1435:[137] 2150 1335 M$[178]".":[141]1405:[141]1435:[141]1405:[141]1435:[141]1405:[141]1435:[137] 2150 1340 M$[178]",":[141]1435:[141]1435:[141]1405:[141]1405:[141]1435:[141]1435:[137] 2150 1345 M$[178]"?":[141]1405:[141]1405:[141]1435:[141]1435:[141]1405:[141]1405:[137] 2150 1350 M$[178]"=":[141]1435:[141]1405:[141]1405:[141]1405:[141]1435:[137]2150 1355 M$[178]"/":[141]1435:[141]1405:[141]1405:[141]1435:[141]1405:[137] 2150 1360 M$[178]"#":[141]1435:[141]1405:[141]1435:[141]1405:[141]1435:[137] 2160 1365 M$[178]"+":[141]2170:[141]1405:[141]1435:[141]1405:[141]1435:[141]1405 1370 W[178]W[170]1:WN[178]WN[170]1:[139]X[177]26[167]WN[178]WN[170]1 1375 [139] I$[178]"M"[167] 2745 1380 [139] I$[178]"T"[167] [129]I[178]1[164]G:[130]:[137]1825 1385 F2[178]F2[170]1 1390 F3[178]F3[170]1 1395 [129] L[178]1[164] G :[130]L 1400 [137] 2050 1405 [143] PUNKTERZEUGUNG 1410 [151] W2,65 : [151] 56576,151 1415 [129] I[178]1 [164] LP[172]15 : [130] 1420 [151] W2,64 : [151] 56576,147 1425 [129] I [178] 1 [164] [181](.7[172]PA) : [130] 1430 [142] 1435 [143] STRICHERZEUGUNG 1440 [151] W2,65 : [151] 56576,151 1445 [129] I[178]1 [164] LS[172]15 : [130] 1450 [151] W2,64 : [151] 56576,147 1455 [129] I [178] 1 [164] [181](.7[172]PA) : [130] 1460 [142] 1465 IV[178]1:LB[178]1:[151]56280,5:[151]65281,5:I$[178]"T" 1470 [153]"LOAD TASTE" 1475 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("; 1480 [153]" LANGSAMER: _WAIT - SCHNELLER: ^WAIT PAUSEN:WAIT ON" 1485 [153]:[153]" TEXTSPEICHERBELEGUNG: INST/DELWAIT-TASTE":[153] 1490 [153]" MODUSWECHSEL: *WAIT-TASTE - MORSEREADER: \WAIT" 1495 [141]2950 1500 [153] 1505 [161]T$:[139]T$ [178]""[167]1505 1510 [139] T$[178]"A" [176] T$[178]"ATN" [167] X[178]1:[137]1150 1515 [139] T$[178]"B" [176] T$[178]"PEEK" [167] X[178]2:[137]1150 1520 [139] T$[178]"C" [176] T$[178]"LEN" [167] X[178]3:[137]1150 1525 [139] T$[178]"D" [176] T$[178]"STR$" [167] X[178]4:[137]1150 1530 [139] T$[178]"E" [176] T$[178]"VAL" [167] X[178]5:[137]1150 1535 [139] T$[178]"F" [176] T$[178]"ASC" [167] X[178]6:[137]1150 1540 [139] T$[178]"G" [176] T$[178]"CHR$" [167] X[178]7:[137]1150 1545 [139] T$[178]"H" [176] T$[178]"LEFT$" [167] X[178]8:[137]1150 1550 [139] T$[178]"I" [176] T$[178]"RIGHT$" [167] X[178]9:[137]1150 1555 [139] T$[178]"J" [176] T$[178]"MID$" [167] X[178]10:[137]1150 1560 [139] T$[178]"K" [176] T$[178]"(null)" [167] X[178]11:[137]1150 1565 [139] T$[178]"L" [176] T$[178]"(null)" [167] X[178]12:[137]1150 1570 [139] T$[178]"M" [176] T$[178]"(null)" [167] X[178]13:[137]1150 1575 [139] T$[178]"N" [176] T$[178]"(null)" [167] X[178]14:[137]1150 1580 [139] T$[178]"O" [176] T$[178]"(null)" [167] X[178]15:[137]1150 1585 [139] T$[178]"P" [176] T$[178]"(null)" [167] X[178]16:[137]1150 1590 [139] T$[178]"Q" [176] T$[178]"(null)" [167] X[178]17:[137]1150 1595 [139] T$[178]"R" [176] T$[178]"(null)" [167] X[178]18:[137]1150 1600 [139] T$[178]"S" [176] T$[178]"(null)" [167] X[178]19:[137]1150 1605 [139] T$[178]"T" [176] T$[178]"(null)" [167] X[178]20:[137]1150 1610 [139] T$[178]"U" [176] T$[178]"(null)" [167] X[178]21:[137]1150 1615 [139] T$[178]"V" [176] T$[178]"(null)" [167] X[178]22:[137]1150 1620 [139] T$[178]"W" [176] T$[178]"(null)" [167] X[178]23:[137]1150 1625 [139] T$[178]"X" [176] T$[178]"(null)" [167] X[178]24:[137]1150 1630 [139] T$[178]"Y" [176] T$[178]"(null)" [167] X[178]25:[137]1150 1635 [139] T$[178]"Z" [176] T$[178]"(null)" [167] X[178]26:[137]1150 1640 [139] T$[178]"1" [167] X[178]27:[137]1150 1645 [139] T$[178]"2" [167] X[178]28:[137]1150 1650 [139] T$[178]"3" [167] X[178]29:[137]1150 1655 [139] T$[178]"4" [167] X[178]30:[137]1150 1660 [139] T$[178]"5" [167] X[178]31:[137]1150 1665 [139] T$[178]"6" [167] X[178]32:[137]1150 1670 [139] T$[178]"7" [167] X[178]33:[137]1150 1675 [139] T$[178]"8" [167] X[178]34:[137]1150 1680 [139] T$[178]"9" [167] X[178]35:[137]1150 1685 [139] T$[178]"0" [167] X[178]36:[137]1150 1690 [139] T$[178]"." [167] X[178]37:[137]1150 1695 [139] T$[178]"," [167] X[178]38:[137]1150 1700 [139] T$[178]"?" [167] X[178]39:[137]1150 1705 [139] T$[178]"=" [167] X[178]40:[137]1150 1710 [139] T$[178]"/" [167] X[178]41:[137]1150 1715 [139] T$[178]"#" [167] X[178]42:[137]1150 1720 [139] T$[178]"+" [167] X[178]43:[137]1150 1725 [139] T$[178]"\" [167] [151]53280,6:[151]53281,6:[137]125 1730 [139] T$[178]" " [167] [153]" ";:[129]X[178]1[164]100:[130]X:[139] LB [179][177] 1 [167] 1825 1735 [139] T$[178][199]( 95)[167] G[178]G[172]1.3:PA[178]PA[170]7:LP[178]LP[170].3:LS[178]LS[170].9: [139]G[177]1000 [167] G[178]1000 1740 [139] T$[178][199]( 94)[167] G[178]G[173]1.3:PA[178]PA[171]7:LP[178]LP[171].3:LS[178]LS[171].9 1742 [139] T$[178][199](60) [167] G[178]G[170]100 1743 [139] T$[178][199](62) [167] G[178]G[171]100 1745 [139] T$[178][199](42) [167] 1000 1750 [139] T$[178][199](20)[167][153]"LOAD":[137]1835 1760 [139] T$[178][199](133) [167] SP[178]1:[137]1805 1765 [139] T$[178][199](137) [167] SP[178]2:[137]1805 1770 [139] T$[178][199](134) [167] SP[178]3:[137]1805 1775 [139] T$[178][199](138) [167] SP[178]4:[137]1805 1780 [139] T$[178][199](135) [167] SP[178]5:[137]1805 1785 [139] T$[178][199](139) [167] SP[178]6:[137]1805 1790 [139] T$[178][199](136) [167] SP[178]7:[137]1805 1795 [139] T$[178][199](140) [167] SP[178]8:[137]1805 1800 [137]1505 1805 LB[178][195](SF$(SP)) 1810 SV$[178]SF$(SP) 1815 T$[178][202](SV$,IV,1) 1820 [137] 1510 1825 [139] IV[179]LB [167] IV[178]IV[170]1 :[137] 1815 1830 IV[178]1:LB[178]1: [137] 1505 1835 [153]" SPEICHERINHALTSUEBERSICHT:":[153] 1840 [129] I[178]1[164]8:[139]SF$(I)[179][177]""[167][153]" F"I": "SF$(I) 1845 [130]I 1850 [153]:[153]" WELCHE F-TASTE SOLL BELEGT WERDEN? (1-8) - KEINE: 9WAIT" 1855 [161] SQ$:[139]SQ$[178]""[167] 1855 1857 SP[178][197](SQ$) 1858 [139] SP[178]0 [167] 1855 1860 [139] SP [178] 9 [167] 1465 1865 [153]SP:[153]" GEBEN SIE NUN DEN ABZUSPEICHERDEN TEXT EIN! (RETURN)" 1870 [153] 1875 [133] SP$ 1880 SF$(SP)[178]SP$ 1885 [153]:[153]" NEUE INHALTSUEBERSICHT:":[153] 1890 [129] I[178]1[164]8:[139]SF$(I)[179][177]""[167] [153]" F"I": "SF$(I) 1895 [130]I 1900 [153]:[153]" NOCH EINE SPEICHERBELEGUNG? (J/N) 1905 GET NS$ :IF NS$="" THEN 1905 1910 IF NS$="J"THEN GOTO 1850 1915 IF NS$="N"OR NS$=CHR$(13) THEN 1465 1920 GOTO 1905 1925 W=0:PRINT"[147] WIEVIEL ZEICHEN WOLLEN SIE?":PRINT" NACH EINGABE BITTE RETURN[146] RUECKEN!" 1930 WN=0: PRINT:PRINT" ";:INPUTBN 1935 IF BN=0 THEN 1000 1940 PRINT:PRINT" AUCH ZAHLEN? (J/N) 1945 [161] C$ :[139] C$[178]""[167] 1945 1950 [139]C$[178]"N"[167] JU[178]26 :[137]1990 1955 [139]C$[178]"J" [176] C$[178][199](13) [167] JU[178]36 :[137]1965 1960 [137] 1945 1965 [153]:[153]" AUCH SATZZEICHEN? (J/N) 1970 GET C$ :IF C$=""THEN 1970 1975 IFC$="N"THEN JU=36 :GOTO1990 1980 IFC$="J" OR C$=CHR$(13) THEN JU=41 :GOTO1990 1985 GOTO 1970 1990 PRINT" FUENFERGRUPPEN? (J/N)" 1995 GET F$ :IFF$=""THEN 1995 1997 IF F$=CHR$(13)THEN F$="J" 2000 IFF$<>"N"ANDF$<>"J"THEN 1995 2005 PRINT:PRINT" WAEHLEN SIE BITTE DIE GESCHWINDIGKEIT:":PRINT 2010 PRINT" SCHNELL = S[146]":PRINT 2015 PRINT" MITTEL = M[146]":PRINT 2020 PRINT" LANGSAM = L[146]":PRINT 2025 GET G$:IFG$=""THEN2025 2030 IFG$="S"THENG=1:LP=3:LS=9:PA=65:GOTO2180 2035 IFG$="M"THENG=10 :LP=5:LS=13:PA=110:GOTO2180 2040 IFG$="L"THENG=500:LP=5:LS=14:PA=110:GOTO2180 2045 GOTO2025 2050 X=INT(RND(TI)*JU)+1 2055 IF F$="J"THENGOSUB2925 2060 IFW =BN THEN TX=TI-TC:GOSUB 2070:GOSUB2950:PRINT:GOTO2080 2065 GOTO1135 2070 FORI=1TO600:NEXTI:GOSUB1405:GOSUB1435:GOSUB1405:GOSUB1435:GOSUB1405:PRINT:PRINT" +" 2075 RETURN 2080 PRINT:PRINT" DAS WAREN "W" ZEICHEN." 2085 TY=TX/60:TZ=INT(TY+.5):PRINT:PRINT" DAUER:"TZ"SEC." 2090 TR=WN/TZ*60:TW=INT(TR+.5):PRINT:PRINT" GESCHWINDIGKEIT:"TW"BPM.":PRINT 2095 W=0:F2=0:F3=0:WN=0 2100 PRINT" WOLLEN SIE NOCHEINMAL? (J/N)" 2105 GET U$:IFU$=""THEN2105 2110 IF U$="J" THEN 2125 2115 IF U$="N" THEN 1000 2120 GOTO 2105 2125 PRINT:PRINT" WIE EBEN? (J/N)" 2130 GET U$ :IFU$=""THEN 2130 2135 IF U$="J"THENW=0:GOTO2180 2140 IF U$="N"THEN 1925 2145 GOTO 2130 2150 PRINT" ";:PRINTM$; 2155 GOTO 1370 2160 PRINT" ";:PRINTM$:FORI=1TO600:NEXTI 2165 GOTO 1370 2170 FORI=1TO450:NEXTI: PRINT" ";:PRINTM$ 2175 RETURN 2180 PRINT"[147] ES GEHT LOS! (ABBRUCH:=[146] TEMPO:^_<>[146]) [144]" 2182 GOSUB2950:PRINT:FOR D=1TO2000:NEXTD 2185 PRINT" #":GOSUB1435:GOSUB1405:GOSUB1435:GOSUB1405:GOSUB1435:GOSUB2910:TC=TI 2190 GOTO2050 2195 LP=4:LS=12:PA=100:SA=120:G=300:I$="M":AZ=75 2200 PRINT"[147] MORSEKURS IN 22 LEKTIONEN":GOSUB2950:PRINT 2205 PRINT " MIT WELCHER LEKTION WOLLEN SIE BEGINNEN?" 2210 PRINT" (UEBEN BESTIMMTER ZEICHEN: 0[146])" 2230 PRINT" (RETURN)" 2235 PRINT"[145][145][145][145] ":INPUT LE 2240 IF LE>22 OR LE<0 THEN PRINT:PRINT" ES GIBT NUR 22 LEKTIONEN!":GOTO 2230 2245 IF INT(LE)=1 THEN S$="LV0E" 2250 IF INT(LE)=2 THEN S$="LV0EASQ" 2255 IF LE=3 THEN S$="LV0EASQT2" 2260 IF LE=4 THEN S$="LV0EASQT2OC" 2265 IF LE=5 THEN S$="LV0EASQT2OCD5" 2270 IF LE=6 THEN S$="LV0EASQT2OCD5R/" 2275 IF LE=7 THEN S$="LV0EASQT2OCD5R/I9" 2280 IF LE=8 THEN S$="LV0EASQT2OCD5R/I9GX" 2285 IF LE=9 THEN S$="LV0EASQT2OCD5R/I9GXF4" 2290 IF LE=0 THEN 2625 2295 IF LE=10THEN S$="LV0EASQT2OCD5R/I9GXF4NJ" 2300 IF LE=11THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7" 2305 IF LE=12THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H," 2310 IF LE=13THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=." 2315 IF LE=14THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=.KB" 2320 IF LE=15THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=.KBP3" 2325 IF LE=16THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=.KBP3YM" 2330 IF LE=17THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=.KBP3YMZW" 2335 IF LE=18THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=.KBP3YMZW16" 2340 IF LE> 18THEN S$="LV0EASQT2OCD5R/I9GXF4NJU7H,=.KBP3YMZW168?" 2345 IF UE>1 THEN 2450 2350 LP=4:LS=12:PA=100:G= 700:AZ=75 2355 IF LE>20 THEN LP=4:LS=12:PA=100:G=1:AZ=120 2360 IF LE=1 THEN GOTO 2730 2365 IF LE=2 THEN GOTO2840 2370 IFLE>19THENUE=1:PRINT"[147] LEKTION "LE:PRINT" FUENFERGRUPPEN MIT ALLEN ZEICHEN:":GOTO2450 2375 PRINT"[147] LEKTION "LE 2380 N$=RIGHT$(S$,2):N1$=LEFT$(N$,1):N2$=RIGHT$(N$,1) 2385 PRINT:PRINT" SIE LERNEN NUN 2 NEUE ZEICHEN:":PRINT:PRINT" "N1$" UND "N2$"." 2390 GOSUB 2915 2395 PRINT:PRINT" HIER ZUNAECHST "N1$" :":PRINT:T$=N1$:W=0 2400 FOR I=1TO 800 :NEXTI 2405 IF T$=N2$ THEN 2425 2410 IF W<10 THEN 1510 2415 PRINT:PRINT:PRINT " UND NUN "N2$" :":PRINT:T$=N2$:W=0 2420 GOSUB2910 2425 IF W<10 THEN 1510 2430 FOR I=1 TO 2000:NEXTI 2435 PRINT"[147] UND NUN FUENFERGRUPPEN MIT DEN ALTEN UND NEUEN ZEICHEN:":UE=1 2440 UE=1 2445 IF LE><12 THEN S$=S$+N1$+N1$+N1$+N1$+N1$+N2$+N2$+N2$+N2$+N2$ 2450 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";:PRINT 2455 FOR I=1 TO 3000 : NEXT I 2460 PRINT" #":GOSUB1435:GOSUB1405:GOSUB1435:GOSUB1405:GOSUB1435 2462 FOR I=1 TO 1000 : NEXT I 2465 W=0:F2=(-1):F3=(-1) 2470 IF LE=1 THEN 2815 2475 R=INT(1+LEN(S$)*RND(TI)) 2480 Z$=MID$(S$,R,1):F2=F2+1:F3=F3+1:T$=Z$ 2485 GOSUB2925 2490 IF W=> AZ THEN 2505 2495 FORI=1TO G :NEXTI 2500 GOTO 1510 2505 FORI=1TO600:NEXTI:GOSUB1405:GOSUB1435:GOSUB1405:GOSUB1435:GOSUB1405:PRINT:PRINT" +" 2510 PRINT:PRINT" DAS WAR'S. BITTE VERGLEICHEN SIE!" 2515 FORI=1TO5000:NEXTI:GOSUB2950 2520 AZ=75 : IF LE>20 THEN LP=3:LS=9:PA=75:SA=90:G=1:AZ=150:GOTO2535 2525 IF LE > 6 AND UE > 4 THEN LP=3:LS=9:PA=80:SA=100:G=150:AZ=105 2530 IF LE > 6 AND UE > 7 THEN PA=75:SA= 90:G=1:AZ=120 2532 IF LE > 6 AND UE >10 THEN PA=100:LP=5:LS=13:G=1:AZ=105 2535 IF UE=10 AND LE=22 THEN GOTO 2555 2538 IF UE<=12THEN GOTO 2550 2540 IF UE >12 THENPRINT: PRINT" DAS WAREN NUN"UE"UEBUNGEN." 2545 PRINT" SIE KOENNEN JETZT EIGENTLICH MIT DER NAECHSTEN LEKTION BEGINNEN!" 2550 IF LE=0 THEN GOTO2230 2555 IFUE= 10ANDLE>=22THENPRINT" GRATULATION! KURSENDE!":END 2560 PRINT:PRINT" NAECHSTE UEBUNG? -DRUECKEN SIE BITTE N[146]!" 2565 IF LE>=22 THEN 2575 2570 PRINT" NAECHSTE LEKTION - L[146]" 2575 PRINT:PRINT" UEBEN BESTIMMTER ZEICHEN - Z[146]" 2580 PRINT" ANDERER MODUS - *[146]" 2585 GET NU$:IFNU$=""THEN2585 2590 IF NU$="N" THEN UE=UE+1:PRINT"[147]":PRINT" LEKTION"INT(LE)" - UEBUNG "UE:GOTO 2245 2595 IF NU$="*" THEN 1000 2600 IF NU$="L" AND LE=22 THEN 2585 2605 IF NU$="Z" THEN 2625 2610 IF NU$="L" THEN UE=0:W=0:LE=INT(LE):LE=LE+1:PRINT"[147]":GOTO2245 2615 GOTO 2585 2620 GOTO 2450 2625 PRINT"[147] UEBEN BESTIMMMTER ZEICHEN":GOSUB2950:AZ=45 2630 PRINT:PRINT" GEBEN SIE DIE ZEICHEN, DIE SIE UEBEN WOLLEN, EINFACH HINTEREINANDER EIN" 2635 PRINT" (Z.B.: Q2LV ) UND DRUECKEN SIE DANN DIE RETURN[146]-TASTE." 2640 PRINT:INPUT" ";S$ 2643 IF S$="" THEN 2640 2645 GOSUB2950:PRINT:GOTO 2455 2650 PRINT"[147] AM ANFANG UND AM ENDE JEDER UEBUNG" 2655 PRINT" ERTOENT EIN ZEICHEN FUER DEN >SPRUCH-" 2660 PRINT" ANFANG< UND DAS >SPRUCHENDE<.":GOSUB 2920 2665 PRINT" DER SPRUCHANFANG WIRD MIT EINEM #[146]" 2670 PRINT" DARGESTELLT UND KLINGT SO:":PRINT:GOSUB2920 2675 FOR KI=1TO 3 2680 GOSUB1435:GOSUB1405:GOSUB1435:GOSUB1405:GOSUB1435:PRINT" #";:GOSUB 2910 2685 NEXTKI 2690 GOSUB2910:PRINT:PRINT:PRINT" DAS SPRUCHENDE WIRD DURCH EIN +[146]" 2695 PRINT" DARGESTELLT UND HOERT SICH SO AN:":GOSUB2920 2700 FORKI=1TO3 2705 GOSUB1405:GOSUB1435:GOSUB1405:GOSUB1435:GOSUB1405:PRINT" +";:GOSUB2910 2710 NEXT KI 2715 GOSUB2910:PRINT:PRINT" NUN KANN ES ABER LOSGEHEN!":PRINT" BITTE SCHREIBEN SIE!" 2720 GOSUB2915 2725 GOTO 2835 2730 PRINT"[147] SIE LERNEN HEUTE 4 ZEICHEN: L[146] V[146] E[146] UND DIE 0[146]." 2735 FORI=1TO3500:NEXTI:PRINT" HIER ZUNAECHST DAS L:":PRINT 2740 T$="L":W=0 2745 IF LE=1 THEN 2765 2750 IF LE=0 THEN 2475 2755 IF LE=2 THEN 2865 2760 IF UE<1 THEN 2400 2765 IF LE<>1 THEN 2470 2770 IF ZW>0 THEN 2815 2775 FOR I=1 TO 1000:NEXTI 2780 IF W<10 GOTO 1510 2785 ZW=0 2790 ZW=ZW+1 2795 IF ZW=1 THEN NL$="V" 2800 IF ZW=2 THEN NL$="E" 2805 IF ZW=3 THEN NL$="0" 2810 W=0:T$=NL$:PRINT:PRINT:PRINT" UND NUN "NL$" :" 2815 GOSUB2910 2820 IF W<10 GOTO 1510 2825 IF ZW< 3 GOTO 2790 2830 GOSUB2915:GOTO 2650 2835 PRINT"[147] FUENFERGRUPPEN:":ZW=0:LE=1.1:S$="LV0E":GOTO2440 2840 ZW=0 2845 PRINT"[147] 2. LEKTION":GOSUB2950:PRINT:PRINT" SIE LERNEN NUN 3 NEUE ZEICHEN:" 2850 PRINT" DAS A[146], DAS S[146] UND DAS Q[146]." 2855 PRINT" HIER ZUNAECHST DAS A:":PRINT 2857 GOSUB 2915 2860 T$="A": W=0 2865 IF DL$="Q"AND W=10THEN LE=2.5:S$="LVQEASQ":GOSUB2910:W=0: GOTO 2435 2870 GOSUB2910 2875 IF W<10 THEN1510 2880 ZW=ZW+1 2885 IF ZW=1 THEN DL$="S" 2890 IF ZW=2 THEN DL$="Q" 2895 W=0:T$=DL$:PRINT:PRINT:PRINT" UND NUN "DL$" :":PRINT 2900 GOSUB2910 2905 IF W<10 THEN 1510 2910 FOR I=1 TO 1000 : NEXT I:RETURN 2915 FOR I=1 TO 2000 : NEXT I:RETURN 2920 FOR I=1 TO 3000 : NEXT I:RETURN 2925 IF F2<5THEN 2945 2930 PRINT" ";:FORI=1TO 30*LP+(ABS(G)+G):NEXTI:F2=0 2932 IFI$="M"THEN FOR I=1TO50*LP:NEXTI 2935 IF F3<15 THEN RETURN 2940 IF F3=15 THENF3=0:PRINT:F3=0 2945 RETURN 2950 PRINTTAB(1)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"; 2955 RETURN 3000 LP=3:LS=9:PA=70:G=10:POKE56579,255 3001 REM *** IN DIESE ZEILEN KOENNEN SIE DAUERTEXTE FUER DEN 3002 REM MODUS TASTE INDIVIDUELL EINGEBEN ! 3005 REM 3010 SF$(1)="CQ CQ CQ " 3020 SF$(3)="" 3030 SF$(5)="" 3040 SF$(7)="" 3050 SF$(2)="" 3060 SF$(4)="" 3070 SF$(6)="" 3080 SF$(8)="" 3090 GOTO 1000 3100 REM *** NACH EINGABE PROGRAMM NEU ABSPEICHERN! 3110 : 3120 REM EINEN BERICHT UEBER DIESES PROGRAMM FINDEN SIE IN DER 3130 REM CQ-DL 7/89, S. 435; EIN INTERFACE AUF S. 425.