C64S tape image fileSQUIGGLE BIG TIME * SQUIGGLE  BIG TIME kMONITOR %*****SQUIGGLE VERSION 2.0*****? IDEA BY PAUL HITTLEd PROGRAMMING BY B.SEILER, G.YOB CLEAR SCREEN TO START""; SQUIGGLE GRAPHICS CHARACTERS "","","","","","" CHARACTERS FOR EACH DIRECTION 20-UP,30-DOWN,40-RIGHT,50-LEFT 1,0,5,6-0,1,4,3:(3,6,2,0G24,5,0,2j7 A$ HOLDS CHARS, B HOLDS PTRS8 FOR EACH DIRECTION<A$(5),B(5,5)A SET UP A$ AND B()FI05PA$(I)Z IdI14nJ14xB(J,I) J I INITIAL VALUES4 T1,T2 = DIRECTION OF TRAVELR T1 IS CURRENT DIRECTIONq T2 IS PREVIOUS DIRECTION 1=UP, 2=DOWN, 3=RIGHT, 4=LEFT X,Y ARE POSITION OF WRIGGLER ON SCREEN. 0,0 IS UPPER LEFT CORNER (CURSOR HOME) 20,12 IS CENTER OF SCREEN%T11.T217X20@Y12X GET RANDOM FACTORs"WIGGLE FACTOR(0-9)"; "";: J1130:J " ";: J1100:J W$:W$""265 W$"0" W$ "9" 260W(W$)10.1""";,***MAIN LOOP***- ** TURN OR NOT??11 (1)WW 325D2 YES, DO TURNT6T14(1)1h@B(T1,T2)0310D DRAW MOVE ON SCREENE2000JT2T1S UPDATE POSITIONTT1400,410,420,430YY1:500YY1:500XX1:550 XX1:550  ADJUST FOR WRAP-AROUND0 Y1Y23:300C Y23Y1:300V &X1X39:300i 0X39X1:300r :300  ***DRAWING SUBROUTINE***  POSITION CURSOR AT X,Y ""; I1Y "";  I I1X "";  I  PRINT THE CHARACTER! A$(B(T1,T2)1);' * BIG TIME 2.0 NON-STOP> ORIGINALLY BY SCOTT MAUCUSZ MODIFIED BY B. SEILERu STORE DIGITS IN A$() A$(9) I0 9# SET UP A DIGIT( J1 52 A$7 MOVE CURSOR DOWN & 3 LEFT<A$(I)A$(I)A$""F JP A$)U MOVE CURSOR RIGHT & 5 UPEZA$(I)A$(I)A$""Md I` ASK FOR TIME" MINUTES"" HOURS SECONDS"" ""PLEASE INPUT TIME HHMMSS":17);,A$T SET TIME HERE^TI$A$1h DRAW "TIME" WORD;r8000Q DRAW BORDER BOX[5000k MAIN LOOP POSITION CURSOR @ 1 ST DIGIT"";N DRAW NUMERALS FOR TIMEXI16A$(((TI$,I,1))); INSERT COLON TWEEN HH-MM,MM-SS/I2I4"ם";7 I@ 500Z DIGITS DATA STRINGSe"Σ"p" "{" "" "" ""ͤ"L" Υ"V" "`" "j" "t" "~" ""Σ"" "" " " "" " "̤"+"Σ"6" "A(" "L2" "W<" "bF"ͤ"mx" "x" "" """" "" ""ϣ""̤ "" "" "" ""ͤ"@"Σ"J" " T"̤ " ^" " h" "( r"ͤ"3 "ϣ"> " "I " "T " "_ " "j " "u "Σ" " " "ͤ" &" " 0" " :"ͤ" l"Σ" v" " "ͤ" " " " " "ͤ"  WRITE BORDER FOR DIGITS " ";, I137:"";::> ""35)"Υ"I I12i ""I)""352I)""I)""o  " ";:I129:"";::" " I18 " "29)" "  P" ";:I129:"";::" " I211 ""I)""352I)""I)"" , ,""35)"ͥ"H " ";:I137:"";::N p` @ TIME HEADERj ^"";s hW10 rW)"ϣ Υ ϣ |W)" ̤ W)" W)" ̤ (#  (1039)'}k|C!B!JhhhhhihiX !* "R +ʅ .  : 7 .   HH`? LW8  ``! :  !` ^ hhL !`` L `:;RMGXLS,^ PC SR AC XR YR SP   7 7  .; " 7   M  OH ?  O= ?J0 ) *   .: " 7  LWL ^ O   ^ O!   O HHH@Lâ H hHJJJJ +h) +H hLiiii:` : LHh` ^ ^`   `    8`:)(i` hhLWL # ^)  ,U # Ȣ L g ;  L M "  )LW O ,L O  LW 0 1 2 3 4 5 6