1000 PROG1$="  M I N I P R O G  "
1010 REV$ = "    Rev: 830120    "
1020 ID$  = "By  Robert Hamilton"
1030 NOTE$= "NOTE: This is a skeletin basic program"
1040 SCREEN 0,0,0:WIDTH 80:COLOR 2,0,0:KEY OFF:CLS
1050 LOCATE ,,1,12,13:DEF SEG=0:IF PEEK (&H410)= 109 THEN LOCATE ,,,6,7
1060 DEF SEG=64:POKE 23,128:DEF SEG:ON ERROR GOTO 1230
1070 OPTION BASE 1:CL$=STRING$(79,0):UP$=STRING$(1,30):Q$=CHR$(34)
1080 ' Dim a$(10):Defint a-z  '                       DIM & DEF Statements here
1090 KEY 1,CHR$(27)+"CLS:LIST ":KEY 2,CHR$(27)+"RUN"+CHR$(7)'              Keys
1100 KEY 9,CHR$(12)+"COLOR 6,0:CLS"+CHR$(13)
1110 FOR I=1 TO 10:ON KEY(I) GOSUB 0:KEY (I) ON:NEXT '   Turns Keys Off, Basica
1120 LOCATE 5,28:COLOR 2,0:PRINT PROG1$:COLOR 2,0:LOCATE 7,28:PRINT REV$
1130 LOCATE 9,28:PRINT ID$:LOCATE 20,1:COLOR 6,0:PRINT NOTE$:SOUND 500,5
1140 LOCATE 24,1:COLOR 0,7:PRINT" SPACE ";:COLOR 5,0:PRINT" To Continue   ";
1150 COLOR 0,7:PRINT" Q ";:COLOR 5,0:PRINT" To Quit ";:COLOR 6,0
1160 K$=INKEY$:IF MID$(K$,1,1)=CHR$(13) OR MID$(K$,1,1)=" " THEN 1240
1170 IF MID$(K$,1,1)="q" OR MID$(K$,1,1)="Q" THEN 1210
1180 GOTO 1160  '                      Delete this line for any key to continue
1190 IF K$="" THEN 1160
1200 GOTO 1240
1210 ' Cls:Locate 24,1:System:End '              Use this line to return to DOS
1220 CLS:LOCATE 20,1:COLOR 6,0:PRINT"DONE";CHR$(10):KEY ON:SOUND 200,6:END
1230 SOUND 600,5:PRINT CHR$(10):COLOR 6,0:ON ERROR GOTO 0:END  'Trap Error Here
1240     REM: ?? START PROGRAM
1250 ERROR 255:END '                ERROR TRAP TEST, Start program on this line