|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1408 (0x580)
Types: TextFile
Names: »vundet«
└─⟦f1778b737⟧ Bits:30003931/piccolo-disk2.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »vundet«
5000 //***************************************************// 5010 //***************** vundet *******************// 5020 //***************************************************// 5030 DIM gemjn$ OF 1,rekordnavn$ OF 20 5040 PRINT CHR$(12) 5050 PRINT AT(37,2);CHR$(130);CHR$(144);" JUHUUH ";CHR$(128) 5060 PRINT AT(15,5);"Tilykke,tilykke. De har vundet." 5070 PRINT AT(14,6);"De har virkelig gjort dem fortjent til en" 5080 PRINT AT(14,7);"meget stor medalje.Men desværre har vi ikke" 5090 PRINT AT(14,8);"nogen på lager. Jeg er ked af det men sådan" 5100 PRINT AT(14,9);"er det altså.Men hvis De ønsker det kan vi" 5110 PRINT AT(14,10);"skrive deres navn på disketten,så De aldrig" 5120 PRINT AT(14,11);"vil blive glemt." 5130 PRINT AT(14,12);"Hvis De ønsker det så tryk nu på g.Ellers" 5140 PRINT AT(14,13);"skal De kun trykke på newline." 5150 INPUT gemjn$ 5160 IF gemjn$ IN "gG" AND LEN(gemjn$)=1 THEN 5170 OPEN FILE 4,"rekordnavne", APPEND 5180 INPUT "Vær venlig at angive deres navn her ----> ": rekordnavn$ 5190 WRITE FILE 4: rekordnavn$ 5200 PRINT AT(10,18);"De er nu blevet skrevet ind.Og nu vil vi gå videre." 5210 CLOSE FILE 4 5220 ENDIF 5230 FOR vent:=1 TO 2000 DO 5240 NEXT vent 5250 EXEC start 5260 //**************************************************// ▶19◀«eof»