DataMuseum.dk

top - metrics - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »@Tå«

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧ »/STORM.@Tå« 

TextFile

«ff»
  0004 LET KJ=0
  0005 REM JF F0DSELSDAGS IND UNDER OPBYG 16.09.81
  0006 PROC STREG
  0010   FOR I=1 TO 2
  0020     PRINT "<14>";"<28>";
  0030     PRINT "WWWWWWWWWWWWWWWWWWWWWWWWW";
  0040   NEXT I
  0050   PRINT "<14><28>";"W"
  0060   FOR K=1 TO 2
  0070     PRINT "<14><28>";
  0080     PRINT "MMMMMMMMMMMMMMMMMMMMMMMMM";
  0090   NEXT K
  0100   PRINT "<14>";"<28>";"M"
  0110 ENDPROC
  0115 PROC SIDE
  0120   PRINT "<14><28>";"WW";
  0130 ENDPROC
  0140 PROC SIDEST
  0150   PRINT "<14><28>";"WW"
  0160 ENDPROC
  0170 DIM A$(130),B$(130)
  0180 DIM C$(130),D$(130),E$(130),F$(130),G$(130),H$(130)
  0190 DIM I$(130),J$(130),K$(130)
  0200 READ A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$
  0210 EXEC UDSKRIFT
  0220 PROC UDSKRIFT
  0230   EXEC STREG
  0240   FOR I=1 TO 11
  0250     EXEC SIDE
  0260     EXEC KUN
  0270     EXEC TEXT
  0280     EXEC TAAB
  0290     EXEC SIDEST
  0300   NEXT I
  0308   EXEC STREG
  0309 ENDPROC
  0310 PROC TEXT
  0320   LET KJ=KJ+1
  0330   CASE KJ OF 
  0340   WHEN 1
  0350     PRINT A$;
  0360   WHEN 2
  0370     PRINT B$;
  0380   WHEN 3
  0390     PRINT C$;
  0400   WHEN 4
  0410     PRINT D$;
  0420   WHEN 5
  0430     PRINT E$;
  0440   WHEN 6
  0450     PRINT F$;
  0460   WHEN 7
  0470     PRINT G$;
  0480   WHEN 8
  0490     PRINT H$;
  0500   WHEN 9
  0510     PRINT I$;
  0520   WHEN 10
  0530     PRINT J$;
  0540   WHEN 11
  0550     PRINT K$;
  0560   ENDCASE
  0570 ENDPROC
  0600 PROC KUN
  0610   PRINT "<14><28>";
  0620 ENDPROC
  0630 PROC TAAB
  0640   PRINT "<14>";TAB(55);
  0650 ENDPROC
  0655 DATA " "," "," "," "
  0660 DATA "                  HEJ "
  0661 DATA "                  MED"
  0662 DATA "                  DIG"
  0670 DATA " "," "," "," ",""," "
«nul»