|
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: 4237 (0x108d)
Types: TextFile
Notes: BREV::TEKSTIND, TEKSTIND
Names: »TEKSTIND«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »BREV::TEKSTIND«
«ff» 2350 REM ---------------------------------------------------------------------------- 2360 PROC TEKSTIND 2370 FOR I=1 TO 15 2380 LET VARISTED(TEKSTADR,I)=0 2390 NEXT I 2400 CONNECT "LIB",1 2410 PRINT "<134>";XY$(1);XY$(3);"<31>" 2420 PRINT "<134>";XY$(5);XY$(4);"#FNAVN# : ELEVENS FORNAVN" 2430 PRINT "<134>";XY$(5);XY$(5);"#ENAVN# : ELEVENS EFTERNAVN" 2440 PRINT "<134>";XY$(5);XY$(6);"#MNAVN# : ELEVENS MELLEMNAVN" 2450 PRINT "<134>";XY$(5);XY$(7);"#FORSM# : ANTALLET AF ELEVENS FORSØMMELSER I DEN AKTUELLE MÅNED" 2460 PRINT "<134>";XY$(5);XY$(8);"#SFORS# : ANTALLET AF FORSØMMELSER I INDEVÆRENSE SKOLEÅR" 2470 PRINT "<134>";XY$(5);XY$(9);"#MÅNED# : DEN AKTUELLE MÅNEDS NAVN" 2480 PRINT "<134>";XY$(5);XY$(10);"#SØ/DA# : SØN/DATTER" 2490 PRINT "<134>";XY$(5);XY$(11);"#HA/HU# : HAN/HUN" 2500 PRINT "<134>";XY$(5);XY$(12);"#TIMER# : ANTAL UNDERVISTE TIMER I MÅNEDEN" 2510 PRINT "<134>";XY$(3);XY$(13);"-------------------------------------------------------------------" 2520 PRINT "<134>";XY$(5);XY$(15);"<31>DU KAN NU UDFORME ET BREV PÅ 10 LINIER" 2530 PRINT "<134>";XY$(5);XY$(16);"HVOR DET ER NØDVENDIGT INDSÆTTES BLOT EN AF OVENSTÅENDE KODER." 2540 PRINT "<134>";XY$(5);XY$(17);"HUSK AT KODERNE SKAL STAVES NØJAGTIGT SOM OVENSTÅENDE" 2550 PRINT "<134>";XY$(5);XY$(18);"TAG HENSYN TIL LÆNGDEN AF DE VARIABLE." 2560 PRINT "<134>";XY$(10);XY$(22); 2570 INPUT "TAST 'RETURN' NÅR DU ER KLAR ",SVAR$ 2580 REPEAT 2590 LET TÆLLER=14 2600 PRINT "<134>";XY$(1);XY$(14);"<31>" 2610 REPEAT 2620 PRINT "<134>";XY$(4);XY$(TÆLLER);TÆLLER-13 2630 PRINT "<134>";XY$(55);XY$(TÆLLER);"^" 2640 LET TÆLLER=TÆLLER+1 2650 UNTIL TÆLLER=24 2660 LET LINIE=1; TEKST$(TEKSTADR)="" 2670 REPEAT 2680 ON ESC THEN EXEC TILBAGE 2690 PRINT "<134>";XY$(10);XY$(LINIE+13); 2700 INPUT "",DELTEKST$(LINIE) 2710 IF LINIE THEN 2720 IF LEN(DELTEKST$(LINIE))>60 THEN 2730 ON ESC THEN EXEC BLÅLYS 2740 PRINT "<134>";XY$(10);XY$(LINIE+14);"<7>LINIE FOR LANG" 2750 DELAY=2 2760 PRINT "<134>";XY$(10);XY$(LINIE+13);"<30>" 2770 PRINT "<134>";XY$(10);XY$(LINIE+14);"<30>" 2780 PRINT "<134>";XY$(55);XY$(LINIE+13);"^" 2790 PRINT "<134>";XY$(55);XY$(LINIE+14);"^" 2800 LET LINIE=LINIE-1 2810 ON ESC THEN EXEC TILBAGE 2820 ENDIF 2830 ENDIF 2840 LET LINIE=LINIE+1 2850 UNTIL LINIE=11 2860 RESET ESC 2870 FOR I=1 TO 10 2880 LET TEKST$(TEKSTADR)=TEKST$(TEKSTADR),DELTEKST$(I),"<10><10> " 2890 NEXT I 2900 LET TÆLLER=1 2910 FOR STED=1 TO LEN(TEKST$(TEKSTADR)) 2920 IF TEKST$(TEKSTADR,STED)="#" THEN 2930 LET VARISTED(TEKSTADR,TÆLLER)=STED; TÆLLER=TÆLLER+1; STED=STED+6 2940 ENDIF 2950 NEXT STED 2960 LET FEJL=0; J=-1 2970 FOR TALLER=1 TO TÆLLER-1 2980 CASE TEKST$(TEKSTADR,VARISTED(TEKSTADR,TALLER),VARISTED(TEKSTADR,TALLER)+6) OF 2990 PRINT "<134>";XY$(1);XY$(14);"<31>" 3000 PRINT "<134>";XY$(5);XY$(15);"DU HAR FORETAGET EN FEJLINDTASTNING." 3010 PRINT "<134>";XY$(5);XY$(16);"MINDST EN AF DE VARIABLE HAR VÆRET FORKERT." 3020 PRINT "<134>";XY$(5);XY$(17);"DU MÅ PRØVE FORFRA." 3030 DELAY=5 3040 LET FEJL=1; TALLER=TÆLLER-1 3050 WHEN "#FNAVN#","#ENAVN#","#MNAVN#","#FORSM#","#SFORS#","#SØ/DA#","#HA/HU#","#MÅNED#","#TIMER#" 3060 LET J=J+1 3070 ENDCASE 3080 NEXT TALLER 3090 UNTIL NOT FEJL 3100 IF TRETEKST THEN 3110 OPEN FILE(1,3)"TEKST" 3120 FOR I=1 TO 8 3130 WRITE FILE(1)TEKST$(I) 3140 NEXT I 3150 MAT WRITE FILE(1)VARISTED 3160 CLOSE FILE(1) 3170 PRINT "<134>";XY$(1);XY$(14);"<31>" 3180 PRINT "<134>";XY$(10);XY$(17); 3190 INPUT "ØNSKER DU AT INDSKRIVE ANDRE BREVTEKSTER : <30>",SVAR$ 3200 IF SVAR$="NEJ" THEN LET FUNKVALG$="E" 3210 ENDIF 3220 RESET ESC 3230 ENDPROC TEKSTIND