Apple II Programs 
Byte-sized delights that are guaranteed to ward off hysteria and melancholy!
10 February 2022
SYS.DIAG
by Lee Fastenau
Program
0SPEED=160:DEFFNA(I)=RND(1)*5+5*I:DIMA$(15):FORN=0TO14:READA$(N):NEXT:HOME:A$="ANALYZING...":GOSUB1:?:FORQ=0TO4:FORW=0TO500:NEXT:A$="YOUR "+A$(Q)+" "+A$(FNA(1))+" "+A$(FNA(2))+".":GOSUB1:NEXT:SPEED=255:END
1FORL=1TOLEN(A$):?MID$(A$,L,1);:INVERSE:?" ";CHR$(8);:NORMAL:NEXT:?" ":RETURN:DATA"CPU","RAM","KEYBOARD","MONITOR","DISK II","IS","IS QUITE","COULD BE","MIGHT BE","MUST BE","A MESS","YELLOW","A DISASTER","OVERRATED","FINE"
Information
Apple II problems got you down? Run a quick system diagnostic!
Discussion
Apple II Software Enthusiasts Group Permalink