|
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: 732 (0x2dc)
Types: TextFile
Notes: ELEVRET::TILBAGE, TILBAGE
Names: »TILBAGE«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 8300 REM ------------------------------------------------------------------------- 8310 PROC TILBAGE 8320 ON ESC THEN EXEC TILBAGE 8330 LET GENTAGER=0 8340 IF RYKKER=6 THEN 8350 LET GENTAGER=1; FLYTTER=RYKKER; SPRING=0 8360 ELSE 8370 IF RYKKER=13 OR RYKKER=20 THEN 8380 LET RYKKER=RYKKER-2 8390 ELSE 8400 IF RYKKER=21 THEN 8410 IF NOT ENGELSK THEN 8420 LET RYKKER=RYKKER-3 8430 ELSE 8440 LET RYKKER=RYKKER-1 8450 ENDIF 8460 ELSE 8470 LET RYKKER=RYKKER-1 8480 ENDIF 8490 ENDIF 8500 ENDIF 8510 PRINT "<134>";XY$(41);XY$(RYKKER);"<30>" 8520 ENDPROC TILBAGE