CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
C
DIMENSION PUFF(40)
+ INTEGER PUFF
C
- WRITE(1,1000)
+ WRITE(4,1000)
1000 FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
WRITE(1,1001)
1001 FORMAT (10H27.05.2005)
C
C
-666 WRITE (1, 1002)
+666 WRITE (4, 1002)
1002 FORMAT (2HPP)
+C
READ (1,1003) PUFF
+ WRITE (4,1002)
1003 FORMAT (40A2)
-1004 FORMAT (40A2)
- WRITE (4,1004)PUFF
+1004 FORMAT (4H--->,40A2)
+ WRITE (4,1004) PUFF
+ CALL REBOOT
GO TO 666
END
$0