start tok64 d64-9Zh9wF 5 POKE53280,0:POKE53281,0:PRINT"{clear}{cyan}{ct h}{ct n}{down*2}{reverse on}Alignment Program For 1541":PRINT"by Rex R. Collins, 1987":PRINT"{down*2}{green}This P.D. program was designed for an":PRINT"easy, do-it-yourself alignment of the":PRINT"1541 disk drive.{down}":PRINT"Read the .doc file on this program 11 PRINT"before you attempt to align your":PRINT"drive. If you RUN the program now,":PRINT"all it will do is test the alignment,":PRINT"not assist you in aligning it.":d=8:PRINT"{down*2}{yellow}How many drives will you be testing?{space*4}(1-4) 21 GETd$:IFd$=""THEN21 22 IFd$>"4"THENRUN 23 IFd$="1"THEN70 24 IFd$>="2"THEN28 25 IFd$<>"1"ANDd$<>"2"ANDd$<>"3"ANDd$<>"4"THEN21 28 PRINT"{down}Do you need to set device #'s? (y/n) 29 GETa$:IFa$=""THEN29 31 IFa$<>"y"THEN70 32 PRINT"{clear}Turn off all drives - press any key.{down}":WAIT198,1:IFd$>="4"THENPRINT"Turn on device 11 - press any key.{down}":POKE198,0 34 IFd$>="4"THENGOSUB45:PRINT#1,"m-w"CHR$(119)CHR$(0)CHR$(2)CHR$(11+32)CHR$(11+64):CLOSE1 35 IFd$>="3"THENPRINT"Turn on device 10 - press any key.{down}":POKE198,0 36 IFd$>="3"THENGOSUB45:PRINT#1,"m-w"CHR$(119)CHR$(0)CHR$(2)CHR$(10+32)CHR$(10+64):CLOSE1 37 IFd$>="2"THENPRINT"Turn on device 9 - press any key.{down}":POKE198,0 38 IFd$>="2"THENGOSUB45:PRINT#1,"m-w"CHR$(119)CHR$(0)CHR$(2)CHR$(9+32)CHR$(9+64):CLOSE1 39 IFd$>="1"THENPRINT"Turn on device 8 - press any key.{down}":POKE198,0 40 IFd$>="1"THENGOSUB45:PRINT#1,"m-w"CHR$(119)CHR$(0)CHR$(2)CHR$(8+32)CHR$(8+64):CLOSE1 41 GOTO70 45 WAIT198,1:OPEN1,8,15:RETURN 70 PRINT"{clear}{down*2}Insert disks in all drives.{down*2}":DIMe$(16):si=54272:z$=CHR$(0):dc$=z$+CHR$(28)+CHR$(1):FORi=siTOsi+23:POKEi,0:NEXT:POKEi,15:POKEsi+5,9:e$(0)="{space*23}":e$(1)="{light gray}O.K.{space*19}":e$(2)="{orange}Close To Halfway{space*7}":e$(3)="{light blue}Halfway (No Data Found) 170 e$(9)="{orange}Close To Halfway{space*7}":c$="":FORi=1TO11:READa:c$=c$+CHR$(a):NEXT:PRINT"{down*2}Press any key to start{.*3}":POKE198,0:WAIT198,1 210 OPEN5,d,15:PRINT#5,"m-w"z$CHR$(3)CHR$(11)c$:: 300 PRINT#5,"i":PRINT"{clear}":t=18:: 400 e=0:: 500 PRINT#5,"m-r"dc$:GET#5,a$:a=ASC(a$+z$):cv=3ANDa:a=(159ANDa)OR(100+32*((t>17)+(t>24)+(t>30))):PRINT#5,"m-w"dc$CHR$(a):::t$=STR$(tr):s$=STR$(se):IFe<>1THENt$="??":h1$="?":h2$="?":s$="?? 610 PRINT"{yellow}Testing Device: "d:PRINT"{down*2}{gray}Track Position:"t"{left}{space*4}":PRINT"{light blue}{space*2}Track # Read: "RIGHT$(t$,2):PRINT"{156} Sector # Read: "RIGHT$(s$,2):PRINT"{orange}{space*7}Disk ID: "h1$;h2$:PRINT"{down}{light gray}{space*2}Read Results: "e$(e):::PRINT"{cyan}{down*3}Commands --":PRINT"{down}{space*2}F1 = Back 1/2 a Track":PRINT"{space*2}F2 = Move to Track 1 730 PRINT"{space*2}F3 = Forward 1/2 a Track":PRINT"{space*2}F4 = Move to Track 35":PRINT"{space*2}F5 = Move to Track 18 (Dir)":PRINT"{space*2}F6 = Next Device #":PRINT"{space*2}F7 = End Program{home}":::GETa$:k=ASC(a$+z$)-132:IFk>0THENONkGOTO1300,1320,300,1800,1340,1360,1850 860 ::: 900 PRINT#5,"m-w"z$z$CHR$(1)CHR$(208):::PRINT#5,"m-r"z$z$:GET#5,a$:e=ASC(a$+z$):IFe=3THENfh=20:GOTO1200 1040 IFe=2ORe=9THENfh=30:GOTO1200 1050 IFe<>1THEN400 1080 ::PRINT#5,"m-r"CHR$(22)z$CHR$(4):GET#5,h1$,h2$,h3$,h4$:tr=ASC(h3$+z$):se=ASC(h4$+z$):GOTO500:: 1200 POKEsi+4,0:POKEsi+1,fh:POKEsi+4,17:GOTO500:: 1300 IFt>1THEN1500 1310 GOTO900 1320 IFt<40THENc=1:GOTO1510 1330 GOTO900 1340 IFt>1THENc=-1:l=2*(t-1):GOTO1400 1350 GOTO900 1360 IFt<35THENc=1:l=2*(35-t):GOTO1400 1370 IFt=35THEN900 1380 c=-1:l=2*(t-35) 1400 FORi=1TOl:GOSUB1600:NEXT:GOTO400 1500 c=-1 1510 GOSUB1600:GOTO400:: 1600 t=t+c*.5:cv=(cv+c)AND3:a=(252ANDa)+cv:PRINT#5,"m-w"dc$CHR$(a):RETURN:: 1800 PRINT#5,"m-w"dc$CHR$(240):FORi=siTOsi+23:POKEi,0:NEXT:FORj=1TO100:NEXT:POKEi,0:CLOSE5:PRINT"{clear}{142}":END 1850 IFd$="1"THENd=8:CLOSE5:GOTO210 1851 IFd$="2"ANDd<9THENd=d+1:CLOSE5:GOTO210 1852 IFd$="2"ANDd=9THENd=8:CLOSE5:GOTO210 1853 IFd$="3"ANDd<10THENd=d+1:CLOSE5:GOTO210 1854 IFd$="3"ANDd=10THENd=8:CLOSE5:GOTO210 1855 IFd$="4"ANDd<11THENd=d+1:CLOSE5:GOTO210 1856 IFd$="4"ANDd=11THENd=8:CLOSE5:GOTO210 1857 IFd$>"4"THENRUN 2000 ::DATA169,48::DATA133,69::DATA169,00::DATA133,63::DATA76,177,243 stop tok64 (bastext 1.0)