10
20 MODE&87:ONERRORVDU4:OSCLI"FX220,27":IFERR=17:MODE&87:PROCchain ELSE REPORT:PRINT:END
30 *Exec
40 *FX15
50 *KEY10
60 *FX5,4
70 *FX247
80 A%=0:X%=1:os%=((USR&FFF4)AND&FF00)DIV256:DIMctrl%30:X%=ctrl%:Y%=X%DIV256
90 !X%=5:A%=&13:CALL&FFF1:!X%=8:CALL&FFF1:Stn%=X%?1
100 PROCCheckStn:MODE&81:VDU23;8202;0;0;0;:*FX220,32
110 PRINT':IFos%<3:PRINTTAB(0,9);
120 IFos%<6:*ROMS
130 PRINTTAB(0,0);:FORA%=0TO8:PRINTSPC(24):NEXT
140 PRINTTAB(0,15);:FORA%=1TO3:PRINTSPC(24):NEXT
150 COLOUR3:PROCdouble(0,0,"STATION "+STR$Stn%)
160 COLOUR2:PROCdouble(0,3,"MYERS GROVE ECONET")
170 COLOUR3:PROCdouble(0,6,"ROMS AVAILABLE"):COLOUR2
180 VDU19,1,4,0,0,0,19,2,3,0,0,0,19,3,6,0,0,0
190 :
200
210 VDU23,128,0,0,0,0,0,0,0,3
220 VDU23,129,0,0,0,0,0,255,127,63
230 VDU23,130,3,7,14,28,56,240,224,224
240 VDU23,131,7,15,31,31,31,31,63,63
250 VDU23,132,159,207,231,243,249,252,254,255
260 VDU23,133,224,224,224,224,224,224,96,32
270 VDU23,134,63,63,63,63,63,63,0,0
280 VDU23,135,255,255,255,255,252,192,0,0
290 VDU23,136,128,128,0,0,0,0,0,0
300 :
310
320 VDU23,137,192,224,112,56,28,15,7,7
330 VDU23,138,0,0,0,0,0,255,254,252
340 VDU23,139,0,0,0,0,0,0,0,192
350 VDU23,140,7,7,7,7,7,7,6,4
360 VDU23,141,249,243,231,207,159,63,127,255
370 VDU23,142,224,240,248,248,248,248,252,252
380 VDU23,143,1,1,0,0,0,0,0,0
390 VDU23,144,255,255,255,255,63,3,0,0
400 VDU23,145,252,252,252,252,252,252,0,0
410 :
420
430 VDU23,146,0,0,0,3,7,15,15,31
440 VDU23,147,24,24,255,255,255,255,255,255
450 VDU23,148,0,0,0,192,224,240,240,248
460 VDU23,149,31,0,15,15,15,15,7,7
470 VDU23,150,255,0,255,255,255,255,255,255
480 VDU23,151,248,0,240,240,240,240,224,224
490 VDU23,152,7,7,3,3,1,0,0,0
500 VDU23,153,255,255,255,255,255,255,126,60
510 VDU23,154,224,224,192,192,128,0,0,0
520 :
530
540 VDU23,156,127,64,86,84,84,116,0,127
550 VDU23,157,254,0,234,42,234,238,2,254
560 VDU23,158,0,127,64,86,84,116,0,127
570 VDU23,159,0,254,0,238,170,238,2,254
580 :
590
600 :
610
620 X=960:Y=650
630 FOR Z=1 TO 6
640 IFZ=3THENGOTO780
650 G=(2 AND Z=1)+(3 AND Z=2)+(3 AND Z=3)+(2 AND Z=4)+(1 AND Z=5)+(3 AND Z=6)
660 GCOL0,G
670 R=274-(Z*25)
680 ST=(2*PI/100)+50
690 S=SIN(ST):C=COS(ST)
700 XP=R:YP=0
710 MOVE X+R,Y
720 FOR L%=1 TO 16
730 XR=XP*C-YP*S
740 YP=XP*S+YP*C:XP=XR
750 MOVEX,Y
760 PLOT85, X+XP,Y+YP
770 NEXT L%
780 NEXT Z
790
800 GCOL0,2
810 MOVE 782,650:MOVE 782,960
820 PLOT 85,1136,960
830 MOVE 1136,650
840 PLOT 85,782,650
850 GCOL0,2
860
870 MOVE 780,650:MOVE 780,775
880 PLOT 85,710,750
890 MOVE 710,650
900 PLOT 85,780,650
910 MOVE 1138,650:MOVE 1138,775
920 PLOT 85,1210,750
930 MOVE 1210,650
940 PLOT 85,1138,650
950
960 GCOL0,3
970 MOVE 738,650:MOVE 738,730
980 PLOT 85,780,650:PLOT 85,780,740
990 MOVE 1138,650:DRAW 1138,740
1000 PLOT 85,1185,650:PLOT 85,1185,730
1010
1020
1030 GCOL0,1
1040 MOVE 810,650:MOVE 810,930
1050 PLOT 85,1110,930
1060 MOVE 1110,650
1070 PLOT 85,810,650
1080
1090 GCOL0,3:MOVE 836,648:MOVE 836,900
1100 PLOT 85,1084,900
1110 MOVE 1084,648:PLOT 85,836,648
1120 VDU5:GCOL0,2
1130 MOVE 865,718:PRINT""
1140 MOVE 865,686:PRINT""
1150 MOVE 865,654:PRINT""
1160 MOVE 915,628:PRINT""
1170 MOVE 915,596:PRINT""
1180 MOVE 915,574:PRINT""
1190 MOVE 963,618:DRAW 963,720
1200 MOVE 956,618:DRAW 956,720
1210 :
1220
1230 VDU23,128,0,0,0,0,1,3,7,15
1240 VDU23,129,0,28,126,254,252,249,251,255
1250 VDU 23,130,0,0,30,63,255,255,255,254
1260 VDU 23,131,0,0,0,6,14,31,31,31
1270 VDU 23,132,15,31,63,63,127,127,127,127
1280 VDU 23,133,255,255,255,255,255,255,255,255
1290 VDU 23,134,252,254,255,255,254,224,240,224
1300 VDU 23,135,63,63,63,63,63,127,127,127
1310 VDU 23,136,192,128,0,224,224,240,224,192
1320 VDU 23,137,127,127,127,127,127,255,255,224
1330 VDU 23,138,255,255,255,255,255,255,240,0
1340 VDU 23,139,255,192,240,248,240,224,0,0
1350 MOVE 960,845:PRINT" "
1360 MOVE 960,819:PRINT""
1370 MOVE 960,787:PRINT""
1380 MOVE 960,755:PRINT""
1390 :
1400
1410 VDU 23,128,0,0,120,252,255,255,255,127
1420 VDU 23,129,0,56,126,127,63,143,207,255
1430 VDU 23,130,0,0,0,0,128,192,224,240
1440 VDU 23,131,63,127,255,255,127,7,15,7
1450 VDU 23,132,240,248,252,252,254,254,254,254
1460 VDU 23,134,0,0,0,96,112,248,248,248
1470 VDU 23,135,3,1,0,7,7,15,7,3
1480 VDU 23,136,252,252,252,252,252,254,254,254
1490 VDU 23,137,255,3,15,31,15,7,0,0
1500 VDU 23,138,255,255,255,255,255,255,15,0
1510 VDU 23,139,254,254,254,254,254,255,255,7
1520 MOVE 838,845:PRINT""
1530 MOVE 838,819:PRINT""
1540 MOVE 838,787:PRINT""
1550 MOVE 838,755:PRINT" "
1560 VDU4
1570 :
1580 COLOUR 3
1590 PROCdouble(2,16,"Fileserver discs")
1600 PROCdouble(0,18," on line are"):PRINT'
1610 COLOUR 2:*FREE
1620 COLOUR 1:PRINTTAB(33,26);" & "
1630 PROCdouble(5,30,"Press SPACE to continue"):*FX220,27
1640 REPEATUNTILGET:MODE&87:PROCchain:END
1650 :
1660 DEFPROCchain:ONERROROFF
1670 CHAIN"Hello":ENDPROC
1680 :
1690 DEFPROCdouble(xpos%,ypos%,text$):PRINTTAB(xpos%,ypos%);
1700 A%=10:FOR Z%=1 TO LENtext$:?X%=ASCMID$(text$,Z%,1):CALL&FFF1
1710 VDU23,128,X%?1,X%?1,X%?2,X%?2,X%?3,X%?3,X%?4,X%?4,128,8,10
1720 VDU23,128,X%?5,X%?5,X%?6,X%?6,X%?7,X%?7,X%?8,X%?8,128,11
1730 NEXT:ENDPROC
1740 :
1750 DEFPROCCheckStn
1760 IFos%>2:ENDPROC
1770 IF(Stn%DIV10)=2:OSCLI"TV255":
1780 ENDPROC