Home » Recent acquisitions » Acorn tapes » tape045a_acorn_acorn_user_1985_04_bbc.wav » JENINGS

JENINGS

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn tapes » tape045a_acorn_acorn_user_1985_04_bbc.wav
Filename: JENINGS
Read OK:
File size: 0CE2 bytes
Load address: FFFF1900
Exec address: FFFF1900
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM Graph
   20 REM by Nigel Jennings 
   30 REM For BBC and Electron
   40 REM (c) Acorn User 1985
   50 :
   60 A$=STRING$(78," ")
   70 B$=STRING$(78," ")
   80 DIM Code$(11)
   90 DIM Code%(8)
  100 DIM Yvalues(201)
  110 FOR I%=1 TO 11
  120 READ Code$(I%)
  130 NEXT
  140 DATA "AO","SF","AX","AS","PL"
  150 DATA "OP","SP","SD","RS","C","E"
  160 MODE 7
  170 PROC_HELP
  180 MODE 0
  190 PROC_INITIALISE
  200 ON ERROR PROC_ERROR
  210:
  220 REPEAT
  230 PROC_INPUT
  240 IF A$="H" MODE 7:PROC_HELP:MODE 0:PROC_VDU:UNTIL FALSE
  250 IF NOT Code%(6) CLG
  260 PRINTTAB(0,31);"Y="A$;
  270 IF Code%(3) PROC_AXES
  280 PROC_PLOT((40-XA%)/60/SF,1)
  290 IF Code%(8) PROC_DUMP
  300 UNTIL FALSE
  310 END
  320 :
  330 DEF PROC_INITIALISE
  340 XA%=640 : YA%=528
  350 PROC_VDU
  360 SF=1
  370 FOR I%=3 TO 8
  380 IF I%<6 Code%(I%)=-1 ELSE Code%(I%)=0 
  390 NEXT
  400 PROC_DISPLAYCODE
  410 ENDPROC
  420 :
  430 DEF PROC_VDU
  440 VDU 29,XA%;YA%; 
  450 VDU 28,0,31,79,31 
  460 ENDPROC
  470 :
  480 DEF PROC_INPUT
  490 REPEAT
  500 CLS
  510 INPUT TAB(0,31) "Y=" A$
  520 I%=1 
  530 REPEAT
  540 IF A$=Code$(I%) PROC_READCODE:PROC_INPUT ELSE I%=I%+1
  550 UNTIL I%>11
  560 UNTIL A$<>"" 
  570 IF A$="H" ENDPROC
  580 IF A$="RP" A$=B$ ELSE B$=A$
  590 ENDPROC
  600 :
  610 DEF PROC_READCODE
  620 IF I%>2 AND I%<9 Code%(I%)=NOT Code%(I%):PROC_DISPLAYCODE
  630 IF A$="AO" PROC_ORIGIN:PROC_DISPLAYCODE:ENDPROC
  640 IF A$="SF" PROC_SCAFAC:PROC_DISPLAYCODE:ENDPROC
  650 IF A$="RS" PROC_INITIALISE:ENDPROC
  660 IF A$="C" PROC_DISPLAYCODE:ENDPROC
  670 IF A$="E" PROC_END
  680 ENDPROC
  690 :
  700 DEF PROC_DISPLAYCODE
  710 PRINTTAB(0,31);"AO: ";XA%;",";YA%;
  720 PRINTTAB(17);"SF: ";SF;
  730 FOR I%=3 TO 8
  740 IF Code%(I%) PRINTTAB(I%*10-3);Code$(I%);
  750 NEXT
  760 C$=INKEY$(500)
  770 ENDPROC
  780 :
  790 DEF PROC_PLOT(S,I%)
  800 IF Code%(5) P%=69 ELSE P%=5:X=S:Y=EVAL(A$):PLOT 4,X*60*SF,Y*48*SF
  810 FOR X=S TO (1240-XA%)/60/SF STEP .1/SF
  820 Y=EVAL(A$)
  830 IF Code%(7) Y=Y+Yvalues(I%)
  840 PLOT P%,X*60*SF,Y*48*SF
  850 Yvalues(I%)=Y
  860 I%=I%+1
  870 NEXT
  880 IF Code%(3) PROC_SCALE 
  890 ENDPROC
  900 :
  910 DEF PROC_AXES
  920 MOVE 40-XA%,0
  930 DRAW 1240-XA%,0
  940 MOVE 0,48-YA%
  950 DRAW 0,1008-YA%
  960 ENDPROC
  970 :
  980 DEF PROC_SCALE
  990 VDU 5
 1000 @%=&02010A 
 1010 REM x-axis
 1020 FOR XC%=40-XA% TO 1240-XA% STEP 120
 1030 REM Graduations
 1040 MOVE XC%,-10
 1050 DRAW XC%,10
 1060 REM Scale points
 1070 MOVE XC%-120,-30
 1080 IF Code%(4) PRINT XC%/60/SF
 1090 NEXT
 1100 REM y-axis
 1110 FOR YC%=48-YA% TO 1008-YA% STEP 96
 1120 REM Graduations
 1130 MOVE -5,YC%
 1140 DRAW 5,YC%
 1150 REM Scale points
 1160 MOVE -85,YC%+15
 1170 IF Code%(4) AND YC%/48/SF<>0 PRINT YC%/48/SF
 1180 NEXT
 1190 @%=&0A
 1200 VDU 4
 1210 ENDPROC
 1220 :
 1230 DEF PROC_ORIGIN
 1240 REPEAT
 1250 INPUT TAB(0,31) "Enter Origin: x-coord,y-coord :" XA%,YA%
 1260 UNTIL XA%>=0 AND XA%<1280 AND YA%>=0 AND YA%<1024
 1270 XA%=60*((XA%-10)DIV 60)+40 
 1280 YA%=48*((YA%-28)DIV 48)+48
 1290 VDU 29,XA%;YA%;
 1300 ENDPROC
 1310 :
 1320 DEF PROC_SCAFAC
 1330 REPEAT
 1340 INPUT TAB(0,31) "Enter Scale Factor: " SF
 1350 UNTIL SF>0
 1360 ENDPROC
 1370 :
 1380 DEF PROC_END
 1390 VDU 26
 1400 CLS
 1410 END 
 1420 ENDPROC
 1430 :
 1440 DEF PROC_ERROR
 1450 REM 17=Escape 18=Div by Zero 20=Too Big 21=-ve Root 22=Log Range
 1460 IF ERR=17 ENDPROC
 1470 IF ERR=18 OR ERR=20 PROC_PLOT(X+.1/SF,I%+1) 
 1480 IF (ERR=21 OR ERR=22) AND SGN(X)=-1 PROC_PLOT(.1/SF,100)
 1490 ENDPROC
 1500 :
 1510 DEF PROC_HELP
 1520 VDU 23,1,0;0;0;0;
 1530 PRINT''TAB(8);"OUTPUT CONTROL CODES"'
 1540 PRINTTAB(11);"Print Control"'
 1550 PRINT "AO : Axis Origin";SPC(13);": 640,528"
 1560 PRINT "SF : Scale Factor";SPC(12);": 1"
 1570 PRINT "AX : Axes";SPC(20);": on"
 1580 PRINT "AS : Axis Scales";SPC(13);": on"
 1590 PRINT "PL : Dotted Plot Line";SPC(8);": on"
 1600 PRINT "OP : Overprint";SPC(15);": off"
 1610 PRINT "SP : Superposition last plot : off"
 1620 PRINT "SD : Screen Dump";SPC(13);": off"'
 1630 PRINTTAB(10);"Program Control"'
 1640 PRINT "RP : Repeat last plot" 
 1650 PRINT "RS : Reset codes to default"
 1660 PRINT "H  : Display this list"
 1670 PRINT "C  : Display current codes" 
 1680 PRINT "E  : End program" 
 1690 C$=INKEY$(800)
 1700 ENDPROC
 1710 :
 1720 DEF PROC_DUMP
 1730 REM Insert Screen Dump Routine here
 1740 ENDPROC

 � Graph
 � by Nigel Jennings 
 � For BBC and Electron
( � (c) Acorn User 1985
2 :
< A$=�78," ")
F B$=�78," ")
P � Code$(11)
Z � Code%(8)
d � Yvalues(201)
n � I%=1 � 11
x � Code$(I%)
� �
� � "AO","SF","AX","AS","PL"
�" � "OP","SP","SD","RS","C","E"
� � 7
� �_HELP
� � 0
� �_INITIALISE
� � � �_ERROR
�:
� �
� �_INPUT
�& � A$="H" � 7:�_HELP:� 0:�_VDU:� �
� � � Code%(6) �
 �0,31);"Y="A$;
 � Code%(3) �_AXES
 �_PLOT((40-XA%)/60/SF,1)
" � Code%(8) �_DUMP
, � �
6 �
@ :
J � �_INITIALISE
T XA%=640 : YA%=528
^
 �_VDU
h	 SF=1
r � I%=3 � 8
|' � I%<6 Code%(I%)=-1 � Code%(I%)=0 
� �
� �_DISPLAYCODE
� �
� :
� � �_VDU
� � 29,XA%;YA%; 
� � 28,0,31,79,31 
� �
� :
� � �_INPUT
� �
� �
� � �0,31) "Y=" A$

 I%=1 
 �
0 � A$=Code$(I%) �_READCODE:�_INPUT � I%=I%+1
& � I%>11
0 � A$<>"" 
: � A$="H" �
D � A$="RP" A$=B$ � B$=A$
N �
X :
b � �_READCODE
l6 � I%>2 � I%<9 Code%(I%)=� Code%(I%):�_DISPLAYCODE
v' � A$="AO" �_ORIGIN:�_DISPLAYCODE:�
�' � A$="SF" �_SCAFAC:�_DISPLAYCODE:�
� � A$="RS" �_INITIALISE:�
� � A$="C" �_DISPLAYCODE:�
� � A$="E" �_END
� �
� :
� � �_DISPLAYCODE
�  �0,31);"AO: ";XA%;",";YA%;
� �17);"SF: ";SF;
� � I%=3 � 8
�& � Code%(I%) �I%*10-3);Code$(I%);
� �
� C$=�(500)
 �
 :
 � �_PLOT(S,I%)
 < � Code%(5) P%=69 � P%=5:X=S:Y=�(A$):� 4,X*60*SF,Y*48*SF
*% � X=S � (1240-XA%)/60/SF � .1/SF
4 Y=�(A$)
> � Code%(7) Y=Y+Yvalues(I%)
H � P%,X*60*SF,Y*48*SF
R Yvalues(I%)=Y
\ I%=I%+1
f �
p � Code%(3) �_SCALE 
z �
� :
�
 � �_AXES
� � 40-XA%,0
� � 1240-XA%,0
� � 0,48-YA%
� � 0,1008-YA%
� �
� :
� � �_SCALE
� � 5
� @%=&02010A 
�
 � x-axis
�" � XC%=40-XA% � 1240-XA% � 120
 � Graduations
 � XC%,-10

 � XC%,10
$ � Scale points
. � XC%-120,-30
8 � Code%(4) � XC%/60/SF
B �
L
 � y-axis
V! � YC%=48-YA% � 1008-YA% � 96
` � Graduations
j
 � -5,YC%
t � 5,YC%
~ � Scale points
� � -85,YC%+15
�* � Code%(4) � YC%/48/SF<>0 � YC%/48/SF
� �
� @%=&0A
� � 4
� �
� :
� � �_ORIGIN
� �
�7 � �0,31) "Enter Origin: x-coord,y-coord :" XA%,YA%
�, � XA%>=0 � XA%<1280 � YA%>=0 � YA%<1024
� XA%=60*((XA%-10)� 60)+40 
 YA%=48*((YA%-28)� 48)+48

 � 29,XA%;YA%;
 �
 :
( � �_SCAFAC
2 �
<' � �0,31) "Enter Scale Factor: " SF
F � SF>0
P �
Z :
d � �_END
n	 � 26
x �
� � 
� �
� :
� � �_ERROR
�C � 17=Escape 18=Div by Zero 20=Too Big 21=-ve Root 22=Log Range
�
 � �=17 �
�( � �=18 � �=20 �_PLOT(X+.1/SF,I%+1) 
�0 � (�=21 � �=22) � �(X)=-1 �_PLOT(.1/SF,100)
� �
� :
�
 � �_HELP
� � 23,1,0;0;0;0;
�# �''�8);"OUTPUT CONTROL CODES"'
 �11);"Print Control"'
+ � "AO : Axis Origin";�(13);": 640,528"
& � "SF : Scale Factor";�(12);": 1"
" � "AX : Axes";�(20);": on"
,& � "AS : Axis Scales";�(13);": on"
6* � "PL : Dotted Plot Line";�(8);": on"
@% � "OP : Overprint";�(15);": off"
J+ � "SP : Superposition last plot : off"
T( � "SD : Screen Dump";�(13);": off"'
^ �10);"Program Control"'
h � "RP : Repeat last plot" 
r$ � "RS : Reset codes to default"
| � "H  : Display this list"
�$ � "C  : Display current codes" 
� � "E  : End program" 
� C$=�(800)
� �
� :
�
 � �_DUMP
�& � Insert Screen Dump Routine here
� �
�
00000000  0d 00 0a 0c 20 f4 20 47  72 61 70 68 0d 00 14 19  |.... . Graph....|
00000010  20 f4 20 62 79 20 4e 69  67 65 6c 20 4a 65 6e 6e  | . by Nigel Jenn|
00000020  69 6e 67 73 20 0d 00 1e  1b 20 f4 20 46 6f 72 20  |ings .... . For |
00000030  42 42 43 20 61 6e 64 20  45 6c 65 63 74 72 6f 6e  |BBC and Electron|
00000040  0d 00 28 1a 20 f4 20 28  63 29 20 41 63 6f 72 6e  |..(. . (c) Acorn|
00000050  20 55 73 65 72 20 31 39  38 35 0d 00 32 06 20 3a  | User 1985..2. :|
00000060  0d 00 3c 10 20 41 24 3d  c4 37 38 2c 22 20 22 29  |..<. A$=.78," ")|
00000070  0d 00 46 10 20 42 24 3d  c4 37 38 2c 22 20 22 29  |..F. B$=.78," ")|
00000080  0d 00 50 10 20 de 20 43  6f 64 65 24 28 31 31 29  |..P. . Code$(11)|
00000090  0d 00 5a 0f 20 de 20 43  6f 64 65 25 28 38 29 0d  |..Z. . Code%(8).|
000000a0  00 64 13 20 de 20 59 76  61 6c 75 65 73 28 32 30  |.d. . Yvalues(20|
000000b0  31 29 0d 00 6e 10 20 e3  20 49 25 3d 31 20 b8 20  |1)..n. . I%=1 . |
000000c0  31 31 0d 00 78 10 20 f3  20 43 6f 64 65 24 28 49  |11..x. . Code$(I|
000000d0  25 29 0d 00 82 06 20 ed  0d 00 8c 1f 20 dc 20 22  |%).... ..... . "|
000000e0  41 4f 22 2c 22 53 46 22  2c 22 41 58 22 2c 22 41  |AO","SF","AX","A|
000000f0  53 22 2c 22 50 4c 22 0d  00 96 22 20 dc 20 22 4f  |S","PL"..." . "O|
00000100  50 22 2c 22 53 50 22 2c  22 53 44 22 2c 22 52 53  |P","SP","SD","RS|
00000110  22 2c 22 43 22 2c 22 45  22 0d 00 a0 08 20 eb 20  |","C","E".... . |
00000120  37 0d 00 aa 0b 20 f2 5f  48 45 4c 50 0d 00 b4 08  |7.... ._HELP....|
00000130  20 eb 20 30 0d 00 be 11  20 f2 5f 49 4e 49 54 49  | . 0.... ._INITI|
00000140  41 4c 49 53 45 0d 00 c8  10 20 ee 20 85 20 f2 5f  |ALISE.... . . ._|
00000150  45 52 52 4f 52 0d 00 d2  05 3a 0d 00 dc 06 20 f5  |ERROR....:.... .|
00000160  0d 00 e6 0c 20 f2 5f 49  4e 50 55 54 0d 00 f0 26  |.... ._INPUT...&|
00000170  20 e7 20 41 24 3d 22 48  22 20 eb 20 37 3a f2 5f  | . A$="H" . 7:._|
00000180  48 45 4c 50 3a eb 20 30  3a f2 5f 56 44 55 3a fd  |HELP:. 0:._VDU:.|
00000190  20 a3 0d 00 fa 13 20 e7  20 ac 20 43 6f 64 65 25  | ..... . . Code%|
000001a0  28 36 29 20 da 0d 01 04  14 20 f1 8a 30 2c 33 31  |(6) ..... ..0,31|
000001b0  29 3b 22 59 3d 22 41 24  3b 0d 01 0e 16 20 e7 20  |);"Y="A$;.... . |
000001c0  43 6f 64 65 25 28 33 29  20 f2 5f 41 58 45 53 0d  |Code%(3) ._AXES.|
000001d0  01 18 1d 20 f2 5f 50 4c  4f 54 28 28 34 30 2d 58  |... ._PLOT((40-X|
000001e0  41 25 29 2f 36 30 2f 53  46 2c 31 29 0d 01 22 16  |A%)/60/SF,1)..".|
000001f0  20 e7 20 43 6f 64 65 25  28 38 29 20 f2 5f 44 55  | . Code%(8) ._DU|
00000200  4d 50 0d 01 2c 08 20 fd  20 a3 0d 01 36 06 20 e0  |MP..,. . ...6. .|
00000210  0d 01 40 06 20 3a 0d 01  4a 13 20 dd 20 f2 5f 49  |..@. :..J. . ._I|
00000220  4e 49 54 49 41 4c 49 53  45 0d 01 54 16 20 58 41  |NITIALISE..T. XA|
00000230  25 3d 36 34 30 20 3a 20  59 41 25 3d 35 32 38 0d  |%=640 : YA%=528.|
00000240  01 5e 0a 20 f2 5f 56 44  55 0d 01 68 09 20 53 46  |.^. ._VDU..h. SF|
00000250  3d 31 0d 01 72 0f 20 e3  20 49 25 3d 33 20 b8 20  |=1..r. . I%=3 . |
00000260  38 0d 01 7c 27 20 e7 20  49 25 3c 36 20 43 6f 64  |8..|' . I%<6 Cod|
00000270  65 25 28 49 25 29 3d 2d  31 20 8b 20 43 6f 64 65  |e%(I%)=-1 . Code|
00000280  25 28 49 25 29 3d 30 20  0d 01 86 06 20 ed 0d 01  |%(I%)=0 .... ...|
00000290  90 12 20 f2 5f 44 49 53  50 4c 41 59 43 4f 44 45  |.. ._DISPLAYCODE|
000002a0  0d 01 9a 06 20 e1 0d 01  a4 06 20 3a 0d 01 ae 0c  |.... ..... :....|
000002b0  20 dd 20 f2 5f 56 44 55  0d 01 b8 13 20 ef 20 32  | . ._VDU.... . 2|
000002c0  39 2c 58 41 25 3b 59 41  25 3b 20 0d 01 c2 15 20  |9,XA%;YA%; .... |
000002d0  ef 20 32 38 2c 30 2c 33  31 2c 37 39 2c 33 31 20  |. 28,0,31,79,31 |
000002e0  0d 01 cc 06 20 e1 0d 01  d6 06 20 3a 0d 01 e0 0e  |.... ..... :....|
000002f0  20 dd 20 f2 5f 49 4e 50  55 54 0d 01 ea 06 20 f5  | . ._INPUT.... .|
00000300  0d 01 f4 06 20 db 0d 01  fe 15 20 e8 20 8a 30 2c  |.... ..... . .0,|
00000310  33 31 29 20 22 59 3d 22  20 41 24 0d 02 08 0a 20  |31) "Y=" A$.... |
00000320  49 25 3d 31 20 0d 02 12  06 20 f5 0d 02 1c 30 20  |I%=1 .... ....0 |
00000330  e7 20 41 24 3d 43 6f 64  65 24 28 49 25 29 20 f2  |. A$=Code$(I%) .|
00000340  5f 52 45 41 44 43 4f 44  45 3a f2 5f 49 4e 50 55  |_READCODE:._INPU|
00000350  54 20 8b 20 49 25 3d 49  25 2b 31 0d 02 26 0c 20  |T . I%=I%+1..&. |
00000360  fd 20 49 25 3e 31 31 0d  02 30 0e 20 fd 20 41 24  |. I%>11..0. . A$|
00000370  3c 3e 22 22 20 0d 02 3a  0f 20 e7 20 41 24 3d 22  |<>"" ..:. . A$="|
00000380  48 22 20 e1 0d 02 44 1c  20 e7 20 41 24 3d 22 52  |H" ...D. . A$="R|
00000390  50 22 20 41 24 3d 42 24  20 8b 20 42 24 3d 41 24  |P" A$=B$ . B$=A$|
000003a0  0d 02 4e 06 20 e1 0d 02  58 06 20 3a 0d 02 62 11  |..N. ...X. :..b.|
000003b0  20 dd 20 f2 5f 52 45 41  44 43 4f 44 45 0d 02 6c  | . ._READCODE..l|
000003c0  36 20 e7 20 49 25 3e 32  20 80 20 49 25 3c 39 20  |6 . I%>2 . I%<9 |
000003d0  43 6f 64 65 25 28 49 25  29 3d ac 20 43 6f 64 65  |Code%(I%)=. Code|
000003e0  25 28 49 25 29 3a f2 5f  44 49 53 50 4c 41 59 43  |%(I%):._DISPLAYC|
000003f0  4f 44 45 0d 02 76 27 20  e7 20 41 24 3d 22 41 4f  |ODE..v' . A$="AO|
00000400  22 20 f2 5f 4f 52 49 47  49 4e 3a f2 5f 44 49 53  |" ._ORIGIN:._DIS|
00000410  50 4c 41 59 43 4f 44 45  3a e1 0d 02 80 27 20 e7  |PLAYCODE:....' .|
00000420  20 41 24 3d 22 53 46 22  20 f2 5f 53 43 41 46 41  | A$="SF" ._SCAFA|
00000430  43 3a f2 5f 44 49 53 50  4c 41 59 43 4f 44 45 3a  |C:._DISPLAYCODE:|
00000440  e1 0d 02 8a 1d 20 e7 20  41 24 3d 22 52 53 22 20  |..... . A$="RS" |
00000450  f2 5f 49 4e 49 54 49 41  4c 49 53 45 3a e1 0d 02  |._INITIALISE:...|
00000460  94 1d 20 e7 20 41 24 3d  22 43 22 20 f2 5f 44 49  |.. . A$="C" ._DI|
00000470  53 50 4c 41 59 43 4f 44  45 3a e1 0d 02 9e 13 20  |SPLAYCODE:..... |
00000480  e7 20 41 24 3d 22 45 22  20 f2 5f 45 4e 44 0d 02  |. A$="E" ._END..|
00000490  a8 06 20 e1 0d 02 b2 06  20 3a 0d 02 bc 14 20 dd  |.. ..... :.... .|
000004a0  20 f2 5f 44 49 53 50 4c  41 59 43 4f 44 45 0d 02  | ._DISPLAYCODE..|
000004b0  c6 20 20 f1 8a 30 2c 33  31 29 3b 22 41 4f 3a 20  |.  ..0,31);"AO: |
000004c0  22 3b 58 41 25 3b 22 2c  22 3b 59 41 25 3b 0d 02  |";XA%;",";YA%;..|
000004d0  d0 15 20 f1 8a 31 37 29  3b 22 53 46 3a 20 22 3b  |.. ..17);"SF: ";|
000004e0  53 46 3b 0d 02 da 0f 20  e3 20 49 25 3d 33 20 b8  |SF;.... . I%=3 .|
000004f0  20 38 0d 02 e4 26 20 e7  20 43 6f 64 65 25 28 49  | 8...& . Code%(I|
00000500  25 29 20 f1 8a 49 25 2a  31 30 2d 33 29 3b 43 6f  |%) ..I%*10-3);Co|
00000510  64 65 24 28 49 25 29 3b  0d 02 ee 06 20 ed 0d 02  |de$(I%);.... ...|
00000520  f8 0e 20 43 24 3d bf 28  35 30 30 29 0d 03 02 06  |.. C$=.(500)....|
00000530  20 e1 0d 03 0c 06 20 3a  0d 03 16 13 20 dd 20 f2  | ..... :.... . .|
00000540  5f 50 4c 4f 54 28 53 2c  49 25 29 0d 03 20 3c 20  |_PLOT(S,I%).. < |
00000550  e7 20 43 6f 64 65 25 28  35 29 20 50 25 3d 36 39  |. Code%(5) P%=69|
00000560  20 8b 20 50 25 3d 35 3a  58 3d 53 3a 59 3d a0 28  | . P%=5:X=S:Y=.(|
00000570  41 24 29 3a f0 20 34 2c  58 2a 36 30 2a 53 46 2c  |A$):. 4,X*60*SF,|
00000580  59 2a 34 38 2a 53 46 0d  03 2a 25 20 e3 20 58 3d  |Y*48*SF..*% . X=|
00000590  53 20 b8 20 28 31 32 34  30 2d 58 41 25 29 2f 36  |S . (1240-XA%)/6|
000005a0  30 2f 53 46 20 88 20 2e  31 2f 53 46 0d 03 34 0c  |0/SF . .1/SF..4.|
000005b0  20 59 3d a0 28 41 24 29  0d 03 3e 1f 20 e7 20 43  | Y=.(A$)..>. . C|
000005c0  6f 64 65 25 28 37 29 20  59 3d 59 2b 59 76 61 6c  |ode%(7) Y=Y+Yval|
000005d0  75 65 73 28 49 25 29 0d  03 48 19 20 f0 20 50 25  |ues(I%)..H. . P%|
000005e0  2c 58 2a 36 30 2a 53 46  2c 59 2a 34 38 2a 53 46  |,X*60*SF,Y*48*SF|
000005f0  0d 03 52 12 20 59 76 61  6c 75 65 73 28 49 25 29  |..R. Yvalues(I%)|
00000600  3d 59 0d 03 5c 0c 20 49  25 3d 49 25 2b 31 0d 03  |=Y..\. I%=I%+1..|
00000610  66 06 20 ed 0d 03 70 18  20 e7 20 43 6f 64 65 25  |f. ...p. . Code%|
00000620  28 33 29 20 f2 5f 53 43  41 4c 45 20 0d 03 7a 06  |(3) ._SCALE ..z.|
00000630  20 e1 0d 03 84 06 20 3a  0d 03 8e 0d 20 dd 20 f2  | ..... :.... . .|
00000640  5f 41 58 45 53 0d 03 98  0f 20 ec 20 34 30 2d 58  |_AXES.... . 40-X|
00000650  41 25 2c 30 0d 03 a2 11  20 df 20 31 32 34 30 2d  |A%,0.... . 1240-|
00000660  58 41 25 2c 30 0d 03 ac  0f 20 ec 20 30 2c 34 38  |XA%,0.... . 0,48|
00000670  2d 59 41 25 0d 03 b6 11  20 df 20 30 2c 31 30 30  |-YA%.... . 0,100|
00000680  38 2d 59 41 25 0d 03 c0  06 20 e1 0d 03 ca 06 20  |8-YA%.... ..... |
00000690  3a 0d 03 d4 0e 20 dd 20  f2 5f 53 43 41 4c 45 0d  |:.... . ._SCALE.|
000006a0  03 de 08 20 ef 20 35 0d  03 e8 10 20 40 25 3d 26  |... . 5.... @%=&|
000006b0  30 32 30 31 30 41 20 0d  03 f2 0d 20 f4 20 78 2d  |02010A .... . x-|
000006c0  61 78 69 73 0d 03 fc 22  20 e3 20 58 43 25 3d 34  |axis..." . XC%=4|
000006d0  30 2d 58 41 25 20 b8 20  31 32 34 30 2d 58 41 25  |0-XA% . 1240-XA%|
000006e0  20 88 20 31 32 30 0d 04  06 12 20 f4 20 47 72 61  | . 120.... . Gra|
000006f0  64 75 61 74 69 6f 6e 73  0d 04 10 0e 20 ec 20 58  |duations.... . X|
00000700  43 25 2c 2d 31 30 0d 04  1a 0d 20 df 20 58 43 25  |C%,-10.... . XC%|
00000710  2c 31 30 0d 04 24 13 20  f4 20 53 63 61 6c 65 20  |,10..$. . Scale |
00000720  70 6f 69 6e 74 73 0d 04  2e 12 20 ec 20 58 43 25  |points.... . XC%|
00000730  2d 31 32 30 2c 2d 33 30  0d 04 38 1b 20 e7 20 43  |-120,-30..8. . C|
00000740  6f 64 65 25 28 34 29 20  f1 20 58 43 25 2f 36 30  |ode%(4) . XC%/60|
00000750  2f 53 46 0d 04 42 06 20  ed 0d 04 4c 0d 20 f4 20  |/SF..B. ...L. . |
00000760  79 2d 61 78 69 73 0d 04  56 21 20 e3 20 59 43 25  |y-axis..V! . YC%|
00000770  3d 34 38 2d 59 41 25 20  b8 20 31 30 30 38 2d 59  |=48-YA% . 1008-Y|
00000780  41 25 20 88 20 39 36 0d  04 60 12 20 f4 20 47 72  |A% . 96..`. . Gr|
00000790  61 64 75 61 74 69 6f 6e  73 0d 04 6a 0d 20 ec 20  |aduations..j. . |
000007a0  2d 35 2c 59 43 25 0d 04  74 0c 20 df 20 35 2c 59  |-5,YC%..t. . 5,Y|
000007b0  43 25 0d 04 7e 13 20 f4  20 53 63 61 6c 65 20 70  |C%..~. . Scale p|
000007c0  6f 69 6e 74 73 0d 04 88  11 20 ec 20 2d 38 35 2c  |oints.... . -85,|
000007d0  59 43 25 2b 31 35 0d 04  92 2a 20 e7 20 43 6f 64  |YC%+15...* . Cod|
000007e0  65 25 28 34 29 20 80 20  59 43 25 2f 34 38 2f 53  |e%(4) . YC%/48/S|
000007f0  46 3c 3e 30 20 f1 20 59  43 25 2f 34 38 2f 53 46  |F<>0 . YC%/48/SF|
00000800  0d 04 9c 06 20 ed 0d 04  a6 0b 20 40 25 3d 26 30  |.... ..... @%=&0|
00000810  41 0d 04 b0 08 20 ef 20  34 0d 04 ba 06 20 e1 0d  |A.... . 4.... ..|
00000820  04 c4 06 20 3a 0d 04 ce  0f 20 dd 20 f2 5f 4f 52  |... :.... . ._OR|
00000830  49 47 49 4e 0d 04 d8 06  20 f5 0d 04 e2 37 20 e8  |IGIN.... ....7 .|
00000840  20 8a 30 2c 33 31 29 20  22 45 6e 74 65 72 20 4f  | .0,31) "Enter O|
00000850  72 69 67 69 6e 3a 20 78  2d 63 6f 6f 72 64 2c 79  |rigin: x-coord,y|
00000860  2d 63 6f 6f 72 64 20 3a  22 20 58 41 25 2c 59 41  |-coord :" XA%,YA|
00000870  25 0d 04 ec 2c 20 fd 20  58 41 25 3e 3d 30 20 80  |%..., . XA%>=0 .|
00000880  20 58 41 25 3c 31 32 38  30 20 80 20 59 41 25 3e  | XA%<1280 . YA%>|
00000890  3d 30 20 80 20 59 41 25  3c 31 30 32 34 0d 04 f6  |=0 . YA%<1024...|
000008a0  1e 20 58 41 25 3d 36 30  2a 28 28 58 41 25 2d 31  |. XA%=60*((XA%-1|
000008b0  30 29 81 20 36 30 29 2b  34 30 20 0d 05 00 1d 20  |0). 60)+40 .... |
000008c0  59 41 25 3d 34 38 2a 28  28 59 41 25 2d 32 38 29  |YA%=48*((YA%-28)|
000008d0  81 20 34 38 29 2b 34 38  0d 05 0a 12 20 ef 20 32  |. 48)+48.... . 2|
000008e0  39 2c 58 41 25 3b 59 41  25 3b 0d 05 14 06 20 e1  |9,XA%;YA%;.... .|
000008f0  0d 05 1e 06 20 3a 0d 05  28 0f 20 dd 20 f2 5f 53  |.... :..(. . ._S|
00000900  43 41 46 41 43 0d 05 32  06 20 f5 0d 05 3c 27 20  |CAFAC..2. ...<' |
00000910  e8 20 8a 30 2c 33 31 29  20 22 45 6e 74 65 72 20  |. .0,31) "Enter |
00000920  53 63 61 6c 65 20 46 61  63 74 6f 72 3a 20 22 20  |Scale Factor: " |
00000930  53 46 0d 05 46 0b 20 fd  20 53 46 3e 30 0d 05 50  |SF..F. . SF>0..P|
00000940  06 20 e1 0d 05 5a 06 20  3a 0d 05 64 0c 20 dd 20  |. ...Z. :..d. . |
00000950  f2 5f 45 4e 44 0d 05 6e  09 20 ef 20 32 36 0d 05  |._END..n. . 26..|
00000960  78 06 20 db 0d 05 82 07  20 e0 20 0d 05 8c 06 20  |x. ..... . .... |
00000970  e1 0d 05 96 06 20 3a 0d  05 a0 0e 20 dd 20 f2 5f  |..... :.... . ._|
00000980  45 52 52 4f 52 0d 05 aa  43 20 f4 20 31 37 3d 45  |ERROR...C . 17=E|
00000990  73 63 61 70 65 20 31 38  3d 44 69 76 20 62 79 20  |scape 18=Div by |
000009a0  5a 65 72 6f 20 32 30 3d  54 6f 6f 20 42 69 67 20  |Zero 20=Too Big |
000009b0  32 31 3d 2d 76 65 20 52  6f 6f 74 20 32 32 3d 4c  |21=-ve Root 22=L|
000009c0  6f 67 20 52 61 6e 67 65  0d 05 b4 0d 20 e7 20 9f  |og Range.... . .|
000009d0  3d 31 37 20 e1 0d 05 be  28 20 e7 20 9f 3d 31 38  |=17 ....( . .=18|
000009e0  20 84 20 9f 3d 32 30 20  f2 5f 50 4c 4f 54 28 58  | . .=20 ._PLOT(X|
000009f0  2b 2e 31 2f 53 46 2c 49  25 2b 31 29 20 0d 05 c8  |+.1/SF,I%+1) ...|
00000a00  30 20 e7 20 28 9f 3d 32  31 20 84 20 9f 3d 32 32  |0 . (.=21 . .=22|
00000a10  29 20 80 20 b4 28 58 29  3d 2d 31 20 f2 5f 50 4c  |) . .(X)=-1 ._PL|
00000a20  4f 54 28 2e 31 2f 53 46  2c 31 30 30 29 0d 05 d2  |OT(.1/SF,100)...|
00000a30  06 20 e1 0d 05 dc 06 20  3a 0d 05 e6 0d 20 dd 20  |. ..... :.... . |
00000a40  f2 5f 48 45 4c 50 0d 05  f0 14 20 ef 20 32 33 2c  |._HELP.... . 23,|
00000a50  31 2c 30 3b 30 3b 30 3b  30 3b 0d 05 fa 23 20 f1  |1,0;0;0;0;...# .|
00000a60  27 27 8a 38 29 3b 22 4f  55 54 50 55 54 20 43 4f  |''.8);"OUTPUT CO|
00000a70  4e 54 52 4f 4c 20 43 4f  44 45 53 22 27 0d 06 04  |NTROL CODES"'...|
00000a80  1b 20 f1 8a 31 31 29 3b  22 50 72 69 6e 74 20 43  |. ..11);"Print C|
00000a90  6f 6e 74 72 6f 6c 22 27  0d 06 0e 2b 20 f1 20 22  |ontrol"'...+ . "|
00000aa0  41 4f 20 3a 20 41 78 69  73 20 4f 72 69 67 69 6e  |AO : Axis Origin|
00000ab0  22 3b 89 28 31 33 29 3b  22 3a 20 36 34 30 2c 35  |";.(13);": 640,5|
00000ac0  32 38 22 0d 06 18 26 20  f1 20 22 53 46 20 3a 20  |28"...& . "SF : |
00000ad0  53 63 61 6c 65 20 46 61  63 74 6f 72 22 3b 89 28  |Scale Factor";.(|
00000ae0  31 32 29 3b 22 3a 20 31  22 0d 06 22 1f 20 f1 20  |12);": 1"..". . |
00000af0  22 41 58 20 3a 20 41 78  65 73 22 3b 89 28 32 30  |"AX : Axes";.(20|
00000b00  29 3b 22 3a 20 6f 6e 22  0d 06 2c 26 20 f1 20 22  |);": on"..,& . "|
00000b10  41 53 20 3a 20 41 78 69  73 20 53 63 61 6c 65 73  |AS : Axis Scales|
00000b20  22 3b 89 28 31 33 29 3b  22 3a 20 6f 6e 22 0d 06  |";.(13);": on"..|
00000b30  36 2a 20 f1 20 22 50 4c  20 3a 20 44 6f 74 74 65  |6* . "PL : Dotte|
00000b40  64 20 50 6c 6f 74 20 4c  69 6e 65 22 3b 89 28 38  |d Plot Line";.(8|
00000b50  29 3b 22 3a 20 6f 6e 22  0d 06 40 25 20 f1 20 22  |);": on"..@% . "|
00000b60  4f 50 20 3a 20 4f 76 65  72 70 72 69 6e 74 22 3b  |OP : Overprint";|
00000b70  89 28 31 35 29 3b 22 3a  20 6f 66 66 22 0d 06 4a  |.(15);": off"..J|
00000b80  2b 20 f1 20 22 53 50 20  3a 20 53 75 70 65 72 70  |+ . "SP : Superp|
00000b90  6f 73 69 74 69 6f 6e 20  6c 61 73 74 20 70 6c 6f  |osition last plo|
00000ba0  74 20 3a 20 6f 66 66 22  0d 06 54 28 20 f1 20 22  |t : off"..T( . "|
00000bb0  53 44 20 3a 20 53 63 72  65 65 6e 20 44 75 6d 70  |SD : Screen Dump|
00000bc0  22 3b 89 28 31 33 29 3b  22 3a 20 6f 66 66 22 27  |";.(13);": off"'|
00000bd0  0d 06 5e 1d 20 f1 8a 31  30 29 3b 22 50 72 6f 67  |..^. ..10);"Prog|
00000be0  72 61 6d 20 43 6f 6e 74  72 6f 6c 22 27 0d 06 68  |ram Control"'..h|
00000bf0  1f 20 f1 20 22 52 50 20  3a 20 52 65 70 65 61 74  |. . "RP : Repeat|
00000c00  20 6c 61 73 74 20 70 6c  6f 74 22 20 0d 06 72 24  | last plot" ..r$|
00000c10  20 f1 20 22 52 53 20 3a  20 52 65 73 65 74 20 63  | . "RS : Reset c|
00000c20  6f 64 65 73 20 74 6f 20  64 65 66 61 75 6c 74 22  |odes to default"|
00000c30  0d 06 7c 1f 20 f1 20 22  48 20 20 3a 20 44 69 73  |..|. . "H  : Dis|
00000c40  70 6c 61 79 20 74 68 69  73 20 6c 69 73 74 22 0d  |play this list".|
00000c50  06 86 24 20 f1 20 22 43  20 20 3a 20 44 69 73 70  |..$ . "C  : Disp|
00000c60  6c 61 79 20 63 75 72 72  65 6e 74 20 63 6f 64 65  |lay current code|
00000c70  73 22 20 0d 06 90 1a 20  f1 20 22 45 20 20 3a 20  |s" .... . "E  : |
00000c80  45 6e 64 20 70 72 6f 67  72 61 6d 22 20 0d 06 9a  |End program" ...|
00000c90  0e 20 43 24 3d bf 28 38  30 30 29 0d 06 a4 06 20  |. C$=.(800).... |
00000ca0  e1 0d 06 ae 06 20 3a 0d  06 b8 0d 20 dd 20 f2 5f  |..... :.... . ._|
00000cb0  44 55 4d 50 0d 06 c2 26  20 f4 20 49 6e 73 65 72  |DUMP...& . Inser|
00000cc0  74 20 53 63 72 65 65 6e  20 44 75 6d 70 20 52 6f  |t Screen Dump Ro|
00000cd0  75 74 69 6e 65 20 68 65  72 65 0d 06 cc 06 20 e1  |utine here.... .|
00000ce0  0d ff                                             |..|
00000ce2
JENINGS.m0
JENINGS.m1
JENINGS.m2
JENINGS.m4
JENINGS.m5