1 GOTO 10
2 CT$="AMIGA":V=V+5000:GOTO 780
3 CT$="C 64":V=V+2500:GOTO 780
4 CT$="SCHNEIDER":V=V+1000:GOTO 780
10 PRINT"[147]"
20 POKE 53281,1:POKE 53280,3
30 PRINT""
31 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
32 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
33 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
34 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
35 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
36 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
37 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
38 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
39 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
40 PRINT" LIONWARE PRESENTS:"
45 PRINT"[144]"
50 PRINT:PRINT:PRINT"       P R O G R A M M I E R E R "
60 PRINT""
70 PRINT:PRINT:PRINT:PRINT" WRITTEN BY PETER BOHLMANN"
80 PRINT:PRINT:PRINT" VIEL SPASS !!!"
90 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
100 GET AA$:IF AA$="" THEN 100
110 IF AA$=CHR$(32) THEN 120
120 PRINT"[147]"
121 INPUT" NAME ";N$
122 PRINT"[147]"
130 PRINT" DU BIST EIN JUNGER, AUFSTREBENDER "
140 PRINT:PRINT" PROGRAMMIERER. NACHDEM DU DIE CRACKER-"
150 PRINT:PRINT" SZENE ZUR GENUEGE ABGEGRAST HAST,"
160 PRINT:PRINT" MOECHTEST DU ENDLICH PROFESSIONELL"
170 PRINT:PRINT" EIN GAME PROGRAMMIEREN...DU BEWIRBST"
180 PRINT:PRINT" DICH BEI VERSCHIEDENEN FIRMEN..."
190 PRINT:PRINT:PRINT" DRUECKE <SPACE>, UM ZU ERFAHREN,"
200 PRINT:PRINT" VON WELCHER FIRMA DU UNTER VERTRAG"
210 PRINT:PRINT" GENOMMEN WIRST..."
215 PRINT"[144]"
220 GET AA$:IF AA$="" THEN 220
230 IF AA$=CHR$(32) THEN 240
240 Q=INT(5*RND(1))+1
250 IF Q=1 THEN 300
260 IF Q=2 THEN 340
270 IF Q=3 THEN 370
280 IF Q=4 THEN 400
290 IF Q=5 THEN 430
300 F$="LIONWARE"
310 Z=INT(12*RND(1))+1
320 PRINT:PRINT:PRINT" DIE FIRMA HEISST: "F$
330 GOTO 460
340 F$="WONDERGAMES"
350 Z=INT(10*RND(1))+1
360 GOTO 320
370 F$="CHAOS-SOFT"
380 Z=INT(8*RND(1))+1
390 GOTO 320
400 F$="WUMM & CO."
410 Z=INT(6*RND(1))+1
420 GOTO 320
430 F$="SOFT-HOUSE"
440 Z=INT(4*RND(1))+1
450 GOTO 320
460 GET AA$: IF AA$="" THEN 460
470 IF AA$=CHR$(32) THEN 480
480 PRINT"[147]"
490 PRINT""
500 PRINT" WELCHER ART SOLL DEIN GAME SEIN ?"
510 PRINT:PRINT:PRINT" 1= ACTION"
520 PRINT:PRINT" 2= SPORT"
530 PRINT:PRINT" 3= ADVENTURE"
540 PRINT:PRINT" 4= STRATEGIE"
550 PRINT:PRINT" 5= SIMULATION"
570 PRINT:PRINT" 6= EDUCATION"
580 PRINT:PRINT" 7= SOUND"
590 PRINT:PRINT:PRINT:INPUT"";A
600 IF A=1 THEN 690
610 IF A=2 THEN 700
620 IF A=3 THEN 710
630 IF A=4 THEN 720
640 IF A=5 THEN 730
650 IF A=6 THEN 740
660 IF A=7 THEN 750
680 GOTO 480
690 AR$="ACTION":V=7500:GOTO 770
700 AR$="SPORT":V=5000:GOTO 770
710 AR$="ADVENTURE":V=3000:GOTO 770
720 AR$="STRATEGIE":V=1000:GOTO 770
730 AR$="SIMULATION":V=3000:GOTO 770
740 AR$="ANWENDER":V=1000:GOTO 770
750 AR$="EDUCATION":V=750:GOTO 770
760 AR$="SOUND":V=1000:GOTO 770
770 PRINT"[147]"
771 INPUT" PROGRAMMNAME ";NP$
772 PRINT:PRINT:PRINT" AUF WELCHEM COMPUTERTYP WILLST DU"
773 PRINT:PRINT" PROGRAMMIEREN ?"
774 PRINT:PRINT" 1= AMIGA ... 2= C 64 ... 3= SCHNEIDER"
775 PRINT:PRINT:INPUT"";CT
776 IF CT=1 THEN 2
777 IF CT=2 THEN 3
778 IF CT=3 THEN 4
779 GOTO 772
780 PRINT"[147]"
820 PRINT:PRINT:PRINT" ENDLICH IST ES FERTIG !!! SOFORT"
830 PRINT:PRINT" WIRD ES AN DIE ASM GESCHICKT, UM GE-"
840 PRINT:PRINT" TESTET ZU WERDEN..."
850 GET AA$:IF AA$="" THEN 850
860 IF AA$=CHR$(32) THEN 870
870 PRINT"[147]"
880 IF A=1 THEN 960
890 IF A=2 THEN 1010
900 IF A=3 THEN 1060
910 IF A=4 THEN 1110
920 IF A=5 THEN 1110
930 IF A=6 THEN 1160
940 IF A=7 THEN 1210
960 W1$="GRAFIK"
970 W2$="SOUND"
980 W3$="SPIELABLAUF"
990 W4$="MOTIVATION"
1000 GOTO 1260
1010 W1$="ANIMATION"
1020 W2$="SOUND"
1030 W3$="REALITAETSNAEHE"
1040 W4$="SPASS/SPANNUNG"
1050 GOTO 1260
1060 W1$="GRAFIK"
1070 W2$="VOKABULAR"
1080 W3$="STORY"
1090 W4$="ATMOSPHAERE"
1100 GOTO 1260
1110 W1$="GRAFIK"
1120 W2$="HANDHABUNG"
1130 W3$="TECHNIK/STRATEGIE"
1140 W4$="SPIELWERT"
1150 GOTO 1260
1160 W1$="GRAFIK"
1170 W2$="EFFEKT"
1180 W3$="ANREIZ"
1190 W4$="METHODE"
1200 GOTO 1260
1210 W1$="SOUNDAUSNUTZUNG"
1220 W2$="VARIABILITAET"
1230 W3$="KLANGBILD"
1240 W4$="VERWENDUNG"
1250 GOTO 1260
1260 W5$="PREIS/LEISTUNG"
1270 PRINT"[147]"
1280 PR=Z*10-A
1310 GOSUB 10000
1313 GOSUB 10000
1315 GOSUB 10000
1317 GOSUB 10000
1319 GOSUB 10000
1350 PRINT"[147]"
1360 Y1=INT(12*RND(1))+1
1370 Y2=INT(12*RND(1))+1
1380 Y3=INT(12*RND(1))+1
1390 Y4=INT(12*RND(1))+1
1400 Y5=INT(12*RND(1))+1
1410 PRINT" DIE BEWERTUNG:"
1411 PRINT:PRINT:PRINT" PROGRAMMIERER: "N$
1412 PRINT:PRINT" PROGRAMMNAME : "NP$
1413 PRINT:PRINT" ART DES GAMES: "AR$
1414 PRINT:PRINT" COMPUTER-TYP : "CT$
1415 PRINT"---------------------------------------"
1420 PRINT:PRINT" "W1$":"Y1
1430 PRINT:PRINT" "W2$":"Y2
1440 PRINT:PRINT" "W3$":"Y3
1450 PRINT:PRINT" "W4$":"Y4
1460 PRINT:PRINT" "W5$":"Y5
1461 GET AA$:IF AA$="" THEN 1461
1462 IF AA$=CHR$(32) THEN 1465
1465 PRINT"[147]"
1470 PRINT:PRINT:PRINT" 1= NEUES PROGRAMM"
1480 PRINT:PRINT" 2= AUFHOEREN"
1490 PRINT:INPUT"";R
1500 IF R=1 THEN 480
1510 IF R=2 THEN 1530
1520 GOTO 1470
1530 PRINT:PRINT:PRINT" TSCHUESS DANN...":END
10000 XX=INT(1000*RND(1))+1
10010 XX=INT(1000*RND(1))+1
10020 XX=INT(1000*RND(1))+1
10030 XX=INT(1000*RND(1))+1
10031 XX=INT(1000*RND(1))+1
10032 XX=INT(1000*RND(1))+1
10033 XX=INT(1000*RND(1))+1
10034 XX=INT(1000*RND(1))+1
10035 XX=INT(1000*RND(1))+1
10036 XX=INT(1000*RND(1))+1
10037 XX=INT(1000*RND(1))+1
10038 XX=INT(1000*RND(1))+1
10039 XX=INT(1000*RND(1))+1
10040 XX=INT(1000*RND(1))+1
10050 XX=INT(1000*RND(1))+1
10060 XX=INT(1000*RND(1))+1
10070 XX=INT(1000*RND(1))+1
10080 XX=INT(1000*RND(1))+1
10090 XX=INT(1000*RND(1))+1
10100 XX=INT(1000*RND(1))+1
10110 XX=INT(1000*RND(1))+1
10120 XX=INT(1000*RND(1))+1
10130 XX=INT(1000*RND(1))+1
10131 XX=INT(1000*RND(1))+1
10132 XX=INT(1000*RND(1))+1
10133 XX=INT(1000*RND(1))+1
10134 XX=INT(1000*RND(1))+1
10135 XX=INT(1000*RND(1))+1
10200 RETURN