80-Bus News

  

September-October 1983, Volume 2, Issue 5











Page 52 of 67











960 DATA 26,25,28,25,26,23,26,24,25:REM SHANNON WITH LAKES LISTING 1 970 DATA "CORRIB”,10 980 DATA 16,33, 16,34, 12, 36,16, 36,16, 35,17, 35 09 DEPINT X,Y,C,1,N 990 DATA 17,34,18,34,18,33,16,33:REM CORRIB * INSERT HERE THE CONTENTS OF FILE PRIMDEF ON CLIMAX DEMO DISK* 1000 DATA "UPR’ CORRIB" 5 400 PRINT CHRS(26); 1010 DATA 13,38,15,39,15,37,13,37,13,38:REM UPR CORRIB 410 INPUT “Enter Scale Required";SCALE 1020 DATA "MASK", 6 420 IF (SCALE<=0)OR (SCALE>10) GOTO 400 1030 DATA 15,45,15,47,15,46,16,46,16,45,15,45:REM MASK 440 C=O:CALL PENCOL(C):REM select black background 1040 DATA "MOY" .2 450 CALL SCAN:REM set screen 1050 DATA 22,49,25,46:REM MOY 460 C=6:CALL PENCOL(C):REM select Yellow for outline 1060 DATA "ERNE", 11 470 GOSUB 540:REM call lineprinter 1070 DATA 26,54, 26,53, 28,53, 28,52, 30,52, 30,53, 32,53 480 C=9:REM SELECT BLUE 1080 DATA 32,51,35,47,31,52,30,52:REM ERNE 490 CALL PENCOL(C) 1090 DATA "FOYLE", 12 200 FOR J=O TO 14:REM 15 RIVERS 1100 DATA 36, 64,34, 61 ,34,60,33,59, 30,59, 28,60, 28, 60 310 GOSUB 540:REM call lineprinter 1110 DATA 30,59, 33,59,35,57,35,56,37,55:REM FOYLE 320 NEXT J 1120 DATA "BANN",17 22) REN *** LISTING 2 will be inserted here *# 1130 DATA 41,66,43,62,44,58,43,58,43,56,42,55,43,54, 44 . 959 END 1140 DATA 54,46,56,46,58,44,58,46,58,46,56,44,54,44.52,47,51,47,50:RIM BANN 540 REM Procedure to print line. 1150 DATA "BOYNE" ,6 350 REM First data entry is name, which we read and discard 1160 DATA 47,40,43,40,42,39,42,38,40,37,38,35:REM BOYNE 560 REM Second is number of points making up line 1170 DATA “LIFPEY",8 570 READ A$,N:N=N-1 1180 DATA 47,34, 44,34,42,32,42,31,41,30,43,29,45,31,46,30:REM LIFFEY 580 READ X(1),Y(1) 1190 DATA "SLANEY",9 590 X(1)=INT(K(1)*SCALB): Y(1 )eINT(Y(1)*SCALE) 1200 DATA 45,16,44,17,44,19,43,20,43,22,42,24,43,25,43,27,44,27:REM SLANEY 600 FOR I=1 TO W 1210 DATA "SUIR", 14 610 K(O)=x(1):Y(0)@Y(1) 1220 DATA 40,14,40,17,42,20,42,22, 42,20, 40,17, 40, 25,39, 26,40, 25 620 READ X(1),Y(1) 1230 DATA 40,17,38,19,37,19,37,22,35,25:RIM NORE/SUIR 630 X(4)=INT(X(1)*SCALE): Y(1)=INT(Y(1 )*SCALB) 1240 DATA"BLACKWATER" 4 640 CALL LINEI(X(0),Y(0),X(1),Y(1)) 1250 DATA 31,8,31,12,19, 12,18, 11:REM BLACKWATER 650 NEXT I 1260 DATA "Lie". 3 660 RETURN 1270 DATA 26,7,25,8,15,8:REM LEE 670 DATA "IRELAND", 218 1280 DATA "KELEARNEY" 6 680 DATA 8,0,12,3,11,3,1 159,10,4,8,3,5,2,6,3 1290 DATA 11,9,12,10,11,11,13,10,11,9:REM KILLARNEY 690 DATA 6,4,7,4,7,5,1 6,3,6,3,9,4,9,8,11,7,12,3,12,1,11 1300 END JOO DATA 1,12,2,13,3,1 15414,7,14,7,15

