start bastext 16385
start tok128 d64-dg3EfK
10 WINDOW 0,0,79,24:GRAPHIC 1,1:PRINT CHR$(14);"{light gray}{clear}":GRAPHIC 5,1:FAST:POKE 1024,0
20 PRINT"{light blue}{cm @*80}"
30 a$="{cm g}{space*78}{cm m}":PRINT a$
40 PRINT"{cm g}{space*21}{light green}{space*5}U n i x{space*3}1 2 8{space*4}v3.00{space*2}{light blue}{space*26}{cm m}"
50 PRINT"{cm g}{space*26}{light green}{space*5}By Gregg Riedel{space*3}{light blue}{space*29}{cm m}"
60 PRINT"{cm g}{space*13}{light green}{space*19}April 8, 1991{space*8}{light blue}{space*25}{cm m}"
70 PRINTa$
80 PRINT"{cm t*80}"
90 PRINT "{down*11}{pink}{space*5}{cm @*70}"
100 a$="{space*5}{cm g}{space*68}{cm m}":PRINT a$
110 PRINT "{space*5}{cm g}{space*10}{cyan}Thank you:{space*2}Daniel F. Boyd, for the inspiration. {pink}{space*9}{cm m}"
120 PRINT "{space*5}{cm g}{space*12}{cyan}{space*7}Coca Cola Co.,{space*2}for caffeine.{space*8}{pink}{space*12}{cm m}"
130 PRINT "{space*5}{cm g}{space*14}{light blue} Unix is a trademark of AT&T / Bell Labs.{space*3}{pink}{space*10}{cm m}"
140 PRINT a$
150 PRINT "{space*5}{cm t*70}{home}"
160 PRINT"{home}{down*9}{light gray}";SPC(23);"Redefining characters:{space*2}{sh +}{sh -}{pi}{pound}^{sh pound}{arrow left}{sh asterisk}":GOSUB200
170 PRINTSPC(26);"{down}System boot in progress{.*3}"
180 RUN"unix 128 v*"
190 END
200 REM redefine chars-------------------------------------------------------
210 vi=DEC("1800"):vo=DEC("180c"):BANK15:READa$
220 DO UNTIL a$="end"
230 POKE vi+i, DEC(a$):i=i+1:READa$:LOOP
240 :   DATA 8e,00,d6,2c,00,d6,10,fb,ad,01,d6,60
250 :   DATA 8e,00,d6,2c,00,d6,10,fb,8d,01,d6,60,end
260 FORi=1TO8
270 READ b:FORx=1TO8:READa:ad=b+x:GOSUB300:ad=b+4096+x:GOSUB300
280 a=255-a:ad=b+x+128*16:GOSUB300:ad=b+4096+x+128*16:GOSUB300:NEXTx
290 NEXTi:RETURN
300 REM write data a to address ad--------------------------------------
310 SYS vo, ad/256, 18:SYS vo, ad AND 255, 19:SYS vo,a,31:RETURN
320 DATA 9647,28,16,8,56,8,16,28,0
330 DATA 9679,56,8,16,28,16,8,56,0
340 DATA 9695,118,220,0,0,0,0,0,0
350 DATA 8639,0,96,48,24,12,6,3,0
360 DATA 8671,8,28,54,99,0,0,0,0
370 DATA 9871,24,24,24,24,24,24,24,24
380 DATA 8687,0,0,0,252,12,63,30,12
390 DATA 9215,96,48,24,0,0,0,0,0
stop tok128
(bastext 1.0)