File ABIQU1.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

1 DIM D$(15,15),B$(4),P$(5,4),H$(6)
3 FILE#3:"SYS:FAENAM.BA"
5 FOR I=1 TO 14
7 INPUT#3:D$(I)
9 NEXT I
11 CLOSE#3
30 L=0\P=0\V=0\Q=-4\T=0
40 FILEV#1:"SYS:KURSE.BA"
50 FILE#2:"SYS:BASIS.BA"
60 FOR I=1TO3
70 INPUT#2:B$\GOSUB 1700
80 PRINT D$(C1);\INPUT A
100 IF A<0THEN 140\IF A>2 THEN 140
110 IF A<>0 THEN 160
120 PRINT "TEXT1"
130 GOTO 80
140 PRINT "TEXT 2"
150 GOTO 80
160 GOSUB1100
165 C$=STR$(I)
170 GOSUB 1400
180 IF A=1 THEN 200
190 L=L+1
200NEXT I
205Z=Z+I
215 M=1
217 T=0
220 FOR I=1TO 6
230 INPUT#2: B$\GOSUB1700
240 PRINT D$(C1);\INPUT A
250 IF A<0 THEN 140\IF A>2 THEN 140
260 IF A=0 THEN 310
270 GOSUB 1100
275 IF I>3THEN 278
276 LET C$=STR$(4)
277 GOTO 280
278 C$=STR$(5)
280 GOSUB 1400
290 IF A=1 THEN 315
300 LET L=L+1
305 GOTO 400
310 IF I/M=3 THEN 320
315  GOTO 400
320 IF T<>0 THEN 330\PRINT"TEXT4"\GOTO 4000
330 T=0
340 M=2
400 NEXT I
405 Z=Z+I
450 FOR I=1 TO 2
455 T=0\O=0
460 INPUT #2:B$\GOSUB 1700
465 PRINT D$(C1);\INPUT A
470 IF A<0 THEN140\IF A>2 THEN 140
480 IF A<>2 THEN 510
490PRINT"TEXT 3"
500 GOTO 465
510 IF A=1 THEN 530
520 IF O=1 THEN 570
521 O=1\GOTO 600
530 GOSUB 1100
540 C$=STR$(5+I)
550 GOSUB 1400
560 GOTO 600
570 IF T=0 THEN 140
600 NEXT I
605 Z=Z+I
620 INPUT#2:B$\GOSUB 1700
630 PRINT"WENN VON SPORT BEFREIT:-1"
640 PRINT D$(C1);\INPUT A
650 IF A<-1 THEN 655\IF A>2 THEN 655\IF A=0 THEN 655
651 GOTO 660
655 PRINT"TEXT2"\GOTO 640
660 IF A=2 THEN655
670 IF A=-1 THEN 720
680 GOSUB 1100
690 C$="8"
700 GOSUB 1400
710 GOTO 750
720 A$="-1"\C$="8"\Z=Z+1
730 PRINT#1:B$&C$&A$
750 CLOSE#1\CLOSE#2
760 IF L=3 THEN 3000
770 IF L>3 THEN 810
780 PRINT"ZU WENIG"
790 GOSUB 1505
800 GOTO 760
810 PRINT"ZU VIEL"
820 GOSUB 1505
830 GOTO 760
1100 REM ABFRAGEN D. KURSHALBJAHRE
1106 T=1
1110 FILE#3:"SYS:HAJA.BA"
1120 INPUT#3:H$
1130 IF V=0 THEN 1160
1140 PRINT"WIEVIELE PUNKTE IN";D$(C1);" IN ";H$;
1141 INPUT P$(V)\IFP$(V)=" " THEN 1240\P=VAL(P$(V))
1150 IF P<0 THEN 1240\IF P>15 THEN 1240
1160 FOR C2=1 TO 3
1165 K=C2+V
1170 INPUT #3:H$
1180 IF K>1 THEN1210
1190 PRINT"WIEVIELE PUNKTE IN";D$(C1);" IN ";H$;
1191 INPUT P$(K)\IF P$(K)=" " THEN 1245\P=VAL(P$(K))
1195 IF P<0 THEN1245\IF P>15 THEN1245
1200 GOTO1220
1210 PRINT "WIEVIELE PUNKTE IN ";H$;
1211 INPUT P$(K)\IF P$(K)=" "THEN1250\P=VAL(P$(K))
1215 IF P<0 THEN1250\IF P>15 THEN1250
1220 NEXT C2
1230GOTO 1260
1240 GOSUB 1255
1242 GOTO 1140
1245 GOSUB 1255
1247 GOTO 1190
1248 GOSUB 1255
1249GOTO 1265
1250 GOSUB 1255
1252 GOTO 1210
1255 PRINT"FALSCHE EINGABE,BITTE NEU!"\RETURN
1260 IF V=1 THEN1295 
1262 INPUT#3:H$
1265 PRINT "WIEVIELE PUNKTE IN ";H$;
1266INPUT P$(K)\IF P$(K)=" "THEN1248\P=VAL(P$(K))
1267 IF P<0 THEN 1248\IF P>15 THEN1248
1295 CLOSE#3
1298 RETURN
1400 REM SUB AUFSPEICHERN VON K.-NAMEN,PUNKTEN AUF BAND
1401A$=STR$(A)
1410 PRINT#1:B$&C$&A$
1420 FOR K=1TO4
1430 PRINT#1:P$(K)
1440NEXT K
1460 RETURN
1505 L=0
1510 FILE#1:"SYS:KURSE.BA"
1520 FILEV#2:"SYS:KURSE.BA"
1525 INPUT#1:B$\IF END#1 THEN 1660
1530 A$=SEG$(B$,1,3)\C$=SEG$(B$,4,4)
1540 PRINT A$;\INPUT D
1550 IF D<1 THEN 1555\IF D>2 THEN 1555
1551 GOTO 1560
1555 PRINT"TEXT1"\GOTO 1540
1560 IF D=1 THEN 1580
1570 L=L+1
1580 PRINT#2:A$&C$&STR$(D)
1590 FOR I=1 TO 4
1600 INPUT#1:B$\IF END#1 THEN 1660
1610 PRINT#2:B$
1620 NEXT I
1630 GOTO 1525
1660 CLOSE#1\CLOSE#2\RETURN
1699 REM SUB GANZE FAECHERNAMEN
1700 FOR C1=1 TO 14
1710 IF B$=SEG$(D$(C1),1,3) THEN 1730
1720 NEXT C1
1730 RETURN
3000 PRINT"ENDE"
3010 STOP
4000 CLOSE#2
4010 FILE#2:"SYS:BASIS.BA"
4020 FOR C3=1 TO Z
4030 INPUT#2:B$
4040 NEXT C3
4050 GOTO 220
10000 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search