font 64 pin=0 completed=0 GLOBAL USERSPIN USERSPIN = PEEKL($E000) ON VBL CALL MEMORY SUB MEMORY POKEL ($E000), USERSPIN END SUB text 0,3, "operate os version 0.2" text 0,5, "- setup" text 0,45, "exit setup" text 0,44, "help?" DO IF TAP THEN CY=TOUCH.Y\8 IF CY>=2 AND CY<=100 THEN IF CY=5 THEN GOTO Setup if cy=45 then end if cy=44 then end END IF END IF WAIT VBL LOOP Setup: BASE=60000 LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP if loads$<>"" then text 0,8, "1 account %" completed=1 end if keyboard off clw wait 6 text 0,3, "operate os ver 0.2" text 0,4, "click to setup" text 0,6, " Status "+str$(completed)+"/1" text 0,8, "1 account" DO BASE=60000 LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP if loads$<>"" then text 0,8, "1 account %" completed=1 end if IF TAP THEN CY=TOUCH.Y\8 IF CY>=2 AND CY<=20 THEN IF CY=8 THEN BASE=60000 CLS LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP IF LOADS$<>"" THEN goto setup else TEXT 0,0, "ACCOUNT NOT FOUND" WAIT 10 TEXT 0,1, "GOING TO SIGN UP" TEXT 0,2, "PROCESS" WAIT 60 GOTO ACC END IF end if END IF END IF WAIT VBL LOOP acc: BASE=60000 DO CLS LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP PRINT "ACCOUNT CREATOR" INPUT TEXTS$ WAIT 120 FOR I=1 TO LEN(TEXTS$) POKE BASE+I-1,ASC(MID$(TEXTS$,I,1)) NEXT I POKE BASE+LEN(TEXTS$),0 goto newpinenter LOOP KNOWN: SPRITE OFF CLW BASE=60000 DO CLS LOADS$="" I=0 DO C=PEEK(BASE+I) IF C=0 THEN EXIT LOADS$=LOADS$+CHR$(C) I=I+1 LOOP PRINT "SIGN IN" print PRINT LOADS$ IF TAP THEN CY=TOUCH.Y\8 IF CY>=1 AND CY<=11 THEN IF CY=5 THEN goto unlock END IF END IF WAIT VBL LOOP NEWPINENTER: KEYBOARD OFF PIN=0 TYPE=5 DO PAL 2 CLW TEXT 8,3, ""+STR$(PIN)+"" PAL 0 TEXT 8,5, "1 2 3" TEXT 8,7, "4 5 6" TEXT 8,9, "7 8 9" IF TYPE=1 THEN PAL 1 TEXT 8,12, "ENTER" PAL 0 TEXT 8,11, "SPACE" IF TAP THEN CY=TOUCH.Y\8 CX=TOUCH.X\8 IF CY>=1 AND CY<=21 THEN IF CX>=1 AND CX<=20 THEN IF CX=8 AND CY=5 THEN IF TYPE=2 THEN PIN=PIN+1 IF TYPE=3 THEN PIN=PIN+10 IF TYPE=4 THEN PIN=PIN+100 IF TYPE=5 THEN PIN=PIN+1000 IF 00 THEN TEXT 8,3, ""+STR$(PIN)+"" FONT 64 PAL 0 TEXT 8,5, "1 2 3" TEXT 8,7, "4 5 6" TEXT 8,9, "7 8 9" IF TYPE=1 THEN PAL 1 TEXT 8,12, "ENTER" PAL 0 TEXT 8,11, "SPACE" IF TAP THEN CY=TOUCH.Y\8 CX=TOUCH.X\8 IF CY>=1 AND CY<=21 THEN IF CX>=1 AND CX<=20 THEN IF CX=8 AND CY=5 THEN IF TYPE=2 THEN PIN=PIN+1 IF TYPE=3 THEN PIN=PIN+10 IF TYPE=4 THEN PIN=PIN+100 IF TYPE=5 THEN PIN=PIN+1000 IF 0