1 POKE56,160:CLR
5 D=PEEK(186):IFD<8THENSTOP
6 POKE1023,D
7 IFPEEK(44)=100THENGOSUB41000:PRINT"[144]"
10 GOSUB60008:F$=N$+".DBS"
11 IFN$="DOTPLUS"THEN500
12 OPEN1,D,15,"R0:"+F$+"="+F$
13 INPUT#1,EN:CLOSE1
14 IFEN<>63THEN200
20 DF$=N$+".DML"
21 OPEN1,D,15,"R0:"+DF$+"="+DF$
22 INPUT#1,EN:CLOSE1
23 IFEN<>63THENGOSUB300
24 IFPEEK(44)=100THEN30
25 POKE44,100:POKE256*100,0
26 A$="B."+N$:PRINT"[147]L[207]A$,D":PRINT"RUN"
27 POKE198,2:POKE631,13:POKE632,13:END
30 SYS57812"MOUSE2.1 7K 1000",D,0:POKE780,0:POKE781,0:POKE782,16:SYS65493
46 GOSUB60008:DF$=N$+".DML":F$=N$+".DBS"
47 SYS57812DF$,D,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
48 L=PEEK(781):H=PEEK(782):OPEN4,D,4,DF$:GET#4,A$,B$:CLOSE4
49 IFASC(B$)<>56THENGOSUB600
50 Q=H+1:POKE44,Q:POKEQ*256,0:POKE1020,1:POKE1021,Q
51 PRINT"[147]L[207]F$,D":PRINT"RUN"
52 POKE198,2:POKE631,13:POKE632,13:END
200 STOP:Q$=CHR$(34):A$="DOT+.DBS"
202 PRINT"[147]L[207]A$,D"
204 PRINT"60008N$="Q$N$Q$
206 PRINT"GOTO60000"
208 PRINT"L[207]"Q$"B."N$Q$","D
210 PRINT"RUN"
212 POKE198,5:FORX=1TO5:POKE630+X,13:NEXT:END
299 END
300 STOP: OPEN1,D,15,"C0:"+DF$+"=DD.ML"
306 CLOSE1:RETURN
399 END
500 PRINT"[213]SE [194].[196][207][212][194][193][211][201][195] TO CREATE YOUR [208]ROJECT.":END
501 PRINT"AND PRESS <RETURN> TWICE"
502 PRINT"GOTO60000[145][145][145]":LIST60008
600 POKE53280,1:PRINT"":POKE198,0:STOP
605 OPEN1,D,15,"S0:"+DF$:CLOSE1
610 SYS57812DF$,D:POKE193,0:POKE194,56:POKE174,L:POKE175,H:SYS62954
620 SYS57812DF$,D,0:POKE780,0:POKE781,0:POKE782,56:SYS65493:H=PEEK(782)
630 RETURN
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,13:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO8
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41014 GOSUB41075
41020 FORX=2TO6:READA$:POKE214,14+X:PRINT
41021 IFX=1THENIFLEN(A$)<19THENGOSUB41050
41022 PRINTTAB(19-LEN(A$)/2)"[152]"A$
41024 NEXT
41030 T=TI+60
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41050 B$=""
41051 FORY=1TOLEN(A$):B$=B$+MID$(A$,Y,1)+" ":NEXT:A$=LEFT$(B$,LEN(B$)-1):RETURN
41075 GOSUB60008:AA$="":FORX=1TOLEN(N$)
41076 A=ASC(MID$(N$,X)):IFA>64THENA=AOR128
41078 AA$=AA$+CHR$(A):NEXT:N$=AA$
41080 IFLEN(N$)>18THEN41088
41082 AA$="":FORX=1TOLEN(N$)-1
41084 AA$=AA$+MID$(N$,X,1)+" ":NEXT
41086 N$=AA$+RIGHT$(N$,1)
41090 POKE214,15:PRINT:PRINT"[152]" TAB(19-LEN(N$)/2)N$:RETURN
41101 REM AUTHOR'S NAME
41102 DATA"BY [196]AVE [205]OORMAN"
41103 REM EXTRA LINE
41104 DATA""
41105 REM COPYRIGHT
41106 DATA"(C)2007 [202] & [198] [208]UBLISHING, [201]NC.
41107 [143] EXTRA LINE
41108 [131]""
41109 [143] LOADSTAR TAG
41110 [131]"HTTP://C64.ELOADSTAR.COM"
59999 [128]
60000 [141]60008:N$[178]"B."[170]N$
60001 D[178][194](186)
60002 [159]1,D,15,"S0:"[170]N$:[160]1:[148]N$,D:[128]
60008 N$[178]"DOTPLUS"
60009 [142]