|
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: 620 (0x26c)
Types: TextFile
Notes: BREV::NUMSTRIN, NUMSTRIN
Names: »NUMSTRIN«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 1400 REM ------------------------------------------------------------------------- 1410 PROC NUMSTRIN 1420 IF NUMOBJEC<10 THEN 1430 LET PJÆKS$=CHR(NUMOBJEC+48) 1440 ELSE 1450 IF NUMOBJEC<100 THEN 1460 LET CIFI=INT(NUMOBJEC/10); CIFII=NUMOBJEC-CIFI*10 1470 LET PJÆKS$=CHR(CIFI+48),CHR(CIFII+48) 1480 ELSE 1490 LET CIFI=INT(NUMOBJEC/100); CIFII=INT((NUMOBJEC-(CIFI*100))/10) 1500 LET CIFIII=NUMOBJEC-(CIFI*100+CIFII*10) 1510 LET PJÆKS$=CHR(CIFI+48),CHR(CIFII+48),CHR(CIFIII+48) 1520 ENDIF 1530 ENDIF 1540 ENDPROC(NUMSTRIN