90 REM COP R.WITTEK 15.4.81
100 PRINT TAB(25);"INHALTSVERZEICHNIS"
110 PRINT\PRINT\PRINT
120 PRINT TAB(10);"1  =  AMAZIN"\X=1
130 PRINT TAB(10);"2  =  BOMBER"\X=2
140 PRINT TAB(10);"3  =  TOWER"\X=3
150 PRINT TAB(10);"4  =  CANAM (AUTORENNEN)"\X=4
160 PRINT TAB(10);"5  =  CHEMST"\X=5
170 PRINT TAB(10);"6  =  CHIEF"\X=6
180 PRINT TAB(10);"7  =  FIPFOP"\X=7
190 PRINT TAB(10);"8  =  HELLO"\X=8
200 PRINT TAB(10);"9  =  SPACWR (STAR TREK)"\X=9
210 PRINT TAB(10);"10 =  WEKDAY"\X=10
250 PRINT\PRINT\PRINT\PRINT"PROGRAMM NUMMER";\INPUT X
300 IF X=1 THEN 500
310 IF X=2 THEN 510
320 IF X=3 THEN 520
330 IF X=4 THEN 530
340 IF X=5 THEN 540
350 IF X=6 THEN 550
360 IF X=7 THEN 560
370 IF X=8 THEN 570
380 IF X=9 THEN 580
390 IF X=10 THEN 590
500 CHAIN"DSK1:AMAZIN.BA"
510 CHAIN"DSK1:BOMBER.BA"
520 CHAIN"DSK1:TOWER.BA"
530 CHAIN"DSK1:CANAM.BA"
540 CHAIN"DSK1:CHEMST.BA"
550 CHAIN"DSK1:CHIEF.BA"
560 CHAIN"DSK1:FIPFOP.BA"
570 CHAIN"DSK1:HELLO.BA"
580 CHAIN"DSK1:SPACWR.BA"
590 CHAIN"DSK1:WEKDAY.BA"
600 END