100 REM  SAVE"MAKETOGEOS",8
110 REM ORIGINALLY PART OF LARGER PRG
120 DIMS%(255)
130 GOSUB370
140 END
150 :
160 REM DISK ERROR
170 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
180 PRINT" DISK ERROR [146]"EN,EM$,ET,ES
190 GOSUB250:RETURN
200 :
210 OPEN 15,8,15,"I0":REM <<OPEN ALL>>
220 GOSUB170
230 OPEN 2,8,2,"#"
240 RETURN
250 CLOSE2 :REM    << CLOSE ALL >>
260 PRINT#15,"I0"
270 FORX=0TO2000:NEXT
280 CLOSE15:RETURN
290 :
300 REM << READ SECTOR >> T,S,S%(255)
310 PRINT"READING TRK:";T;"SEC:";S
320 PRINT#15,"U1";2;0;T;S
330 GOSUB170:FORI=0TO255:GET#2,B$
340 S%(I)=ASC(B$+CHR$(0)):NEXT:RETURN
350 :
360 REM CONVERT A C64 FILE TO GEOS
370 PRINT"INPUT FILENAME":PRINT:INPUTF$:IFF$=""THENEND
380 FORX=0TO15:F$=F$+CHR$(160):NEXT:F$=LEFT$(F$,16)
390 GOSUB210:GOSUB 600:REM DIR
400 T=D1:S=D2:GOSUB310:REM GET INFO
410 E4=S%(0):E5=S%(1):REM LINK
420 S%(0)=0:S%(1)=255:REM /CHANGE
430 S%(2)=3:S%(3)=21 :REM /1ST 4
440 GOSUB690:REM WRITE BLOCK
450 T=E1:S=E2:GOSUB310:REM GET DIR
460 GOSUB 790:REM DIR ENTRY INFO
470 S%(E3)=131:REM USER/C=64
480 S%(E3+1)=E4:S%(E3+2)=E5:REM VLIR
490 S%(E3+19)=D1:S%(E3+20)=D2:REMINFO
500 S%(E3+21)=0:REM SEQ/GEOS
510 S%(E3+22)=6:REM APPLICATION/GEOS
520 S%(E3+23)=T1
530 S%(E3+24)=T2
540 S%(E3+25)=T3
550 S%(E3+26)=T4
560 S%(E3+27)=T5
570 GOSUB690:GOSUB250:RETURN
580 :
590 REM FIND A DIR ENTRY
600 T=18:S=1:GOSUB310
610 FORI=5TO229STEP32
620 G$="":FORJ=0TO15
630 G$=G$+CHR$(S%(I+J)) :NEXT
640 IFG$=F$THEND1=S%(I-2):D2=S%(I-1):E1=T:E2=S:E3=I-3:RETURN:REM E3=FILETYPE
650 NEXT:IFS%(0)<>0THENT=S%(0):S=S%(1):GOSUB310:GOTO610
660 PRINT"  NOT FOUND  [146]":RETURN
670 :
680 REM WRITE SECTOR TO DISK
690 PRINT"WRITING TRK:";T;"SEC:";S
700 PRINT#15,"B-P";2;0
710 FORI=0TO255
720 PRINT#2,CHR$(S%(I));
730 NEXT
740 PRINT#15,"U2";2;0;T;S
750 GOSUB170:RETURN
760 :
770 :
780 REM GET DIR ENTRY INFO
790 PRINT"DIR. ENTRY INFORMATION"
800 INPUT"YEAR :";T1:IFT1>99THEN800
810 INPUT"MONTH:";T2:IFT2>12THEN810
820 INPUT"DAY  :";T3:IFT3>31THEN820
830 INPUT"HOUR :";T4:IFT4>23THEN830
840 INPUT"MIN. :";T5:IFT5>59THEN840
850 PRINT"FILE:";F$:PRINT"DATE:"T1;"/";T2;"/";T3;"  TIME:";T4;":";T5:POKE198,0
860 PRINT"DO YOU WISH TO CHANGE INFO (Y/N[146]) ?":INPUTK$:IFK$="Y"THEN790
870 RETURN