0 'NOMAD starter (c)1989 H.Sprow CIS:73625,365 
1 TP=62400:CLS:IFHIMEM=TPTHEN4
2 CLEAR256,TP:ONERRORGOTO5:LOADM"NOMAD"
3 KY=6:TP=HIMEM:PRINTCHR$(27)"pNOMAD";CHR$(27)"q (c) 1989 H.Sprow  F";:PRINTUSING"# ";KY;:PRINT"to activate":PRINT:KEYKY,"CALL"+STR$(TP)+CHR$(13):CALL27721:NEW 
4 S=0:FORI=TPTOTP+500STEP5:S=S+PEEK(I):NEXT:IFS<>15144THEN2ELSEGOTO3 
5 IFERR=52THENPRINT"NOMAD.CO not available!":ENDELSEPRINT"Error"ERR:END