|
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 - download
Length: 746 (0x2ea)
Types: TextFile
Names: »SLETM «
└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
└─ ⟦this⟧ »/SLETM «
«ff» 0010 REM HD GRFSYSTEM3 791012 /LIB «so»GRFMANU 0020 DIM ØV$(20),T$(8),VAR$(9),P$(40) 0030 PRINT "ESC=STOP" 0035 INPUT "NAVN(-E) OG KLASSE(-R) ",P$ 0040 INPUT "ØVELSE: ",ØV$ 0045 INPUT "FIL SKAL HEDDE: ",T$ 0050 INPUT "VARIABLE TIL AKSER(FORMAT: XXXX-YYYY) ",VAR$ 0060 INPUT "USIKKERHED KONSTANT (0/1) ",KONSTANT 0070 IF KONSTANT THEN INPUT "USIKKERHED PÅ X= ",USX,"<10><13>- - Y= ",USY 0075 CREATE T$,0 0080 OPEN FILE(3,3)T$ 0085 WRITE FILE(3)P$,ØV$,VAR$ 0090 ON ESC THEN GOTO 0140 0100 INPUT "X-VARIABEL= ",XV," Y-VARIABEL= ",YV 0110 IF NOT KONSTANT THEN INPUT "USX= ",USX," USY= ",USY 0120 WRITE FILE(3)USX,XV,USY,YV 0130 GOTO 0100 0140 CLOSE 0280 CHAIN "GRFMAIN"