1 REM Ins{nt av: Mikael Lid`n <5651>    1985-07-25 20.16.00
100 ! Ins{nt av Mikael Lid`n
110 ! 
120 DIM Sect$=253
130 OPEN 'STARTUP' AS FILE 1
140 POSIT #1,255
150 Ned$=CHR$(13,10)
160 A$=CHR$(12)+'Set date !'+CHR$(7)+Ned$+CHR$(10)+'Use DATE as login.'
170 B$=Ned$+CHR$(10.)+'Login:    '
180 C$=' '
190 D$=CHR$(7,12)
200 E$=Ned$+'Password: '
210 F$=' '
220 G$=CHR$(7,12)
230 H$=CHR$(12)+'System Ready'+CHR$(10,10)
240 I$=Ned$+CHR$(7)+'You have to login.'
250 J$=Ned$+CHR$(7)+'You are not allowed to use the system.'
260 K$=CHR$(12)+'Welcome to ?????????? !'+Ned$+CHR$(10,10)+'Date: '
270 Slut$=CHR$(224)
280 Sect$=CHR$(129)+A$+CHR$(130)+B$+CHR$(131)+C$+CHR$(132)+D$+CHR$(133)+E$
290 Sect$=Sect$+CHR$(134)+F$+CHR$(135)+G$+CHR$(136)+H$+CHR$(137)
300 Sect$=Sect$+I$+CHR$(138)+J$
310 Sect$=Sect$+CHR$(139)+K$+Slut$
320 Sect$=Sect$+SPACE$(251-LEN(Sect$))
330 ! 
340 ! OBS! sammanlagda l{ngden f}r ALDRIG |verskrida en sektor (ca 250 tkn)
350 ! Varje del str{ng }tskilld med 128+x b|r inte vara l{ngre {n ca 40 tkn
360 ! Uppfylls inte ovn{mda {r det risk att n{tet l}ser sig och ej kan
370 ! startas upp igen.
380 ! Texterna l{ses in av n{tet vid start.
390 ! Om ni vill exprimentera med det h{r programmet s} ha STIEFEL & STARTUP
400 ! p} diskett s} att, det bara {r att byta diskett om n}got g}r snett.
410 ! Du m}ste vara {kta sysman f|r att kunna g|ra den h{r {ndringen.
420 ! Programmet fungerar troligen bara p} vers 1.4 av CAT-NET.
430 ! 
440 ! Jag fritar mig fr}n allt ansvar vid anv{ndandet av detta program.
450 ! 
460 PUT #1,Sect$
470 CLOSE