10 'COMTEST.BAS 20 'Umgesetzt auf dem BIC A5105 30 'Text aus HC Mai 1985, Seite 113 40 'Version 2.1 * Moni-Special 50 '************************************ 60 CLEAR 10000 70 '------------------------------------ 80 'Ende Behandlung 90 ON STOP GOSUB 1800:STOP ON 100 '------------------------------------ 110 KEY OFF 120 DIM RD$(200),PR$(300) 130 RESTORE 620 140 VO=15: 'Vordergrundfarbe 150 HI=0 : 'Hintergrundfarbe 160 RA=0 : 'Randfarbe 170 SCREEN 0:COLOR VO,HI,RA:CLS:WINDOW 0,23,0,39:CLS 180 '------------------------------------ 190 GOSUB 1890: 'Rahmen 200 LOCATE 1,9:COLOR13,0,0:PRINT"FREAK ODER GREENHORN?":COLOR VO,HI,RA 210 PRINT:PRINT:PRINT "Es geht ganz einfach: Ich stelle Ihnen":PRINT:PRINT "einen Haufen Fragen, und Sie suchen":PRINT 220 PRINT "sich die Antworten aus, ber die Sie":PRINT :PRINT "sich am wenigsten rgern." 230 PRINT :PRINT "Die Gesamtzahl der zugehrigen Punkte":PRINT :PRINT "fhrt Sie zur Selbsterkenntnis; nach-":PRINT 240 PRINT "zulesen am Schlu dieser Charakter-":PRINT :PRINT "analyse." 250 GOSUB 1720 260 CLS:SCREEN 8:WINDOW0,23,0,39:PKT=0 270 FOR FR=1 TO 31:CLS 280 GOSUB 1840: 'Frage 290 GOSUB 2080:PRINT PR$:PRINT:PRINT 300 FOR MA=1 TO 5 310 GOSUB 2080: PRINT STR$(MA)+") ";PR$:PRINT 320 NEXT MA:GOSUB 2080 330 KY$=INKEY$: IF KY$="" THEN 330 340 IF KY$<"1" OR KY$>"5" THEN 330 ELSE KY=VAL(KY$) 350 LOCATE 20,12:COLOR11,0,0 360 IF MID$(PR$,KY,1)="X" THEN PRINT " FERKEL!":GOTO 390 370 PT=VAL(MID$(PR$,KY,1)) 380 PKT=PKT+PT:PRINT PT;" PUNKT";:IF PT<>1 THEN PRINT "E" 390 PAUSE 50:COLOR VO,HI,RA 400 NEXT FR 410 '----------------------------------- 420 ' Auswertung 430 CLS:GOSUB 1890: 'Rahmen 440 SCREEN 0: LOCATE 1,14: COLOR 13,0,0: PRINT"Auswertung" 450 LOCATE 3,9: COLOR 12,0,0: PRINT"Sie hatten";PKT;"Punkte" 460 GRP=INT((PKT-1)/68) 470 GOSUB 1950: 'Zeichenkettenausgabe 480 GOSUB 1720: CLS: LOCATE 10,6: PRINT "Mchten Sie auch die anderen": LOCATE 12,6: PRINT"Auswertungen sehen? (J/N)" 490 KY$=INKEY$:IF KY$="" THEN 490 500 IF KY$="n" OR KY$="N" THEN 580 510 IF KY$<>"j" AND KY$<>"J" THEN 490 520 CLS 530 FOR GRP=0 TO 3 540 LOCATE 3,8: PRINT " " 550 LOCATE 3,10: COLOR 12,0,0: PRINT GRP*68;"BIS";GRP*68+67;"PUNKTE:": CLS 560 GOSUB 1950: 'Zeichenkettenausgabe 570 GOSUB1720:NEXT GRP 580 CLS:WINDOW 10,14,10,30: COLOR 11,0,0: PRINT " Das war's dann.": PRINT: PRINT " TSCHSS!!!" 590 GOTO 1830 600 '----------------------------------- 610 REM DATAs fr die Fragen 620 DATA "Welches ist Ihr Lieblingsgericht?","Kartoffelchips","Speicherchips","Datensalat" 630 DATA "panierte Disketten" 640 DATA "Hering mit Schlagrahm",79530 650 DATA "Und Ihr bevorzugtes Getrnk?","Ein Liter Cola/Tag","Ein Liter Cola/Stunde","Apple-Saft","RAMs on the rocks" 660 DATA "Hacker-Bru",59623 670 DATA "Wo mchten Sie am liebsten wohnen?","Garage","Commodore-Ersatzteillager","MC-Redaktion (bitte nicht!)" 680 DATA "im Datex-P-Netz","Dresden",81659 690 DATA "Ihre bevorzugten Hobbys?","studieren","kopieren","Wein- Weib- Gesang","Netze anzapfen","Fsser anzapfen" 700 DATA 16092 710 DATA "Mal angenommen, Sie werden auf eine ein-same Insel verschlagen. Sie haben einen Bcherwunsch und whlen" 720 DATA "Das Decamerone","Fischgerichte mit Pfiff","Teilnehmerverzeichnis IBM" 730 DATA "Survival Computing","Programmierung des 8086",01869 740 DATA "Auch einen Hardware-Wunsch haben Sie frei:","ZX81","CRAY 1","Fischstbchen","Steckdose","Joystick",38092! 750 DATA "Ihre bedrckendsten Kontaktprobleme?","zu Moni","zum Epson RX 80","zu Ihrem Computerhndler" 760 DATA "zur MC-Redaktion","zum Bankkonto",05479 770 DATA "Fragen zur Gesundheit - Krperhaltung meist","liegend","sitzend 90 Grad","sitzend 15 Grad 780 DATA "knieend vor dem Rechner","rotierend vor dem Rechner",02498 790 DATA "Sie leiden unter","extremer Kurzsichtigkeit","bergewicht","Magengeschwren","Tennisellenbogen" 800 DATA "Joystick-Rheuma",97603 810 DATA "Was nehmen Sie, wenn sich schon mal bewegen?","den Bus (8 BIT parallel)","den FLOPPY-EXPRESS" 820 DATA "ein ganz gewnliches Kamel","Turbo-Pascal","Reissaus vor Ihrem Computer",97061 830 DATA "Ihr Leib- und Magenschriftsteller","DE SADE","KANT","Der Verfasser des COMMODORE- MANUALS" 840 DATA "der Autor des AL-Buches","Dr. Logo",95183 850 DATA "Ihr Leben steht unter dem Motto:","kopieren statt kapieren","SCH... Computer","dem werd ich's zeigen" 860 DATA "Error ist menschlich","Da war doch noch was?",21980 870 DATA "Ihr Lieblingsfilm?","Hunde wollt Ihr ewig hacken?","QLXCPC antwortet nicht","Panik in der CPU" 880 DATA "King Ping Meh","Heisse Bits und kalte Fsse",569X3 890 DATA "Ihr Lieblingslied?","Atari mein nur Du allein","1000 mal probiert - 1000 mal ist nix passiert" 900 DATA "Hundert Mann und kein Befehl","Kann den Hacken Snde sein","Sagt der Spectrum leise Servus",24697 910 DATA "Das wichtigste Werkzeug?","Vorschlaghammer","Ltbrenner","Messer und Gabel","Flaschenffner" 920 DATA "Plastiksprengstoff",15097 930 DATA "Was hren Sie am liebsten?","Floppy-Rumpeln","Leere Versprechen der Hardware- hersteller" 940 DATA "die Wasserstandsmeldungen","Heino","Wenn die Bits durch den Bus pfeifen",37409 950 DATA "Ihr Lieblingstier?","Monis Vogel","Wanze im Programm","die gemeine Schnittstelle","Brathuhn","Apples Maus",09738 960 DATA "Was halten Sie von Mdchen?","Was'n das?","Ahnungslos aber lieb","Strung bei Zeile 1423" 970 DATA "Werf ich jeden Rechner dafr weg","Die lernen es auch noch",95803 980 DATA "Das Leben geht weiter. Sehen Sie das","analog","digital","in Spiralen","bildschirmdiagonal","gerastert",06487 990 DATA "Was rgert Sie am meisten?","Ihr Computer","die Postbestimmungen","Stromausfall","die Software-Preise" 1000 DATA "Kopierschutz",15724 1010 DATA "Worber freuen Sie sich?","ber jeden High-Score","ber die neue MC" 1020 DATA "wenn's endlich geklappt hat (was eigentlich?)" 1030 DATA "ber Reparaturrechnungen und Wartezeiten","da Sie den Mist-Computer endlich los sind",19530 1040 DATA "Wen halten Sie fr die bedeutendste Persnlichkeit?","sich","mich","den Bildungsminister" 1050 DATA "irgend einen anderen Minister","den Erbonkel",93008 1060 DATA "Sie sprechen vorwiegend","schsisch","BASIC","Maschinensprache","wenig","seriell",04927 1070 DATA "...und wenn schon mal dann ber","Thema Nummer eins","kaputte Rechner","kaputte Programmierer" 1080 DATA "kaputte Disketten","kaputte Nerven",05839 1090 DATA "Der Menscheit grter Fluch:","Druckeransteuerung","Adventure-Games","Moni","Computer ohne Joystickanschlu" 1100 DATA "DIE SUCHT",64029 1110 DATA "Der Menscheit grter Segen:","der Home-Computer","der funktionierende Computer" 1120 DATA "der BIC A5105","kein Computer","Sie selber",79005 1130 DATA "Was erwarten Sie von der Zukunft?","nichts","den optimalen Home-Computer" 1140 DATA "den Untergang der APW","endlich freie Fahrt im Datennetz","das Super-Passwort",01589 1150 DATA "Was verstehen Sie unter ROM?","Stadt in Thringen","Stadt in Italien","Abkrzung fr Weichkse" 1160 DATA "Bahnhof","Computers Kleinhirn",01005 1170 DATA "Was sagt Ihnen CPU?","Christliche Prozessionsumleitung","Computers Grohirn","Computer Preheating Unit" 1180 DATA "Computer perverting user","Crackers Power unbroken",05279 1190 DATA "Was ist eine Schnittstelle?","Klapprige Beziehungskiste","Kontakt zwischen Messer und Zeigefinger" 1200 DATA "brutale Bit-Bremse","Loch in der Rckwand","kein Anschlu unter dieser Nummer",01839 1210 DATA "Wofr halten Sie ein Floppy?","kleine Panne","rotierende Panne","Rumpelgenerator","Kopiermaschine","softer Schlappi",16790 1220 'DATAs fr die Auswertung 1230 '---------------------------------- 1240 DATA "Gratuliere! Sie haben sich bis jetzt","den Stand der digitalen Unschuld be-" 1250 DATA "wahrt. Auch wenn Sie eine Reise-","schreibmaschine nicht von einem Com-" 1260 DATA "puter unterscheiden knnen - nehmen","Sie's leicht und genieen Sie das" 1270 DATA "Leben, die Blumen, die Mdchen, den","Sonnenuntergang am Meer. Genieen" 1280 DATA "Sie all die wundervollen Dinge, fr","die Ihre Altersgenossen einfach keine" 1290 DATA "Zeit haben, weil sie jede freie Mi-","nute an diesen komischen Gerten ver-" 1300 DATA "bringen. Es ist doch so: der ganze","elektronische Kram ist Ihnen schnurz- 1310 DATA "egal, bestenfalls von peripherem In-","teresse. Davon zeugt schon Ihre ge-" 1320 DATA "sunde Gesichtsfarbe, die Sie bestimmt","nicht von der Kathodenrhre beziehen." 1330 DATA "Nachdem Sie aber diesen bescheuerten","Test nachweislich zur Kenntnis ge-" 1340 DATA "nommen haben, ist eine gewisse Infek-","tionsgefahr nicht auszuschlieen -" 1350 DATA "auch Sie knnten dereinst ein Com-","puter-Fan werden. Mein Rat: MACHEN" 1360 DATA "Sie weiter wie bisher und einen Bogen","um alles, was man mit einer Schreib-" 1370 DATA "maschine verwechseln knnte.",@@@ 1380 DATA "Aller Anfang ist schwer, aber Sie","sind auf dem richtigen Weg. Irgend-" 1390 DATA "wann werden Sie der beinharte ber-","Freak. Voraussetzung dazu ist, da" 1400 DATA "Sie Ihr Kpfchen nicht mehr aus-","schlielich mit Ballerspielen voll-" 1410 DATA "drhnen. Computern heit eben mehr,","als die Diskettenstation ununter-" 1420 DATA "brochen mit dmlichen Games zu ftt-","ern - und BASIC ist zwar nicht das" 1430 DATA "Gelbe vom Ei, aber dennoch nicht all-","zu schwierig. Was eindeutig fr Sie" 1440 DATA "spricht: Sie sehen die Computerei","(noch) nicht allzu verbissen, sondern" 1450 DATA "eher als lockeren Zeitvertreib, so","zwischen Spiel und Do-it-yourself-" 1460 DATA "Bewegung. Aus diesem Zwischenstadium","knnen Sie noch einige wertvolle men-" 1470 DATA "schliche Eigenschaften in Ihre Hack-","erzukunft hinberretten. BEDENKEN" 1480 DATA "Sie, da andere Mitmenschen (etwa","Freundin, respektive Frau) auch noch" 1490 DATA "berechtigte Interessen an Ihnen haben","knnten, und verlieren Sie diese wei-" 1500 DATA "terhin nicht aus dem Blick.",@@@ 1510 DATA "Die Bezeichnung 'Amateur' drften Sie","bereits als persnliche Beleidigung" 1520 DATA "empfinden. Kein Home-Computer kann","Ihnen etwas vormachen (solange er" 1530 DATA "nicht spinnt - und das tun die meis-","ten). Ihr Lieblingsthema BENCHMARK-" 1540 DATA "Tests, Speichererweiterungen und Ko-","pierprogramme. Sie stehen total ber" 1550 DATA "der Sache - bis zum nchsten ERROR.","Sie schreiben lieber eigene Programme" 1560 DATA "(die nicht laufen), als welche abzu-","tippen (die auch nicht laufen). Der" 1570 DATA "Computer beherrscht Sie nicht, aber","Sie ihn (fast). Demnchst werden Sie" 1580 DATA "erkennen, da nicht jede Hardware-","Erweiterung das Leben schner macht," 1590 DATA "und ein Groteil der Software nicht","hlt, was er verspricht. Dennoch:" 1600 DATA "Weitermachen! Die meisten Probleme","lassen sich zwar ohne Hilfe eines" 1610 DATA "Rechners leichter lsen, aber das","waren dann halt keine wirklich wich-","tigen.",@@@ 1620 DATA "Mit Ihnen drften wir uns eigentlich","nur noch in Maschinensprache unter-" 1630 DATA "halten. Vielen Dank auch, da Sie in","Ihrem wertvollen Speicherplatz noch" 1640 DATA "ein Eckchen fr die MC-Lektre reser-","viert haben. Sie sind auf dem besten" 1650 DATA"Weg dazu, zum wichtigsten, wenn nicht","entscheidenden Teil der Computer-" 1660 DATA "Peripherie zu arrivieren. Ein heier","Tip: achten Sie auf Ihr ueres. Wenn" 1670 DATA "Sie auf einmal ganz schwarz werden","und Ihnen viele, viele Beinchen wach-" 1680 DATA "sen, laufen Sie Gefahr, zu einer","veritablen CPU zu mutieren. Noch was:" 1690 DATA "Mit anderen Leuten kann man sich auch","von Mund zu Ohr unterhalten, und" 1700 DATA "nicht nur per Akustikkoppler. Die","sind ganz einfach zu finden - dort," 1710 DATA "wo die Luft frisch wird und das Licht","nicht nur vom Monitor kommt.","Gute Besserung!",@@@ 1720 'Warten auf Tastenbettigung 1730 '---------------------------------- 1740 CZ=CSRLIN:CS=POS(X) 1750 COLOR 1,6,0: 'COLOR 9,6,0 wenn Monitor verwendet wird 1760 LOCATE 24,2,0: PRINT" weiter mit einer beliebigen Taste "; 1770 IF INKEY$="" THEN 1770 1780 COLOR VO,HI,RA:LOCATE 24,2,0: PRINT" "; 1790 LOCATE CZ,CS: RETURN 1800 'Unterbrechung mittels CTRL-STOP 1810 '------------------------------- 1820 COLOR 0,4,0:WINDOW 8,16,9,29:CLS:LOCATE 12,15,0:PRINT "Abbruch!":BEEP 1830 PAUSE 100: COLOR15,0,0:WINDOW0,23,0,39:CLS:KEY ON:END 1840 COLOR10,0,0 1850 LOCATE 0,12:PRINT "-------------" 1860 LOCATE 1,12:PRINT " FRAGE ";FR 1870 LOCATE 2,12:PRINT "-------------" 1880 LOCATE 4,0:COLOR VO,HI,RA:RETURN 1890 'Rahmen 1900 COLOR2,0,0 1910 LOCATE 0,7,0:PRINT "ͻ" 1920 LOCATE 1,7:PRINT " " 1930 LOCATE 2,7:PRINT "ͼ" 1940 RETURN 1950 'Zeichenketten ausgeben 1960 '---------------------------------- 1970 IF GRP=0 THEN RESTORE 1220 1980 IF GRP=1 THEN RESTORE 1380 1990 IF GRP=2 THEN RESTORE 1510 2000 IF GRP=3 THEN RESTORE 1620 2010 WINDOW 5,23,0,39: COLOR VO,HI,RA 2020 FOR RD=1 TO 8: '8 Zeilen lesen 2030 READ PR$ 2040 IF PR$="@@@" THEN RETURN 2050 PRINT PR$: PRINT 2060 PAUSE 4: NEXT RD 2070 GOSUB 1720: GOTO 2020 2080 'Zeichenketten lesen 2090 READ RD$:PR$=RD$ 2100 RETURN PR$: PRINT 2060 PAUSE 4: NEXT RD 2070 GOSUB 1720: GOTO 2020 2080 'Zeichenketten lesen 2090 READ RD$: