|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4608 (0x1200)
Types: COMAL_SAVE
Names: »VECKO«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧ »/VECKO«
SAVE filename: "VECKO"
0010 REM VEKTORFUNKTIONER OG BANEKURVER«nul»!
0020 REM «nul»
0030 REM PROGRAM TIL UNDERVISNINGSBRUG«nul»R
0040 REM AF MICHAEL WEYAND«nul»I
0050 REM «nul»A
0060 REM BRUGSVEJLEDNING«nul»D
0070 REM «nul»B
0080 PRINT "<27>AF"
0090 PRINT "<27><12>"
0100 DELAY = 1
0110 PRINT TAB ( 20 ) ; "*** GRAFTEGNING FOR VEKTORFUNKTIONER ***"
0120 PRINT
0130 TAB = 10
0140 PRINT "" , "GRAFTEGNEREN KAN TEGNE EN VEKTOFUNKTION"
0150 PRINT "" , " BAGEFTER ER DET MULIGT AT LAVE KOORDINAT-"
0160 PRINT "" , "SOEGNING VED HJAELP AF KORSET, SOM FREMKOMMER."
0170 PRINT "" , "KORSET INDSTILLES V.H.A. DE TO KNAPPER I"
0180 PRINT "" , "HOEJRE SIDE AF TASTATURET. NAAR KORSET ER INDSTIL-"
0190 PRINT "" , "LET OVER DEN SOEGTE KOORDINAT TRYKKES DER PAA ET BOG-"
0200 PRINT "" , "STAV. NAAR SOEGNINGEN ER FORBI TRYKKES PAA -RETURN-"
0210 PRINT
0220 REM «nul»B
0230 REM VEKTORFUNKTIONEN LAESES IND«nul»G
0240 PRINT "" , "VEKTORFUNKTIONEN DEFINERES PAA LINIE 300,310"
0250 REM «nul»«nul»
0260 STOP «nul»
0270 REM «nul»«nul»
0280 REM «nul»«nul»
0290 REM «nul»V
0300 DEF FNX ( VAR94 ) = [LVAR] * COS ( [LVAR] )
0310 DEF FNY ( VAR94 ) = [LVAR] * SIN ( 2 * [LVAR] )
0320 REM «nul»«nul»
0330 REM «nul»«nul»
0340 PRINT
0350 PRINT "" , "INDTAST TIDSINTERVALLET :" ;
0360 INPUT "START,STOP ? " , T0 , TS
0370 PRINT "<27>AE"
0380 PRINT "<27><12>"
0390 DELAY = 1
0400 REM KOORDINATSYSTEM INDRETTES«nul»G
0410 REM X-AKSEN: XMIN,XMAX OG Y-AKSEN: YMIN,YMAX«nul»
0420 REM ENHEDERNE PAA AKSERNE SKAL VAERE ENS !!«nul»«nul»
0430 INPUT "INTERVAL PAA X-AKSEN (START-,SLUTVÆRDI)" , A , B
0440 INPUT "INTERVAL PAA Y-AKSEN (START-,SLUTVÆRDI): " , C , D
0460 PRINT "<27><12>"
0480 IF A >= 0 AND C >= 0 THEN LET XAK = 5 YAK = 5
0490 IF A >= 0 AND C < 0 THEN LET XAK = 5 YAK = 775 * ABS ( C / ( D - C ) ) + 5
0500 IF A < 0 AND C >= 0 THEN LET XAK = 1018 * ABS ( A / ( B - A ) ) + 5 YAK = 5
0510 IF A < 0 AND C < 0 THEN LET XAK = 1018 * ABS ( A / ( A - B ) ) + 5 YAK = 775 * ABS ( C / ( C - D ) ) + 5
0520 CALL "VECTOR" , 5 , YAK , 0
0530 CALL "VECTOR" , 1023 , YAK , 1
0540 CALL "VECTOR" , 1018 , YAK - 5 , 1
0550 CALL "VECTOR" , 1018 , YAK + 5 , 1
0560 CALL "VECTOR" , 1023 , YAK , 1
0570 CALL "VECTOR" , XAK , 5 , 0
0580 CALL "VECTOR" , XAK , 780 , 1
0590 CALL "VECTOR" , XAK - 5 , 775 , 1
0600 CALL "VECTOR" , XAK + 5 , 775 , 1
0610 CALL "VECTOR" , XAK , 780 , 1
0620 LET ENX = ABS ( 1018 / ( B - A ) )
0630 LET ENY = ABS ( 775 / ( D - C ) )
0650 IF ENX > ENY THEN
0660 LET ENY = ENX
0665 LET ENHED = ENX
0670 ELSE
0680 LET ENX = ENY
0685 LET ENHED = ENY
0690 ENDIF
0710 CALL "VECTOR" , 5 , YAK , 0
0720 FOR XEN = XAK TO 1023 STEP ENX
0730 CALL "VECTOR" , XEN , YAK + 5 , 0
0740 CALL "VECTOR" , XEN , YAK - 5 , 1
0750 NEXT
0760 FOR XEN = XAK TO 0 STEP - ENX
0770 CALL "VECTOR" , XEN , YAK + 5 , 0
0780 CALL "VECTOR" , XEN , YAK - 5 , 1
0790 NEXT
0800 FOR YEN = YAK TO 780 STEP ENY
0810 CALL "VECTOR" , XAK - 5 , YEN , 0
0820 CALL "VECTOR" , XAK + 5 , YEN , 1
0830 NEXT
0840 FOR YEN = YAK TO 0 STEP - ENY
0850 CALL "VECTOR" , XAK - 5 , YEN , 0
0860 CALL "VECTOR" , XAK + 5 , YEN , 1
0870 NEXT
0880 REM GRAFEN TEGNES«nul»K
0890 REM «nul»G
0900 LET S = ( TS - T0 ) / 400 VEC = 0
0910 CALL "GRAPH" , ( FNX ( T0 ) - A ) / ENHED , ( FNY ( T0 ) - C ) / ENHED
0920 REPEAT
0930 LET TID = T0
0940 LET XPOS = ( FNX ( TID ) - A ) / ENHED + 5 YPOS = ( FNY ( TID ) - C ) / ENHED + 5
0950 IF YPOS < 1 OR YPOS > 780 OR XPOS < 1 OR XPOS > 1023 THEN
0960 LET VEC = 0
0970 ELSE
0975 LET VEC = 0
0980 CALL "VECTOR" , XPOS , YPOS , VEC
1000 ENDIF
1010 LET T0 = TID + S
1020 UNTIL TID > TS
1030 CALL "GRAPH" , 0 , 100
1040 PRINT "<27>AF"
1050 CALL "ALPHA"
1060 REM «nul»
1070 REM KOORDINATS0GNING«nul»
1080 REM «nul»K
1090 REPEAT
1100 PRINT "<29>" ;
1110 EXEC CROSS
1120 LET XKOR = XMIN + ( X - 10 ) * ENHED YKOR = YMIN + ( Y - 10 ) * ENHED
1130 PRINT "<31>" ;
1140 PAGE = 72
1150 PRINT "(" ; XKOR ; "," ; YKOR ; ")"
1160 UNTIL 0
1170 END «nul»K
1180 REM «nul»G
1190 PROC CROSS
1200 DIM G$ ( 5 )
1210 ON ERR THEN GOTO 1210
1220 INPUT "<27><26>" , G$ ;
1230 IF LEN ( G$ ) = 0 THEN
1240 PRINT "<31>"
1250 END «nul»
1260 ENDIF
1270 LET X = ( ORD ( G$ ( 2 ) ) - 33 ) * 32 + ORD ( G$ ( 3 ) )
1280 LET Y = ( ORD ( G$ ( 4 ) ) - 33 ) * 32 + ORD ( G$ ( 5 ) )
1290 ENDPROC
1300 REM «nul»G
1310 PROC ERR2
1320 ON ERR THEN EXEC ERR2
1330 LET VEC = 0
1340 ENDPROC
1350 REM «nul»G
1360 PROC INFO
1370 PRINT
1380 PRINT "JEG SKAL LIGE FINDE PAA NOGET !!??"
1390 ENTER "PLOIN"
1400 EXEC PLOIN
1410 ENDPROC
FNA definition = 0xffff
FNB definition = 0xffff
FNC definition = 0xffff
FND definition = 0xffff
FNE definition = 0xffff
FNF definition = 0xffff
FNG definition = 0xffff
FNH definition = 0xffff
FNI definition = 0xffff
FNJ definition = 0xffff
FNK definition = 0xffff
FNL definition = 0xffff
FNM definition = 0xffff
FNN definition = 0xffff
FNO definition = 0xffff
FNP definition = 0xffff
FNQ definition = 0xffff
FNR definition = 0xffff
FNS definition = 0xffff
FNT definition = 0xffff
FNU definition = 0xffff
FNV definition = 0xffff
FNW definition = 0xffff
FNX definition = 0x01c6
FNY definition = 0x01cd
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x04b6
stack[1] = 0x032f
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0001
Var# = 0x047f
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 3.37355e-80 (0x00010001)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x00cb
Loop Top = 0x042f
To Val = 0 (0x00000000)
Step Val = -509 (0xc31fd000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x02 GEM$
0x82 0xffff 0x00 X1
0x83 0xffff 0x00 X2
0x84 0xffff 0x00 Y1
0x85 0xffff 0x00 Y2
0x86 0xffff 0x00 XSTEP
0x87 0xffff 0x00 YSTEP
0x88 0xffff 0x00 XAKS
0x89 0xffff 0x00 YAKS
0x8a 0xffff 0x00 A1
0x8b 0xffff 0x00 A2
0x8c 0xffff 0x00 A3
0x8d 0xffff 0x00 A4
0x8e 0xffff 0x00 C1
0x8f 0xffff 0x00 C2
0x90 0xffff 0x00 C3
0x91 0xffff 0x00 C4
0x92 0xffff 0x00 C5
0x93 0xffff 0x00 C6
0x94 0x001a 0x00 S
0x95 0xffff 0x00 Y
0x96 0xffff 0x00 START
0x97 0xffff 0x00 SLUT
0x98 0xffff 0x00 KOORD
0x99 0xffff 0x00 X
0x9a 0xffff 0x00 ERR2
0x9b 0x001c 0x00 VEC
0x9c 0x0028 0x00 T
0x9d 0xffff 0x00 CROSS
0x9e 0xffff 0x02 G$
0x9f 0xffff 0x00 XKOR
0xa0 0xffff 0x00 YKOR
0xa1 0xffff 0x00 LIST200
0xa2 0xffff 0x00 INFO
0xa3 0xffff 0x00 PLOIN
0xa4 0x0000 0x00 T0
0xa5 0x0002 0x00 TS
0xa6 0xffff 0x00 TSTEP
0xa7 0xffff 0x00 I
0xa8 0xffff 0x00 ENH1
0xa9 0xffff 0x00 YMAX
0xaa 0xffff 0x00 YMIN
0xab 0xffff 0x00 LW
0xac 0xffff 0x00 ENH2
0xad 0xffff 0x00 XMAX
0xae 0xffff 0x00 XMIN
0xaf 0xffff 0x00 EN1
0xb0 0x0014 0x00 ENHED
0xb1 0xffff 0x00 XMAX1
0xb2 0xffff 0x00 ENDPRROC
0xb3 0x0008 0x00 C
0xb4 0xffff 0x00 XMIN1
0xb5 0xffff 0x00 LISTT
0xb6 0xffff 0x00 J
0xb7 0xffff 0x00 YMAX1
0xb8 0xffff 0x00 YMIN1
0xb9 0xffff 0x00 LIST500
0xba 0xffff 0x00 LIST550
0xbb 0xffff 0x00 CO
0xbc 0x001e 0x00 TID
0xbd 0x0022 0x00 YPOS
0xbe 0x0020 0x00 XPOS
0xbf 0xffff 0x00 TRIN
0xc0 0xffff 0x00 TTID
0xc1 0xffff 0x00 CENNECT
0xc2 0x0004 0x00 A
0xc3 0x000c 0x00 XAK
0xc4 0x000e 0x00 YAK
0xc5 0x000a 0x00 D
0xc6 0x0006 0x00 B
0xc7 0x0010 0x00 ENX
0xc8 0x0012 0x00 ENY
0xc9 0x0016 0x00 XEN
0xca 0xffff 0x00 YAKK
0xcb 0x0018 0x00 YEN
0xcc 0xffff 0x00 TOR
0xcd 0xffff 0x02 SV$
0xce 0x0024 0x00 Q
0xcf 0x0026 0x00 R
.magic = 0x4e32 .u_pas = 0x05ca // Length of UPAS in words .u_das = 0x0222 // Length of UDAS in words .u_dvs = 0x01f8 // Start på savede variabel indhold (word adr) .u_nds = 0x049c // Address på næste prog.sætning (word adr) .u_cps = 0x0486 // Address på curr prog.sætning (word adr) .u_tll = 0x0048 // Page størrelse .u_tts = 0x000a // TAP størrelse .u_ran = 0x0001 // Random tal .u_cdl = 0x0006 // Current DATA sætning ptr .u_cdb = 0x0000 // Current DATA byte ptr .u_esa = 0x0042 // ON ESE (word adr) .u_era = 0x0000 // ON ERR (word adr) .u_cas = 0xffff // CASE dybde .u_las = 0xffff // last (-1)