|
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: 611 (0x263)
Types: TextFile
Notes: BREV::TILBAGE, TILBAGE
Names: »TILBAGE«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »BREV::TILBAGE«
«ff» 0220 REM ----------------------------------------------------------------------- 0230 PROC TILBAGE 0240 ON ESC THEN EXEC BLÅLYS 0250 PRINT "<134>";XY$(10);XY$(LINIE+13);"<30>" 0260 PRINT "<134>";XY$(55);XY$(LINIE+13);"^" 0270 LET DELTEKST$(LINIE)="" 0280 IF LINIE>=2 THEN 0290 LET LINIE=LINIE-2 0300 PRINT "<134>";XY$(10);XY$(LINIE+14);"<30>" 0310 PRINT "<134>";XY$(55);XY$(LINIE+14);"^" 0320 ELSE 0330 IF LINIE=1 THEN 0340 LET LINIE=LINIE-1 0350 ENDIF 0360 ENDIF 0370 ON ESC THEN EXEC TILBAGE 0380 ENDPROC TILBAGE