52

710 DATA 8,14,9,14,9, 0,20, 22,19,22,19 LISTING 2

, 720 DATA 23,16,21,16,2 5 17,30,19,50,19 521 REM PRINTER DRIVER a cs ‘ + ,

730 DATA 13,23,12,24,4 22 LPRINT CHRS(27)3"1" 740 DATA 32,11,32,11,33,9, +7535,7, 36,5, 36,5 2 (27)

23 BLACK=0 750 DATA 37,6,37,6,38,9,38, Y 9,8,41, 2, 112,43,7,45,7,44,5 24 FOR YY*=255 TO O STEP 8 760 DATA 44,5,45,8,45,8,48,7,48,7,46,6,46,6,50 525 LPRINT CHRS (27); "*";CHRS(4);CHRS(O);CHRE(1), 770 DATA 8,50,8,49,9,49,9,50,15,50,17,48, 17,50, 20,50, 20,49, 22 526 Z=YY MOD 8 780 DATA 49,22,51,21,51,26,54,26,55,27,56,21 56,20, 57,24 ,57, 21 527 FOR XX=0 TO 255 790 DATA 98,23,59,24,60,24,61 25,61 ,23,62,24,62,24,63,25,63, 25 528 BYTH=0:REM INITIALISE 800 DATA 65, 26,64,27,64,27,65, 28,66, 29,66, 31,67, 32,67, 32,66 529 FOR J=Z TO O STEP -1;REM BUILDUP CHAR 810 DATA 33,65, 33,64, 32,63,31 ,62,34,64,33,65, 33,68, 34, 68, 34,69 530 N=YY+J-7 820 DATA 35569, 36, 68, 39,67, 36,65, 36,64, 38,64, 38,66, 41,66,43,67 531 CALL GETP(XX,N) 830 DATA 47,67, 48, 66,48, 64,49,64,49,63,50,61,51,61,52,60,52,59 532 COL=INP(&HD0)-240 840 DATA 30,58, 50,57,49,55,50,57,53,58,55,55,54,52,53,53,54,54 533 IF COL<>BLACK THEN BYTH=2* J+BYTE: REM BUILD CHAR 850 DATA 52,56, 52,52,53,52,54,51,53,50,51,50,50,49,50,47,49, 46 534 NEXT J 860 DATA 48, 46,48, 45,47, 45,46,46,45,44,46,43,47,43,47,39, 49,37 535 LPRINT CHRS(BYTE); 870 DATA 48,37, 48,34,49,35,49,34,47,34,49,32,49,30,50,27,49, 24 536 NEXT XX 880 DATA 49,25, 48,22, 48,19, 46,16,45,16,46,13,45,14,45,13,44,13,43,14, 41,13 537 LPRINT:REM CRLF at end of line 890 DATA 41,14,40,15,40,12,35,12,33,11,33,9,28,6,27,6,27,7,26 538 NEXT YY 900 DATA 7y26,5,19,2,19,1,16,1,16,0,14,0,14,1,11,1,10,0,8, O:REM 12,3:REM ,11,3 910 REM RIVER DATA 920 DATA "SHANNON" , 30 930 DATA 20, 22,25, 22,24, 23,24, 25,25, 26, 26, 28,27, 28, 26, 28, 30,32, 29 \ 940 DATA 36,29,39,28,39,30,41,28,44,28,48,29,49 950 DATA 28,48, 29,48, 29, 45,28, 44,30, 41 , 28,39, 28,38, 29, 36,30, 32, 26

oO, 3, 6, 0, 4,


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 52 of 67