j : light pen test and calibration program: copyright (c)Dan Moore / Arvin Industries, Inc. 1984: This program may be freely distributed but(: may not be sold.02: The author and his employer make no claims as to thee<: usability and/or performance of this productmF:vKHP ,: (: : H,,:Z , :"ͻ";d L  : L, :" ";: Ln  , :"ͼ";3x ,:" Light Pen"Q ,:"Test/Calibrationc ,:"by"| ,:"Dan Moore" , :"Have Light Pen Ready and" ,:"Press Any Key...."A$: A$""  ,,::  ,: ()' ,,: , :"Basic Operation Test"Y ,:"You have 15 seconds to activate pen" ,:"against white square in center of screen"; :  II: I4  PSW:    ,,::  , :"Pen Inoperative":U ,,::  , :"Pen Is Functional":  , :"Press Any key ..."lA$: A$"" ": , :"COLOR SENSITIVITY TEST", , :"The following tests"6 , :"cycle through various "@ , :"colors to test the pen "*J , :"response to different "QT  , :"spectral wavelengths. "x^  , :"Press the pen against "h  , :"the colored square in"r , :"the center of the "| , :"screen. The response"  , :"to each color will be"& , :"displayed."K , :"Press Any Key........"bA$: A$"" l  BLUE,GREEN,CYAN,RED,MAGENTA,BROWN,WHITE,GRAY,"LIGHT BLUE","LIGHT GREEN","LIGHT CYAN","LIGHT RED","LIGHT MAGENTA",YELLOW,"BRIGHT WHITE" :C C$:CC5 C,,:: ,: ();o ,,: ,:"COLOR BEING TESTED: ";: C,,: C$; ,: ,,:"PRESS PEN AGAINST COLOR SQUARE NOW":I :  II: I D " ,,::  , :"PEN IS SENSITIVE TO ";: NL0 ,,: , :"PRESS ANY KEY....."c:A$: A$"" :{? C X : D ,,::  , :"PEN IS NOT SENSITIVE TO ";N C,,:  ,(((C$)):C$: 0X ,,:: , :"LOW-RES TEXT MODE""b , :"CALIBRATION TEST"Il ,:"In this test, light cyan "pv ,:"squares will be displayed" ,:"at various coordinates."  ,:"The X and Y coordinates"  ,:"of the square will be "  ,:"shown. Press the pen on"-  ,:"the square and the pen "S ,:"coordinates and error "y ,:"will be displayed. " , :"Press any key......"A$: A$""  :I:D:C:  1,1,14,1,27,1,39,1,1,12,14,12,27,12,39,12,1,24,14,24,27,24,39,241  ,,:: X,Y:CC\ : : Y,X,: ();:  f  X1():Y1():    ,,:: , :"Displayed Coordinates:"* , :"X=";X;",Y=";Y;4 , :"Detected Coordinates:";> , :"X=";X1;",Y=";Y1LC (XX1) (YY1)  , :"NO LIGHT-PEN ERROR": \YD ,,}H  , :"Light-pen error(s):";R , :"X=";XX1;",Y=";YY1\ ,,: , :"Press any key......."fA$: A$"" fp C z ( ,,:: , :"HI-RES TEXT MODE"G , :"RESOLUTION TEST"n ,:"In this test, light cyan " ,:"squares will be displayed" ,:"at various coordinates."  ,:"The X and Y coordinates"  ,:"of the square will be ",  ,:"shown. Press the pen on"R  ,:"the square and the pen "x ,:"coordinates and error " ,:"will be displayed. " , :"Press any key......"A$: A$""  :I:D:C: ; 1,1,27,1,54,1,79,1,1,12,27,12,54,12,79,12,1,24,27,24,54,24,79,24[ P:  ,,:: X,Y:CC$ : : Y,X,: ();: 8. $8X1():Y1(): LL (: ,,:: , :"Displayed Coordinates:"V , :"X=";X;",Y=";Y;" ` , :"Detected Coordinates:";? j , :"X=";X1;",Y=";Y1{ o (XX1) (YY1)  , :"NO LIGHT-PEN ERROR":  p ,, t  , :"Light-pen error(s):"; ~ , :"X=";XX1;",Y=";YY1  ,,: , :"Press any key......."!A$: A$"" #! C -! [! ,,:: , :"LO-RES GRAPHICS MODE"z! , :"RESOLUTION TEST"! ,:"In this test, points of "! ,:"various sizes will appear "! ,:"on the graphics screen. ""  ,:"The X and Y coordinates"="  ,:"of the square will be "c"  ,:"shown. Press the pen on""  ,:"the points and pen ""  ,:"coordinates and error "" ,: " Press any key....""A$: A$"" "( ,: ,: #2 8,6,4,2,1#< 26#F PIX::Y<:X(@PIX)[#K , :PIX;" by ";PIX;" pixels"p#P X1X XPIX#Z Y1Y YPIX#d (X1,Y1),#n:#x : # # x# :PX():PY(): : '$ ,:"Valid X Coordinates:";(X);" to ";(X1)M$ ,:"Pen X Coordinate: ";PX|$ ,:"Valid Y Coordinates:";Y;" to ";Y1$ ,:"Pen Y Coordinate: ";PY$ , :"Press Any Key....."$A$: A$"" $ PIX : % FO% : (: ,,::  ,:"Would you care to play Rubber Band (Y/N)"f%A$: A$"" % A$"y" A$"Y" % A$"n" A$"N" :  ,:"Have a Nice Day.":%: , :"SPACE to quit..."%" , :"No rules, just play""&, , :"Press any key to play"9&6A$: A$"" 6K&@ ,: ,:T&J o&TA$: A$" " &^ () h : T&hX():Y()&r (X,Y),:X1X:Y1Y&v () |'w (X,Y)(X1,Y1),:X2():Y2():(X,Y)(X2,Y2),:X1X2:Y1Y2: v9'| (X2,Y2),:XX2:YY2:X1X2:Y1Y2T'A$: A$" " ^' v